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

refinementsDiffHindustani

Browse Source
This commit is contained in:
virk.shafqat
2013-04-20 09:15:49 +00:00
parent 7c24e41d54
commit 81bb7c7dde
11 changed files with 142 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/src/hindustani/DiffHindustani.gf
View File

@@ -34,5 +34,4 @@ interface DiffHindustani = open Prelude in {
cka : Gender -> Number -> Str ;
hw : UPerson -> Number -> Str ;
hwa : Agr -> Str ;
regAdjective : Str -> Adjective ;
}

6
lib/src/hindustani/ResHindustani.gf
View File

@@ -406,9 +406,9 @@ param
cvp = vp.cvp
} ;
compoundAdj : Str -> Str -> Adjective = \s1,s2 -> mkCompoundAdj (regAdjective s1) (regAdjective s2) ;
mkCompoundAdj : Adjective -> Adjective -> Adjective ;
mkCompoundAdj adj1 adj2 = {s = \\n,g,c,d => adj1.s ! n ! g ! c ! d ++ adj2.s ! n ! g ! c ! d} ;
-- compoundAdj : Str -> Str -> Adjective = \s1,s2 -> mkCompoundAdj (regAdjective s1) (regAdjective s2) ;
-- mkCompoundAdj : Adjective -> Adjective -> Adjective ;
-- mkCompoundAdj adj1 adj2 = {s = \\n,g,c,d => adj1.s ! n ! g ! c ! d ++ adj2.s ! n ! g ! c ! d} ;
}