1
0
forked from GitHub/gf-core

refinements-2010-12-16

This commit is contained in:
virk.shafqat
2010-12-16 15:58:04 +00:00
parent 0b563f1fb7
commit 75fe9c2155
20 changed files with 270 additions and 217 deletions

View File

@@ -170,7 +170,7 @@ oper
(bhao) (bhao) (bhao)
Masc ;
----2 Determiners
IDeterminer = {s:Gender => Str ; n : Number};
IDeterminer = {s:Gender => Case => Str ; n : Number};
makeDet : Str -> Str -> Str -> Str -> Number -> Determiner = \s1,s2,s3,s4,n -> {
s = table {
Sg => table {
@@ -188,11 +188,37 @@ oper
makeIDet : Str -> Str -> Number -> IDeterminer = \s1,s2,n -> {
s = table {
Masc => s1;
Fem => s2
Masc => table {_ =>s1};
Fem => table {_ =>s2}
};
n = n
};
};
-- IQuant
makeIQuant : Str -> {s : Number => Gender => Case => Str} = \str -> {
s = table {
Sg => table {
Masc => table {
Dir => str ++ "سا" ;
_ => str ++ "سے"
};
Fem => table {
_ => str ++ "سی"
}
};
Pl => table {
Masc => table {
_ => str ++ "سے"
};
Fem => table {
_ => str ++ "سی"
}
}
}
};
-- Proposition
@@ -379,7 +405,7 @@ oper
<Imperf,Pers2_Respect,Pl,Fem> => root+"تیں";
<Imperf,_,Sg,Masc> => root+"تا";
<Imperf,_,Sg,Fem> => root+"تی";
<Imperf,_,Pl,Masc> => root+"تع";
<Imperf,_,Pl,Masc> => root+"تے";
<Imperf,_,Pl,Fem> => root+"تیں"
}