GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-09 11:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

polish demo

Browse Source
This commit is contained in:
adam.slaski
2010-05-26 22:34:20 +00:00
parent cca29ffe9d
commit ad1a116dfc
25 changed files with 1114 additions and 830 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/src/polish/PhrasePol.gf
View File

@@ -16,16 +16,16 @@ concrete PhrasePol of Phrase = CatPol ** open Prelude, ResPol, VerbMorphoPol in
UttIP ip = {s = ip.nom};
UttIAdv iadv = iadv ;
UttNP np = {s = np.nom};
UttVP vp = { -- I assume positive polarization to avoid variants
s = vp.prefix !Pos !MascAniSg ++
UttVP vp = { -- I assume the positive polarization to avoid variants
s = vp.prefix ++
(infinitive_form vp.verb vp.imienne Pos) ++
vp.sufix !Pos !MascAniSg ++ vp.postfix !Pos !MascAniSg
vp.sufix !Pos !MascAniSg
};
UttAdv adv = adv ;
UttCN n = {s = n.s ! Sg ! Nom} ;
UttCard n = {s = n.s ! Nom ! Neut} ;
UttAP ap = {s = ap.s ! AF NeutSg Nom} ; ---- gennum ? (AR)
UttCN n = {s = n.s ! Sg ! Nom};
UttAP ap = {s = ap.s ! AF MascPersSg Nom} ;
UttCard c = {s = c.s ! Nom ! Fem } ;
NoPConj = {s = []} ;
PConjConj conj = {s = conj.s2} ; ---