stat; type of imperatives in lib/resource

This commit is contained in:
aarne
2005-09-04 10:45:37 +00:00
parent e5490a113d
commit 9cb3b65b84
14 changed files with 100 additions and 38 deletions

View File

@@ -1278,13 +1278,13 @@ oper
Imperative = SS1 Number ;
imperVerbPhrase : Bool -> VerbPhrase -> Imperative = \b,walk ->
imperVerbPhrase : Bool -> VerbClause -> Imperative = \b,walk ->
{s = \\n =>
let
a = toAgr n P2 human ;
dont = if_then_Str b [] "don't"
in
dont ++ walk.s ! VIInfinit ! a
dont ++ walk.s ! b ! Simul ! VIInfinit ! a
} ;
imperUtterance : Number -> Imperative -> Utterance = \n,I ->