field names added to Prolog

This commit is contained in:
aarne
2006-05-16 21:10:47 +00:00
parent 8e5078084f
commit e8ee07ee96
5 changed files with 17 additions and 14 deletions

View File

@@ -48,10 +48,10 @@ incomplete concrete DialogueI of Dialogue = open Lang, Prelude in {
} ;
aImp : VP -> Str = \vp ->
(PhrUtt NoPConj (UttImpPl PPos (ImpVP vp)) NoVoc).s ;
(PhrUtt NoPConj (UttImpSg PPos (ImpVP vp)) NoVoc).s ;
aImpPlease : VP -> Str = \vp ->
(PhrUtt NoPConj (UttImpPl PPos (ImpVP vp)) please_Voc).s ;
(PhrUtt NoPConj (UttImpSg PPos (ImpVP vp)) please_Voc).s ;
aWant : VP -> Str = \vp ->
(PhrUtt NoPConj (UttS (UseCl TPres ASimul PPos (PredVP (UsePron i_Pron)