msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

markup

Browse Source
This commit is contained in:
aarne
2004-10-25 14:22:18 +00:00
parent 51fb62890f
commit 24ba5b3b82
15 changed files with 280 additions and 236 deletions
Download Patch File Download Diff File Expand all files Collapse all files

388
examples/letter/Letter.gfcm
View File

File diff suppressed because one or more lines are too long

10
examples/letter/letter.Eng.gf
View File

@@ -3,7 +3,7 @@
-- This file defines the English syntax of the grammar set
-- whose abstract syntax is $letter.Abs.gf$.
include letter.Abs.gf ;
include letter.Abs.gf ;
flags lexer=textlit ; unlexer=textlit ;
@@ -44,8 +44,8 @@ Position = SSDep ;
lin
MkLetter head mess end =
ss (head.s ++ "," ++ "<p>" ++
mess.s ! end.n ! end.x ! head.n ! head.x ++ "." ++ "<p>" ++
ss (head.s ++ "," ++ "&-" ++
mess.s ! end.n ! end.x ! head.n ! head.x ++ "." ++ "&-" ++
end.s ! head.n ! head.x) ;
DearRec rec = {s = "Dear" ++ rec.s ; n = rec.n ; x = rec.x} ;
@@ -62,10 +62,10 @@ PlainSent sent = sent ;
FormalEnding auth =
{s = table {n => table {x =>
["Sincerely yours <p>"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
["Sincerely yours &-"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
InformalEnding auth =
{s = table {n => table {x =>
["With best regards <p>"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
["With best regards &-"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
ColleaguesHe = {s = kollega ! pl ; n = pl ; x = masc} ;
ColleaguesShe = {s = kollega ! pl ; n = pl ; x = fem} ;

8
examples/letter/letter.Fin.gf
View File

@@ -84,8 +84,8 @@ Position = SSDep ;
lin
MkLetter head mess end =
ss (head.s ++ "," ++ "<p>" ++
mess.s ! end.n ! end.g ! head.n ! head.g ++ "." ++ "<p>" ++
ss (head.s ++ "," ++ "&-" ++
mess.s ! end.n ! end.g ! head.n ! head.g ++ "." ++ "&-" ++
end.s ! head.n ! head.g) ;
DearRec rec = {s = cher ! rec.n ! rec.g ++ rec.s ; n = rec.n ; g = rec.g} ;
@@ -101,10 +101,10 @@ ModeSent mode sent =
PlainSent sent = sent ;
FormalEnding auth =
{s = table {n => table {g => ["parhain terveisin <p>"] ++ auth.s ! n ! g}} ;
{s = table {n => table {g => ["parhain terveisin &-"] ++ auth.s ! n ! g}} ;
n = auth.n ; g = auth.g} ;
InformalEnding auth =
{s = table {n => table {g => ["terveisin <p>"] ++ auth.s ! n ! g}} ;
{s = table {n => table {g => ["terveisin &-"] ++ auth.s ! n ! g}} ;
n = auth.n ; g = auth.g} ;
ColleaguesHe = {s = regNom "kollega" ! pl ; n = pl ; g = masc} ;

8
examples/letter/letter.Fra.gf
View File

@@ -80,8 +80,8 @@ Position = SSDep ;
lin
MkLetter head mess end =
ss (head.s ++ "," ++ "<p>" ++
mess.s ! end.n ! end.g ! head.n ! head.g ++ "." ++ "<p>" ++
ss (head.s ++ "," ++ "&-" ++
mess.s ! end.n ! end.g ! head.n ! head.g ++ "." ++ "&-" ++
end.s ! head.n ! head.g) ;
DearRec rec = {s = cher ! rec.n ! rec.g ++ rec.s ; n = rec.n ; g = rec.g} ;
@@ -100,10 +100,10 @@ FormalEnding auth =
{s =
table {n => table {g =>
"avec" ++ mes ! dep2num auth.n n ++
["salutations distinguées <p>"] ++ auth.s ! n ! g}} ;
["salutations distinguées &-"] ++ auth.s ! n ! g}} ;
n = auth.n ; g = auth.g} ;
InformalEnding auth =
{s = table {n => table {g => ["Amicalement <p>"] ++ auth.s ! n ! g}} ;
{s = table {n => table {g => ["Amicalement &-"] ++ auth.s ! n ! g}} ;
n = auth.n ; g = auth.g} ;
ColleaguesHe = {s = regNom "collègue" ! pl ; n = pl ; g = masc} ;

8
examples/letter/letter.RusU.gf
View File

@@ -85,8 +85,8 @@ Position = SSDep ;
lin
MkLetter head mess end =
ss (head.s ++ "," ++ "<p>" ++
mess.s ! end.n ! end.g ! head.n ! head.g ++ "." ++ "<p>" ++
ss (head.s ++ "," ++ "&-" ++
mess.s ! end.n ! end.g ! head.n ! head.g ++ "." ++ "&-" ++
end.s ! head.n ! head.g) ;
DearRec rec = {s = regAdj "Дорог"
@@ -106,10 +106,10 @@ FormalEnding auth =
{s =
table {n => table {g =>
"С" ++
["наилучшими пожеланиями, <p>"] ++ auth.s ! n ! g}} ;
["наилучшими пожеланиями, &-"] ++ auth.s ! n ! g}} ;
n = auth.n ; g = auth.g} ;
InformalEnding auth =
{s = table {n => table {g => ["С дружеским приветом, <p>"] ++ auth.s ! n ! g}} ;
{s = table {n => table {g => ["С дружеским приветом, &-"] ++ auth.s ! n ! g}} ;
n = auth.n ; g = auth.g} ;
ColleaguesHe = {s = "коллеги" ; n = pl ; g = masc} ;

8
examples/letter/letter.Sve.gf
View File

@@ -50,8 +50,8 @@ Position = SSDep ;
lin
MkLetter head mess end =
ss (head.s ++ "," ++ "<p>" ++
mess.s ! end.n ! end.x ! head.n ! head.x ++ "." ++ "<p>" ++
ss (head.s ++ "," ++ "&-" ++
mess.s ! end.n ! end.x ! head.n ! head.x ++ "." ++ "&-" ++
end.s ! head.n ! head.x) ;
DearRec rec = {s = kaer ! rec.n ! rec.x ++ rec.s ; n = rec.n ; x = rec.x} ;
@@ -68,11 +68,11 @@ PlainSent sent = sent ;
FormalEnding auth =
{s = table {n => table {x =>
["Med vänlig hälsning <p>"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
["Med vänlig hälsning &-"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
InformalEnding auth =
{s = table {n => table {x =>
["Med hälsningar <p>"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
["Med hälsningar &-"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
ColleaguesHe = {s = kollega ! pl ; n = pl ; x = masc} ;
ColleaguesShe = {s = kollega ! pl ; n = pl ; x = fem} ;