From eb245228482fbf9798ea6ddc01753d5a1e40b2c1 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 12 Nov 2003 12:22:53 +0000 Subject: Made changes required by lock fields; not yet in Swedish and Finnish. --- grammars/resource/english/Syntax.gf | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'grammars/resource/english/Syntax.gf') diff --git a/grammars/resource/english/Syntax.gf b/grammars/resource/english/Syntax.gf index 18944fa2d..07f4c7358 100644 --- a/grammars/resource/english/Syntax.gf +++ b/grammars/resource/english/Syntax.gf @@ -417,23 +417,23 @@ oper -- compared adverbials as separate expressions; this could be done another way). -- We distinguish between post- and pre-verbal adverbs. - Adverb : Type = SS ** {isPost : Bool} ; + Adverb : Type = SS ** {p : Bool} ; - advPre : Str -> Adverb = \seldom -> ss seldom ** {isPost = False} ; - advPost : Str -> Adverb = \well -> ss well ** {isPost = True} ; + advPre : Str -> Adverb = \seldom -> ss seldom ** {p = False} ; + advPost : Str -> Adverb = \well -> ss well ** {p = True} ; -- N.B. this rule generates the cyclic parsing rule $VP#2 ::= VP#2$ -- and cannot thus be parsed. adVerbPhrase : VerbPhrase -> Adverb -> VerbPhrase = \sings, well -> - let {postp = orB well.isPost sings.isAux} in + let {postp = orB well.p sings.isAux} in { s = \\v => (if_then_else Str postp [] well.s) ++ sings.s ! v ; s2 = \\n => sings.s2 ! n ++ (if_then_else Str postp well.s []) ; isAux = sings.isAux } ; - advAdjPhrase : Adverb -> AdjPhrase -> AdjPhrase = \very, good -> + advAdjPhrase : SS -> AdjPhrase -> AdjPhrase = \very, good -> {s = very.s ++ good.s ; p = good.p } ; @@ -750,7 +750,7 @@ oper -- This class covers adverbials such as "otherwise", "therefore", which are prefixed -- to a sentence to form a phrase. - advSentence : Adverb -> Sentence -> Utterance = \hence,itiseven -> + advSentence : SS -> Sentence -> Utterance = \hence,itiseven -> ss (hence.s ++ itiseven.s ++ ".") ; -- cgit v1.2.3