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

*** empty log message ***

Browse Source
This commit is contained in:
janna
2004-12-08 22:16:18 +00:00
parent c63d8d88da
commit 8c252ebd5c
6 changed files with 62 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
grammars/health/HealthRus.gf
View File

@@ -65,7 +65,7 @@ lin
Antidepressant = IndefOneNP (UseN ( antidepressant**{lock_N = <>})); Antidepressant = IndefOneNP (UseN ( antidepressant**{lock_N = <>}));
PainKiller = IndefOneNP (UseN ( obezbolivauchee**{lock_N = <>})); PainKiller = IndefOneNP (UseN ( obezbolivauchee**{lock_N = <>}));
Fever = mkNounPhrase Sg (UseN ( temperatura**{lock_N = <>}))** {lock_NP = <>}; Fever = mkNounPhrase singular (UseN ( temperatura**{lock_N = <>}))** {lock_NP = <>};
BeInCondition = PredVP ; BeInCondition = PredVP ;
CatchCold = PosVG (PredAP (AdjP1 (prostuzhen ** {lock_Adj1 = <>}))) ; CatchCold = PosVG (PredAP (AdjP1 (prostuzhen ** {lock_Adj1 = <>}))) ;
Pregnant = PosVG (PredAP (AdjP1 (beremenen ** {lock_Adj1 = <>}))) ; Pregnant = PosVG (PredAP (AdjP1 (beremenen ** {lock_Adj1 = <>}))) ;
@@ -78,7 +78,7 @@ lin
(extVerb verbSlomat active past)**{lock_TV = <>}) patient (mkNounPhrase patient.n painkiller ** {lock_NP = <>}) ; (extVerb verbSlomat active past)**{lock_TV = <>}) patient (mkNounPhrase patient.n painkiller ** {lock_NP = <>}) ;
HaveIllness patient symptom = U_predTransVerb true tvHave HaveIllness patient symptom = U_predTransVerb true tvHave
patient (mkNounPhrase Sg symptom ** {lock_NP = <>}) ; patient (mkNounPhrase singular symptom ** {lock_NP = <>}) ;
Complain = U_predTransVerb true tvHave ; Complain = U_predTransVerb true tvHave ;
NeedDoctor = predNeedShortAdjective true ; NeedDoctor = predNeedShortAdjective true ;
@@ -101,11 +101,11 @@ lin
-- High = AdjP1 (extAdjective vusokij ** {lock_Adj1 = <>}); -- High = AdjP1 (extAdjective vusokij ** {lock_Adj1 = <>});
-- Terrible = AdjP1 (extAdjective uzhasnuj ** {lock_Adj1 = <>}); -- Terrible = AdjP1 (extAdjective uzhasnuj ** {lock_Adj1 = <>});
-- FeverMod degree = mkNounPhrase Sg -- FeverMod degree = mkNounPhrase singular
-- (ModAdj degree (UseN ( temperatura**{lock_N = <>}))) ** {lock_NP = <>}; -- (ModAdj degree (UseN ( temperatura**{lock_N = <>}))) ** {lock_NP = <>};
-- PainInMod patient head degree = U_predTransVerb true (mkDirectVerb -- PainInMod patient head degree = U_predTransVerb true (mkDirectVerb
-- (extVerb have Act Present) ** {lock_TV =<>}) patient -- (extVerb have Act Present) ** {lock_TV =<>}) patient
-- (mkNounPhrase Sg (ModAdj degree -- (mkNounPhrase singular (ModAdj degree
--(AppFun (mkFun bol "в" Prepos ** {lock_Fun = <>}) --(AppFun (mkFun bol "в" Prepos ** {lock_Fun = <>})
-- (mkNounPhrase patient.n head** {lock_NP = <>}))) ** {lock_NP =<>}); -- (mkNounPhrase patient.n head** {lock_NP = <>}))) ** {lock_NP =<>});
}; };

11
grammars/health/HealthSwe.gf
View File

