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

trams with mm library

Browse Source
This commit is contained in:
aarne
2005-11-07 21:45:22 +00:00
parent f6d064d9f7
commit 9388b1f189
14 changed files with 179 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
lib/resource/abstract/DemonstrativeI.gf
View File

@@ -4,12 +4,13 @@ incomplete concrete DemonstrativeI of Demonstrative =
open Prelude, Resource, Basic, DemRes in {
lincat
MS = MultiSentence ;
MQS = MultiQuestion ;
MImp = MultiImperative ;
DNP = Demonstrative ;
DAdv = DemAdverb ;
Point = Pointing ;
MS = MultiSentence ;
MQS = MultiQuestion ;
MImp = MultiImperative ;
DNP = Demonstrative ;
DAdv = DemAdverb ;
[DAdv] = DemAdverb ;
Point = Pointing ;
lin
MkPoint s = {s5 = s.s} ;
@@ -46,10 +47,16 @@ incomplete concrete DemonstrativeI of Demonstrative =
thisDet_DNP p cn = DetNP this_Det cn ** p ;
thatDet_DNP 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 ;
here_DAdv p = mkDAdv here_Adv p ;
here7from_DAdv p = mkDAdv here7from_Adv p ;
here7to_DAdv p = mkDAdv here7to_Adv p ;
NoDAdv = {s,s5 = [] ; lock_Adv = <>} ;
BaseDAdv = {s,s5 = [] ; lock_Adv = <>} ;
ConsDAdv a as = {s = a.s ++ as.s ; s5 = a.s5 ++ as.s5 ; lock_Adv = <>} ;
PrepDNP p np = mkDAdv (AdvPP (PrepNP p np)) np ;
point1 = {s5 = "p1"} ;
point2 = {s5 = "p2"} ;
}