imports in SymbolHindustani

This commit is contained in:
aarne
2010-11-26 16:33:33 +00:00
parent 1867e6bd88
commit bb593d6143
3 changed files with 5 additions and 5 deletions

View File

@@ -2,7 +2,7 @@
--concrete SymbolUrd of Symbol = CatUrd ** open Prelude, ResUrd, StringsHindustani in {
incomplete concrete SymbolHindustani of Symbol =
CatHindustani ** open Prelude, ResHindustani, CommonHindustani in {
CatHindustani ** open Prelude, ResHindustani, StringsHindustani, CommonHindustani in {
lin
-- SymbPN i = {s = \\_ => i.s ; g = Masc} ;

View File

@@ -8,8 +8,8 @@ concrete ExtraPnb of ExtraPnbAbs = CatPnb **
each_Det = mkDet "ہر كوی" "ہر كوی" "ہر كوی" "ہر كوی" Sg ;
have_V = mkV "راكh-نا";
IAdvAdv adv = {s = "كتنی" ++ adv.s} ;
ICompAP ap = {s = "كتنے" ++ ap.s ! Sg ! Masc ! Dir ! Posit} ;
---- IAdvAdv adv = {s = "كتنی" ++ adv.s} ;
---- ICompAP ap = {s = "كتنے" ++ ap.s ! Sg ! Masc ! Dir ! Posit} ;
cost_V = mkV "قیمت" ;
-- added for causitives

View File

@@ -3,7 +3,7 @@
concrete SymbolPnb of Symbol = CatPnb ** open Prelude, ResPnb in {
flags coding = utf8;
{-
lin
-- SymbPN i = {s = \\_ => i.s ; g = Masc} ;
SymbPN i = {s = addGenitiveS i.s ; g = Masc} ;
@@ -42,6 +42,6 @@ oper
-- not mauch we can do about that.
addGenitiveS : Str -> Case => Str = \s ->
table {_ => s ++ "دا" } ;
-}
}