summaryrefslogtreecommitdiff
path: root/old-examples/stoneage/StoneageResSpa.gf
diff options
context:
space:
mode:
Diffstat (limited to 'old-examples/stoneage/StoneageResSpa.gf')
-rw-r--r--old-examples/stoneage/StoneageResSpa.gf25
1 files changed, 0 insertions, 25 deletions
diff --git a/old-examples/stoneage/StoneageResSpa.gf b/old-examples/stoneage/StoneageResSpa.gf
deleted file mode 100644
index c2dd000c6..000000000
--- a/old-examples/stoneage/StoneageResSpa.gf
+++ /dev/null
@@ -1,25 +0,0 @@
-resource StoneageResSpa = open RulesSpa, SyntaxSpa, ParadigmsSpa in {
-
-oper
- PresV : V -> NP -> Phr = \v,s -> PresCl (mkSats s v) ;
- PresV2 : V2 -> NP -> NP -> Phr = \v,s,o ->
- PresCl (mkSatsObject s v o) ;
- PresV3 : V3 -> NP -> NP -> NP -> Phr = \v,s,o,r ->
- PresCl (insertObject (mkSatsObject s v o) v.c3 v.s3 r) ;
- PresVasV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (dirV2 v) ;
-
- PresReflV : V -> NP -> Phr = \v,s ->
- PresCl (insertObject (mkSats s v) accusative.p1 []
- (reflPronNounPhrase (pgen2gen s.g) s.n s.p)) ;
-
- PresCl : Sats -> Phr = \c ->
- {s = (UseCl (PosTP TPresent ASimul)
- (sats2clause c ** {lock_Cl = <>})
- ).s ! Ind ;
- lock_Phr = <>
- } ;
-
- ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ;
- ModA : A -> CN -> CN = \a -> ModAP (UseA a) ;
-
-}