msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

new Utt constructors for AP, Card

Browse Source
This commit is contained in:
aarne
2010-03-28 20:13:15 +00:00
parent 13a7954646
commit a814066463
7 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/src/bulgarian/PhraseBul.gf
View File

@@ -16,6 +16,9 @@ concrete PhraseBul of Phrase = CatBul ** open Prelude, ResBul in {
UttNP np = {s = np.s ! RSubj} ; UttNP np = {s = np.s ! RSubj} ;
UttVP vp = {s = daComplex vp ! Perf ! agrP3 (GSg Neut)} ; UttVP vp = {s = daComplex vp ! Perf ! agrP3 (GSg Neut)} ;
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN n = {s = n.s ! NF Sg Indef} ;
UttCard n = {s = n.s ! CFNeut Indef} ;
UttAP ap = {s = ap.s ! ASg Masc Indef} ;
NoPConj = {s = []} ; NoPConj = {s = []} ;
PConjConj conj = {s = conj.s ++ linCoord!conj.conj} ; PConjConj conj = {s = conj.s ++ linCoord!conj.conj} ;

3
lib/src/dutch/PhraseDut.gf
View File

@@ -18,6 +18,9 @@ concrete PhraseDut of Phrase = CatDut ** open Prelude, ResDut in
UttNP np = {s = np.s ! NPNom} ; UttNP np = {s = np.s ! NPNom} ;
UttVP vp = {s = useInfVP True vp} ; -- without zu UttVP vp = {s = useInfVP True vp} ; -- without zu
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN n = {s = n.s ! NF Sg Nom} ;
UttCard n = {s = n.s ! Utr ! Nom} ;
UttAP ap = {s = ap.s ! APred} ;
NoPConj = {s = []} ; NoPConj = {s = []} ;
PConjConj conj = ss (conj.s2) ; PConjConj conj = ss (conj.s2) ;

3
lib/src/german/PhraseGer.gf
View File

@@ -17,6 +17,9 @@ concrete PhraseGer of Phrase = CatGer ** open Prelude, ResGer in {
UttVP vp = {s = useInfVP True vp} ; -- without zu UttVP vp = {s = useInfVP True vp} ; -- without zu
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN n = {s = n.s ! Strong ! Sg ! Nom} ; UttCN n = {s = n.s ! Strong ! Sg ! Nom} ;
UttCard n = {s = n.s ! Neutr ! Nom} ;
UttAP ap = {s = ap.s ! APred} ;
NoPConj = {s = []} ; NoPConj = {s = []} ;
PConjConj conj = ss (conj.s2) ; PConjConj conj = ss (conj.s2) ;

1
lib/src/german/StructuralGer.gf
View File

@@ -43,6 +43,7 @@ concrete StructuralGer of Structural = CatGer **
here7from_Adv = ss ["hieraus"] ; here7from_Adv = ss ["hieraus"] ;
here_Adv = ss "hier" ; here_Adv = ss "hier" ;
how_IAdv = ss "wie" ; how_IAdv = ss "wie" ;
how8much_IAdv = ss "wieviel" ;
how8many_IDet = detLikeAdj Pl "wieviel" ; how8many_IDet = detLikeAdj Pl "wieviel" ;
if_Subj = ss "wenn" ; if_Subj = ss "wenn" ;
in8front_Prep = mkPrep "vor" Dat ; in8front_Prep = mkPrep "vor" Dat ;

1
lib/src/italian/StructuralIta.gf
View File

@@ -46,6 +46,7 @@ lin
here7to_Adv = ss "quì" ; here7to_Adv = ss "quì" ;
here_Adv = ss "quì" ; here_Adv = ss "quì" ;
how_IAdv = ss "come" ; how_IAdv = ss "come" ;
how8much_IAdv = ss "quanto" ;
how8many_IDet = {s = \\g,c => prepCase c ++ genForms "quanti" "quante" ! g ; n = Pl} ; how8many_IDet = {s = \\g,c => prepCase c ++ genForms "quanti" "quante" ! g ; n = Pl} ;
if_Subj = ss "se" ** {m = Indic} ; if_Subj = ss "se" ** {m = Indic} ;
in8front_Prep = mkPrep "davanti" ; in8front_Prep = mkPrep "davanti" ;

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

@@ -22,6 +22,9 @@ concrete PhrasePol of Phrase = CatPol ** open Prelude, ResPol, VerbMorphoPol in
vp.sufix !Pos !MascAniSg ++ vp.postfix !Pos !MascAniSg vp.sufix !Pos !MascAniSg ++ vp.postfix !Pos !MascAniSg
}; };
UttAdv adv = adv ; 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)
NoPConj = {s = []} ; NoPConj = {s = []} ;
PConjConj conj = {s = conj.s2} ; --- PConjConj conj = {s = conj.s2} ; ---

3
lib/src/russian/PhraseRus.gf
View File

@@ -17,6 +17,9 @@ concrete PhraseRus of Phrase = CatRus ** open Prelude, ResRus in {
UttNP np = {s = np.s ! PF Acc No NonPoss} ; UttNP np = {s = np.s ! PF Acc No NonPoss} ;
UttVP vp = {s = vp.s ! ClInfinit ! GSg Masc ! P3} ; UttVP vp = {s = vp.s ! ClInfinit ! GSg Masc ! P3} ;
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN n = {s = n.s ! NF Sg Nom} ;
UttCard n = {s = n.s ! Nom ! Neut} ;
UttAP ap = {s = ap.s ! AF Nom Inanimate (GSg Neut)} ; ---- gennum ? (AR)
NoPConj = {s = []} ; NoPConj = {s = []} ;
PConjConj conj = ss conj.s2 ; PConjConj conj = ss conj.s2 ;