diff options
| author | aarne <aarne@chalmers.se> | 2010-06-21 16:50:40 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-06-21 16:50:40 +0000 |
| commit | 3714a7e3b402d02e3cf3ebdc94b8171cbceb5a33 (patch) | |
| tree | ebefacc8c9907e8fc8d884220632e65e9471be8f /examples/messages/MessagesEng.gf | |
| parent | e94a1c74086ef9c75a977e45c28bd4466d64cf1b (diff) | |
grammar for messages started
Diffstat (limited to 'examples/messages/MessagesEng.gf')
| -rw-r--r-- | examples/messages/MessagesEng.gf | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/examples/messages/MessagesEng.gf b/examples/messages/MessagesEng.gf new file mode 100644 index 000000000..f45fca90f --- /dev/null +++ b/examples/messages/MessagesEng.gf @@ -0,0 +1,54 @@ +--# -path=.:../phrasebook:present + +concrete MessagesEng of Messages = + WordsEng - + [IMale, IFemale, YouFamMale, YouFamFemale, YouPolMale, YouPolFemale], + GreetingsEng ** open + SyntaxEng, + ParadigmsEng, + (Phr = PhrasebookEng) + in { + +lincat + Message = Text ; + Heading = Text ; + Body = Text ; + Ending = Text ; + Statement = Text ; + Recipient = NP ; + Sender = NP ; + Title = CN ; + Role = Phr.NPPerson ; + +lin + Msg h b e = mkText h (mkText b e) ; + + HHello n = + mkText (strText "hello") (mkText (mkPhrase (mkUtt n)) (strText ",")) ; + HDear n = + mkText (strText "dear") (mkText (mkPhrase (mkUtt n)) (strText ",")) ; + + BOne p = p ; + BMore p b = mkText p b ; + + ERegards n = mkText (strText "regards") (mkPhrase (mkUtt n)) ; + + SSentence s = mkText s ; + SQuestion s = mkText s ; + SGreeting s = mkText s exclMarkPunct ; + + RName n = n ; + RTitle t n = mkNP (mkCN t n) ; + SName n = n ; + + TMr = mkCN (mkN "Mr") ; + TMs = mkCN (mkN "Ms") ; + + RI = Phr.IMale ; -- gender and politeness don't matter in English + RYou = Phr.YouFamMale ; + + PRole r = r ; + +oper + strText : Str -> Text = \s -> lin Text {s = s} ; +}
\ No newline at end of file |