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

renamed Doctor concretes

Browse Source
This commit is contained in:
aarneranta
2021-05-19 11:11:27 +02:00
parent dc89975544
commit 3dcc336d51
2 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,15 +1,11 @@
--# -path=.:../abstract:../english:../api
-- model implementation using Mini RGL
concrete DoctorEng of Doctor =
open
MiniSyntaxEng,
MiniParadigmsEng,
SyntaxEng,
ParadigmsEng,
Prelude
in {
-- application using your own Mini* modules
-- application using standard RGL
lincat
Phrase = Utt ;
@@ -27,10 +23,10 @@ lin
presNegPhrase fact = mkUtt (mkS negativePol fact) ;
pastPosPhrase fact = mkUtt (mkS anteriorAnt fact) ;
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 ++ "?"} ;
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) ;
@@ -104,7 +100,7 @@ lin
drugsSubstance = mkNP aPl_Det (mkN "drug") ;
oper
pAdv : Str -> Adv = MiniParadigmsEng.mkAdv ;
pAdv : Str -> Adv = ParadigmsEng.mkAdv ;
go_V = mkV "go" "went" "gone" ;
stay_V = mkV "stay" ;

14
lab2/grammar/application/DoctorRGLEng.gf → lab2/grammar/application/DoctorMiniEng.gf
View File

@@ -1,11 +1,15 @@
concrete DoctorRGLEng of Doctor =
--# -path=.:../abstract:../english:../api
-- model implementation using Mini RGL
concrete DoctorMiniEng of Doctor =
open
SyntaxEng,
ParadigmsEng,
MiniSyntaxEng,
MiniParadigmsEng,
Prelude
in {
-- application using standard RGL
-- application using your own Mini* modules
lincat
Phrase = Utt ;
@@ -100,7 +104,7 @@ lin
drugsSubstance = mkNP aPl_Det (mkN "drug") ;
oper
pAdv : Str -> Adv = ParadigmsEng.mkAdv ;
pAdv : Str -> Adv = MiniParadigmsEng.mkAdv ;
go_V = mkV "go" "went" "gone" ;
stay_V = mkV "stay" ;