From f857b506645b42dc7520fd1201f4bb17acce46af Mon Sep 17 00:00:00 2001 From: aarneranta Date: Wed, 19 May 2021 11:12:23 +0200 Subject: [PATCH] left out question marks for simplicity --- lab2/grammar/application/DoctorEng.gf | 3 --- 1 file changed, 3 deletions(-) diff --git a/lab2/grammar/application/DoctorEng.gf b/lab2/grammar/application/DoctorEng.gf index 752f845..a72e996 100644 --- a/lab2/grammar/application/DoctorEng.gf +++ b/lab2/grammar/application/DoctorEng.gf @@ -25,9 +25,6 @@ lin pastNegPhrase fact = mkUtt (mkS anteriorAnt negativePol fact) ; presQuestionPhrase fact = mkUtt (mkQS (mkQCl fact)) ; pastQuestionPhrase fact = mkUtt (mkQS anteriorAnt (mkQCl fact)) ; - --- presQuestionPhrase fact = let p : Utt = mkUtt (mkQS (mkQCl fact)) in p ** {s = p.s ++ SOFT_BIND ++ "?"} ; - --- pastQuestionPhrase fact = let p : Utt = mkUtt (mkQS anteriorAnt (mkQCl fact)) in p ** {s = p.s ++ SOFT_BIND ++ "?"} ; - impPosPhrase action = mkUtt (mkImp action) ; impNegPhrase action = mkUtt negativePol (mkImp action) ;