summaryrefslogtreecommitdiff
path: root/examples/phrasebook/PhrasebookRon.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/phrasebook/PhrasebookRon.gf')
-rw-r--r--examples/phrasebook/PhrasebookRon.gf22
1 files changed, 22 insertions, 0 deletions
diff --git a/examples/phrasebook/PhrasebookRon.gf b/examples/phrasebook/PhrasebookRon.gf
new file mode 100644
index 000000000..5dd15b04b
--- /dev/null
+++ b/examples/phrasebook/PhrasebookRon.gf
@@ -0,0 +1,22 @@
+--# -path=.:present
+
+concrete PhrasebookRon of Phrasebook =
+ GreetingsRon,
+ FoodRon
+ ** open
+ SyntaxRon,
+ ResRon, ---- for Num to Utt
+ Prelude in {
+
+lincat
+ Phrase = Utt ;
+
+lin
+ PNumeral n = mkPhrase (ss ((mkCard <n : Numeral>).sp ! Masc)) ; ----
+ PGreeting g = mkPhrase g ;
+ PSentence s = s ;
+
+oper
+ mkPhrase : SS -> Utt = \s -> lin Utt s ;
+
+}