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

urdu relatives

Browse Source
This commit is contained in:
aarne
2010-03-29 12:40:51 +00:00
parent 997ca76c1b
commit 1402b10138
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/urdu/PhraseUrd.gf
View File

@@ -15,6 +15,8 @@ concrete PhraseUrd of Phrase = CatUrd ** open Prelude, ResUrd in {
UttVP vp = {s = infVP False vp (agrP3 Masc Sg)} ; UttVP vp = {s = infVP False vp (agrP3 Masc Sg)} ;
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN cn = {s = cn.s ! Sg ! Dir}; UttCN cn = {s = cn.s ! Sg ! Dir};
UttCard n = n ;
UttAP ap = {s = ap.s ! Sg ! Masc ! Dir ! Posit} ;
NoPConj = {s = []} ; NoPConj = {s = []} ;
PConjConj conj = {s = conj.s2} ; --- PConjConj conj = {s = conj.s2} ; ---

5
lib/src/urdu/RelativeUrd.gf
View File

@@ -14,7 +14,8 @@ concrete RelativeUrd of Relative = CatUrd ** open ResUrd in {
c = Dir c = Dir
} ; } ;
{- RelVP rp vp = { -- {-
RelVP rp vp = {
s = \\t,p,o,ag => s = \\t,p,o,ag =>
let let
agr = case rp.a of { agr = case rp.a of {
@@ -43,7 +44,7 @@ concrete RelativeUrd of Relative = CatUrd ** open ResUrd in {
-- }; -- };
c = Dir c = Dir
} ; } ;
-} -- -}
FunRP p np rp = { FunRP p np rp = {
s = \\n,c => rp.s ! n ! c ++ np.s ! NPC c ++ p.s ; s = \\n,c => rp.s ! n ! c ++ np.s ! NPC c ++ p.s ;
a = RAg np.a a = RAg np.a