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

refinementsDiffHindustani

Browse Source
This commit is contained in:
virk.shafqat
2013-04-20 09:15:49 +00:00
parent 8b6256f367
commit 9e9b25f7ed
10 changed files with 141 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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