diff options
Diffstat (limited to 'examples/letter/LetterEng.gf')
| -rw-r--r-- | examples/letter/LetterEng.gf | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/examples/letter/LetterEng.gf b/examples/letter/LetterEng.gf index 5b57f0da7..3ceb7896c 100644 --- a/examples/letter/LetterEng.gf +++ b/examples/letter/LetterEng.gf @@ -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} ; |