GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 10:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
janna
2004-02-02 22:37:51 +00:00
parent f63e213ec9
commit 294cb085f7
3 changed files with 97 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
grammars/health/ExtraIta.gf
View File

@@ -2,20 +2,16 @@
--
-- Aarne Ranta, Janna Khegai 2003
resource ExtraIta = open ResourceIta, Prelude, SyntaxIta, MorphoIta in {
resource ExtraIta = open PredicationIta, Prelude, SyntaxIta, MorphoIta, ResourceIta in {
oper
NPLock = NounPhrase ** {lock_NP : {}} ;
CNLock = CommNounPhrase ** {lock_CN : {}} ;
SLock = Sentence ** {lock_S : {}} ;
oper
averBisogno : CN -> VP = \cn ->
PosVG (PredTV (mkTransVerbPrep (verbPres avere) "bisogno"** {lock_TV = <>}) (IndefOneNP cn)) ;
-- the following are too low-level and should be provided by the resources
injuredBody: AP -> NPLock -> CNLock -> SLock = \injured, patient, head ->
injuredBody: AP -> NP -> CN -> S = \injured, patient, head ->
(PredVP patient
{s = \\g,v => pronRefl patient.n patient.p ++
verbEssere.s ! v ++
@@ -29,10 +25,6 @@ oper
datAdv : NP -> AdV = \np ->
{s = np.s ! Aton dative; lock_AdV = <> } ;
-- from Predication:
predV2: TransVerb -> NPLock -> NounPhrase -> SLock = \F, x, y ->
predVerbPhrase x ((predVerbGroup True) (complTransVerb F y)) ** { lock_S = <>} ;
};

51
grammars/health/HealthResourceIta.gf
View File

@@ -1,11 +1,21 @@
-- use this path to read the grammar from the same directory
--# -path=.:../newresource/abstract:../prelude:../newresource/italian:../newresource/romance
concrete HealthIta of Health = open ResourceIta, Prelude, SyntaxIta, ExtraIta, MorphoIta in {
concrete HealthIta of Health = open ResourceIta, Prelude, SyntaxIta, ExtraIta, MorphoIta, ParadigmsIta, ResourceExtIta, PredicationIta in {
flags
startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
lincat
Patient = NP ;
BodyPart = CN ;
Symptom = NP ;
SymptomDegree = AP ;
Prop = S ;
Illness = CN ;
Condition = VP ;
Specialization = CN ;
Medicine = CN ;
lin
ShePatient = SheNP ;
TheyPatient = TheyNP ;
@@ -17,31 +27,14 @@ lin
illness) ;
BeInCondition = PredVP ;
CatchCold =
PosTV (tvDir vAvere) (IndefOneNP (mkCN (nSale "raffreddore"
masculine))) ;
CatchCold = PosTV (tvDir vAvere) (IndefOneNP (mkCN (nSale "raffreddore" masculine))) ;
Pregnant = PosA (apSolo "gravido" postpos) ;
Complain = predV2 (tvDir vAvere) ;
PainInMod pat loc deg =
PredVP pat
(AdvVP (PosTV (tvDir vAvere)
(IndefOneNP (ModAdj deg (mkCN (nSale "dolore"
masculine)))))
(datAdv (DefOneNP loc))) ;
FeverMod deg = partitNP (ModAdj deg (mkCN (nSale "febbre" feminine)));
PainIn pat loc =
PredVP pat (AdvVP (PosV (averCosa "male")) (datAdv (DefOneNP loc))) ;
Fever = partitNP (mkCNomReg (nSale "febbre" feminine)) ;
High = apSolo "alto" postpos ;
Terrible = apTale "terribile" postpos ;
Fever = partitNP (mkCN (nSale "febbre" feminine)) ;
Head = mkCN (nRana "testa") ;
Leg = mkCN (nRana "gamba") ;
@@ -49,14 +42,22 @@ masculine)))))
PainKiller = mkCN (nSale "calmante" masculine) ;
NeedDoctor pat doc = PredVP pat (averBisogno doc) ;
NeedMedicine pat med = PredVP pat (averBisogno med) ;
TakeMedicine pat med = predV2 (tvDir (vCorrere "prendere")) pat
(IndefOneNP med) ;
TakeMedicine pat med = predV2 (tvDir (vCorrere "prendere" "")) pat (IndefOneNP med) ;
Injured = injuredBody (mkAdjective (adjSolo "ferito") True) ;
Broken = injuredBody (mkAdjective (adjSolo "rotto") True) ;
Injured = injuredBody (apSolo "ferito" prepos) ;
Broken = injuredBody (apSolo "rotto" prepos) ;
And = conjS ;
-- FeverMod deg = partitNP (ModAdj deg (mkCN (nSale "febbre" feminine)));
-- High = apSolo "alto" postpos ;
-- Terrible = apTale "terribile" postpos ;
-- PainInMod pat loc deg =
-- PredVP pat
-- (AdvVP (PosTV (tvDir vAvere)
-- (IndefOneNP (ModAdj deg (mkCN (nSale "dolore" masculine)))))
-- (datAdv (DefOneNP loc))) ;
};