started Phrasebook with Finnish and Romanian

2026-04-23 19:42:50 -06:00 · 2010-03-20 21:21:50 +00:00
parent 57b8e42601
commit 49a016fd01
13 changed files with 281 additions and 0 deletions
--- a/examples/phrasebook/PhrasebookFin.gf
+++ b/examples/phrasebook/PhrasebookFin.gf
@@ -0,0 +1,23 @@
+--# -path=.:present
+
+concrete PhrasebookFin of Phrasebook = 
+  GreetingsFin,
+  FoodFin ** open 
+    SyntaxFin,
+    ResFin, ---- for Num to Utt 
+    Prelude in {
+
+lincat 
+  Phrase = Utt ;
+
+lin
+  PNumeral n = 
+    mkPhrase (ss ((SyntaxFin.mkCard <n : Numeral>).s ! Sg ! Nom)) ; ----
+  PGreeting g = mkPhrase g ;
+  PSentence s = s ;
+
+
+oper 
+  mkPhrase : SS -> Utt = \s -> lin Utt s ;
+
+}