mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-27 13:32:51 -06:00
Shafqat's Urdu modules added
This commit is contained in:
41
lib/src/urdu/AdjectiveUrd.gf
Normal file
41
lib/src/urdu/AdjectiveUrd.gf
Normal file
@@ -0,0 +1,41 @@
|
||||
concrete AdjectiveUrd of Adjective = CatUrd ** open ResUrd, Prelude in {
|
||||
|
||||
lin
|
||||
|
||||
PositA a = a ;
|
||||
UseComparA a = a;
|
||||
|
||||
ComparA a np = {
|
||||
s = \\n,g,c,d => np.s ! NPC Obl ++ "sE" ++ a.s ! n ! g ! c ! d ;
|
||||
-- isPre = False
|
||||
} ;
|
||||
|
||||
---- $SuperlA$ belongs to determiner syntax in $Noun$.
|
||||
|
||||
ComplA2 a np = {
|
||||
s = \\n,g,c,d => np.s ! NPC Obl ++ a.c2 ++ a.s ! n ! g ! c ! d ;
|
||||
-- isPre = False
|
||||
} ;
|
||||
|
||||
-- ReflA2 a = {
|
||||
-- s = \\n,g,c,d => a.s ! n ! g ! c ! d ++ reflPron ! ag ;
|
||||
-- isPre = False
|
||||
-- } ;
|
||||
|
||||
SentAP ap sc = {
|
||||
s = \\n,g,c,d => ap.s ! n ! g ! c ! d ++ sc.s ;
|
||||
-- isPre = False
|
||||
} ;
|
||||
|
||||
AdAP ada ap = {
|
||||
s = \\n,g,c,d => ada.s ++ ap.s ! n ! g ! c ! d ;
|
||||
-- isPre = ap.isPre
|
||||
} ;
|
||||
|
||||
UseA2 a = a ;
|
||||
|
||||
CAdvAP cadv ap np = {
|
||||
s = \\n,g,c,d => cadv.s ++ ap.s ! n ! g ! c ! d ++ cadv.p ++ np.s ! NPC Dir ;
|
||||
};
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user