GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-28 04:16:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

adjustments in Phrasebook

Browse Source
This commit is contained in:
aarne
2010-05-27 20:44:39 +00:00
parent 2df7051ede
commit 6624bece17
3 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/german/ResGer.gf
+6 -1
View File
@@ -320,7 +320,12 @@ resource ResGer = ParamX ** open Prelude in {
mkN wein wein wein weines weine weinen ;
regA : Str -> Adjective = \blau ->
mkA blau blau (blau + "er") (blau + "est") ;
let blauest : Str = case blau of {
_ + ("t" | "d" | "s" | "sch" | "z") => blau + "est" ;
_ => blau + "st"
}
in
mkA blau blau (blau + "er") blauest ;
regV : Str -> Verb = \legen ->
let