mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
added QuantityNP and mkMU
This commit is contained in:
@@ -118,4 +118,10 @@ concrete NounIna of Noun = CatIna ** open ResIna, Prelude in {
|
|||||||
isPronoun = np.isPronoun ---- ?? AR
|
isPronoun = np.isPronoun ---- ?? AR
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
QuantityNP n m = {
|
||||||
|
s = \\c => preOrPost m.isPre m.s (n.s ! NCard) ;
|
||||||
|
a = agrP3 n.n ;
|
||||||
|
isPronoun = False
|
||||||
|
} ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -254,5 +254,6 @@ oper
|
|||||||
mkInterj : Str -> Interj = \s -> lin Interj {s=s};
|
mkInterj : Str -> Interj = \s -> lin Interj {s=s};
|
||||||
mkVoc : Str -> Voc = variants {} ;
|
mkVoc : Str -> Voc = variants {} ;
|
||||||
|
|
||||||
|
mkMU : Str -> MU = \s -> lin MU {s=s; isPre=False} ;
|
||||||
|
|
||||||
} ;
|
} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user