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) ;