GitHub/comp-syntax-gu-mlt
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/comp-syntax-gu-mlt.git synced 2026-02-09 14:51:06 -07:00
Code Issues Packages Projects Releases Wiki 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 = concrete DoctorEng of Doctor =
open open
MiniSyntaxEng, SyntaxEng,
MiniParadigmsEng, ParadigmsEng,
Prelude Prelude
in { in {
-- application using your own Mini* modules -- application using standard RGL
lincat lincat
Phrase = Utt ; Phrase = Utt ;
@@ -27,10 +23,10 @@ lin
presNegPhrase fact = mkUtt (mkS negativePol fact) ; presNegPhrase fact = mkUtt (mkS negativePol fact) ;
pastPosPhrase fact = mkUtt (mkS anteriorAnt fact) ; pastPosPhrase fact = mkUtt (mkS anteriorAnt fact) ;
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 ++ "?"} ; --- 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 ++ "?"} ; --- 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) ;
@@ -104,7 +100,7 @@ lin
drugsSubstance = mkNP aPl_Det (mkN "drug") ; drugsSubstance = mkNP aPl_Det (mkN "drug") ;
oper oper
pAdv : Str -> Adv = MiniParadigmsEng.mkAdv ; pAdv : Str -> Adv = ParadigmsEng.mkAdv ;
go_V = mkV "go" "went" "gone" ; go_V = mkV "go" "went" "gone" ;
stay_V = mkV "stay" ; 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 open
SyntaxEng, MiniSyntaxEng,
ParadigmsEng, MiniParadigmsEng,
Prelude Prelude
in { in {
-- application using standard RGL -- application using your own Mini* modules
lincat lincat
Phrase = Utt ; Phrase = Utt ;
@@ -100,7 +104,7 @@ lin
drugsSubstance = mkNP aPl_Det (mkN "drug") ; drugsSubstance = mkNP aPl_Det (mkN "drug") ;
oper oper
pAdv : Str -> Adv = ParadigmsEng.mkAdv ; pAdv : Str -> Adv = MiniParadigmsEng.mkAdv ;
go_V = mkV "go" "went" "gone" ; go_V = mkV "go" "went" "gone" ;
stay_V = mkV "stay" ; stay_V = mkV "stay" ;