GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-26 03:08:55 -06:00
Code Issues Packages Projects Releases Wiki 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

11
examples/letter/LetterHeb.gf
View File

@@ -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} ;