GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-09-28 13:13:39 -06:00
Code Issues Packages Projects Releases Wiki Activity

extensions by Codex

Browse Source
This commit is contained in:
Krasimir Angelov
2026-09-27 13:47:53 +02:00
parent 7e897f5c66
commit 9458f5c8e7
22 changed files with 5400 additions and 5323 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/kazakh/ExtendKaz.gf
+48
View File
@@ -0,0 +1,48 @@
concrete ExtendKaz of Extend = CatKaz **
open Prelude, ResKaz, ParadigmsKaz, GrammarKaz, (P = ParamX) in {
lincat
RNP = {s : Case => Str} ;
RNPList = {s1,s2 : Case => Str} ;
VPS, VPI = {s : Str} ;
[VPS], [VPI], [Comp], [Imp] = {s1,s2 : Str} ;
oper
extendNP : Str -> NP = \s -> lin NP {s=\\_ => s; a={p=P3;n=Sg}} ;
simpleRNP : Str -> RNP = \s -> lin RNP {s=\\_ => s} ;
lin
TPastSimple = {s=[]; t=P.Past} ;
CompoundN a b = lin N {
s=\\c,n => a.s ! Nom ! Sg ++ b.s ! c ! n;
poss=\\o,p,n => a.s ! Nom ! Sg ++ b.poss ! o ! p ! n
} ;
GenModNP num np cn = {s=\\c => np.s ! Gen ++ possForm cn np.a.n (nounPerson np.a.p) num.n; a={p=P3;n=num.n}} ;
ApposNP a b = {s=\\c => a.s ! c ++ "," ++ b.s ! c; a=a.a} ;
ReflPron = simpleRNP "өзін" ;
ReflPoss num cn = {s=\\c => cn.s ! c ! num.n} ;
AdvRNP np prep r = {s=\\c => np.s ! c ++ r.s ! prep.c ++ prep.s} ;
AdvRVP vp prep r = prefixVerb (r.s ! prep.c ++ prep.s) vp ;
AdvRAP ap prep r = {s=r.s ! prep.c ++ prep.s ++ ap.s} ;
PossPronRNP pron num cn r = {s=\\c => pron.s ! Gen ++ possForm cn pron.a.n (nounPerson pron.a.p) num.n ++ r.s ! c; a={p=P3;n=num.n}} ;
ComplBareVS vs s = prefixVerb s.s vs ;
PresPartAP vp={s=vp.infinitive}; PastPartAP vp={s=vp.infinitive};
PastPartAgentAP vp np={s=np.s ! Instr ++ vp.infinitive};
PassVPSlash vp=prefixVerb "" vp; PassAgentVPSlash vp np=prefixVerb (np.s ! Instr) vp;
ProgrVPSlash vp=vp;
GerundCN vp={s=\\_,_ => vp.infinitive; poss=\\_,_,_ => vp.infinitive};
GerundNP vp=extendNP vp.infinitive; GerundAdv vp={s=vp.infinitive}; ByVP vp={s=vp.infinitive};
ComplSlashPartLast vp np=prefixVerb (np.s ! vp.c2.c ++ vp.c2.s) vp;
UttVPShort vp={s=vp.infinitive}; PositAdVAdj a={s=a.s}; CompoundAP n a={s=n.s!Nom!Sg++a.s};
MkVPS temp pol vp={s=(mkClause (extendNP "") vp).past ! pol.p};
BaseVPS a b={s1=a.s;s2=b.s}; ConsVPS a b={s1=a.s++","++b.s1;s2=b.s2};
ConjVPS c xs={s=xs.s1++c.s++xs.s2}; PredVPS np vps={s=np.s!Nom++vps.s};
MkVPI vp={s=vp.infinitive}; BaseVPI a b={s1=a.s;s2=b.s};
ConsVPI a b={s1=a.s++","++b.s1;s2=b.s2}; ConjVPI c xs={s=xs.s1++c.s++xs.s2};
ComplVPIVV vv vpi=prefixVerb vpi.s vv;
UseDAP d=extendNP d.s; UseDAPMasc d=extendNP d.s; UseDAPFem d=extendNP d.s;
EmptyRelSlash cl={s=cl.pres!P.Pos};
BaseImp a b={s1=a.s!Pos!Informal!Sg;s2=b.s!Pos!Informal!Sg};
ConjImp c xs={s=\\_,_,_ => xs.s1++c.s++xs.s2};
BaseComp a b={s1=a.s;s2=b.s}; ConjComp c xs={s=xs.s1++c.s++xs.s2};
}