summaryrefslogtreecommitdiff
path: root/examples/regulus/toy0/no-resource/Toy0Fre.gf
diff options
context:
space:
mode:
authorbringert <bringert@cs.chalmers.se>2007-06-27 12:38:24 +0000
committerbringert <bringert@cs.chalmers.se>2007-06-27 12:38:24 +0000
commit54d53251718dce4fcfda941eb9c21abe8eb939ed (patch)
treedc5c8eebca401909dcf8dce25bd86bd0d02fe4a6 /examples/regulus/toy0/no-resource/Toy0Fre.gf
parent67857cb1465cede016bc9a0c0b71b08813089df0 (diff)
Moved the different versions of the toy0 concrete modules to different subdirectories.
Diffstat (limited to 'examples/regulus/toy0/no-resource/Toy0Fre.gf')
-rw-r--r--examples/regulus/toy0/no-resource/Toy0Fre.gf30
1 files changed, 30 insertions, 0 deletions
diff --git a/examples/regulus/toy0/no-resource/Toy0Fre.gf b/examples/regulus/toy0/no-resource/Toy0Fre.gf
new file mode 100644
index 000000000..1077058e0
--- /dev/null
+++ b/examples/regulus/toy0/no-resource/Toy0Fre.gf
@@ -0,0 +1,30 @@
+--# -path=..
+concrete Toy0Fre of Toy0 = {
+
+param
+ Number = Sg | Pl ;
+ Gender = Masc | Fem ;
+
+lincat
+ Spec = {s : Gender => Str ; n : Number} ;
+ Noun = {s : Number => Str ; g : Gender} ;
+ NP = {s : Str} ;
+
+lin
+ SpecNoun spec noun = {s = spec.s ! noun.g ++ noun.s ! spec.n} ;
+
+ One = {s = table {Fem => "une" ; _ => "un"} ; n = Sg} ;
+ Two = {s = \\_ => "deux" ; n = Pl} ;
+
+ Felis = mkNoun "chat" Masc ;
+ Canis = mkNoun "chien" Masc ;
+
+oper
+ mkNoun : Str -> Gender -> {s : Number => Str ; g : Gender} = \s,g -> {
+ s = table {
+ Sg => s ;
+ Pl => s + "s"
+ } ;
+ g = g
+ } ;
+}