1
0
forked from GitHub/gf-rgl

Implement PrepNP

This commit is contained in:
Ayberk Tosun
2017-08-22 17:49:25 +03:00
parent 5734469aa2
commit 4b0e198742
2 changed files with 3 additions and 0 deletions

View File

@@ -1,2 +1,4 @@
concrete AdverbTur of Adverb = CatTur ** open ResTur, Prelude in {
lin
PrepNP prep np = {s = np.s ! prep.c ++ prep.s} ;
}

View File

@@ -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} ;