From 526af17c5265f94285f73f9a2a9cfe1f77fd0291 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 26 Apr 2013 06:00:42 +0000 Subject: [PATCH] removed obsolete Gre files --- lib/src/greek/BackwardGre.gf | 87 ------------------------------------ lib/src/greek/MorphoGre.gf | 58 ------------------------ lib/src/greek/OverloadGre.gf | 1 - lib/src/greek/StressGre.gf | 39 ---------------- 4 files changed, 185 deletions(-) delete mode 100644 lib/src/greek/BackwardGre.gf delete mode 100644 lib/src/greek/MorphoGre.gf delete mode 100644 lib/src/greek/OverloadGre.gf delete mode 100644 lib/src/greek/StressGre.gf diff --git a/lib/src/greek/BackwardGre.gf b/lib/src/greek/BackwardGre.gf deleted file mode 100644 index a80ee9d04..000000000 --- a/lib/src/greek/BackwardGre.gf +++ /dev/null @@ -1,87 +0,0 @@ -concrete BackwardGre of Backward = CatGre ** open ResGre 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 v2 np = - let - nps = np.s ! v2.c - in { - v = v2 ; - clit = nps.clit ; - obj = \\_ => nps.obj - } ; - - -- 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 Simul CPos 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) Simul CPos 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 ; - -} diff --git a/lib/src/greek/MorphoGre.gf b/lib/src/greek/MorphoGre.gf deleted file mode 100644 index 33f224cbb..000000000 --- a/lib/src/greek/MorphoGre.gf +++ /dev/null @@ -1,58 +0,0 @@ ---# -path=.:../../prelude - - - --- This resource morphology contains definitions needed in the resource --- syntax. To build a lexicon, it is better to use $ParadigmsEng$, which --- gives a higher-level access to this module. - -resource MorphoGre = open Prelude, (Predef=Predef), ResGre in { - - flags coding=utf8 ; - ---2 Determiners - - --oper - - --mkDet : (s1,_,_,_,_,_,_,_,_ : Str) -> Number -> Det = \mn,mg,ma,yn,yg,ya,nn,ng,na,n -> - -- { - -- s = table { - -- Masc => table { Nom => mn ; Gen => mg ; Acc => ma } ; - -- Fem => table { Nom => yn ; Gen => yg ; Acc => ya } ; - -- Neut => table { Nom => nn ; Gen => ng ; Acc => na } - -- } ; - -- n = n ; - -- } ; - - ---2 Pronouns - - - --mkPronoun: (aftos,tou,ton : Str) -> Gender -> Number -> Person -> Pronoun = - -- \aftos,tou,ton,g,n,p -> { - -- s = table { - -- Nom => {clit = [] ; obj = aftos; isClit = False} ; - -- Gen => {clit = tou ; obj = [] ; isClit = True} ; - -- Acc => {clit = ton ; obj = [] ; isClit = True} - -- } ; - -- g = g; - -- a = Ag g n p - -- } ; - - -- mkPronoun: (aftos,tou,ton, afton : Str) -> Gender -> Number -> Person -> Pronoun = - -- \aftos,tou,ton,afton, g,n,p -> { - -- s = table { - -- Nom => {clit = [] ; obj = aftos; isClit = False ; emph = [] } ; - -- Gen => {clit = tou ; obj = [] ; isClit = True ; emph = [] } ; - -- Acc => {clit = ton ; obj = [] ; isClit = True ; emph = Preposition.c ++ afton} - -- } ; - -- g = g; - -- a = Ag g n p - -- } ; - - - - - -} ; - diff --git a/lib/src/greek/OverloadGre.gf b/lib/src/greek/OverloadGre.gf deleted file mode 100644 index fcf982a45..000000000 --- a/lib/src/greek/OverloadGre.gf +++ /dev/null @@ -1 +0,0 @@ -resource OverloadGre = Overload with (Grammar = GrammarGre) ; \ No newline at end of file diff --git a/lib/src/greek/StressGre.gf b/lib/src/greek/StressGre.gf deleted file mode 100644 index ca977a169..000000000 --- a/lib/src/greek/StressGre.gf +++ /dev/null @@ -1,39 +0,0 @@ -resource StressGre = { - -flags coding=utf8 ; - - - -oper - -mkN : Str -> Str * Str = \s -> case s of { - c + v@(#stressedVowel) + x@(? + ?) + "α" => ; - _ => -} ; - - - - -stressedVowel : pattern Str = #("ά" | "ό" | "ί"| "έ" ); - -unstress : Str -> Str = \v -> case v of { - "ά" => "α" ; - "ό" => "ο" ; - "ί" => "ι" ; - "έ" => "ε" ; - _ => v -} ; - -stress : Str -> Str = \v -> case v of { - "α" => "ά" ; - "ο" => "ό" ; - "ι" => "ί" ; - "ε" => "έ" ; - _ => v -} ; - - - - - -} \ No newline at end of file