Clause as restructuring of Verbphrase

This commit is contained in:
aarne
2005-02-17 12:56:57 +00:00
parent 0f6649a6ae
commit 55f28a0d3b
13 changed files with 165 additions and 91 deletions

View File

@@ -3,6 +3,8 @@
instance SyntaxNor of SyntaxScand = TypesNor **
open Prelude, (CO = Coordination), MorphoNor in {
flags optimize=all ;
oper
------ mkAdjForm
@@ -75,7 +77,7 @@ instance SyntaxNor of SyntaxScand = TypesNor **
auxSka = "vil" ;
auxSkulle = "ville" ;
infinAtt = "at" ;
infinAtt = "å" ;
varjeDet : Determiner = mkDeterminerSg (detSgInvar "hver") IndefP ;
allaDet : Determiner = mkDeterminerPl "alle" IndefP ;
@@ -109,12 +111,9 @@ instance SyntaxNor of SyntaxScand = TypesNor **
_ => "seg"
} ;
progressiveVerbPhrase : VerbGroup -> VerbGroup = \verb ->
progressiveVerbPhrase : VerbPhrase -> VerbGroup =
complVerbVerb
(verbVara **
{isAux = False} ----- {s3 = ["ved at"]}
)
(predVerbGroup True Simul verb) ;
({s = verbVara.s ; s1 = "ved" ; isAux = False}) ;
progressiveClause : NounPhrase -> VerbPhrase -> Clause = \np,vp ->
predVerbGroupClause np