summaryrefslogtreecommitdiff
path: root/deprecated/old-lib/resource/interlingua/ResIna2.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2010-12-22 14:11:55 +0000
committeraarne <aarne@chalmers.se>2010-12-22 14:11:55 +0000
commitc5b963769539c8a7c9bd154585686d263c7d6d8a (patch)
treec1bc4129d94e51c5e68ed4b7c1888ae120aac3fd /deprecated/old-lib/resource/interlingua/ResIna2.gf
parentce15ec7b787479ca4c7295863ea7fa5cfdd16755 (diff)
removed GF/deprecated
Diffstat (limited to 'deprecated/old-lib/resource/interlingua/ResIna2.gf')
-rw-r--r--deprecated/old-lib/resource/interlingua/ResIna2.gf63
1 files changed, 0 insertions, 63 deletions
diff --git a/deprecated/old-lib/resource/interlingua/ResIna2.gf b/deprecated/old-lib/resource/interlingua/ResIna2.gf
deleted file mode 100644
index e0e9d42f2..000000000
--- a/deprecated/old-lib/resource/interlingua/ResIna2.gf
+++ /dev/null
@@ -1,63 +0,0 @@
---# -path=.:../abstract:../common:../../prelude
-
---1 Interlingua auxiliary operations.
-
--- This module contains operations that are needed to make the
--- resource syntax work. To define everything that is needed to
--- implement $Test$, it moreover contains regular lexical
--- patterns needed for $Lex$.
-
-resource ResIna2 = ParamX ** open Prelude in {
-
- flags optimize=all ;
-
-
--- Some parameters, such as $Number$, are inherited from $ParamX$.
-
---2 For $Noun$
-
--- This is the worst-case $Case$ needed for pronouns.
-
-
- param
- VForm
- = VInf
- | VPres
- | VPPart
- | VPresPart
- | VPast --# notpresent
- | VFut --# notpresent
- | VCond --# notpresent
- ;
-
- oper
-
-
-
- mkVerb : Str -> Verb = \crear->
- let crea = init crear
- in {s = table {
- VInf => crear;
- VPres => crea;
- VPast => crea + "va";
- VFut => crear + "a";
- VCondit => crear + "ea";
- VPPart => case crear of {
- rid + "er" => rid + "ite";
- _ => crea + "te"
- };
- VPresPart => case crear of {
- aud + "ir" => aud + "iente";
- _ => crea + "nte"
- }}};
-
-
- ---- For $Verb$.
- --
- Verb : Type = {
- s : VForm => Str ;
- -- isRefl : Bool
- } ;
-
-
-}