mirror of
https://github.com/GrammaticalFramework/comp-syntax-gu-mlt.git
synced 2026-02-09 06:41:07 -07:00
cleaned up in lab2 grammars ; added myproject/ from the lecture
This commit is contained in:
aarneranta
@@ -1,118 +0,0 @@
|
|||||||
--# -path=.:../abstract:../english:../api
|
|
||||||
|
|
||||||
-- model implementation using Mini RGL
|
|
||||||
|
|
||||||
concrete DoctorFraMerle of Doctor =
|
|
||||||
open
|
|
||||||
SyntaxFre,
|
|
||||||
ParadigmsFre,
|
|
||||||
Prelude,
|
|
||||||
StructuralFre
|
|
||||||
in {
|
|
||||||
|
|
||||||
-- application using your own Mini* modules
|
|
||||||
|
|
||||||
lincat
|
|
||||||
Phrase = Utt ;
|
|
||||||
Fact = Cl ;
|
|
||||||
Action = VP ;
|
|
||||||
Property = VP ;
|
|
||||||
Profession = CN ;
|
|
||||||
Person = NP ;
|
|
||||||
Place = {at,to : Adv} ;
|
|
||||||
Substance = NP ;
|
|
||||||
Illness = NP ;
|
|
||||||
|
|
||||||
lin
|
|
||||||
presPosPhrase fact = mkUtt (mkS fact) ;
|
|
||||||
presNegPhrase fact = mkUtt (mkS negativePol fact) ;
|
|
||||||
pastPosPhrase fact = mkUtt (mkS anteriorAnt fact) ;
|
|
||||||
pastNegPhrase fact = mkUtt (mkS anteriorAnt negativePol 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) ;
|
|
||||||
|
|
||||||
actionFact person action = mkCl person action ;
|
|
||||||
propertyFact person property = mkCl person property ;
|
|
||||||
|
|
||||||
isProfessionProperty profession = mkVP (mkNP a_Det profession) ;
|
|
||||||
needProfessionProperty profession = mkVP need_V2 (mkNP a_Det profession) ;
|
|
||||||
isAtPlaceProperty place = mkVP place.at ;
|
|
||||||
haveIllnessProperty illness = mkVP have_V2 illness ;
|
|
||||||
|
|
||||||
theProfessionPerson profession = mkNP the_Det profession ;
|
|
||||||
|
|
||||||
iMascPerson = i_NP ;
|
|
||||||
iFemPerson = i_NP ;
|
|
||||||
youMascPerson = youPol_NP ;
|
|
||||||
youFemPerson = youPol_NP ;
|
|
||||||
hePerson = he_NP ;
|
|
||||||
shePerson = she_NP ;
|
|
||||||
|
|
||||||
goToAction place = mkVP (mkVP go_V) place.to ;
|
|
||||||
stayAtAction place = mkVP (mkVP stay_V) place.at ;
|
|
||||||
vaccinateAction person = mkVP vaccinate_V2 person ;
|
|
||||||
examineAction person = mkVP examine_V2 person ;
|
|
||||||
takeSubstanceAction substance = mkVP take_V2 substance ;
|
|
||||||
|
|
||||||
-- end of what could be a functor
|
|
||||||
--------------------------------
|
|
||||||
|
|
||||||
coughAction = mkVP (mkV "tousser") ;
|
|
||||||
breatheAction = mkVP (mkV "respirer") ;
|
|
||||||
vomitAction = mkVP (mkV "vomir") ;
|
|
||||||
sleepAction = mkVP (mkV "dormir" "dors" "dormons" "dorment" "dormit" "dormira" "dormi") ;
|
|
||||||
undressAction = mkVP (reflV (mkV "déshabiller")) ;
|
|
||||||
dressAction = mkVP (reflV (mkV "habiller")) ;
|
|
||||||
eatAction = mkVP (mkV "manger") ;
|
|
||||||
drinkAction = mkVP (mkV "boire" "bois" "buvons" "boivent" "but" "boira" "bu") ;
|
|
||||||
smokeAction = mkVP (mkV "fumer") ;
|
|
||||||
measureTemperatureAction = mkVP (mkV2 (mkV "mesurer")) (mkNP the_Det (mkN "temperatur du corps" feminine)) ;
|
|
||||||
measureBloodPressureAction = mkVP (mkV2 (mkV "mesurer")) (mkNP the_Det (mkN "tension artérielle")) ;
|
|
||||||
|
|
||||||
--these are identical for 'at' and 'to' in French
|
|
||||||
hospitalPlace = {at = pAdv "à l'hôpital" ; to = pAdv "à l'hôpital"} ;
|
|
||||||
homePlace = {at = pAdv "à la maison" ; to = pAdv "à la maison"} ;
|
|
||||||
schoolPlace = {at = pAdv "à l'école" ; to = pAdv "à l'école"} ;
|
|
||||||
workPlace = {at = pAdv "au travail" ; to = pAdv "au travail"} ;
|
|
||||||
|
|
||||||
doctorProfession = mkCN (mkN "médecin") ;
|
|
||||||
nurseProfession = mkCN ((mkN "infirmière") | (mkN "infermier")) ;
|
|
||||||
interpreterProfession = mkCN (mkN "interprète") ;
|
|
||||||
|
|
||||||
bePregnantProperty = mkVP (mkA "enceinte") ;
|
|
||||||
beIllProperty = mkVP (mkA "malade") ;
|
|
||||||
beWellProperty = mkVP (mkA "bien" "bien" "bien" "bien") ;
|
|
||||||
beDeadProperty = mkVP (mkA "mort") ;
|
|
||||||
haveAllergiesProperty = mkVP have_V2 (mkNP aPl_Det (mkN "allergie")) ;
|
|
||||||
havePainsProperty = mkVP have_V2 (mkNP aPl_Det (mkN "douleur")) ;
|
|
||||||
haveChildrenProperty = mkVP have_V2 (mkNP aPl_Det (mkN "enfant")) ;
|
|
||||||
|
|
||||||
feverIllness = mkNP (mkN "fièvre") ;
|
|
||||||
fluIllness = mkNP a_Det (mkN "grippe") ;
|
|
||||||
headacheIllness = mkNP a_Det (mkN "mal de crâne") ;
|
|
||||||
diarrheaIllness = mkNP (mkN "diarrhée") ;
|
|
||||||
heartDiseaseIllness = mkNP a_Det (mkN "cardiopathie") ;
|
|
||||||
lungDiseaseIllness = mkNP a_Det (mkN "maladie pulmonaire") ;
|
|
||||||
hypertensionIllness = mkNP (mkN "hypertension") ;
|
|
||||||
|
|
||||||
alcoholSubstance = mkNP (mkN "alcool") ;
|
|
||||||
medicineSubstance = mkNP a_Det (mkN "médicament") ;
|
|
||||||
drugsSubstance = mkNP aPl_Det (mkN "drogue") ;
|
|
||||||
|
|
||||||
oper
|
|
||||||
pAdv : Str -> Adv = ParadigmsFre.mkAdv ;
|
|
||||||
|
|
||||||
go_V = etreV (mkV "aller" "vais" "allons" "vont" "alla" "ira" "allé") ;
|
|
||||||
stay_V = etreV (mkV "rester") ;
|
|
||||||
need_V2 = mkV2 (mkV (mkV have_V2) "besoin d'") ;
|
|
||||||
--need_V2 = mkV2 (mkV "nécessiter") ;
|
|
||||||
take_V2 = mkV2 (mkV "prendre" "prends" "prenons" "prennent" "prit" "prendra" "pris") ;
|
|
||||||
put_V2 = mkV2 (mkV "mettre" "mets" "mettons" "mettent" "mit" "mettra" "mis") ;
|
|
||||||
vaccinate_V2 = mkV2 (mkV "vacciner") ;
|
|
||||||
examine_V2 = mkV2 (mkV "examiner") ;
|
|
||||||
|
|
||||||
}
|
|
||||||
@@ -1,112 +0,0 @@
|
|||||||
concrete DoctorSweBritta of Doctor =
|
|
||||||
open
|
|
||||||
SyntaxSwe,
|
|
||||||
ParadigmsSwe,
|
|
||||||
Prelude
|
|
||||||
in {
|
|
||||||
|
|
||||||
-- application using standard RGL
|
|
||||||
|
|
||||||
lincat
|
|
||||||
Phrase = Utt ;
|
|
||||||
Fact = Cl ;
|
|
||||||
Action = VP ;
|
|
||||||
Property = VP ;
|
|
||||||
Profession = CN ;
|
|
||||||
Person = NP ;
|
|
||||||
Place = {at,to : Adv} ;
|
|
||||||
Substance = NP ;
|
|
||||||
Illness = NP ;
|
|
||||||
|
|
||||||
lin
|
|
||||||
presPosPhrase fact = mkUtt (mkS fact) ;
|
|
||||||
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 ++ "?"} ;
|
|
||||||
|
|
||||||
|
|
||||||
impPosPhrase action = mkUtt (mkImp action) ;
|
|
||||||
impNegPhrase action = mkUtt negativePol (mkImp action) ;
|
|
||||||
|
|
||||||
actionFact person action = mkCl person action ;
|
|
||||||
propertyFact person property = mkCl person property ;
|
|
||||||
|
|
||||||
isProfessionProperty profession = mkVP (mkNP profession) ;
|
|
||||||
needProfessionProperty profession = mkVP need_V2 (mkNP a_Det profession) ;
|
|
||||||
isAtPlaceProperty place = mkVP place.at ;
|
|
||||||
haveIllnessProperty illness = mkVP have_V2 illness ;
|
|
||||||
|
|
||||||
theProfessionPerson profession = mkNP the_Det profession ;
|
|
||||||
|
|
||||||
iMascPerson = i_NP ;
|
|
||||||
iFemPerson = i_NP ;
|
|
||||||
youMascPerson = you_NP ;
|
|
||||||
youFemPerson = you_NP ;
|
|
||||||
hePerson = he_NP ;
|
|
||||||
shePerson = she_NP ;
|
|
||||||
|
|
||||||
goToAction place = mkVP (mkVP go_V) place.to ;
|
|
||||||
stayAtAction place = mkVP (mkVP stay_V) place.at ;
|
|
||||||
vaccinateAction person = mkVP vaccinate_V2 person ;
|
|
||||||
examineAction person = mkVP examine_V2 person ;
|
|
||||||
takeSubstanceAction substance = mkVP use_V2 substance ;
|
|
||||||
|
|
||||||
-- end of what could be a functor
|
|
||||||
--------------------------------
|
|
||||||
|
|
||||||
coughAction = mkVP (mkV "hostar") ;
|
|
||||||
breatheAction = mkVP (mkV "andas" "andas" "andas" "andades" "andats" "andad") ;
|
|
||||||
vomitAction = mkVP (mkV "kräkas" "kräks" "kräks" "kräktes" "kräkts" "kräkt") ;
|
|
||||||
sleepAction = mkVP (mkV "sova" "sov" "sovit") ;
|
|
||||||
undressAction = mkVP (mkV2 (take_V "av" )) (mkNP thePl_Det (mkN "kläd" "kläder")) ;
|
|
||||||
dressAction = mkVP (mkV2 (take_V "på")) (mkNP thePl_Det (mkN "kläd" "kläder")) ;
|
|
||||||
eatAction = mkVP (mkV "äta" "åt" "ätit") ;
|
|
||||||
drinkAction = mkVP (mkV "dricka" "drack" "druckit") ;
|
|
||||||
smokeAction = mkVP (mkV "röker") ;
|
|
||||||
measureTemperatureAction = mkVP (mkV2 (mkV "mäter")) (mkNP the_Det (mkN "kroppstemperatur")) ;
|
|
||||||
measureBloodPressureAction = mkVP (mkV2 (mkV "mäter")) (mkNP the_Det (mkN "blodtryck" "blodtrycket" "blodtryck" "blodtrycken")) ;
|
|
||||||
|
|
||||||
hospitalPlace = {at = pAdv "på sjukhuset" ; to = pAdv "till sjukhuset"} ;
|
|
||||||
homePlace = {at = pAdv "hemma" ; to = pAdv "hem"} ;
|
|
||||||
schoolPlace = {at = pAdv "i skolan" ; to = pAdv "till skolan"} ;
|
|
||||||
workPlace = {at = pAdv "på jobbet" ; to = pAdv "till jobbet"} ;
|
|
||||||
|
|
||||||
doctorProfession = mkCN (mkN "läkare" "läkare") ;
|
|
||||||
nurseProfession = mkCN (mkN "sköterska") ;
|
|
||||||
interpreterProfession = mkCN (mkN "tolk") ;
|
|
||||||
|
|
||||||
bePregnantProperty = mkVP (mkA "gravid") ;
|
|
||||||
beIllProperty = mkVP (mkA "sjuk") ;
|
|
||||||
beWellProperty = mkVP (mkA "frisk") ;
|
|
||||||
beDeadProperty = mkVP (mkA "död") ;
|
|
||||||
haveAllergiesProperty = mkVP have_V2 (mkNP aPl_Det (mkN "allergi" "allergier")) ;
|
|
||||||
havePainsProperty = mkVP have_V2 (mkNP aPl_Det (mkN "smärta")) ;
|
|
||||||
haveChildrenProperty = mkVP have_V2 (mkNP aPl_Det (mkN "barn" "barn")) ;
|
|
||||||
|
|
||||||
feverIllness = mkNP (mkN "feber") ;
|
|
||||||
fluIllness = mkNP (mkN "influensa") ;
|
|
||||||
headacheIllness = mkNP (mkN "huvudvärk") ;
|
|
||||||
diarrheaIllness = mkNP (mkN "diarré") ;
|
|
||||||
heartDiseaseIllness = mkNP a_Det (mkN "hjärtsjukdom") ;
|
|
||||||
lungDiseaseIllness = mkNP a_Det (mkN "lungsjukdom") ;
|
|
||||||
hypertensionIllness = mkNP (mkN "hypertoni") ;
|
|
||||||
|
|
||||||
alcoholSubstance = mkNP (mkN "alkohol") ;
|
|
||||||
medicineSubstance = mkNP a_Det (mkN "medicin") ;
|
|
||||||
drugsSubstance = mkNP aPl_Det (mkN "drog" "droger") ;
|
|
||||||
|
|
||||||
oper
|
|
||||||
pAdv : Str -> Adv = ParadigmsSwe.mkAdv ;
|
|
||||||
|
|
||||||
go_V = mkV "gå" "gick" "gått" ;
|
|
||||||
stay_V = mkV "stannar" ;
|
|
||||||
take_V = mkV (mkV "ta" "tar" "ta" "tog" "tagit" "tagen") ;
|
|
||||||
need_V2 = mkV2 (mkV "behöver") ;
|
|
||||||
use_V2 = mkV2 (mkV "använda" "använde" "använt") ;
|
|
||||||
vaccinate_V2 = mkV2 (mkV "vaccinerar") ;
|
|
||||||
examine_V2 = mkV2 (mkV "undersöker") ;
|
|
||||||
}
|
|
||||||
@@ -1,5 +1,5 @@
|
|||||||
--# -path=.:../abstract
|
--# -path=.:../abstract
|
||||||
concrete MicroLangEn of MicroLang = open MicroResEn, Prelude in {
|
concrete MicroLangEng of MicroLang = open MicroResEng, Prelude in {
|
||||||
|
|
||||||
-----------------------------------------------------
|
-----------------------------------------------------
|
||||||
---------------- Grammar part -----------------------
|
---------------- Grammar part -----------------------
|
||||||
@@ -1,241 +0,0 @@
|
|||||||
--# -path=.:../abstract
|
|
||||||
concrete MicroLangFr of MicroLang = open MicroResFr, Prelude in {
|
|
||||||
|
|
||||||
-----------------------------------------------------
|
|
||||||
---------------- Grammar part -----------------------
|
|
||||||
-----------------------------------------------------
|
|
||||||
|
|
||||||
lincat
|
|
||||||
Utt = {s : Str} ;
|
|
||||||
|
|
||||||
S = {s : Str} ;
|
|
||||||
VP = {verb : Verb ; compl : Number => Gender => Str} ;
|
|
||||||
Comp = Adjective ;
|
|
||||||
AP = Adjective ;
|
|
||||||
CN = Noun ;
|
|
||||||
NP = {s : Case => Str ; gen : Gender ; num : Number } ;
|
|
||||||
Pron = {s : Case => Str ; gen : Gender ; num: Number } ;
|
|
||||||
Det = {s : Str ; num : Number ; gen : Gender } ;
|
|
||||||
Prep = {s : Str} ;
|
|
||||||
V = Verb ;
|
|
||||||
V2 = Verb2 ;
|
|
||||||
A = Adjective ;
|
|
||||||
N = Noun ;
|
|
||||||
Adv = {s : Str} ;
|
|
||||||
|
|
||||||
lin
|
|
||||||
UttS s = s ;
|
|
||||||
UttNP np = {s = np.s ! Acc} ;
|
|
||||||
|
|
||||||
-- PredVP : NP -> VP -> Cl
|
|
||||||
PredVPS np vp = {
|
|
||||||
s = np.s ! Nom ++ vp.verb.s ! agr2vform np.num ++ vp.compl ! np.num ! np.gen
|
|
||||||
} ;
|
|
||||||
|
|
||||||
-- V -> VP
|
|
||||||
UseV v = {
|
|
||||||
verb = v ;
|
|
||||||
compl = \\num,gen => [] ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
-- V2 -> NP -> VP
|
|
||||||
ComplV2 v2 np = {
|
|
||||||
verb = v2 ;
|
|
||||||
compl = \\num,gen => v2.c ! num ! gen ++ np.s ! Acc -- NP object in the accusative
|
|
||||||
} ;
|
|
||||||
|
|
||||||
UseComp comp = {
|
|
||||||
verb = be_Verb ; -- the verb is the copula "être"
|
|
||||||
compl = \\num,gen => comp.s ! num ! gen
|
|
||||||
} ;
|
|
||||||
|
|
||||||
CompAP ap = ap ;
|
|
||||||
|
|
||||||
AdvVP vp adv =
|
|
||||||
vp ** {compl = \\num,gen => vp.compl ! num ! gen ++ adv.s} ; --update complement by + adv
|
|
||||||
|
|
||||||
-- Det -> CN -> NP
|
|
||||||
DetCN det cn = {
|
|
||||||
s = \\c => det.s ++ cn.s ! det.num ;
|
|
||||||
gen = cn.gen ;
|
|
||||||
num = det.num ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
a_Det = {s = pre {"a"|"e"|"i"|"o" => "l'" ; _ => "le"} ; num = Sg ; gen = M | F} ;
|
|
||||||
aPl_Det = {s = "la" ; num = Sg ; gen = F} ;
|
|
||||||
the_Det = {s = "les" ; num = Pl ; gen = M | F} ;
|
|
||||||
thePl_Det = {s = "des" ; num = Pl ; gen = M | F} ;
|
|
||||||
|
|
||||||
UsePron p = p ;
|
|
||||||
|
|
||||||
-- N -> CN
|
|
||||||
UseN noun = noun ;
|
|
||||||
|
|
||||||
-- AP -> CN -> CN
|
|
||||||
AdjCN ap cn = {
|
|
||||||
s = \\num => ap.s ! num ! cn.gen ++ cn.s ! num ; --table from number to gender to string
|
|
||||||
gen = cn.gen ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
PositA a = a ;
|
|
||||||
|
|
||||||
PrepNP prep np = {s = prep.s ++ np.s ! Acc} ;
|
|
||||||
|
|
||||||
in_Prep = {s = "dans"} ;
|
|
||||||
on_Prep = {s = "sur"} ;
|
|
||||||
with_Prep = {s = "avec"} ;
|
|
||||||
|
|
||||||
he_Pron = {
|
|
||||||
s = table {Nom => "il" ; Acc => "le"} ;
|
|
||||||
num = Sg ;
|
|
||||||
pers = P3 ;
|
|
||||||
gen = M ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
she_Pron = {
|
|
||||||
s = table {Nom => "elle" ; Acc => "la"} ;
|
|
||||||
num = Sg ;
|
|
||||||
pers = P3 ;
|
|
||||||
gen = F ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
they_Pron = {
|
|
||||||
s = table {Nom => "ils" ; Acc => "les"} ;
|
|
||||||
num = Pl ;
|
|
||||||
pers = P3 ;
|
|
||||||
gen = M | F ;
|
|
||||||
|
|
||||||
} ;
|
|
||||||
|
|
||||||
-----------------------------------------------------
|
|
||||||
---------------- Lexicon part -----------------------
|
|
||||||
-----------------------------------------------------
|
|
||||||
|
|
||||||
lin already_Adv = mkAdv "déja" ;
|
|
||||||
lin animal_N = mkN "animal" ;
|
|
||||||
lin apple_N = mkN "pomme" ;
|
|
||||||
lin baby_N = mkN "bébé" ;
|
|
||||||
lin bad_A = mkA "mauvais" ;
|
|
||||||
lin beer_N = mkN "bière" ;
|
|
||||||
lin big_A = mkA "grand" ;
|
|
||||||
lin bike_N = mkN "vélo" ;
|
|
||||||
lin bird_N = mkN "oiseau" ;
|
|
||||||
lin black_A = mkA "noir" ;
|
|
||||||
lin blood_N = mkN "sang" "sang";
|
|
||||||
lin blue_A = mkA "bleu" ;
|
|
||||||
lin boat_N = mkN "bâteau" ;
|
|
||||||
lin book_N = mkN "livre" ;
|
|
||||||
lin boy_N = mkN "garçon" ;
|
|
||||||
lin bread_N = mkN "pain" ;
|
|
||||||
lin break_V2 = mkV2 (mkV "casser") ;
|
|
||||||
lin buy_V2 = mkV2 (mkV "acheter" "achète" "achetons" "achètes" "achetez" "achète" "achetent") ;
|
|
||||||
lin car_N = mkN "voiture" ;
|
|
||||||
lin cat_N = mkN "chat" ;
|
|
||||||
lin child_N = mkN "enfant" ;
|
|
||||||
lin city_N = mkN "ville" ;
|
|
||||||
lin clean_A = mkA "propre" ;
|
|
||||||
lin clever_A = mkA "intelligent" ;
|
|
||||||
lin cloud_N = mkN "nuage" ;
|
|
||||||
lin cold_A = mkA "froid" ;
|
|
||||||
lin come_V = mkV "venir" "viens" "venons" "viens" "venez" "vient" "viennent" ;
|
|
||||||
lin computer_N = mkN "ordinateur" ;
|
|
||||||
lin cow_N = mkN "vache" ;
|
|
||||||
lin dirty_A = mkA "sale" ;
|
|
||||||
lin dog_N = mkN "chien" ;
|
|
||||||
lin drink_V2 = mkV2 (mkV "boire" "bois" "buvons" "bois" "buvez" "boit" "boivent") ;
|
|
||||||
lin eat_V2 = mkV2 (mkV "manger") ;
|
|
||||||
lin find_V2 = mkV2 (mkV "trouver") ;
|
|
||||||
lin fire_N = mkN "feu" ;
|
|
||||||
lin fish_N = mkN "poisson" ;
|
|
||||||
lin flower_N = mkN "fleur" ;
|
|
||||||
lin friend_N = mkN "ami" ;
|
|
||||||
lin girl_N = mkN "fille" ;
|
|
||||||
lin good_A = mkA "bon" ;
|
|
||||||
lin go_V = mkV "aller" "vais" "allons" "vas" "allez" "va" "vont" ;
|
|
||||||
lin grammar_N = mkN "grammaire" ;
|
|
||||||
lin green_A = mkA "vert" ;
|
|
||||||
lin heavy_A = mkA "lourd" ;
|
|
||||||
lin horse_N = mkN "cheval" ;
|
|
||||||
lin hot_A = mkA "chaud" ;
|
|
||||||
lin house_N = mkN "maison" ;
|
|
||||||
-- lin john_PN = mkPN "John" ;
|
|
||||||
lin jump_V = mkV "sauter" ;
|
|
||||||
lin kill_V2 = mkV2 "tuer" ;
|
|
||||||
-- lin know_VS = mkVS (mkV "savoir" "sais" "savons" "sais" "savez" "sait" "savent") ;
|
|
||||||
lin language_N = mkN "langue" ;
|
|
||||||
lin live_V = mkV "vivre" ;
|
|
||||||
lin love_V2 = mkV2 (mkV "aimer") ;
|
|
||||||
lin man_N = mkN "homme" ;
|
|
||||||
lin milk_N = mkN "lait" "lait" ;
|
|
||||||
lin music_N = mkN "musique" ;
|
|
||||||
lin new_A = mkA "nouveau" ;
|
|
||||||
lin now_Adv = mkAdv "maintenant" ;
|
|
||||||
lin old_A = mkA "ancien" ;
|
|
||||||
-- lin paris_PN = mkPN "Paris" ;
|
|
||||||
lin play_V = mkV "jouer" ;
|
|
||||||
lin read_V2 = mkV2 (mkV "lire" "lis" "lisons" "lis" "lisez" "lit" "lisent") ;
|
|
||||||
lin ready_A = mkA "prêt" ;
|
|
||||||
lin red_A = mkA "rouge" ;
|
|
||||||
lin river_N = mkN "rivière" ;
|
|
||||||
lin run_V = mkV "courir" ;
|
|
||||||
lin sea_N = mkN "mer" ;
|
|
||||||
lin see_V2 = mkV2 (mkV "voir") ;
|
|
||||||
lin ship_N = mkN "navire" ;
|
|
||||||
lin sleep_V = mkV "acheter" "achète" "achètes" "achete" "achètons" "achetez" "achetent" ;
|
|
||||||
lin small_A = mkA "petit" ;
|
|
||||||
lin star_N = mkN "etoile" ;
|
|
||||||
lin swim_V = mkV "nager" ;
|
|
||||||
lin teach_V2 = mkV2 (mkV "enseigner") ;
|
|
||||||
lin train_N = mkN "train" ;
|
|
||||||
lin travel_V = mkV "voyager" ;
|
|
||||||
lin tree_N = mkN "arbre" ;
|
|
||||||
lin understand_V2 = mkV2 (mkV "comprendre") ;
|
|
||||||
lin wait_V2 = mkV2 "attendre" ;
|
|
||||||
lin walk_V = mkV "marcher" ;
|
|
||||||
lin warm_A = mkA "chaud" ;
|
|
||||||
lin water_N = mkN "eau" ;
|
|
||||||
lin white_A = mkA "blanc" ;
|
|
||||||
lin wine_N = mkN "vin" ;
|
|
||||||
lin woman_N = mkN "femme" ;
|
|
||||||
lin yellow_A = mkA "jaune" ;
|
|
||||||
lin young_A = mkA "jeune" ;
|
|
||||||
|
|
||||||
---------------------------
|
|
||||||
-- Paradigms part ---------
|
|
||||||
---------------------------
|
|
||||||
|
|
||||||
oper
|
|
||||||
mkN = overload {
|
|
||||||
mkN : Str -> Noun -- predictable nouns according to the pattern matching
|
|
||||||
= \n -> lin N (smartNoun n) ;
|
|
||||||
mkN : Str -> Str -> Noun -- irregular nouns
|
|
||||||
= \sg,pl -> lin N (mkNoun sg pl) ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
mkA : Str -> A = \s -> lin A (smartA s) ;
|
|
||||||
|
|
||||||
mkV = overload {
|
|
||||||
mkV : (inf : Str) -> V
|
|
||||||
= \s -> lin V (smartVerb s) ;
|
|
||||||
mkV : (inf,p1sg,p2sg,p3sg,p1pl,p2pl,p3pl : Str) -> V
|
|
||||||
= \inf,p1sg,p2sg,p3sg,p1pl,p2pl,p3pl -> lin V (irregVerb inf p1sg p2sg p3sg p1pl p2pl p3pl) ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
mkV2 = overload {
|
|
||||||
mkV2 : Str -> V2
|
|
||||||
= \s -> lin V2 (smartVerb s ** {c =\\num,gen => []}) ;
|
|
||||||
mkV2 : Str -> Str -> V2 -- predictable verb with preposition
|
|
||||||
= \s,p -> lin V2 (smartVerb s ** {c =\\num,gen => p}) ;
|
|
||||||
mkV2 : V -> V2 -- any verb with direct object
|
|
||||||
= \v -> lin V2 (v ** {c =\\num,gen => []}) ;
|
|
||||||
mkV2 : V -> Str -> V2 -- any verb with preposition
|
|
||||||
= \v,p -> lin V2 (v ** {c =\\num,gen => p}) ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
mkAdv : Str -> Adv
|
|
||||||
= \s -> lin Adv {s = s} ;
|
|
||||||
|
|
||||||
mkPrep : Str -> Prep
|
|
||||||
= \s -> lin Prep {s = s} ;
|
|
||||||
|
|
||||||
}
|
|
||||||
@@ -1,4 +1,4 @@
|
|||||||
resource MicroResEn = open Prelude in {
|
resource MicroResEng = open Prelude in {
|
||||||
|
|
||||||
param
|
param
|
||||||
Number = Sg | Pl ;
|
Number = Sg | Pl ;
|
||||||
@@ -1,162 +0,0 @@
|
|||||||
resource MicroResFr = open Prelude in {
|
|
||||||
|
|
||||||
param
|
|
||||||
Number = Sg | Pl ;
|
|
||||||
Case = Nom | Acc ;
|
|
||||||
Gender = F | M ;
|
|
||||||
Person = P1 | P2 | P3 ;
|
|
||||||
|
|
||||||
-- infinitive | present forms of French verbs
|
|
||||||
VForm = VInf | VPres Person Number;
|
|
||||||
|
|
||||||
oper
|
|
||||||
--------------------- NOUNS --------------------------
|
|
||||||
------------------------------------------------------
|
|
||||||
|
|
||||||
Noun : Type = {s : Number => Str ; gen : Gender} ;
|
|
||||||
|
|
||||||
mkNoun : Str -> Str -> Noun = \sg,pl -> {
|
|
||||||
s = table {Sg => sg ; Pl => pl} ;
|
|
||||||
gen = mkGen sg
|
|
||||||
} ;
|
|
||||||
|
|
||||||
regNoun : Str -> Noun = \sg -> mkNoun sg (sg + "s") ;
|
|
||||||
|
|
||||||
smartNoun : Str -> Noun = \sg -> case sg of {
|
|
||||||
_ + ("é"|"o"|"e"|"n"|"t"|"r"|"i"|"il"|"ol"|"el") => regNoun sg ;
|
|
||||||
_ + ("au"|"eu"|"eau") => mkNoun sg (sg + "x") ;
|
|
||||||
noun + "al" => mkNoun sg (noun + "aux") ;
|
|
||||||
noun + ("z"|"s"|"x") => mkNoun sg sg ; --plural defective nouns
|
|
||||||
("sang"|"lait") => mkNoun sg sg --attempt in
|
|
||||||
} ;
|
|
||||||
|
|
||||||
mkGen: Str -> Gender = \sg -> case sg of {
|
|
||||||
root + ("au"|"isson"|"eu"|"t"|"o"|"age"|"é"|"ire"|"al"|"i"|"g"|"in"|"at"|"nt"|"en") => M ; -- some general rules for M nouns
|
|
||||||
("garçon"|"livre"|"arbre") => M ; -- exceptions for M
|
|
||||||
root + ("té"|"ion"|"elle"|"me"|"ère"|"eur"|"ure"|"che"|"le"|"aire"|"ue"|"er") => F ; -- some general rules for F nouns
|
|
||||||
("maison" | "eau") => F -- exceptions for F
|
|
||||||
} ;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
----------------------- ADJ inflection tables ----------------------
|
|
||||||
--------------------------------------------------------------------
|
|
||||||
|
|
||||||
Adjective : Type = {s : Number => Gender => Str} ;
|
|
||||||
|
|
||||||
mkAdjective : (msg,fsg,mpl,fpl : Str) -> Adjective = \msg,fsg,mpl,fpl ->
|
|
||||||
{s = table { Sg => table { M => msg ; F => fsg } ; Pl => table { M => mpl ; F => fpl }
|
|
||||||
} ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
regA : (msg : Str) -> Adjective = \grand ->
|
|
||||||
mkAdjective grand (grand + "e") (grand + "s") (grand + "es") ;
|
|
||||||
|
|
||||||
|
|
||||||
irA_anc : (msg : Str) -> Adjective = \blanc ->
|
|
||||||
mkAdjective blanc (blanc+"he") (blanc + "s") (blanc+"hes" ) ;
|
|
||||||
|
|
||||||
|
|
||||||
irA_eau : (msg : Str) -> Adjective = \nouv ->
|
|
||||||
mkAdjective (nouv + "eau") (nouv + "elle") (nouv + "eaux") (nouv + "elles") ;
|
|
||||||
|
|
||||||
|
|
||||||
-- adj that are gender invariable - have the same form for both genders in Sg | Pl: e.g. "calme" "calme" "calmes" "calmes"
|
|
||||||
invar_gen : (msg : Str) -> Adjective = \propre ->
|
|
||||||
mkAdjective propre propre (propre + "s") (propre + "s") ;
|
|
||||||
|
|
||||||
|
|
||||||
-- adj that are number invariable - have the same form for both genders in Sg: e.g."anglais" "anglaise" "anglais" "anglaises"
|
|
||||||
|
|
||||||
invar_num : (msg : Str) -> Adjective = \mauvais ->
|
|
||||||
mkAdjective mauvais (mauvais + "e") mauvais (mauvais + "es") ;
|
|
||||||
|
|
||||||
dupl_n : (msg : Str) -> Adjective = \bon ->
|
|
||||||
let bonn = bon + last bon
|
|
||||||
in
|
|
||||||
mkAdjective bon (bonn + "e") (bon + "s") (bonn + "es") ;
|
|
||||||
|
|
||||||
|
|
||||||
smartA : (msg : Str) -> Adjective = \adj -> case adj of {
|
|
||||||
_ + ("d"|"t"|"eu"|"r") => regA adj ;
|
|
||||||
_ + "anc" => irA_anc adj ;
|
|
||||||
adj + "eau" => irA_eau adj ;
|
|
||||||
_ + "e" => invar_gen adj ;
|
|
||||||
_ + ("ien"|"on"|"en") => dupl_n adj ;
|
|
||||||
_ + "s" => invar_num adj
|
|
||||||
} ;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
------------------- VERB Paradigms------------------------
|
|
||||||
----------------------------------------------------------
|
|
||||||
|
|
||||||
Verb : Type = {s : VForm => Str} ;
|
|
||||||
|
|
||||||
mkVerb : (vinf,p1sg,p1pl,p2sg,p2pl,p3sg,p3pl : Str) -> Verb
|
|
||||||
= \vinf,p1sg,p1pl,p2sg,p2pl,p3sg,p3pl -> {
|
|
||||||
s = table {
|
|
||||||
VInf => vinf ;
|
|
||||||
VPres P1 Sg => p1sg ;
|
|
||||||
VPres P2 Sg => p2sg ;
|
|
||||||
VPres P3 Sg => p3sg ;
|
|
||||||
VPres P1 Pl => p1pl ;
|
|
||||||
VPres P2 Pl => p2pl ;
|
|
||||||
VPres P3 Pl => p3pl
|
|
||||||
} ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
-- verbs ending in -ger that need an extra "e" for the 1st Person pl
|
|
||||||
|
|
||||||
ger_Verb : Str -> Verb = \manger ->
|
|
||||||
let mange = init manger
|
|
||||||
in
|
|
||||||
mkVerb manger mange (mange + "ons") (mange + "s") (mange + "z") mange (mange + "nt") ;
|
|
||||||
|
|
||||||
|
|
||||||
er_Verb : Str -> Verb = \aimer ->
|
|
||||||
let aim = init aimer
|
|
||||||
in
|
|
||||||
mkVerb aimer aim (aim + "ons") (aim + "s") (aim + "z") aim (aim + "nt") ;
|
|
||||||
|
|
||||||
|
|
||||||
ir_Verb : Str -> Verb = \cour ->
|
|
||||||
mkVerb cour (cour + "s") (cour + "ons") (cour + "s") (cour + "ez") (cour + "t") (cour + "ent") ;
|
|
||||||
|
|
||||||
|
|
||||||
re_Verb : Str -> Verb = \attendre ->
|
|
||||||
let attend = init attendre
|
|
||||||
in
|
|
||||||
mkVerb attendre (attend + "ds") (attend + "dons") (attend + "ds") (attend + "dez") (attend + "d") (attend + "dent") ;
|
|
||||||
|
|
||||||
|
|
||||||
-- regular verbs with predictable variations
|
|
||||||
smartVerb : Str -> Verb = \v -> case v of {
|
|
||||||
v + "re" => re_Verb v ;
|
|
||||||
v + "ir" => ir_Verb v ;
|
|
||||||
v + "er" => er_Verb v ;
|
|
||||||
_ + "g" + "er" => ger_Verb v
|
|
||||||
} ;
|
|
||||||
|
|
||||||
-- some irregular verbs e.g. acheter achète achètes
|
|
||||||
irregVerb : (vinf,p1sg,p2sg,p3sg,p1pl,p2pl,p3pl : Str) -> Verb =
|
|
||||||
\vinf,p1sg,p2sg,p3sg,p1pl,p2pl,p3pl ->
|
|
||||||
mkVerb vinf p1sg p2sg p3sg p1pl p2pl p3pl ;
|
|
||||||
|
|
||||||
-- two-place verb with "case" as preposition; for transitive verbs, c=[]
|
|
||||||
Verb2 : Type = Verb ** {c : Number => Gender => Str} ;
|
|
||||||
|
|
||||||
be_Verb : Verb = mkVerb "être" "suis" "es" "est" "sommes" "êtes" "sont" ; ---s to be generalized
|
|
||||||
|
|
||||||
Determiner : Type = {s : Str ; n : Number ; gen : Gender} ;
|
|
||||||
|
|
||||||
mkDet : Str -> Number -> Gender -> Determiner ;
|
|
||||||
mkDet str num gen = {s=str ; n = num ; gen = gen} ;
|
|
||||||
|
|
||||||
|
|
||||||
---s a very simplified verb agreement function for Micro
|
|
||||||
agr2vform : Number -> VForm = \a -> case a of {
|
|
||||||
Sg => VPres P3 Sg ;
|
|
||||||
Pl => VPres P3 Pl
|
|
||||||
} ;
|
|
||||||
}
|
|
||||||
15
lab2/grammar/myproject/MicroLangEng.gf
Normal file
15
lab2/grammar/myproject/MicroLangEng.gf
Normal file
@@ -0,0 +1,15 @@
|
|||||||
|
--# -path=.:../abstract
|
||||||
|
|
||||||
|
concrete MicroLangEng of MicroLang = open MicroResEng in {
|
||||||
|
|
||||||
|
lincat N = MicroResEng.N ;
|
||||||
|
|
||||||
|
lin baby_N = mkN "baby" ;
|
||||||
|
lin dog_N = mkN "dog" ;
|
||||||
|
lin man_N = mkN "man" "men" ;
|
||||||
|
lin car_N = mkN "car" ;
|
||||||
|
lin city_N = mkN "city" ;
|
||||||
|
lin boy_N = mkN "boy" ;
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
BIN
lab2/grammar/myproject/MicroLangEng.gfo
Normal file
BIN
lab2/grammar/myproject/MicroLangEng.gfo
Normal file
Binary file not shown.
15
lab2/grammar/myproject/MicroLangSwe.gf
Normal file
15
lab2/grammar/myproject/MicroLangSwe.gf
Normal file
@@ -0,0 +1,15 @@
|
|||||||
|
--# -path=.:../abstract
|
||||||
|
|
||||||
|
concrete MicroLangSwe of MicroLang = open MicroResSwe in {
|
||||||
|
|
||||||
|
lincat N = MicroResSwe.N ;
|
||||||
|
|
||||||
|
lin baby_N = decl2 "bebis" ;
|
||||||
|
lin dog_N = decl2 "hund" ;
|
||||||
|
lin man_N = worstN "man" "mannen" "män" "männen" Utr ;
|
||||||
|
lin car_N = decl2 "bil" ;
|
||||||
|
--lin city_N = mkN "stad" ;
|
||||||
|
lin boy_N = decl2 "pojke" ;
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
BIN
lab2/grammar/myproject/MicroLangSwe.gfo
Normal file
BIN
lab2/grammar/myproject/MicroLangSwe.gfo
Normal file
Binary file not shown.
30
lab2/grammar/myproject/MicroResEng.gf
Normal file
30
lab2/grammar/myproject/MicroResEng.gf
Normal file
@@ -0,0 +1,30 @@
|
|||||||
|
resource MicroResEng = {
|
||||||
|
|
||||||
|
param Number = Sg | Pl ;
|
||||||
|
|
||||||
|
oper
|
||||||
|
N = {s : Number => Str} ;
|
||||||
|
|
||||||
|
worstN : Str -> Str -> N
|
||||||
|
= \x,y -> {s = table {Sg => x ; Pl => y}} ;
|
||||||
|
|
||||||
|
regN : Str -> N
|
||||||
|
= \x -> worstN x (x + "s") ;
|
||||||
|
|
||||||
|
smartN : Str -> N
|
||||||
|
= \x -> case x of
|
||||||
|
{
|
||||||
|
b + ("ay"|"oy"|"uy") => regN x ;
|
||||||
|
bab + "y" => worstN x (bab + "ies") ;
|
||||||
|
_ => regN x
|
||||||
|
} ;
|
||||||
|
|
||||||
|
mkN = overload {
|
||||||
|
mkN : (dog : Str) -> N
|
||||||
|
= smartN ;
|
||||||
|
mkN : (man,men : Str) -> N
|
||||||
|
= worstN
|
||||||
|
} ;
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
BIN
lab2/grammar/myproject/MicroResEng.gfo
Normal file
BIN
lab2/grammar/myproject/MicroResEng.gfo
Normal file
Binary file not shown.
23
lab2/grammar/myproject/MicroResSwe.gf
Normal file
23
lab2/grammar/myproject/MicroResSwe.gf
Normal file
@@ -0,0 +1,23 @@
|
|||||||
|
resource MicroResSwe = {
|
||||||
|
|
||||||
|
param
|
||||||
|
Number = Sg | Pl ;
|
||||||
|
Species = Indef | Def ;
|
||||||
|
Gender = Utr | Neutr ;
|
||||||
|
|
||||||
|
oper
|
||||||
|
N = {s : Number => Species => Str ; g : Gender} ;
|
||||||
|
|
||||||
|
worstN : Str -> Str -> Str -> Str -> Gender -> N
|
||||||
|
= \man,mannen,män,männen,gen -> {
|
||||||
|
s = table {
|
||||||
|
Sg => table {Indef => man ; Def => mannen} ;
|
||||||
|
Pl => table {Indef => män ; Def => männen}
|
||||||
|
} ;
|
||||||
|
g = gen
|
||||||
|
} ;
|
||||||
|
|
||||||
|
decl2 : Str -> N
|
||||||
|
= \bil -> worstN bil (bil + "en") (bil + "ar") (bil + "arna") Utr ;
|
||||||
|
|
||||||
|
}
|
||||||
BIN
lab2/grammar/myproject/MicroResSwe.gfo
Normal file
BIN
lab2/grammar/myproject/MicroResSwe.gfo
Normal file
Binary file not shown.
Reference in New Issue
Block a user