forked from GitHub/gf-core
35 lines
882 B
Plaintext
35 lines
882 B
Plaintext
--# -path=.:abstract:common:prelude
|
|
|
|
concrete PhraseLav of Phrase = CatLav ** open ResLav in {
|
|
|
|
flags 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 = buildVP vp Pos VInf (AgrP3 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 } ;
|
|
|
|
}
|