mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
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
|
||||
} ;
|
||||
|
||||
{- 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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user