GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-12 20:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

completed multimodal API

Browse Source
This commit is contained in:
aarne
2005-12-06 14:50:53 +00:00
parent fc0ec0c0cd
commit fc23bec700
2 changed files with 95 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

83
lib/resource-1.0/multimodal/DemonstrativeI.gf
View File

@@ -9,53 +9,90 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
MVP = Dem VP ;
MComp = Dem Comp ;
MAP = Dem AP ;
DNP = Dem NP ;
DAdv = Dem Adv ;
Point = DemRes.Point ;
MNP = Dem NP ;
MAdv = Dem Adv ;
Point = DemRes.Point ;
lin
MkPoint s = mkPoint s.s ;
PredMVP np vp =
MPredVP np vp =
let cl = PredVP np vp
in
mkDem
{s : Polarity => Str}
(polCases (PosCl cl).s (NegCl cl).s) (concatPoint np vp) ;
DemV verb = mkDem VP (UseV verb) noPoint ;
DemV2 verb obj = mkDem VP (ComplV2 verb obj) obj ;
DemVV vv vp = mkDem VP (ComplVV vv vp) vp ;
MQPredVP np vp =
let cl = QuestCl (PredVP np vp)
in
mkDem
{s : Polarity => Str}
(polCases
((PosQCl cl).s ! QDir)
((NegQCl cl).s ! QDir))
(concatPoint np vp) ;
DemComp comp = mkDem VP (UseComp comp) comp ;
--- DemComp = keepDem VP UseComp ;
MQuestVP np vp =
let cl = QuestVP np vp
in
mkDem
{s : Polarity => Str}
(polCases
((PosQCl cl).s ! QDir)
((NegQCl cl).s ! QDir))
vp ;
DCompAP ap = mkDem Comp (CompAP ap) ap ;
DCompAdv adv = mkDem Comp (CompAdv adv) adv ;
MImpVP vp =
let imp = ImpVP vp
in
mkDem
{s : Polarity => Str}
(polCases
((UttImpSg PPos imp).s)
((UttImpSg PNeg imp).s))
vp ;
AdvMVP vp adv =
MUseV verb = mkDem VP (UseV verb) noPoint ;
MComplV2 verb obj = mkDem VP (ComplV2 verb obj) obj ;
MComplVV vv vp = mkDem VP (ComplVV vv vp) vp ;
MUseComp comp = mkDem VP (UseComp comp) comp ;
MCompAP ap = mkDem Comp (CompAP ap) ap ;
MCompAdv adv = mkDem Comp (CompAdv adv) adv ;
MCompNP np = mkDem Comp (CompNP np) np ;
MPositA a = mkDem AP (PositA a) noPoint ;
MComparA a np = mkDem AP (ComparA a np) np ;
MAdvVP vp adv =
mkDem VP (AdvVP vp adv) (concatPoint vp adv) ;
this_DNP = mkDem NP this_NP ;
that_DNP = mkDem NP that_NP ;
this_MNP = mkDem NP this_NP ;
that_MNP = mkDem NP that_NP ;
thisDet_DNP cn =
thisDet_MNP cn =
mkDem NP (DetCN (MkDet NoPredet this_Quant NoNum NoOrd) cn) ;
thatDet_DNP cn =
thatDet_MNP cn =
mkDem NP (DetCN (MkDet NoPredet that_Quant NoNum NoOrd) cn) ;
here_DAdv = mkDem Adv here_Adv ;
here7from_DAdv = mkDem Adv here7from_Adv ;
here7to_DAdv = mkDem Adv here7to_Adv ;
here_MAdv = mkDem Adv here_Adv ;
here7from_MAdv = mkDem Adv here7from_Adv ;
here7to_MAdv = mkDem Adv here7to_Adv ;
PrepDNP p np = mkDem Adv (PrepNP p np) np ;
MPrepNP p np = mkDem Adv (PrepNP p np) np ;
DemNP np = nonDem NP (np ** {lock_NP = <>}) ;
-- DemAdv = nonDem Adv ;
PhrMS pol ms = {s = pol.s ++ ms.s ! pol.p ++ ";" ++ ms.point} ;
DemAdv adv = nonDem Adv (adv ** {lock_Adv = <>}) ;
PhrMS pol ms = {s = pol.s ++ ms.s ! pol.p ++ ";" ++ ms.point} ;
PhrMQS pol ms = {s = pol.s ++ ms.s ! pol.p ++ ";" ++ ms.point} ;
PhrMImp pol ms = {s = pol.s ++ ms.s ! pol.p ++ ";" ++ ms.point} ;
point1 = mkPoint "p1" ;
point2 = mkPoint "p2" ;