summaryrefslogtreecommitdiff
path: root/next-lib/src/german/RelativeGer.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/german/RelativeGer.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/german/RelativeGer.gf')
-rw-r--r--next-lib/src/german/RelativeGer.gf48
1 files changed, 0 insertions, 48 deletions
diff --git a/next-lib/src/german/RelativeGer.gf b/next-lib/src/german/RelativeGer.gf
deleted file mode 100644
index 2605ed3a4..000000000
--- a/next-lib/src/german/RelativeGer.gf
+++ /dev/null
@@ -1,48 +0,0 @@
-concrete RelativeGer of Relative = CatGer ** open ResGer in {
-
- flags optimize=all_subs ;
-
- lin
-
- RelCl cl = {
- s = \\m,t,a,b,_ => "derart" ++ conjThat ++ cl.s ! m ! t ! a ! b ! Sub ;
- c = Nom
- } ;
-
- RelVP rp vp = {
- s = \\m,t,ant,b,gn =>
- let
- agr = case rp.a of {
- RNoAg => agrP3 (numGenNum gn) ;
- RAg a => a ** {g = Neutr}
- } ;
- cl = mkClause (rp.s ! gn ! Nom) agr vp
- in
- cl.s ! m ! t ! ant ! b ! Sub ;
- c = Nom
- } ;
-
- RelSlash rp slash = {
- s = \\m,t,a,p,gn =>
- appPrep slash.c2 (rp.s ! gn) ++ slash.s ! m ! t ! a ! p ! Sub ;
- c = slash.c2.c
- } ;
-
- FunRP p np rp = {
- s = \\gn,c => np.s ! c ++ appPrep p (rp.s ! gn) ;
- a = RAg {n = np.a.n ; p = np.a.p}
- } ;
-
- IdRP = {s = relPron ; a = RNoAg} ;
-
- oper
- relPron : GenNum => Case => Str = \\gn,c =>
- case <gn,c> of {
- <GSg Fem,Gen> => "deren" ;
- <GSg g,Gen> => "dessen" ;
- <GPl,Dat> => "denen" ;
- <GPl,Gen> => "deren" ;
- _ => artDef ! gn ! c
- } ;
-
-}