forked from GitHub/gf-core
Phrase.UttCN added and implemented for Eng,Fre,Ger
This commit is contained in:
@@ -28,6 +28,7 @@ abstract Phrase = Cat ** {
|
||||
UttNP : NP -> Utt ; -- this man
|
||||
UttAdv : Adv -> Utt ; -- here
|
||||
UttVP : VP -> Utt ; -- to sleep
|
||||
UttCN : CN -> Utt ; -- house
|
||||
|
||||
-- The phrasal conjunction is optional. A sentence conjunction
|
||||
-- can also used to prefix an utterance.
|
||||
|
||||
@@ -14,6 +14,7 @@ concrete PhraseEng of Phrase = CatEng ** open Prelude, ResEng in {
|
||||
UttNP np = {s = np.s ! Nom} ;
|
||||
UttVP vp = {s = infVP False vp (agrP3 Sg)} ;
|
||||
UttAdv adv = adv ;
|
||||
UttCN n = {s = n.s ! Sg ! Nom} ;
|
||||
|
||||
NoPConj = {s = []} ;
|
||||
PConjConj conj = {s = conj.s2} ; ---
|
||||
|
||||
@@ -16,7 +16,7 @@ concrete PhraseGer of Phrase = CatGer ** open Prelude, ResGer in {
|
||||
UttNP np = {s = np.s ! Nom} ;
|
||||
UttVP vp = {s = useInfVP True vp} ; -- without zu
|
||||
UttAdv adv = adv ;
|
||||
|
||||
UttCN n = {s = n.s ! Strong ! Sg ! Nom} ;
|
||||
NoPConj = {s = []} ;
|
||||
PConjConj conj = ss (conj.s2) ;
|
||||
|
||||
|
||||
@@ -17,6 +17,7 @@ incomplete concrete PhraseRomance of Phrase =
|
||||
UttNP np = {s = (np.s ! Nom).ton} ;
|
||||
UttVP vp = {s = infVP vp (agrP3 Fem Sg)} ; --- Agr
|
||||
UttAdv adv = adv ;
|
||||
UttCN n = {s = n.s ! Sg} ;
|
||||
|
||||
NoPConj = {s = []} ;
|
||||
PConjConj conj = {s = conj.s2} ;
|
||||
|
||||
Reference in New Issue
Block a user