diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
| commit | e89fdae2fa1626348d8025824a7469252fa85e42 (patch) | |
| tree | c7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/scandinavian/ExtraScand.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (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.gf | 47 |
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) ; - -} |
