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

multimodal resource recreated for new API

Browse Source
This commit is contained in:
aarne
2005-12-05 18:31:15 +00:00
parent 936e402373
commit 7a7252223f
10 changed files with 271 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
lib/resource-1.0/multimodal/DemonstrativeI.gf Normal file
View File

@@ -0,0 +1,53 @@
incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
open Prelude, Test, Structural, ParamX, DemRes in {
lincat
MS = Dem {s : Polarity => Str} ;
MQS = Dem {s : Polarity => Str} ;
MImp = Dem {s : Polarity => Str} ;
MVP = Dem VP ;
DNP = Dem NP ;
DAdv = Dem Adv ;
Point = DemRes.Point ;
lin
MkPoint s = mkPoint s.s ;
PredMVP 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 ;
AdvMVP vp adv =
mkDem VP (AdvVP vp adv) (concatPoint vp adv) ;
this_DNP = mkDem NP this_NP ;
that_DNP = mkDem NP that_NP ;
-- thisDet_DNP p cn = mkDem (DetNP this_Det cn) p ;
-- thatDet_DNP p cn = mkDem (DetNP that_Det cn) p ;
here_DAdv = mkDem Adv here_Adv ;
-- here7from_DAdv = mkDem here7from_Adv ;
-- here7to_DAdv = mkDem here7to_Adv ;
PrepDNP 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} ;
point1 = mkPoint "p1" ;
point2 = mkPoint "p2" ;
}