diff options
| author | aarne <unknown> | 2004-01-21 14:06:34 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-01-21 14:06:34 +0000 |
| commit | 7362e70af9bae99dc0af5e1460f5d5c00db86145 (patch) | |
| tree | 6458b5b7725630ae1e99e4eb1d4225032046a3aa | |
| parent | 74e0e1196480231a962fdc23df615628cbd17b7b (diff) | |
Quick fix in French.
| -rw-r--r-- | grammars/health/ExtraFre.gf | 8 | ||||
| -rw-r--r-- | grammars/health/HealthFre.gf | 12 |
2 files changed, 10 insertions, 10 deletions
diff --git a/grammars/health/ExtraFre.gf b/grammars/health/ExtraFre.gf index 5f1f995e4..25b6aa302 100644 --- a/grammars/health/ExtraFre.gf +++ b/grammars/health/ExtraFre.gf @@ -5,12 +5,12 @@ --
-- 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
avoirBesoin: CN -> VP = \medicine ->
- PosVG ( PredTV tvAvoir (DetNP nullDet (
- AppFun (funDe (mkCNomReg "besoin" Masc) ** {lock_Fun =<>} )
+ PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (
+ AppFun (funDe (mkCNomReg "besoin" Masc ** {lock_N =<>}))
(IndefOneNP medicine)
)
)
@@ -32,7 +32,7 @@ oper nullDet : Det = mkDeterminer1 Sg "" ** {lock_Det =<>} ;
- tvAvoir = mkTransVerbDir (verbPres (conj3savoir ""))** {lock_TV = <> };
+--- tvAvoir = mkTransVerbDir (verbPres (conj3savoir ""))** {lock_TV = <> };
};
diff --git a/grammars/health/HealthFre.gf b/grammars/health/HealthFre.gf index cc5bfaa33..677daaee8 100644 --- a/grammars/health/HealthFre.gf +++ b/grammars/health/HealthFre.gf @@ -3,7 +3,7 @@ -- use this path to read the grammar from the same directory
--# -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
-- because of the UTF8 problem with non-utf8 resource grammars!
@@ -32,11 +32,11 @@ lin Influenza = mkCNomReg "grippe" Fem ** {lock_CN = <> };
Malaria = mkCNomReg "malaria" Fem ** {lock_CN = <> };
- HaveIllness patient illness = predV2 tvAvoir patient (DefOneNP illness) ;
- Complain = predV2 tvAvoir ;
+ HaveIllness patient illness = predV2 (tvDir vAvoir) patient (DefOneNP illness) ;
+ Complain = predV2 (tvDir vAvoir) ;
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 = <> })) ;
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 = <> })) ;
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 = <> })
( ModAdj degree
(
@@ -65,7 +65,7 @@ lin )
) ;
- PainIn patient head = predV2 tvAvoir patient
+ PainIn patient head = predV2 (tvDir vAvoir) patient
(DetNP (nullDet ** {lock_Det = <> })
(
AppFun
|