diff options
Diffstat (limited to 'examples/letter/LetterHeb.gf')
| -rw-r--r-- | examples/letter/LetterHeb.gf | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/examples/letter/LetterHeb.gf b/examples/letter/LetterHeb.gf index 40d411e5e..62443724a 100644 --- a/examples/letter/LetterHeb.gf +++ b/examples/letter/LetterHeb.gf @@ -72,6 +72,9 @@ dep2gen : DepGen -> Gen -> Gen = \dg,g -> case dg of { cgen cg => cg
} ;
+ RET = "" ; -- &-
+
+
lincat
Letter = SS ;
Recipient = SSSrc ;
@@ -86,8 +89,8 @@ Position = SSDep ; lin
MkLetter head mess end =
- ss ("," ++ head.s ++ "&-" ++
- mess.s ! end.n ! end.g ! head.n ! head.g ++ "&-" ++
+ ss ("," ++ head.s ++ RET ++
+ mess.s ! end.n ! end.g ! head.n ! head.g ++ RET ++
end.s ! head.n ! head.g) ;
DearRec rec = {s = rec.s ++ regAdj "יקר" ! rec.n ! rec.g;
@@ -107,13 +110,13 @@ PlainSent sent = sent ; FormalEnding auth =
{s =
table {n => table {g =>
- [",בכבוד רב &-"] ++
+ [", בכבוד רב"] ++ RET ++
auth.s ! n ! g
}} ;
n = auth.n ; g = auth.g} ;
InformalEnding auth =
- {s = table {n => table {g => [",בברכה &-"] ++ auth.s ! n ! g}} ;
+ {s = table {n => table {g => [", בברכה"] ++ RET ++ auth.s ! n ! g}} ;
n = auth.n ; g = auth.g} ;
ColleagueHe = {s = "עמית" ; n = sg ; g = masc} ;
|