@@ -1,7 +1,8 @@
-- The UTF8 version currently differs from the non-UTF8 !!! -- The UTF8 version currently differs from the non-UTF8 !!!
-- The difference with the UTF8 version is that -- The difference with the UTF8 version is that
-- operation "verbVara" doesn't need to be replaced -- operations "verbVara" (vbVara see ExtraSweU.gf)
-- and "predAP" (predAP, see ExtraSweU.gf) need to be replaced
-- using the UTF8 encoding (because of the UTF8 problem -- using the UTF8 encoding (because of the UTF8 problem
-- with UTF8 resource grammars) -- with UTF8 resource grammars)
@@ -100,10 +101,10 @@ lin
Leg = UseN (nRep "ben") ; Leg = UseN (nRep "ben") ;
Stomac = UseN (nPojke "mage") ; Stomac = UseN (nPojke "mage") ;
Throat = UseN (nBil "hals") ; Throat = UseN (nBil "hals") ;
Ear = UseN (mkN "öra" "örat" "öron" "öronen" Neutr NoMasc) ; Ear = UseN (mkN "öra" "örat" "öron" "öronen" neutrum nonmasculine) ;
Chest = UseN (nRep "bröst") ; Chest = UseN (nRep "bröst") ;
Foot = UseN (mkN "fot" "foten" "fötter" "fötterna" Utr NoMasc) ; Foot = UseN (mkN "fot" "foten" "fötter" "fötterna" utrum nonmasculine) ;
Arm = UseN (mkN "hand" "handen" "händer" "händerna" Utr NoMasc) ; Arm = UseN (mkN "hand" "handen" "händer" "händerna" utrum nonmasculine) ;
Back = UseN (nBil "rygg") ; Back = UseN (nBil "rygg") ;
Shoulder = UseN (nNyckel "axel") ; Shoulder = UseN (nNyckel "axel") ;
@@ -115,7 +116,7 @@ lin
-- DetNP (nullDet ** {lock_Det = <>}) -- DetNP (nullDet ** {lock_Det = <>})
-- ( modCommNounPhrase degree -- ( modCommNounPhrase degree
-- ( AppFun -- ( AppFun
-- ((mkFun (extCommNoun NoMasc (sBil "ont")) "i") ** {lock_Fun = <>}) -- ((mkFun (extCommNoun nonmasculine (sBil "ont")) "i") ** {lock_Fun = <>})
-- ((defNounPhrase patient.n head)** {lock_NP = <>}) -- ((defNounPhrase patient.n head)** {lock_NP = <>})
-- ) ** {lock_CN = <>} -- ) ** {lock_CN = <>}
-- ) -- )

