Latvian RG: approaching RGL API

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

View File

@@ -1,29 +1,38 @@
concrete PhraseLav of Phrase = CatLav ** open Prelude, ResLav, VerbLav in {
--# -path=.:../abstract:../common:../prelude
concrete PhraseLav of Phrase = CatLav ** open
ResLav,
VerbLav
in {
flags
coding = utf8;
coding = utf8 ;
lin
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
UttS s = {s = s.s} ;
UttQS qs = {s = qs.s } ;
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! Sg } ;
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! Pl } ;
UttImpPol pol imp = {s = pol.s ++ "lūdzu" ++ imp.s ! pol.p ! Pl } ;
UttNP np = {s = np.s ! Nom} ;
UttCN n = {s = n.s ! Indef ! Sg ! Nom} ;
UttAP ap = {s = ap.s ! Indef ! Masc ! Sg ! Nom} ;
UttAdv adv = adv ;
UttVP vp = {s = build_VP vp Pos Infinitive (AgP3 Pl Masc)} ; --FIXME - neesmu līdz galam drošs vai agreement ir tieši (AgPr Pl)
UttIP ip = { s = ip.s ! Nom };
UttIAdv iadv = iadv ;
UttCard n = { s = n.s ! Masc ! Nom};
lin
PhrUtt pconj utt voc = { s = pconj.s ++ utt.s ++ voc.s } ;
UttS s = { s = s.s } ;
UttQS qs = { s = qs.s } ;
UttImpSg pol imp = { s = pol.s ++ imp.s ! pol.p ! Sg } ;
UttImpPl pol imp = { s = pol.s ++ imp.s ! pol.p ! Pl } ;
UttImpPol pol imp = { s = pol.s ++ "lūdzu" ++ imp.s ! pol.p ! Pl } ;
UttNP np = { s = np.s ! Nom } ;
UttCN n = { s = n.s ! Indef ! Sg ! Nom } ;
UttAP ap = { s = ap.s ! Indef ! Masc ! Sg ! Nom } ;
UttAdv adv = adv ;
-- FIXME: neesmu līdz galam drošs vai agreement ir tieši (AgPr Pl)
UttVP vp = { s = build_VP vp Pos Infinitive (AgP3 Pl Masc) } ;
UttIP ip = { s = ip.s ! Nom } ;
UttIAdv iadv = iadv ;
UttCard n = { s = n.s ! Masc ! Nom } ;
NoPConj = { s = [] } ;
NoVoc = { s = [] } ;
VocNP np = { s = "," ++ np.s ! ResLav.Voc } ;
PConjConj conj = { s = conj.s2 } ;
NoPConj = {s = []} ;
NoVoc = {s = []} ;
VocNP np = {s = "," ++ np.s ! ResLav.Voc} ;
PConjConj conj = {s = conj.s2} ;
}