GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 10:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

next-lib renamed to lib, lib to old-lib

Browse Source
This commit is contained in:
aarne
2009-06-22 15:39:08 +00:00
parent 90bd07b1cf
commit 2116f41bc2
1433 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
lib/src/telugu/BackwardTel.gf Normal file
View File

@@ -0,0 +1,76 @@
----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 ;
----
----}