msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

support postposition adjectives

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-03 18:48:46 +02:00
parent 7d01f6720f
commit 6fe595104c
4 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/english/ResEng.gf
+3 -2
View File
@@ -141,14 +141,15 @@ param
}
} ;
mkAdjective : (_,_,_,_ : Str) -> {s : AForm => Str; lock_A : {}} =
mkAdjective : (_,_,_,_ : Str) -> {s : AForm => Str; isPre : Bool; lock_A : {}} =
\good,better,best,well -> lin A {
s = table {
AAdj Posit c => (regGenitiveS good) ! c ;
AAdj Compar c => (regGenitiveS better) ! c ;
AAdj Superl c => (regGenitiveS best) ! c ;
AAdv => well
}
} ;
isPre = True
} ;
mkVerb : (_,_,_,_,_ : Str) -> Verb =