msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Quick fix in French.

Browse Source
This commit is contained in:
aarne
2004-01-21 14:06:34 +00:00
parent 78a613c4cb
commit 30629c96bd
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
grammars/health/ExtraFre.gf
View File

@@ -5,12 +5,12 @@
-- --
-- Aarne Ranta, Janna Khegai 2003 -- Aarne Ranta, Janna Khegai 2003
resource ExtraFre = open PredicationFre, ResourceFre, Prelude, SyntaxFre, MorphoFre in { resource ExtraFre = open PredicationFre, ResourceFre, Prelude, SyntaxFre, MorphoFre, ParadigmsFre in {
oper oper
avoirBesoin: CN -> VP = \medicine -> avoirBesoin: CN -> VP = \medicine ->
PosVG ( PredTV tvAvoir (DetNP nullDet ( PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (
AppFun (funDe (mkCNomReg "besoin" Masc) ** {lock_Fun =<>} ) AppFun (funDe (mkCNomReg "besoin" Masc ** {lock_N =<>}))
(IndefOneNP medicine) (IndefOneNP medicine)
) )
) )
@@ -32,7 +32,7 @@ oper
nullDet : Det = mkDeterminer1 Sg "" ** {lock_Det =<>} ; nullDet : Det = mkDeterminer1 Sg "" ** {lock_Det =<>} ;
tvAvoir = mkTransVerbDir (verbPres (conj3savoir ""))** {lock_TV = <> }; --- tvAvoir = mkTransVerbDir (verbPres (conj3savoir ""))** {lock_TV = <> };
}; };

12
grammars/health/HealthFre.gf
View File

@@ -3,7 +3,7 @@
-- use this path to read the grammar from the same directory -- use this path to read the grammar from the same directory
--# -path=.:../newresource/abstract:../prelude:../newresource/french:../newresource/romance --# -path=.:../newresource/abstract:../prelude:../newresource/french:../newresource/romance
concrete HealthFre of Health = open PredicationFre, ResourceFre, Prelude, SyntaxFre, MorphoFre, ExtraFre in { concrete HealthFre of Health = open PredicationFre, ResourceFre, Prelude, SyntaxFre, MorphoFre, ExtraFre, ParadigmsFre in {
-- 1. still using "à" instead of "aux" in PainIn operations -- 1. still using "à" instead of "aux" in PainIn operations
-- because of the UTF8 problem with non-utf8 resource grammars! -- because of the UTF8 problem with non-utf8 resource grammars!
@@ -32,11 +32,11 @@ lin
Influenza = mkCNomReg "grippe" Fem ** {lock_CN = <> }; Influenza = mkCNomReg "grippe" Fem ** {lock_CN = <> };
Malaria = mkCNomReg "malaria" Fem ** {lock_CN = <> }; Malaria = mkCNomReg "malaria" Fem ** {lock_CN = <> };
HaveIllness patient illness = predV2 tvAvoir patient (DefOneNP illness) ; HaveIllness patient illness = predV2 (tvDir vAvoir) patient (DefOneNP illness) ;
Complain = predV2 tvAvoir ; Complain = predV2 (tvDir vAvoir) ;
BeInCondition = PredVP ; BeInCondition = PredVP ;
CatchCold = PosVG (PredTV tvAvoir (IndefOneNP (mkCNomReg "rhume" Masc ** {lock_CN = <> }))); CatchCold = PosVG (PredTV (tvDir vAvoir) (IndefOneNP (mkCNomReg "rhume" Masc ** {lock_CN = <> })));
Pregnant = PosVG (PredAP (mkAdjective (adjJeune "enceinte") adjPost** {lock_AP = <> })) ; Pregnant = PosVG (PredAP (mkAdjective (adjJeune "enceinte") adjPost** {lock_AP = <> })) ;
High = AdjP1 (mkAdjReg "élevé" adjPost ** {lock_Adj1 = <> }) ; High = AdjP1 (mkAdjReg "élevé" adjPost ** {lock_Adj1 = <> }) ;
@@ -55,7 +55,7 @@ lin
FeverMod degree = DetNP (delDet ** {lock_Det = <> }) (ModAdj degree (mkCNomReg "fièvre" Fem** {lock_CN = <> })) ; FeverMod degree = DetNP (delDet ** {lock_Det = <> }) (ModAdj degree (mkCNomReg "fièvre" Fem** {lock_CN = <> })) ;
Fever = DetNP (delDet ** {lock_Det = <> }) (mkCNomReg "fièvre" Fem ** {lock_CN = <> }) ; Fever = DetNP (delDet ** {lock_Det = <> }) (mkCNomReg "fièvre" Fem ** {lock_CN = <> }) ;
PainInMod patient head degree = predV2 tvAvoir patient PainInMod patient head degree = predV2 (tvDir vAvoir) patient
(DetNP (nullDet ** {lock_Det = <> }) (DetNP (nullDet ** {lock_Det = <> })
( ModAdj degree ( ModAdj degree
( (
@@ -65,7 +65,7 @@ lin
) )
) ; ) ;
PainIn patient head = predV2 tvAvoir patient PainIn patient head = predV2 (tvDir vAvoir) patient
(DetNP (nullDet ** {lock_Det = <> }) (DetNP (nullDet ** {lock_Det = <> })
( (
AppFun AppFun