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

@@ -0,0 +1,6 @@
--# -path=.:alltenses:prelude
resource CombinatorsPnb = Combinators with
(Cat = CatPnb),
(Structural = StructuralPnb),
(Constructors = ConstructorsPnb) ;

View File

@@ -0,0 +1,3 @@
--# -path=.:alltenses:prelude
resource ConstructorsPnb = Constructors with (Grammar = GrammarPnb) ;

5
lib/src/api/SyntaxPnb.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:./alltenses:../prelude
instance SyntaxPnb of Syntax =
ConstructorsPnb, CatPnb, StructuralPnb, CombinatorsPnb ;

22
lib/src/api/TryPnb.gf Normal file
View File

@@ -0,0 +1,22 @@
--# -path=.:alltenses:prelude
resource TryPnb = SyntaxPnb - [mkAdN] , LexiconPnb, ParadigmsPnb - [mkAdv,mkDet,mkIP,mkAdN] **
open (P = ParadigmsPnb) in {
oper
mkAdv = overload SyntaxPnb {
mkAdv : Str -> Adv = P.mkAdv ;
} ;
mkAdN = overload {
mkAdN : CAdv -> AdN = SyntaxPnb.mkAdN ;
--- mkAdN : Str -> AdN = P.mkAdN ;
} ;
-- mkOrd = overload SyntaxPnb {
-- mkOrd : A -> Ord = SyntaxPnb.OrdSuperl ;
-- } ;
}

View File

@@ -16,7 +16,7 @@ incomplete concrete RelativeHindustani of Relative =
c = Dir
} ;
{- RelVP rp vp = {
RelVP rp vp = {
s = \\t,p,o,ag =>
let
agr = case rp.a of {
@@ -41,7 +41,7 @@ incomplete concrete RelativeHindustani of Relative =
-- };
c = Dir
} ;
-}
FunRP p np rp = {
s = \\n,c => rp.s ! n ! c ++ np.s ! NPC c ++ p.s ! Masc ;
a = RAg np.a

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