mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-15 07:49:31 -06:00
added UttInterj in Estonian, Thai and Russian
This commit is contained in:
@@ -17,6 +17,7 @@ concrete PhraseEst of Phrase = CatEst ** open ResEst, (P = Prelude) in {
|
||||
UttCN np = {s = np.s ! NCase Sg Nom} ;
|
||||
UttAP np = {s = np.s ! P.False ! NCase Sg Nom} ;
|
||||
UttCard n = {s = n.s ! Sg ! Nom} ;
|
||||
UttInterj i = i ;
|
||||
|
||||
NoPConj = {s = []} ;
|
||||
PConjConj conj = {s = conj.s2} ;
|
||||
|
||||
@@ -20,6 +20,7 @@ concrete PhraseRus of Phrase = CatRus ** open Prelude, ResRus in {
|
||||
UttCN n = {s = n.s ! NF Sg Nom nom} ;
|
||||
UttCard n = {s = n.s ! Neut ! Inanimate ! Nom} ;
|
||||
UttAP ap = {s = ap.s ! AF Nom Inanimate (GSg Neut)} ; ---- gennum ? (AR)
|
||||
UttInterj i = i ;
|
||||
|
||||
NoPConj = {s = []} ;
|
||||
PConjConj conj = ss conj.s2 ;
|
||||
|
||||
@@ -17,6 +17,7 @@ concrete PhraseTha of Phrase = CatTha ** open Prelude, ResTha in {
|
||||
UttCard x = x ;
|
||||
UttVP vp = {s = vp.s ! Pos ++bIND++ vp.e} ;
|
||||
UttAdv adv = adv ;
|
||||
UttInterj i = i ;
|
||||
|
||||
NoPConj = {s = []} ;
|
||||
PConjConj conj = ss conj.s2 ;
|
||||
|
||||
Reference in New Issue
Block a user