forked from GitHub/gf-core
infinitive marks in EmbedVP, bugs noticed
This commit is contained in:
@@ -36,6 +36,6 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {
|
|||||||
|
|
||||||
EmbedS s = {s = conjThat ++ s.s} ;
|
EmbedS s = {s = conjThat ++ s.s} ;
|
||||||
EmbedQS qs = {s = qs.s ! QIndir} ;
|
EmbedQS qs = {s = qs.s ! QIndir} ;
|
||||||
EmbedVP vp = {s = infVP vp (agrP3 Sg)} ; --- agr
|
EmbedVP vp = {s = "to" ++ infVP vp (agrP3 Sg)} ; --- agr
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -86,7 +86,7 @@ lin
|
|||||||
there7to_Adv = ss "là" ; --- y
|
there7to_Adv = ss "là" ; --- y
|
||||||
there_Adv = ss "là" ;
|
there_Adv = ss "là" ;
|
||||||
therefore_PConj = ss "donc" ;
|
therefore_PConj = ss "donc" ;
|
||||||
these_NP = pn2np (mkPN ["celles-ci"] Fem) ;
|
these_NP = pn2np (mkPN ["celles-ci"] Fem) ; ---- Pl
|
||||||
these_Quant = {s = \\_,c => prepCase c ++ "ces"} ; ---- ci
|
these_Quant = {s = \\_,c => prepCase c ++ "ces"} ; ---- ci
|
||||||
they_Pron = mkPronoun
|
they_Pron = mkPronoun
|
||||||
"elles" "les" "leur" "eux" "leur" "leur" "leurs"
|
"elles" "les" "leur" "eux" "leur" "leur" "leurs"
|
||||||
|
|||||||
@@ -35,6 +35,6 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer in {
|
|||||||
|
|
||||||
EmbedS s = {s = conjThat ++ s.s ! Sub} ;
|
EmbedS s = {s = conjThat ++ s.s ! Sub} ;
|
||||||
EmbedQS qs = {s = qs.s ! QIndir} ;
|
EmbedQS qs = {s = qs.s ! QIndir} ;
|
||||||
EmbedVP vp = {s = (vp.s ! agrP3 Sg ! VPInfinit Simul).inf} ; --- agr
|
EmbedVP vp = {s = "zu" ++ (vp.s ! agrP3 Sg ! VPInfinit Simul).inf} ; --- agr ---- compl
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -38,6 +38,6 @@ incomplete concrete SentenceRomance of Sentence =
|
|||||||
|
|
||||||
EmbedS s = {s = conjThat ++ s.s ! Indic} ; --- mood
|
EmbedS s = {s = conjThat ++ s.s ! Indic} ; --- mood
|
||||||
EmbedQS qs = {s = qs.s ! QIndir} ;
|
EmbedQS qs = {s = qs.s ! QIndir} ;
|
||||||
EmbedVP vp = {s = infVP vp (agrP3 Masc Sg)} ; --- agr
|
EmbedVP vp = {s = infVP vp (agrP3 Masc Sg)} ; --- agr ---- compl
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -38,6 +38,6 @@ incomplete concrete SentenceScand of Sentence =
|
|||||||
|
|
||||||
EmbedS s = {s = conjThat ++ s.s ! Sub} ;
|
EmbedS s = {s = conjThat ++ s.s ! Sub} ;
|
||||||
EmbedQS qs = {s = qs.s ! QIndir} ;
|
EmbedQS qs = {s = qs.s ! QIndir} ;
|
||||||
EmbedVP vp = {s = infVP vp (agrP3 utrum Sg)} ; --- agr
|
EmbedVP vp = {s = infMark ++ infVP vp (agrP3 utrum Sg)} ; --- agr
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user