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

factored out RET in letter grammars

Browse Source
This commit is contained in:
aarne
2008-12-04 15:20:47 +00:00
parent 0616cf93bf
commit 95840d7cdc
6 changed files with 34 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/letter/LetterEng.gf
View File

@@ -30,6 +30,8 @@ oper
cnum cn => cn
} ;
RET = "" ; -- &-
lincat
Letter = SS ;
Recipient = SSSrc ;
@@ -44,8 +46,8 @@ Position = SSDep ;
lin
MkLetter head mess end =
ss (head.s ++ "," ++ "&-" ++
mess.s ! end.n ! end.x ! head.n ! head.x ++ "." ++ "&-" ++
ss (head.s ++ "," ++ RET ++
mess.s ! end.n ! end.x ! head.n ! head.x ++ "." ++ RET ++
end.s ! head.n ! head.x) ;
DearRec rec = {s = "Dear" ++ rec.s ; n = rec.n ; x = rec.x} ;
@@ -62,10 +64,10 @@ PlainSent sent = sent ;
FormalEnding auth =
{s = table {n => table {x =>
["Sincerely yours &-"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
["Sincerely yours"] ++ RET ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
InformalEnding auth =
{s = table {n => table {x =>
["With best regards &-"] ++ auth.s ! n ! x}} ; n = auth.n ; x = auth.x} ;
["With best regards"] ++ RET ++ 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} ;