GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 23:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

preserve 1.0

Browse Source
This commit is contained in:
aarne
2006-06-22 22:27:48 +00:00
parent 251bc4c738
commit 4821244741
569 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
lib/resource/multimodal/old/DemonstrativeI.gf
View File

@@ -1,109 +0,0 @@
incomplete concrete DemonstrativeI of Demonstrative = Cat **
open Prelude, Lang, ParamX, DemRes in {
flags optimize = all_subs ;
lincat
MS = Dem {s : Polarity => Str} ;
MQS = Dem {s : Polarity => Str} ;
MImp = Dem {s : Polarity => Str} ;
MVP = Dem VP ;
MComp = Dem Comp ;
MAP = Dem AP ;
MNP = Dem NP ;
MAdv = Dem Adv ;
Point = DemRes.Point ;
lin
MkPoint s = mkPoint s.s ;
MPredVP np vp =
let cl = PredVP np vp
in
mkDem
{s : Polarity => Str}
(polCases
(UttS (UseCl TPres ASimul PPos cl))
(UttS (UseCl TPres ASimul PNeg cl)))
(concatPoint np vp) ;
MQPredVP np vp =
let cl = QuestCl (PredVP np vp)
in
mkDem
{s : Polarity => Str}
(polCases
(UttQS (UseQCl TPres ASimul PPos cl))
(UttQS (UseQCl TPres ASimul PNeg cl)))
(concatPoint np vp) ;
MQuestVP np vp =
let cl = QuestVP np vp
in
mkDem
{s : Polarity => Str}
(polCases
(UttQS (UseQCl TPres ASimul PPos cl))
(UttQS (UseQCl TPres ASimul PNeg cl)))
vp ;
MImpVP vp =
let imp = ImpVP vp
in
mkDem
{s : Polarity => Str}
(polCases
((UttImpSg PPos imp))
((UttImpSg PNeg imp)))
vp ;
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_MNP = mkDem NP this_NP ;
that_MNP = mkDem NP that_NP ;
thisDet_MNP cn =
mkDem NP (DetCN (DetSg (SgQuant this_Quant) NoOrd) cn) ;
thatDet_MNP cn =
mkDem NP (DetCN (DetSg (SgQuant that_Quant) NoOrd) cn) ;
here_MAdv = mkDem Adv here_Adv ;
here7from_MAdv = mkDem Adv here7from_Adv ;
here7to_MAdv = mkDem Adv here7to_Adv ;
MPrepNP p np = mkDem Adv (PrepNP p np) np ;
DemNP np = nonDem NP (np ** {lock_NP = <>}) ;
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" ;
x_MAdv = mkDem Adv (ss "X") noPoint ; --- relies on Adv = {s : Str}
y_MAdv = mkDem Adv (ss "Y") noPoint ; ---
}