forked from GitHub/gf-core
Punjabi api files
This commit is contained in:
6
lib/src/api/CombinatorsPnb.gf
Normal file
6
lib/src/api/CombinatorsPnb.gf
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
--# -path=.:alltenses:prelude
|
||||||
|
|
||||||
|
resource CombinatorsPnb = Combinators with
|
||||||
|
(Cat = CatPnb),
|
||||||
|
(Structural = StructuralPnb),
|
||||||
|
(Constructors = ConstructorsPnb) ;
|
||||||
3
lib/src/api/ConstructorsPnb.gf
Normal file
3
lib/src/api/ConstructorsPnb.gf
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
--# -path=.:alltenses:prelude
|
||||||
|
|
||||||
|
resource ConstructorsPnb = Constructors with (Grammar = GrammarPnb) ;
|
||||||
5
lib/src/api/SyntaxPnb.gf
Normal file
5
lib/src/api/SyntaxPnb.gf
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
--# -path=.:./alltenses:../prelude
|
||||||
|
|
||||||
|
instance SyntaxPnb of Syntax =
|
||||||
|
ConstructorsPnb, CatPnb, StructuralPnb, CombinatorsPnb ;
|
||||||
|
|
||||||
22
lib/src/api/TryPnb.gf
Normal file
22
lib/src/api/TryPnb.gf
Normal 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 ;
|
||||||
|
-- } ;
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
@@ -16,7 +16,7 @@ incomplete concrete RelativeHindustani of Relative =
|
|||||||
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 {
|
||||||
@@ -41,7 +41,7 @@ incomplete concrete RelativeHindustani of Relative =
|
|||||||
-- };
|
-- };
|
||||||
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 ! Masc ;
|
s = \\n,c => rp.s ! n ! c ++ np.s ! NPC c ++ p.s ! Masc ;
|
||||||
a = RAg np.a
|
a = RAg np.a
|
||||||
|
|||||||
@@ -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 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 =>
|
s = \\t,p,o,ag =>
|
||||||
let
|
let
|
||||||
agr = case rp.a of {
|
agr = case rp.a of {
|
||||||
@@ -45,7 +45,7 @@ concrete RelativePnb of Relative = CatPnb ** open ResPnb 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
|
||||||
|
|||||||
Reference in New Issue
Block a user