GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

removed obsolete Gre files

Browse Source
This commit is contained in:
aarne
2013-04-26 06:00:42 +00:00
parent 563b2b185d
commit 526af17c52
4 changed files with 0 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files

87
lib/src/greek/BackwardGre.gf
View File

@@ -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 ;
}

58
lib/src/greek/MorphoGre.gf
View File

@@ -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
-- } ;
} ;

1
lib/src/greek/OverloadGre.gf
View File

@@ -1 +0,0 @@
resource OverloadGre = Overload with (Grammar = GrammarGre) ;

39
lib/src/greek/StressGre.gf
View File

@@ -1,39 +0,0 @@
resource StressGre = {
flags coding=utf8 ;
oper
mkN : Str -> Str * Str = \s -> case s of {
c + v@(#stressedVowel) + x@(? + ?) + "α" => <s,c + unstress v + x + "ών"> ;
_ => <s,s>
} ;
stressedVowel : pattern Str = #("ά" | "ό" | "ί"| "έ" );
unstress : Str -> Str = \v -> case v of {
"ά" => "α" ;
"ό" => "ο" ;
"ί" => "ι" ;
"έ" => "ε" ;
_ => v
} ;
stress : Str -> Str = \v -> case v of {
"α" => "ά" ;
"ο" => "ό" ;
"ι" => "ί" ;
"ε" => "έ" ;
_ => v
} ;
}