summaryrefslogtreecommitdiff
path: root/next-lib/src/scandinavian/ExtraScand.gf
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/scandinavian/ExtraScand.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/scandinavian/ExtraScand.gf')
-rw-r--r--next-lib/src/scandinavian/ExtraScand.gf47
1 files changed, 0 insertions, 47 deletions
diff --git a/next-lib/src/scandinavian/ExtraScand.gf b/next-lib/src/scandinavian/ExtraScand.gf
deleted file mode 100644
index 32ec58bc2..000000000
--- a/next-lib/src/scandinavian/ExtraScand.gf
+++ /dev/null
@@ -1,47 +0,0 @@
-incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
- open CommonScand,Coordination,ResScand in {
- lin
- GenNP np = {
- s,sp = \\n,_,_,g => np.s ! NPPoss (gennum g n) ;
- det = DDef Indef
- } ;
-
- ComplBareVS v s = insertObj (\\_ => s.s ! Sub) (predV v) ;
-
- StrandRelSlash rp slash = {
- s = \\t,a,p,ag =>
- rp.s ! ag.gn ! RNom ++ slash.s ! t ! a ! p ! Sub ++ slash.c2.s ;
- c = NPAcc
- } ;
- EmptyRelSlash slash = {
- s = \\t,a,p,ag =>
- slash.s ! t ! a ! p ! Sub ++ slash.c2.s ;
- c = NPAcc
- } ;
-
- StrandQuestSlash ip slash = {
- s = \\t,a,p =>
- let
- cls = slash.s ! t ! a ! p ;
- who = ip.s ! accusative
- in table {
- QDir => who ++ cls ! Inv ++ slash.c2.s ;
- QIndir => who ++ cls ! Sub ++ slash.c2.s
- }
- } ;
-
- lincat
- VPI = {s : VPIForm => Agr => Str} ;
- [VPI] = {s1,s2 : VPIForm => Agr => Str} ;
-
- lin
- BaseVPI = twoTable2 VPIForm Agr ;
- ConsVPI = consrTable2 VPIForm Agr comma ;
-
- MkVPI vp = {
- s = \\v,a => infVP vp a ---- no sup
- } ;
- ConjVPI = conjunctDistrTable2 VPIForm Agr ;
- ComplVPIVV vv vpi = insertObj (\\a => vv.c2.s ++ vpi.s ! VPIInf ! a) (predV vv) ;
-
-}