summaryrefslogtreecommitdiff
path: root/next-lib/src/english/BackwardEng.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/english/BackwardEng.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/english/BackwardEng.gf')
-rw-r--r--next-lib/src/english/BackwardEng.gf76
1 files changed, 0 insertions, 76 deletions
diff --git a/next-lib/src/english/BackwardEng.gf b/next-lib/src/english/BackwardEng.gf
deleted file mode 100644
index 630626f0b..000000000
--- a/next-lib/src/english/BackwardEng.gf
+++ /dev/null
@@ -1,76 +0,0 @@
-concrete BackwardEng of Backward = CatEng ** open ResEng 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 ;
-
-}