GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 06:52:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

Hindi and Urdu as refactored to Hindustani by Shafqat

Browse Source
This commit is contained in:
aarne
2010-11-24 13:20:31 +00:00
parent e37e6df775
commit fb678fcd6c
85 changed files with 4576 additions and 5032 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
lib/src/urdu/SymbolUrd.gf
View File

@@ -1,46 +1,4 @@
--# -path=.:../abstract:../common
--# -path=.:../hindustani:../abstract:../common
concrete SymbolUrd of Symbol = CatUrd ** open Prelude, ResUrd in {
lin
-- SymbPN i = {s = \\_ => i.s ; g = Masc} ;
SymbPN i = {s = addGenitiveS i.s ; g = Masc} ;
IntPN i = {s = addGenitiveS i.s ; g = Masc} ;
FloatPN i = {s = addGenitiveS i.s ; g = Masc} ;
NumPN i = {s = \\_ =>i.s ; g = Masc} ;
CNIntNP cn i = {
s = \\c => cn.s ! Sg ! Dir ++ i.s ;
a = agrP3 cn.g Sg
} ;
CNSymbNP det cn xs = {
s = \\c => det.s!Sg!Masc ++ cn.s ! det.n ! Dir ++ xs.s ;
a = agrP3 cn.g det.n
} ;
CNNumNP cn i = {
s = \\c => cn.s ! Sg ! Dir ++ i.s ;
a = agrP3 cn.g Sg
} ;
SymbS sy = sy ;
SymbNum sy = { s = sy.s ; n = Pl } ;
SymbOrd sy = { s = sy.s ++ waN_Str ; n = Pl} ;
lincat
Symb, [Symb] = SS ;
lin
MkSymb s = s ;
BaseSymb = infixSS awr_Str
;
ConsSymb = infixSS [] ;
oper
-- Note: this results in a space before 's, but there's
-- not mauch we can do about that.
addGenitiveS : Str -> Case => Str = \s ->
table {_ => s ++ ka_Str} ;
}
concrete SymbolUrd of Symbol = CatUrd ** SymbolHindustani with
(ResHindustani = ResUrd) ;