From a22871d07485821dac45a03380f77bdb28240ce6 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 11 Jun 2007 07:49:30 +0000 Subject: initial check for unknown words in parsing --- examples/regulus/Toy0Fre.gf | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 examples/regulus/Toy0Fre.gf (limited to 'examples/regulus/Toy0Fre.gf') diff --git a/examples/regulus/Toy0Fre.gf b/examples/regulus/Toy0Fre.gf deleted file mode 100644 index 425c85af0..000000000 --- a/examples/regulus/Toy0Fre.gf +++ /dev/null @@ -1,30 +0,0 @@ -concrete Toy0Fre of Toy0 = { - -param - Number = Sg | Pl ; - Gender = Masc | Fem ; - -lincat - Spec = {s : Gender => Str ; n : Number} ; - Noun = {s : Number => Str ; g : Gender} ; - MAIN,NP = {s : Str} ; - -lin - Main np = np ; - 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 - } ; -} -- cgit v1.2.3