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

adjustments and clean-up in resource

Browse Source
This commit is contained in:
aarne
2006-02-26 18:43:13 +00:00
parent ec1605fb24
commit f1e0c064fd
25 changed files with 81 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
resource-1.0/finnish/QuestionFin.gf
View File

@@ -45,9 +45,9 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
let
k = npform2case c ;
ncase = case <k,num.isNum> of {
<Nom, True> => NCase Sg Part ; -- mitkä kolme kytkintä
<Nom, True> => NCase Sg Part ; -- mitkä kolme kytkintä
<_, True> => NCase Sg k ; -- miksi kolmeksi kytkimeksi
_ => NCase n k -- mitkä kytkimet
_ => NCase n k -- mitkä kytkimet
}
in
idet.s ! k ++ num.s ! Sg ! k ++ ord.s ! n ! k ++ cn.s ! ncase ;