forked from GitHub/gf-rgl
Implement PrepNP
This commit is contained in:
@@ -1,2 +1,4 @@
|
|||||||
concrete AdverbTur of Adverb = CatTur ** open ResTur, Prelude in {
|
concrete AdverbTur of Adverb = CatTur ** open ResTur, Prelude in {
|
||||||
|
lin
|
||||||
|
PrepNP prep np = {s = np.s ! prep.c ++ prep.s} ;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -19,6 +19,7 @@ concrete CatTur of Cat = CommonX ** open ResTur, Prelude in {
|
|||||||
Ord = {s : Number => Case => Str} ;
|
Ord = {s : Number => Case => Str} ;
|
||||||
Quant = {s : Str; useGen : UseGen} ;
|
Quant = {s : Str; useGen : UseGen} ;
|
||||||
Prep = {s : Str; c : Case} ;
|
Prep = {s : Str; c : Case} ;
|
||||||
|
PrepNP = {s : Str} ;
|
||||||
|
|
||||||
Numeral = {s : CardOrd => Number => Case => Str ; n : Number} ;
|
Numeral = {s : CardOrd => Number => Case => Str ; n : Number} ;
|
||||||
Digits = {s : CardOrd => Number => Case => Str ; n : Number; tail : DTail} ;
|
Digits = {s : CardOrd => Number => Case => Str ; n : Number; tail : DTail} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user