diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-06-11 07:49:30 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-06-11 07:49:30 +0000 |
| commit | a22871d07485821dac45a03380f77bdb28240ce6 (patch) | |
| tree | 7109a1e3c41e5466010952ef5d887c88f34d6773 /examples/regulus/Toy0Eng.gf | |
| parent | 2353e930e3f5ca7f3448860d59255ae7c0cd23b9 (diff) | |
initial check for unknown words in parsing
Diffstat (limited to 'examples/regulus/Toy0Eng.gf')
| -rw-r--r-- | examples/regulus/Toy0Eng.gf | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/examples/regulus/Toy0Eng.gf b/examples/regulus/Toy0Eng.gf deleted file mode 100644 index 68e2e4c07..000000000 --- a/examples/regulus/Toy0Eng.gf +++ /dev/null @@ -1,28 +0,0 @@ -concrete Toy0Eng of Toy0 = { - -param - Number = Sg | Pl ; - -lincat - Spec = {s : Str ; n : Number} ; - Noun = {s : Number => Str} ; - MAIN,NP = {s : Str} ; - -lin - Main np = np ; - SpecNoun spec noun = {s = spec.s ++ noun.s ! spec.n} ; - - One = {s = "one" ; n = Sg} ; - Two = {s = "two" ; n = Pl} ; - - Felis = regNoun "cat" ; - Canis = regNoun "dog" ; - -oper - regNoun : Str -> {s : Number => Str} = \s -> { - s = table { - Sg => s ; - Pl => s + "s" - } - } ; -} |
