refinementsParseUrd

This commit is contained in:
virk.shafqat
2012-11-04 17:06:32 +00:00
parent 0301db4724
commit 7c04eede85
7 changed files with 78 additions and 16 deletions

View File

@@ -36,5 +36,9 @@ incomplete concrete AdjectiveHindustani of Adjective = CatHindustani ** open Com
};
AdjOrd ord = { s = \\_,_,_,_ => ord.s ; };
AdvAP ap adv = {
s = \\n,g,c,d => adv.s ! g ++ ap.s ! n ! g ! c ! d ;
} ;
}

View File

@@ -1,4 +1,5 @@
--# -path=.:../abstract:../common
--concrete SymbolUrd of Symbol = CatUrd ** open Prelude, ResUrd, StringsHindustani in {
incomplete concrete SymbolHindustani of Symbol =
@@ -36,7 +37,7 @@ lin
BaseSymb = infixSS awr ;
ConsSymb = infixSS [] ;
oper
-- Note: this results in a space before 's, but there's
-- not mauch we can do about that.
@@ -44,4 +45,4 @@ oper
-- table {_ => s ++ "ka" } ;
table {_ => s } ; -- testing for webalt but i think should bring back to its origional form as 'ka' is needed for making genitive, in webalt it gives unnecessary 'ka'
}
}