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/BackwardTel.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (diff) | |
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/telugu/BackwardTel.gf')
| -rw-r--r-- | next-lib/src/telugu/BackwardTel.gf | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/next-lib/src/telugu/BackwardTel.gf b/next-lib/src/telugu/BackwardTel.gf deleted file mode 100644 index 1d06c5172..000000000 --- a/next-lib/src/telugu/BackwardTel.gf +++ /dev/null @@ -1,76 +0,0 @@ -----concrete BackwardTel of Backward = CatTel ** open ResTel in { ----- ----- flags optimize=all_subs ; ----- ----- lin ----- ------- A repository of obsolete constructs, needed for backward compatibility. ------- They create spurious ambiguities if used in combination with Lang. ----- ------- from Verb 19/4/2008 ----- ----- ComplV2 v np = insertObj (\\_ => v.c2 ++ np.s ! Acc) (predV v) ; ----- ComplV3 v np np2 = ----- insertObj (\\_ => v.c2 ++ np.s ! Acc ++ v.c3 ++ np2.s ! Acc) (predV v) ; ----- ComplV2V v np vp = ----- insertObj (\\a => infVP v.isAux vp a) ----- (insertObj (\\_ => v.c2 ++ np.s ! Acc) (predV v)) ; ----- ComplV2S v np s = ----- insertObj (\\_ => conjThat ++ s.s) ----- (insertObj (\\_ => v.c2 ++ np.s ! Acc) (predV v)) ; ----- ComplV2Q v np q = ----- insertObj (\\_ => q.s ! QIndir) ----- (insertObj (\\_ => v.c2 ++ np.s ! Acc) (predV v)) ; ----- ComplV2A v np ap = ----- insertObj (\\_ => v.c2 ++ np.s ! Acc ++ ap.s ! np.a) (predV v) ; ----- ----- ReflV2 v = insertObj (\\a => v.c2 ++ reflPron ! a) (predV v) ; ----- ------- from Sentence 19/4/2008 ----- ----- SlashV2 np v2 = ----- mkClause (np.s ! Nom) np.a (predV v2) ** {c2 = v2.c2} ; ----- ----- SlashVVV2 np vv v2 = ----- mkClause (np.s ! Nom) np.a ----- (insertObj (\\a => infVP vv.isAux (predV v2) a) (predVV vv)) ** ----- {c2 = v2.c2} ; ----- ------- from Noun 19/4/2008 ----- ----- NumInt n = {s = n.s ; n = Pl} ; ----- OrdInt n = {s = n.s ++ "th"} ; --- DEPRECATED ----- ----- DetSg quant ord = { ----- s = quant.s ! Sg ++ ord.s ; ----- n = Sg ----- } ; ----- ----- DetPl quant num ord = { ----- s = quant.s ! num.n ++ num.s ++ ord.s ; ----- n = num.n ----- } ; ----- ----- NoNum = {s = []; n = Pl } ; ----- ----- DefArt = {s = \\_ => artDef} ; ----- ----- IndefArt = { ----- s = table { ----- Sg => artIndef ; ----- Pl => [] ----- } ----- } ; ----- ----- MassDet = {s = \\_ => []} ; ----- ----- ----- ------- from Structural 19/4/2008 ----- ----- that_NP = regNP "that" Sg ; ----- these_NP = regNP "these" Pl ; ----- this_NP = regNP "this" Sg ; ----- those_NP = regNP "those" Pl ; ----- -----} |