mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-27 11:56:29 -06:00
krasimir
19 lines
424 B
Plaintext
19 lines
424 B
Plaintext
concrete PhraseSlv of Phrase = CatSlv ** open Prelude, ResSlv in {
|
|
|
|
lin
|
|
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
|
|
|
|
UttS s = s ;
|
|
UttNP np = {s = np.s ! Nom} ;
|
|
UttAdv adv = adv ;
|
|
UttCN n = {s = n.s ! Indef ! Nom ! Sg} ;
|
|
UttCard n = {s = n.s ! Fem ! Nom} ;
|
|
UttAP ap = {s = ap.s ! Indef ! Masc ! Nom ! Sg} ;
|
|
UttInterj i = i ;
|
|
|
|
NoPConj = {s = []} ;
|
|
|
|
NoVoc = {s = []} ;
|
|
|
|
}
|