GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -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)} ;
UttAdv adv = adv ;
UttCN cn = {s = cn.s ! Sg ! Dir};
UttCard n = n ;
UttAP ap = {s = ap.s ! Sg ! Masc ! Dir ! Posit} ;
NoPConj = {s = []} ;
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
} ;
{- RelVP rp vp = {
-- {-
RelVP rp vp = {
s = \\t,p,o,ag =>
let
agr = case rp.a of {
@@ -43,7 +44,7 @@ concrete RelativeUrd of Relative = CatUrd ** open ResUrd in {
-- };
c = Dir
} ;
-}
-- -}
FunRP p np rp = {
s = \\n,c => rp.s ! n ! c ++ np.s ! NPC c ++ p.s ;
a = RAg np.a