summaryrefslogtreecommitdiff
path: root/next-lib/src/parametric
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
committeraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
commite89fdae2fa1626348d8025824a7469252fa85e42 (patch)
treec7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/parametric
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/parametric')
-rw-r--r--next-lib/src/parametric/Parametric.gf58
1 files changed, 0 insertions, 58 deletions
diff --git a/next-lib/src/parametric/Parametric.gf b/next-lib/src/parametric/Parametric.gf
deleted file mode 100644
index a786c6a2e..000000000
--- a/next-lib/src/parametric/Parametric.gf
+++ /dev/null
@@ -1,58 +0,0 @@
-interface Parametric = {
-
-oper
-
--- primitive
-
- S : Type ;
- NP : Type ;
- CN : Type ;
- AP : Type ;
-
- VPComp : Type ;
-
- ITense : Type ;
- CCase : Type ;
- Agr : Type ;
-
- V : Type ;
- N : Type ;
- A : Type ;
-
- agrNP : NP -> Agr ;
-
- PredVP : NP -> VP -> Cl ;
-
- mkVPComp : (Agr => Str) -> Str -> Str -> VPComp ;
-
- insertVPComp : VPComp -> VP -> VP ;
-
- insertNP : CCase -> NP -> VP -> VP ;
-
- iTense : Tense -> ITense ;
-
--- derived
-
- Cl : Type = {s : ITense => Polarity => S} ;
-
- VP : Type = {
- verb : V ;
- comp : VPComp
- } ;
-
- VPSlash : Type = VP ** {c : CComp} ;
-
- UseV : V -> VP = \v -> {
- verb = v ;
- comp = mkVPComp (\\_ => []) [] []
- } ;
-
- SlashV : V -> (Agr => Str) -> Str -> Str -> CCase -> VPSlash =
- \v,comp,adv,ext,c ->
- insertVPComp (mkVPComp comp adv ext) (UseV v) ** {c = c} ;
-
- ComplSlash : VPSlash -> NP -> VP = \vp,np -> insertNP vp.c np vp ;
-
- UseCl : Tense -> Polarity -> Cl -> S = \t,p,cl -> cl.s ! iTense t ! p ;
-
-}