GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 18:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Latvian RG: approaching RGL API

Browse Source
This commit is contained in:
normundsg
2011-12-19 06:03:21 +00:00
parent 342ba2e070
commit d00b425206
39 changed files with 1324 additions and 90521 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
lib/src/latvian/QuestionLav.gf
View File

@@ -1,51 +1,55 @@
concrete QuestionLav of Question = CatLav ** open ResLav, VerbLav, Prelude, ParadigmsVerbsLav in {
flags
optimize=all_subs ;
coding = utf8;
--# -path=.:../abstract:../common:../prelude
lin
QuestCl cl = {
s = \\m,p => "vai" ++ cl.s ! m ! p
} ;
QuestVP ip vp = {
s = \\m,p => ip.s ! Nom ++ buildVerb vp.v m p (AgP3 ip.n Masc)
} ;
QuestSlash ip slash = {
s = \\m,p => slash.p.s ++ ip.s ! (slash.p.c ! ip.n) ++ slash.s ! m ! p
} ;
QuestIAdv iadv cl = {
s = \\m,p => iadv.s ++ cl.s ! m ! p ;
};
QuestIComp icomp np = {
s = \\m,p => icomp.s ++ buildVerb mkVerb_toBe m p np.a ++ np.s ! Nom
};
concrete QuestionLav of Question = CatLav ** open
ResLav,
VerbLav,
Prelude,
ParadigmsVerbsLav
in {
IdetQuant idet num = {
s = \\g => idet.s ! g ! num.n ++ num.s ! g ! Nom ;
n = num.n
} ;
flags
optimize = all_subs ;
coding = utf8 ;
AdvIP ip adv = {
s = \\c => ip.s ! c ++ adv.s ;
n = ip.n
} ;
lin
QuestCl cl = { s = \\m,p => "vai" ++ cl.s ! m ! p } ;
PrepIP p ip = {s = p.s ++ ip.s ! (p.c ! ip.n)} ;
QuestVP ip vp = { s = \\m,p => ip.s ! Nom ++ buildVerb vp.v m p (AgP3 ip.n Masc) } ;
IdetCN idet cn = {
s = \\c => idet.s ! cn.g ++ cn.s ! Def ! idet.n ! c ;
n = idet.n
} ;
QuestSlash ip slash = { s = \\m,p => slash.p.s ++ ip.s ! (slash.p.c ! ip.n) ++ slash.s ! m ! p } ;
IdetIP idet = {
s = \\c => (idet.s ! Masc) | (idet.s ! Fem) ;
n = idet.n
} ;
QuestIAdv iadv cl = { s = \\m,p => iadv.s ++ cl.s ! m ! p } ;
QuestIComp icomp np = { s = \\m,p => icomp.s ++ buildVerb mkVerb_toBe m p np.a ++ np.s ! Nom } ;
IdetQuant idet num = {
s = \\g => idet.s ! g ! num.n ++ num.s ! g ! Nom ;
n = num.n
} ;
-- FIXME: quick&dirty - lai kompilētos pret RGL API
-- Saskaņā ar Cat.gf, Common.gf un Structural.gf nav iespējams neko saskaņot...
-- Identisks copy-paste ir Rus gadījumā, bet priekš Bul Krasimirs ir kaut ko paplašinājis.
AdvIAdv i a = ss (i.s ++ a.s) ;
AdvIP ip adv = {
s = \\c => ip.s ! c ++ adv.s ;
n = ip.n
} ;
PrepIP p ip = { s = p.s ++ ip.s ! (p.c ! ip.n) } ;
IdetCN idet cn = {
s = \\c => idet.s ! cn.g ++ cn.s ! Def ! idet.n ! c ;
n = idet.n
} ;
IdetIP idet = {
s = \\c => (idet.s ! Masc) | (idet.s ! Fem) ;
n = idet.n
} ;
CompIAdv a = a ;
CompIP p = ss (p.s ! Nom) ;
CompIAdv a = a ;
CompIP p = ss (p.s ! Nom) ;
}