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

multimodal for Swedish

Browse Source
This commit is contained in:
aarne
2005-12-09 16:28:45 +00:00
parent 5889b3f7db
commit ea5639b85f
17 changed files with 120 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/resource-1.0/multimodal/DemonstrativeI.gf
View File

@@ -23,7 +23,10 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
in
mkDem
{s : Polarity => Str}
(polCases (PosCl cl).s (NegCl cl).s) (concatPoint np vp) ;
(polCases
(UttS (PosCl cl))
(UttS (NegCl cl)))
(concatPoint np vp) ;
MQPredVP np vp =
let cl = QuestCl (PredVP np vp)
@@ -31,8 +34,8 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
mkDem
{s : Polarity => Str}
(polCases
((PosQCl cl).s ! QDir)
((NegQCl cl).s ! QDir))
(UttQS (PosQCl cl))
(UttQS (NegQCl cl)))
(concatPoint np vp) ;
MQuestVP np vp =
@@ -41,8 +44,8 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
mkDem
{s : Polarity => Str}
(polCases
((PosQCl cl).s ! QDir)
((NegQCl cl).s ! QDir))
(UttQS (PosQCl cl))
(UttQS (NegQCl cl)))
vp ;
MImpVP vp =
@@ -51,8 +54,8 @@ incomplete concrete DemonstrativeI of Demonstrative = Cat, TenseX **
mkDem
{s : Polarity => Str}
(polCases
((UttImpSg PPos imp).s)
((UttImpSg PNeg imp).s))
((UttImpSg PPos imp))
((UttImpSg PNeg imp)))
vp ;