summaryrefslogtreecommitdiff
path: root/examples/messages/MessagesEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/messages/MessagesEng.gf')
-rw-r--r--examples/messages/MessagesEng.gf54
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