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 7ed9e11bfb
commit 896791e78c
6 changed files with 34 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
examples/letter/LetterFin.gf
View File

@@ -69,6 +69,7 @@ oper
cgen cg => cg
} ;
RET = "" ; -- &-
lincat
Letter = SS ;
@@ -84,8 +85,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 = cher ! rec.n ! rec.g ++ rec.s ; n = rec.n ; g = rec.g} ;
@@ -101,10 +102,10 @@ ModeSent mode sent =
PlainSent sent = sent ;
FormalEnding auth =
{s = table {n => table {g => ["parhain terveisin &-"] ++ auth.s ! n ! g}} ;
{s = table {n => table {g => ["parhain terveisin"] ++ RET ++ auth.s ! n ! g}} ;
n = auth.n ; g = auth.g} ;
InformalEnding auth =
{s = table {n => table {g => ["terveisin &-"] ++ auth.s ! n ! g}} ;
{s = table {n => table {g => ["terveisin"] ++ RET ++ auth.s ! n ! g}} ;
n = auth.n ; g = auth.g} ;
ColleaguesHe = {s = regNom "kollega" ! pl ; n = pl ; g = masc} ;