forked from GitHub/gf-core
Use Phr for S linearization.
This commit is contained in:
@@ -6,7 +6,7 @@ cat
|
|||||||
CN ;
|
CN ;
|
||||||
|
|
||||||
fun
|
fun
|
||||||
|
|
||||||
-- Actions with an object
|
-- Actions with an object
|
||||||
|
|
||||||
Drink : NP -> NP -> S ;
|
Drink : NP -> NP -> S ;
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ concrete StoneageEng of Stoneage
|
|||||||
StoneageResEng in {
|
StoneageResEng in {
|
||||||
|
|
||||||
lincat
|
lincat
|
||||||
S = S ;
|
S = Phr ;
|
||||||
NP = NP ;
|
NP = NP ;
|
||||||
N = N;
|
N = N;
|
||||||
CN = CN ;
|
CN = CN ;
|
||||||
|
|||||||
@@ -1,11 +1,12 @@
|
|||||||
resource StoneageResEng = open ResourceEng, ParadigmsEng in {
|
resource StoneageResEng = open ResourceEng, ParadigmsEng in {
|
||||||
|
|
||||||
oper
|
oper
|
||||||
PresV : V -> NP -> S = \v,s -> PresCl (SPredV s v) ;
|
PresV : V -> NP -> Phr = \v,s -> PresCl (SPredV s v) ;
|
||||||
PresV2 : V2 -> NP -> NP -> S = \v,s,o -> PresCl (SPredV2 s v o) ;
|
PresV2 : V2 -> NP -> NP -> Phr = \v,s,o -> PresCl (SPredV2 s v o) ;
|
||||||
PresVasV2 : V -> NP -> NP -> S = \ v -> PresV2 (dirV2 v) ;
|
PresVasV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (dirV2 v) ;
|
||||||
|
|
||||||
PresCl : Cl -> S = UseCl (PosTP TPresent ASimul) ;
|
PresCl : Cl -> Phr =
|
||||||
|
\c -> { s = (UseCl (PosTP TPresent ASimul) c).s } ** {lock_Phr = <>} ;
|
||||||
|
|
||||||
ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ;
|
ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ;
|
||||||
ModA : A -> CN -> CN = \a -> ModAP (UseA a) ;
|
ModA : A -> CN -> CN = \a -> ModAP (UseA a) ;
|
||||||
|
|||||||
@@ -1,11 +1,12 @@
|
|||||||
resource StoneageResSwe = open ResourceSwe, ParadigmsSwe in {
|
resource StoneageResSwe = open ResourceSwe, SyntaxSwe, ParadigmsSwe in {
|
||||||
|
|
||||||
oper
|
oper
|
||||||
PresV : V -> NP -> S = \v,s -> PresCl (SPredV s v) ;
|
PresV : V -> NP -> Phr = \v,s -> PresCl (SPredV s v) ;
|
||||||
PresV2 : V2 -> NP -> NP -> S = \v,s,o -> PresCl (SPredV2 s v o) ;
|
PresV2 : V2 -> NP -> NP -> Phr = \v,s,o -> PresCl (SPredV2 s v o) ;
|
||||||
PresVasV2 : V -> NP -> NP -> S = \ v -> PresV2 (dirV2 v) ;
|
PresVasV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (dirV2 v) ;
|
||||||
|
|
||||||
PresCl : Cl -> S = UseCl (PosTP TPresent ASimul) ;
|
PresCl : Cl -> Phr =
|
||||||
|
\c -> defaultSentence (UseCl (PosTP TPresent ASimul) c) ** {lock_Phr = <>} ;
|
||||||
|
|
||||||
ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ;
|
ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ;
|
||||||
ModA : A -> CN -> CN = \a -> ModAP (UseA a) ;
|
ModA : A -> CN -> CN = \a -> ModAP (UseA a) ;
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ concrete StoneageSwe of Stoneage
|
|||||||
= open SyntaxSwe, ResourceSwe, SwadeshLexSwe, StoneageResSwe in {
|
= open SyntaxSwe, ResourceSwe, SwadeshLexSwe, StoneageResSwe in {
|
||||||
|
|
||||||
lincat
|
lincat
|
||||||
S = S ;
|
S = Phr ;
|
||||||
NP = NP ;
|
NP = NP ;
|
||||||
N = N;
|
N = N;
|
||||||
CN = CN ;
|
CN = CN ;
|
||||||
|
|||||||
Reference in New Issue
Block a user