Punjabi api files

This commit is contained in:
aarne
2010-12-08 12:40:46 +00:00
parent 0cae4151e3
commit eb6bbb26f1
6 changed files with 40 additions and 4 deletions

View File

@@ -15,7 +15,7 @@ concrete RelativePnb of Relative = CatPnb ** open ResPnb in {
} ;
-- RelVP and RelSlash slows the linking process a lot this is why it is commented for test purposes
{- RelVP rp vp = {
RelVP rp vp = {
s = \\t,p,o,ag =>
let
agr = case rp.a of {
@@ -45,7 +45,7 @@ concrete RelativePnb of Relative = CatPnb ** open ResPnb in {
-- };
c = Dir
} ;
-}
FunRP p np rp = {
s = \\n,c => rp.s ! n ! c ++ np.s ! NPC c ++ p.s ;
a = RAg np.a