summaryrefslogtreecommitdiff
path: root/grammars/health/HealthFre.gf
diff options
context:
space:
mode:
authorbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
committerbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
commit77270a010a0b453e9a84c3e62db7cfd22e49d55d (patch)
treed17682a545d6ac1e68ff49b8c20964182794baf7 /grammars/health/HealthFre.gf
parent0bbb906141711767678f82b15a7b43e65e0b5bd6 (diff)
Remove the grammars directory. It was full of old grammars that don't compile these days. See the old source distributions if you want them.
Diffstat (limited to 'grammars/health/HealthFre.gf')
-rw-r--r--grammars/health/HealthFre.gf132
1 files changed, 0 insertions, 132 deletions
diff --git a/grammars/health/HealthFre.gf b/grammars/health/HealthFre.gf
deleted file mode 100644
index cb83a973b..000000000
--- a/grammars/health/HealthFre.gf
+++ /dev/null
@@ -1,132 +0,0 @@
--- UTF-8 version currently differs from non-UTF-8 !!!
-
--- use this path to read the grammar from the same directory
---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/french:../../lib/resource-0.6/romance
-
-concrete HealthFre of Health = open PredicationFre, ParadigmsFre, ResourceFre, Prelude, SyntaxFre, MorphoFre, ExtraFre, ParadigmsFre, ResourceExtFre in {
-
--- 1. still using "à" instead of "aux" in PainIn operations
--- because of the UTF-8 problem with non-utf-8 resource grammars!
-
-flags
- startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
-
-lincat
- Patient = NP ;
- BodyPart = CN ;
- Symptom = NP ;
- SymptomDegree = AP ;
- Prop = S ;
- Illness = NP ;
- Condition = VP ;
- Specialization = CN ;
- Medicine = NPMedicine ;
-
-lin
- And x y = ConjS AndConj (TwoS x y) ;
-
- ShePatient = SheNP ;
- TheyPatient = TheyNP ;
- IPatientHe = INP ;
- IPatientShe = INP ;
- HePatient = HeNP ;
- WePatient = WeNP ;
-
- HaveIllness = predV2 (tvDir vAvoir) ;
- Complain = predV2 (tvDir vAvoir) ;
-
- BeInCondition = PredVP ;
- CatchCold = PosVG (PredTV (tvDir vAvoir) (IndefOneNP (mkCNomReg "rhume" Masc ** {lock_CN = <> })));
- Pregnant = PosVG (PredAP (mkAdjective (adjJeune "enceinte") adjPost** {lock_AP = <> })) ;
-
- Influenza = DefOneNP (mkCN (nReg "grippe" Fem));
- Malaria = DefOneNP (mkCN (nReg "malaria" Fem));
- Diarrhea = IndefOneNP (mkCN (nReg "diarrhée" Fem)) ;
- Constipation = IndefOneNP (mkCN (nReg "constipation" Fem));
- Rheumatism = DetNP desDet (mkCN (nReg "rhumatisme" Masc)) ;
- Arthritis = DetNP delDet (mkCN (nReg "arthrite" Fem)) ;
- SkinAllergy =IndefOneNP ( ModAdj
- (AdjP1 (adj1Reg "épidermique" postpos))
- (mkCN (nReg "allergie" Fem))
- );
- Heartburn = DetNP desDet (AppFun (funCase (nReg "brûlure" Fem) Gen)
- (DetNP nullDet (mkCN (nReg "estomac" Masc)))) ;
- Tonsillitis = IndefOneNP (mkCN (nReg "angine" Fem)) ;
- Asthma = DetNP delDet (mkCN (nReg "asthme" Masc)) ;
- Cystitis =IndefOneNP ( mkCN (nReg "cystite" Fem)) ;
- Diabetes = DefOneNP (mkCN (nReg "diabète" Masc)) ;
-
- Dentist = mkCN (nReg "dentiste" Masc) ;
- Gynecologist = mkCN (nReg "gynécologue" Masc) ;
- Urologist = mkCN (nReg "urologue" Masc) ;
- Pediatrician = mkCN (nReg "pédiatre" Masc) ;
- Physician = mkCN (nReg "thérapeute" Masc) ;
- Dermatologist = mkCN (nReg "dermatologue" Masc) ;
- Cardiologist = mkCN (nReg "cardiologue" Masc) ;
- Neuropathologist = mkCN (nReg "neurologue" Masc) ;
- Ophthalmologist = mkCN (nReg "ophthalmologue" Masc) ;
- Surgeon = mkCN (nReg "chirurgien" Masc ) ;
-
- SleepingPeels = DetNP desDet (mkCN (nReg "somnifêre" Masc ))**{des = True};
- Vitamins = DetNP desDet (mkCN (nReg "vitamine" Fem))**{des = True} ;
- EyeDrops = DetNP desDet (AppFun (funPrep (nReg "goutte" Fem) "pour")
- (DefManyNP (mkCN (mkN "oeil" "yeux" Masc))))**{des = True} ;
- Antibiotics = DetNP desDet (mkCN (nReg "antibiotique" Masc))**{des = True} ;
- Insulin = DetNP delDet (mkCN (nReg "insuline" Fem))**{des = True};
-
- Viagra = DetNP nullDet (mkCN(nReg "viagra" Fem))**{des = False} ;
- Laxative = IndefOneNP (mkCN (nReg "laxatif" Masc)) **{des = False};
- Sedative = IndefOneNP (mkCN (nReg "sédatif" Masc)) **{des = False};
- Antidepressant = IndefOneNP (mkCN (nReg "antidépressif" Masc)) **{des = False};
- PainKiller = IndefOneNP (mkCN (nReg "calmant" Masc)) **{des = False};
-
- NeedDoctor patient doctor = PredVP patient (avoirBesoin1 doctor ** {lock_VP = <> }) ;
- NeedMedicine patient medicine = PredVP patient (avoirBesoin medicine ** {lock_VP = <> }) ;
- TakeMedicine = predV2 (mkTransVerbDir (verbPres (conj3prendre "prendre")) ** {lock_TV = <> } ) ;
-
- Fever = DetNP delDet (mkCN (nReg "fièvre" Fem)) ;
-
- PainIn patient head = predV2 (tvDir vAvoir) patient
- (DetNP nullDet
- (
- AppFun
- ((mkCN (nReg "mal" Masc))** complementCas Dat ** {lock_Fun = <> })
- (defNounPhrase patient.n head ** {lock_NP = <>})
- )
- ) ;
-
- Injured = injuredBody (adjReg "blessé") ;
- Broken = injuredBody (adjReg "cassé") ;
-
-
- Head = mkCNomReg "tête" Fem ** {lock_CN = <> };
- Leg = mkCNomReg "jambe" Fem ** {lock_CN = <> };
- Stomac = mkCNomReg "estomac" Masc ** {lock_CN = <> };
- Throat = mkCNomReg "gorge" Fem ** {lock_CN = <> };
- Ear = mkCNomReg "oreille" Fem ** {lock_CN = <> };
- Chest = mkCNomReg "poitrine" Fem ** {lock_CN = <> };
- Foot = mkCNomReg "pied" Masc ** {lock_CN = <> };
- Arm = mkCNomReg "bras" Masc ** {lock_CN = <> };
- Back = mkCNomReg "dos" Masc ** {lock_CN = <> };
- Shoulder = mkCNomReg "epaule" Fem ** {lock_CN = <> };
--- Tooth = mkCNomReg "dents" Masc ** {lock_CN = <> };
--- Knee = mkCNomReg "genou" Masc ** {lock_CN = <> };
-
-
-
--- High = AdjP1 (mkAdjReg "élevé" adjPost ** {lock_Adj1 = <> }) ;
--- Terrible = AdjP1 ((mkAdjective (mkAdj "terrible" "terrible" "terrible" "terrible") adjPre ** {lock_Adj1 = <> })** {lock_AP = <> });
--- FeverMod degree = DetNP (delDet ** {lock_Det = <> }) (ModAdj degree (mkCNomReg "fièvre" Fem** {lock_CN = <> })) ;
--- PainInMod patient head degree = predV2 (tvDir vAvoir) patient
--- (DetNP (nullDet ** {lock_Det = <> })
--- ( ModAdj degree
--- (
--- AppFun ((mkCNomReg "mal" Masc ** {lock_CN = <> })** complementCas Dat** {lock_Fun = <> })
--- (defNounPhrase patient.n head ** {lock_NP = <> })
--- )
--- )
--- ) ;
-
-
-};
-