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

*** empty log message ***

Browse Source
This commit is contained in:
janna
2004-12-08 22:16:18 +00:00
parent ee06fa4543
commit b020b1952b
4 changed files with 52 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
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
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
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
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 ;
} ; } ;