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/telugu/RelativeTel.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (diff) | |
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/telugu/RelativeTel.gf')
| -rw-r--r-- | next-lib/src/telugu/RelativeTel.gf | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/next-lib/src/telugu/RelativeTel.gf b/next-lib/src/telugu/RelativeTel.gf deleted file mode 100644 index 961624f22..000000000 --- a/next-lib/src/telugu/RelativeTel.gf +++ /dev/null @@ -1,54 +0,0 @@ ---concrete RelativeTel of Relative = CatTel ** open ResTel in { ----- ----- flags optimize=all_subs ; ----- ----- lin ----- ----- RelCl cl = { ----- s = \\t,a,p,_ => "such" ++ "that" ++ cl.s ! t ! a ! p ! ODir ; ----- c = Nom ----- } ; ----- ----- RelVP rp vp = { ----- s = \\t,ant,b,ag => ----- let ----- agr = case rp.a of { ----- RNoAg => ag ; ----- RAg a => a ----- } ; ----- cl = mkClause (rp.s ! RC (fromAgr agr).g Nom) agr vp ----- in ----- cl.s ! t ! ant ! b ! ODir ; ----- c = Nom ----- } ; ----- ------- Pied piping: "at which we are looking". Stranding and empty ------- relative are defined in $ExtraTel.gf$ ("that we are looking at", ------- "we are looking at"). ----- ----- RelSlash rp slash = { ----- s = \\t,a,p,agr => ----- slash.c2 ++ rp.s ! RPrep (fromAgr agr).g ++ slash.s ! t ! a ! p ! ODir ; ----- c = Acc ----- } ; ----- ----- FunRP p np rp = { ----- s = \\c => np.s ! Acc ++ p.s ++ rp.s ! RPrep (fromAgr np.a).g ; ----- a = RAg np.a ----- } ; ----- ----- IdRP = ----- let varr : Str -> Str = \x -> variants {x ; "that"} --- for bwc ----- in { ----- s = table { ----- RC _ Gen => "whose" ; ----- RC Neutr _ => varr "which" ; ----- RC _ Acc => varr "whom" ; ----- RC _ Nom => varr "who" ; ----- RPrep Neutr => "which" ; ----- RPrep _ => "whom" ----- } ; ----- a = RNoAg ----- } ; ----- ---} |