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

multimodal resource

Browse Source
This commit is contained in:
aarne
2005-11-06 21:00:36 +00:00
parent 4f6afbab98
commit a4dbad93a1
11 changed files with 200 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
lib/resource/abstract/DemonstrativeI.gf Normal file
View File

@@ -0,0 +1,42 @@
--# -path=.:../abstract:../../prelude
incomplete concrete DemonstrativeI of Demonstrative =
open Prelude, Resource, Basic, DemRes in {
lincat
MS = MultiSentence ;
MQ = MultiQuestion ;
Dem = Demonstrative ;
DAdv = DemAdverb ;
Point = Pointing ;
lin
MkPoint s = {s5 = s.s} ;
DemV verb dem adv =
mkDemS (SPredV dem verb) adv dem ;
DemV2 verb su ob adv =
mkDemS (SPredV2 su verb ob) adv (concatDem su ob) ;
ModDemV vv verb dem adv =
mkDemS (SPredVV dem vv (UseVCl PPos ASimul (IPredV verb))) adv dem ;
ModDemV2 vv verb su ob adv =
mkDemS (SPredVV su vv (UseVCl PPos ASimul (IPredV2 verb ob))) adv (concatDem su ob) ;
QDemV verb ip adv =
mkDemQ (QPredV ip verb) adv noPointing ;
QDemV2 verb ip ob adv =
mkDemQ (QPredV2 ip verb ob) adv ob ;
this_Dem p = this_NP ** p ;
that_Dem p = this_NP ** p ;
thisDet_Dem p cn = DetNP this_Det cn ** p ;
thatDet_Dem p cn = DetNP that_Det cn ** p ;
here_DAdv p = addDAdv here_Adv p ;
here7from_DAdv p = addDAdv here7from_Adv p ;
here7to_DAdv p = addDAdv here7to_Adv p ;
NoDAdv = {s,s5 = [] ; lock_Adv = <>} ;
}