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 {
|
||||
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} ;
|
||||
Quant = {s : Str; useGen : UseGen} ;
|
||||
Prep = {s : Str; c : Case} ;
|
||||
PrepNP = {s : Str} ;
|
||||
|
||||
Numeral = {s : CardOrd => Number => Case => Str ; n : Number} ;
|
||||
Digits = {s : CardOrd => Number => Case => Str ; n : Number; tail : DTail} ;
|
||||
|
||||
Reference in New Issue
Block a user