summaryrefslogtreecommitdiff
path: root/next-lib/src/scandinavian/RelativeScand.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/RelativeScand.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/scandinavian/RelativeScand.gf')
-rw-r--r--next-lib/src/scandinavian/RelativeScand.gf52
1 files changed, 0 insertions, 52 deletions
diff --git a/next-lib/src/scandinavian/RelativeScand.gf b/next-lib/src/scandinavian/RelativeScand.gf
deleted file mode 100644
index c5c0abc17..000000000
--- a/next-lib/src/scandinavian/RelativeScand.gf
+++ /dev/null
@@ -1,52 +0,0 @@
-incomplete concrete RelativeScand of Relative =
- CatScand ** open CommonScand, ResScand, Prelude in {
-
- flags optimize=all_subs ;
-
- lin
-
- RelCl cl = {
- s = \\t,a,p,ag => pronSuch ! ag.gn ++ conjThat ++ cl.s ! t ! a ! p ! Sub ;
- c = NPAcc
- } ;
-
- RelVP rp vp = {
- s = \\t,ant,b,ag =>
- let
- agr = case rp.a of {
- RNoAg => ag ;
- RAg a => a
- } ;
- cl = mkClause (rp.s ! ag.gn ! RNom) agr vp
- in
- cl.s ! t ! ant ! b ! Sub ;
- c = NPNom
- } ;
-
--- This rule uses pied piping ("huset i vilket hon bor")
--- Preposition stranding ("huset som hon bor i")
--- and the empty relative ("huset hon bor i") are defined in $ExtraScand$.
-
- RelSlash rp slash = {
- s = \\t,a,p,ag =>
- let
- agr = case rp.a of {
- RNoAg => ag ;
- RAg agg => agg
- }
- in
- slash.c2.s ++ rp.s ! ag.gn ! RPrep slash.c2.hasPrep ++
- slash.s ! t ! a ! p ! Sub ++ slash.n3 ! agr ;
- c = NPAcc
- } ;
-
---- The case here could be genitive.
-
- FunRP p np rp = {
- s = \\gn,c => np.s ! nominative ++ p.s ++ rp.s ! gn ! RPrep True ;
- a = RAg np.a
- } ;
-
- IdRP = {s = relPron ; a = RNoAg} ;
-
-}