msyds/comp-syntax-gu-mlt
1
0
Fork 0
forked from GitHub/comp-syntax-gu-mlt
Code Pull Requests Activity

left out question marks for simplicity

Browse Source
This commit is contained in:
aarneranta
2021-05-19 11:12:23 +02:00
parent 3dcc336d51
commit f857b50664
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lab2/grammar/application/DoctorEng.gf
View File

@@ -25,9 +25,6 @@ lin
pastNegPhrase fact = mkUtt (mkS anteriorAnt negativePol fact) ; pastNegPhrase fact = mkUtt (mkS anteriorAnt negativePol fact) ;
presQuestionPhrase fact = mkUtt (mkQS (mkQCl fact)) ; presQuestionPhrase fact = mkUtt (mkQS (mkQCl fact)) ;
pastQuestionPhrase fact = mkUtt (mkQS anteriorAnt (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) ; impPosPhrase action = mkUtt (mkImp action) ;
impNegPhrase action = mkUtt negativePol (mkImp action) ; impNegPhrase action = mkUtt negativePol (mkImp action) ;