summaryrefslogtreecommitdiff
path: root/examples/phrasebook/WordsEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/phrasebook/WordsEng.gf')
-rw-r--r--examples/phrasebook/WordsEng.gf15
1 files changed, 14 insertions, 1 deletions
diff --git a/examples/phrasebook/WordsEng.gf b/examples/phrasebook/WordsEng.gf
index 6f9400f94..2e94eb4ff 100644
--- a/examples/phrasebook/WordsEng.gf
+++ b/examples/phrasebook/WordsEng.gf
@@ -1,7 +1,7 @@
-- (c) 2009 Aarne Ranta under LGPL
concrete WordsEng of Words = SentencesEng **
- open SyntaxEng, ParadigmsEng in {
+ open SyntaxEng, ParadigmsEng, IrregEng in {
lin
Wine = mkCN (mkN "wine") ;
Beer = mkCN (mkN "beer") ;
@@ -27,4 +27,17 @@ concrete WordsEng of Words = SentencesEng **
Dollar = mkCN (mkN "dollar") ;
Lei = mkCN (mkN "leu" "lei") ;
+ English = mkNP (mkPN "English") ;
+ Finnish = mkNP (mkPN "Finnish") ;
+ French = mkNP (mkPN "French") ;
+ Romanian = mkNP (mkPN "Romanian") ;
+ Swedish = mkNP (mkPN "Swedish") ;
+
+ AWant p obj = mkCl p (mkV2 (mkV "want")) obj ;
+ ALike p item = mkCl p (mkV2 (mkV "like")) item ;
+ AHave p kind = mkCl p have_V2 (mkNP kind) ;
+ ASpeak p lang = mkCl p (mkV2 IrregEng.speak_V) lang ;
+ ALove p q = mkCl p (mkV2 (mkV "love")) q ;
+
+
}