forked from GitHub/gf-core
62 lines
2.2 KiB
Plaintext
62 lines
2.2 KiB
Plaintext
concrete ExtensionRon of Extension = CatRon ** open MorphoRon, ResRon, ConjunctionRon, StructuralRon, Prelude, Coordination,ParamBasic, ParadigmsRon, NounRon in {
|
|
|
|
|
|
lincat
|
|
PolSentence = {s : SentForm => Polarity => Str ; flag : Flag};
|
|
[CN] = {s1,s2 : Number => Species => ACase => Str; g : NGender; a : Animacy ; isComp : Bool} ;
|
|
StmtS = {s : Str};
|
|
lin
|
|
|
|
VerbToNounV2 v2 = VerbToNoun v2 ** {c2 = v2.c2};
|
|
|
|
|
|
VerbToNoun vp = { s = \\n,sp,c => vp.s ! PPasse Masc n sp c ;
|
|
g = NNeut ; a = Inanimate };
|
|
|
|
|
|
VerbToGerundA vp = {s = \\af => vp.s ! Ger;
|
|
isPre = False
|
|
};
|
|
|
|
VerbToParticipeA v = {s = \\af => case af of
|
|
{AF g n sp c => v.s ! PPasse g n sp c;
|
|
AA => v.s ! PPasse Masc Sg Indef ANomAcc
|
|
};
|
|
isPre = False
|
|
};
|
|
|
|
mkPolSent cl = {s = \\f,b => cl.s ! DDir ! RPres ! Simul ! b ! Indic ;
|
|
flag = NothingS ;
|
|
lock_PolSentence = <>
|
|
};
|
|
|
|
sentToNoun ps = heavyNP {s = \\_ => "\"" ++ ps.s ! Indep ! Pos ++ "\"";
|
|
a = agrP3 Masc Sg; hasClit = HasClit ; isComp = True ;
|
|
ss = "\"" ++ ps.s ! Indep ! Pos ++ "\""
|
|
};
|
|
|
|
ConjCN conj ss = conjunctDistrTable3 Number Species ACase conj ss ** {
|
|
g = ss.g; a = ss.a; isComp = ss.isComp; needsRefForm = False
|
|
};
|
|
|
|
|
|
BaseCN x y ={
|
|
s1 = \\n,sp,c => x.s ! n ! sp ! c ;
|
|
s2 = \\n,sp,c => y.s ! n ! sp ! c ;
|
|
g = x.g; a = x.a ; isComp = x.isComp;
|
|
needsRefForm = False};
|
|
|
|
ConsCN xs x = consrTable3 Number Species ACase comma xs x ** {g = x.g; a = x.a; isComp = x.isComp; needsRefForm = False} ;
|
|
|
|
at_Prep = mkPrep "la" Ac True;
|
|
per_Prep = mkPrep "per" Ac True;
|
|
|
|
UsePolSentence p ps = {s = ps.s ! Indep ! p.p};
|
|
|
|
O1 = UsePN (mkPN "o1") ;
|
|
O2 = UsePN (mkPN "o2") ;
|
|
O3 = UsePN (mkPN "o3") ;
|
|
O4 = UsePN (mkPN "o4") ;
|
|
O5 = UsePN (mkPN "o5") ;
|
|
|
|
} |