diff options
Diffstat (limited to 'examples/messages/MessagesEng.gf')
| -rw-r--r-- | examples/messages/MessagesEng.gf | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/examples/messages/MessagesEng.gf b/examples/messages/MessagesEng.gf deleted file mode 100644 index f45fca90f..000000000 --- a/examples/messages/MessagesEng.gf +++ /dev/null @@ -1,54 +0,0 @@ ---# -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 |
