English version of Phrasebook

1 files changed, 23 insertions, 0 deletions

diff --git a/examples/phrasebook/PhrasebookEng.gf b/examples/phrasebook/PhrasebookEng.gf
new file mode 100644
index 000000000..ee919d285
--- /dev/null
+++ b/examples/phrasebook/PhrasebookEng.gf
@@ -0,0 +1,23 @@
+--# -path=.:present
+
+concrete PhrasebookEng of Phrasebook = 
+  GreetingsEng,
+  FoodEng ** open 
+    SyntaxEng,
+    ResEng, ---- for Num to Utt 
+    Prelude in {
+
+lincat 
+  Phrase = Utt ;
+
+lin
+  PNumeral n = 
+    mkPhrase (ss ((SyntaxEng.mkCard <n : Numeral>).s ! Nom)) ; ----
+  PGreeting g = mkPhrase g ;
+  PSentence s = s ;
+
+
+oper 
+  mkPhrase : SS -> Utt = \s -> lin Utt s ;
+
+}