GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-05 09:12:51 -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

41
lib/resource/abstract/DemRes.gf Normal file
View File

@@ -0,0 +1,41 @@
interface DemRes = open Prelude, Resource in {
oper
Pointing = {s5 : Str} ;
noPointing : Pointing = {s5 = []} ;
mkDemS : Cl -> DemAdverb -> Pointing -> MultiSentence = \cl,adv,p ->
{s = table {
MInd => msS (UseCl (PosTP TPresent ASimul) (AdvCl cl adv)) ;
MQuest => msQS (UseQCl (PosTP TPresent ASimul) (QuestCl (AdvCl cl adv)))
} ;
s5 = p.s5 ++ adv.s5
} ;
mkDemQ : QCl -> DemAdverb -> Pointing -> MultiQuestion = \cl,adv,p ->
{s = msQS (UseQCl (PosTP TPresent ASimul) cl) ++ adv.s ; --- (AdvQCl cl adv)) ;
s5 = p.s5 ++ adv.s5
} ;
msS : S -> Str ;
msQS : QS -> Str ;
msImp : Imp -> Str ;
concatDem : (x,y : Pointing) -> Pointing = \x,y -> {
s5 = x.s5 ++ y.s5
} ;
mkDemType : Type -> Type = \t -> t ** Pointing ;
Demonstrative : Type = mkDemType NP ;
MultiSentence : Type = mkDemType {s : MSForm => Str} ;
MultiQuestion : Type = mkDemType SS ;
DemAdverb : Type = mkDemType Adv ;
addDAdv : Adv -> Pointing -> DemAdverb -> DemAdverb = \a,p,d ->
{s = a.s ++ d.s ; s5 = p.s5 ++ d.s5 ; lock_Adv = a.lock_Adv} ;
param
MSForm = MInd | MQuest ;
}