6
lib/resource-0.6/english/TestResourceEng.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../../prelude --# -path=.:../abstract:../../prelude
concrete TestResourceEng of TestResource = StructuralEng ** open SyntaxEng in { concrete TestResourceEng of TestResource = StructuralEng ** open SyntaxEng, ParadigmsEng in {
flags startcat=Phr ; lexer=textlit ; parser=chart ; unlexer=text ; flags startcat=Phr ; lexer=textlit ; parser=chart ; unlexer=text ;
@@ -34,8 +34,8 @@ lin
Give = mkDitransVerb (verbNoPart (mkVerb "give" "gave" "given")) [] [] ; Give = mkDitransVerb (verbNoPart (mkVerb "give" "gave" "given")) [] [] ;
Prefer = mkDitransVerb Prefer = mkDitransVerb
(verbNoPart (mkVerb "prefer" "preferred" "preferred")) [] "to" ; (verbNoPart (mkVerb "prefer" "preferred" "preferred")) [] "to" ;
Mother = funOfReg "mother" Hum ; Mother = funOfReg "mother" human ;
Uncle = funOfReg "uncle" Hum ; Uncle = funOfReg "uncle" human ;
Connection = cnNoHum (nounReg "connection") ** {s2 = "from" ; s3 = "to"} ; Connection = cnNoHum (nounReg "connection") ** {s2 = "from" ; s3 = "to"} ;
Always = advPre "always" ; Always = advPre "always" ;

38
lib/resource-0.6/russian/TestResourceRus.gf
View File

@@ -1,6 +1,6 @@
-- use this path to read the grammar from the same directory -- use this path to read the grammar from the same directory
--# -path=.:../abstract:../../prelude --# -path=.:../abstract:../../prelude
concrete TestResourceRus of TestResource = StructuralRus ** open SyntaxRus in { concrete TestResourceRus of TestResource = StructuralRus ** open SyntaxRus, ParadigmsRus in {
flags flags
coding=utf8 ; coding=utf8 ;
@@ -14,16 +14,16 @@ lin
Old = staruj ; Old = staruj ;
Young = molodoj ; Young = molodoj ;
Connection = (noun2CommNounPhrase (doroga) )** {s2 = "из" ; c = Gen; s3 = "в"; c2=Acc} ; Connection = (noun2CommNounPhrase (doroga) )** {s2 = "из" ; c = genitive; s3 = "в"; c2=accusative} ;
American = ij_EndK_G_KH_Decl "американск" ; -- adj1Malenkij from Paradigms American = ij_EndK_G_KH_Decl "американск" ; -- adj1Malenkij from Paradigms
Finnish = ij_EndK_G_KH_Decl "финск" ; -- adj1Malenkij from Paradigms Finnish = ij_EndK_G_KH_Decl "финск" ; -- adj1Malenkij from Paradigms
Married = adjInvar "замужем" ** {s2 = "за"; c = Inst} ; -- adjinvar from Paradigms Married = adjInvar "замужем" ** {s2 = "за"; c = instructive} ; -- adjinvar from Paradigms
Give = mkDitransVerb (extVerb verbDavat Act Present) Acc Dat; Give = mkDitransVerb (extVerb verbDavat active present) accusative dative;
Prefer = mkDitransVerb (extVerb verbPredpochitat Act Present) Acc Dat ; Prefer = mkDitransVerb (extVerb verbPredpochitat active present) accusative dative ;
Bar = bar ; Bar = bar ;
Bottle = butyulka ; Bottle = butyulka ;
Wine = vino ; Wine = vino ;
Drink = mkDirectVerb (extVerb verbPit Act Present ) ; Drink = mkDirectVerb (extVerb verbPit active present ) ;
Happy = schastlivyuj ; Happy = schastlivyuj ;
Man = muzhchina ; Man = muzhchina ;
@@ -31,22 +31,22 @@ lin
Car = mashina ; Car = mashina ;
House = dom ; House = dom ;
Light = svet ; Light = svet ;
Walk = extVerb verbGulyat Act Present ; Walk = extVerb verbGulyat active present ;
Run = extVerb verbBegat Act Present ; Run = extVerb verbBegat active present ;
Love = mkDirectVerb (extVerb verbLubit Act Present ) ; Love = mkDirectVerb (extVerb verbLubit active present ) ;
Send = mkDirectVerb (extVerb verbOtpravlyat Act Present ) ; Send = mkDirectVerb (extVerb verbOtpravlyat active present ) ;
Wait = mkDirectVerb (extVerb verbZhdat Act Present ); Wait = mkDirectVerb (extVerb verbZhdat active present );
Say = extVerb verbGovorit Act Present ; --- works in present tense... Say = extVerb verbGovorit active present ; --- works in present tense...
Prove = extVerb verbDokazuvat Act Present ; Prove = extVerb verbDokazuvat active present ;
SwitchOn = mkDirectVerb (extVerb verbVkluchat Act Present ) ; SwitchOn = mkDirectVerb (extVerb verbVkluchat active present ) ;
SwitchOff = mkDirectVerb (extVerb verbVukluchat Act Present ) ; SwitchOff = mkDirectVerb (extVerb verbVukluchat active present ) ;
Mother = funGen mama ; -- Mother = funGen (mama **{lock_N =<>}) ;
Uncle = funGen dyadya ; -- Uncle = funGen (dyadya **{lock_N =<>});
Always = vsegda ; Always = vsegda ;
Well = chorosho ; Well = chorosho ;
John = mkProperNameMasc "Иван" Animate ; John = mkProperNameMasc "Иван" animate ;
Mary = mkProperNameFem "Маш" Animate ; Mary = mkProperNameFem "Маш" animate ;
}; };

10
lib/resource-0.6/swedish/ParadigmsSwe.gf
View File

@@ -48,6 +48,7 @@ oper
plural : Number ; plural : Number ;
--2 Nouns --2 Nouns
-- Worst case: give all nominative forms and the gender. -- Worst case: give all nominative forms and the gender.
@@ -159,6 +160,11 @@ oper
-- The worst case needs three forms: the infinitive, the indicative, and the -- The worst case needs three forms: the infinitive, the indicative, and the
-- imperative. -- imperative.
Voice: Type;
passive : Voice;
active: Voice;
mkV : (_,_,_ : Str) -> V ; -- vara, är, var; trivas, trivs, trivs mkV : (_,_,_ : Str) -> V ; -- vara, är, var; trivas, trivs, trivs
-- The main conjugations need one string each. -- The main conjugations need one string each.
@@ -210,6 +216,7 @@ oper
Sex = SyntaxSwe.Sex ; Sex = SyntaxSwe.Sex ;
Case = SyntaxSwe.Case ; Case = SyntaxSwe.Case ;
Number = SyntaxSwe.Number ; Number = SyntaxSwe.Number ;
Voice = SyntaxSwe.Voice ;
utrum = Utr ; utrum = Utr ;
neutrum = Neutr ; neutrum = Neutr ;
@@ -220,6 +227,9 @@ oper
singular = Sg ; singular = Sg ;
plural = Pl ; plural = Pl ;
active = Act;
passive = Pass;
mkN = \apa, apan, apor, aporna, g, x -> let mkN = \apa, apan, apor, aporna, g, x -> let
{nom = table { {nom = table {
SF Sg Indef _ => apa ; SF Sg Indef _ => apa ;

40
lib/resource-0.6/swedish/TestResourceSwe.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:../abstract:../../prelude --# -path=.:../abstract:../../prelude
concrete TestResourceSwe of TestResource = StructuralSwe ** open SyntaxSwe in { concrete TestResourceSwe of TestResource = StructuralSwe ** open SyntaxSwe, ParadigmsSwe in {
flags startcat=Phr ; lexer=text ; unlexer=text ; flags startcat=Phr ; lexer=text ; unlexer=text ;
@@ -15,16 +15,16 @@ lin
Finnish = extAdjective (aFin "finsk") ; Finnish = extAdjective (aFin "finsk") ;
Happy = aFin "lycklig" ; Happy = aFin "lycklig" ;
Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ; Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
Man = extCommNoun Masc man_1144 ; Man = extCommNoun masculine man_1144 ;
Bar = extCommNoun NoMasc (sSak "bar") ; Bar = extCommNoun nonmasculine (sSak "bar") ;
Bottle = extCommNoun NoMasc (sApa "flask") ; Bottle = extCommNoun nonmasculine (sApa "flask") ;
Woman = extCommNoun NoMasc (sApa "kvinn") ; Woman = extCommNoun nonmasculine (sApa "kvinn") ;
Car = extCommNoun NoMasc (sBil "bil") ; Car = extCommNoun nonmasculine (sBil "bil") ;
House = extCommNoun NoMasc (sHus "hus") ; House = extCommNoun nonmasculine (sHus "hus") ;
Light = extCommNoun NoMasc (sHus "ljus") ; Light = extCommNoun nonmasculine (sHus "ljus") ;
Wine = extCommNoun NoMasc (sParti "vin") ; Wine = extCommNoun nonmasculine (sParti "vin") ;
Walk = extVerb Act gå_1174 ; Walk = extVerb active gå_1174 ;
Run = extVerb Act (vFinna "spring" "sprang" "sprung") ; Run = extVerb active (vFinna "spring" "sprang" "sprung") ;
Drink = extTransVerb (vFinna "drick" "drack" "druck") [] ; Drink = extTransVerb (vFinna "drick" "drack" "druck") [] ;
Love = extTransVerb (vTala "älsk") [] ; Love = extTransVerb (vTala "älsk") [] ;
Send = extTransVerb (vTala "skick") [] ; Send = extTransVerb (vTala "skick") [] ;
@@ -33,19 +33,19 @@ lin
Prefer = extTransVerb (vFinna "föredrag" "föredrog" "föredrag") [] ** Prefer = extTransVerb (vFinna "föredrag" "föredrog" "föredrag") [] **
{s3 = "framför"} ; --- föredra {s3 = "framför"} ; --- föredra
Say = extVerb Act (vLeka "säg") ; --- works in present tense... Say = extVerb active (vLeka "säg") ; --- works in present tense...
Prove = extVerb Act (vTala "bevis") ; Prove = extVerb active (vTala "bevis") ;
SwitchOn = mkDirectVerb (extVerbPart Act (vFinna "sätt" "satte" "satt") "på") ; SwitchOn = mkDirectVerb (extVerbPart active (vFinna "sätt" "satte" "satt") "på") ;
SwitchOff = mkDirectVerb (extVerbPart Act (vLeka "stäng") "av") ; SwitchOff = mkDirectVerb (extVerbPart active (vLeka "stäng") "av") ;
Mother = mkFun (extCommNoun NoMasc mor_1) "till" ; Mother = mkFun (extCommNoun nonmasculine mor_1**{lock_N = <>}) "till" ;
Uncle = mkFun (extCommNoun Masc farbror_8) "till" ; Uncle = mkFun (extCommNoun masculine farbror_8 **{lock_N = <>}) "till" ;
Connection = mkFun (extCommNoun NoMasc (sVarelse "förbindelse")) "från" ** Connection = mkFun (extCommNoun nonmasculine (sVarelse "förbindelse")**{lock_N = <>}) "från" **
{s3 = "till"} ; {s3 = "till"} ;
Always = advPre "alltid" ; Always = advPre "alltid" ;
Well = advPost "bra" ; Well = advPost "bra" ;
John = mkProperName "Johan" Utr Masc ; John = mkProperName "Johan" utrum masculine ;
Mary = mkProperName "Maria" Utr NoMasc ; Mary = mkProperName "Maria" utrum nonmasculine ;
} ; } ;