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

fixed bug in latin 3rd conjugation; added PP adverbs

Browse Source
This commit is contained in:
aarne
2008-09-19 07:15:30 +00:00
parent 279ba4823b
commit b77a44b830
3 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/next-resource/latin/AdverbLat.gf
View File

@@ -18,4 +18,4 @@ concrete AdverbLat of Adverb = CatLat ** open ResLat, Prelude in {
-- --
-- AdnCAdv cadv = {s = cadv.s ++ "than"} ; -- AdnCAdv cadv = {s = cadv.s ++ "than"} ;
-- --
--} }

2
lib/next-resource/latin/GrammarLat.gf
View File

@@ -4,7 +4,7 @@ concrete GrammarLat of Grammar =
NounLat, NounLat,
VerbLat, VerbLat,
AdjectiveLat, AdjectiveLat,
-- AdverbLat, AdverbLat,
-- NumeralLat, -- NumeralLat,
SentenceLat, SentenceLat,
-- QuestionLat, -- QuestionLat,

18
lib/next-resource/latin/ResLat.gf
View File

@@ -294,14 +294,15 @@ oper
} ; } ;
mkVerb : mkVerb :
(cela,cele,celab,celo,celare,celavi,celatus,celabo,celabunt,celabi : Str) (cela,cele,celab,celo,celant,celare,celavi,celatus,celabo,celabunt,celabi : Str)
-> Verb = -> Verb =
\cela,cele,celab,celo,celare,celavi,celatus,celabo,celabunt,celabi -> \cela,cele,celab,celo,celant,celare,celavi,celatus,celabo,celabunt,celabi ->
let let
celav = init celavi celav = init celavi
in { in {
act = table { act = table {
VAct VSim (VPres VInd) Sg P1 => celo ; VAct VSim (VPres VInd) Sg P1 => celo ;
VAct VSim (VPres VInd) Pl P3 => celant ;
VAct VSim (VPres VInd) n p => cela + actPresEnding n p ; VAct VSim (VPres VInd) n p => cela + actPresEnding n p ;
VAct VSim (VPres VConj) n p => cele + actPresEnding n p ; VAct VSim (VPres VConj) n p => cele + actPresEnding n p ;
VAct VSim (VImpf VInd) n p => celab + "ba" + actPresEnding n p ; VAct VSim (VImpf VInd) n p => celab + "ba" + actPresEnding n p ;
@@ -345,13 +346,12 @@ oper
esse_V : Verb = esse_V : Verb =
let let
esse = mkVerb "es" "si" "era" "sum" "esse" "fui" "*futus" esse = mkVerb "es" "si" "era" "sum" "sunt" "esse" "fui" "*futus"
"ero" "erunt" "eri" ; "ero" "erunt" "eri" ;
in { in {
act = table { act = table {
VAct VSim (VPres VInd) Sg P2 => "es" ; VAct VSim (VPres VInd) Sg P2 => "es" ;
VAct VSim (VPres VInd) Pl P1 => "sumus" ; VAct VSim (VPres VInd) Pl P1 => "sumus" ;
VAct VSim (VPres VInd) Pl P3 => "sunt" ;
v => esse.act ! v v => esse.act ! v
} ; } ;
inf = esse.inf inf = esse.inf
@@ -365,7 +365,7 @@ oper
cele = cel + "e" ; cele = cel + "e" ;
celavi = cela + "vi" ; celavi = cela + "vi" ;
celatus = cela + "tus" ; celatus = cela + "tus" ;
in mkVerb cela cele cela celo celare celavi celatus in mkVerb cela cele cela celo (cela + "nt") celare celavi celatus
(cela + "bo") (cela + "bunt") (cela + "bi") ; (cela + "bo") (cela + "bunt") (cela + "bi") ;
verb2 : Str -> Verb = \habere -> verb2 : Str -> Verb = \habere ->
@@ -376,7 +376,7 @@ oper
habea = habe + "a" ; habea = habe + "a" ;
habui = hab + "ui" ; habui = hab + "ui" ;
habitus = hab + "itus" ; habitus = hab + "itus" ;
in mkVerb habe habea habe habeo habere habui habitus in mkVerb habe habea habe habeo (habe + "nt") habere habui habitus
(habe + "bo") (habe + "bunt") (habe + "bi") ; (habe + "bo") (habe + "bunt") (habe + "bi") ;
verb3 : (_,_,_ : Str) -> Verb = \gerere,gessi,gestus -> verb3 : (_,_,_ : Str) -> Verb = \gerere,gessi,gestus ->
@@ -386,7 +386,7 @@ oper
gero = ger + "o" ; gero = ger + "o" ;
geri = ger + "i" ; geri = ger + "i" ;
gera = ger + "a" ; gera = ger + "a" ;
in mkVerb geri gera gere gero gerere gessi gestus in mkVerb geri gera gere gero (ger + "unt") gerere gessi gestus
(ger + "am") (ger + "ent") gere ; (ger + "am") (ger + "ent") gere ;
verb3i : (_,_,_ : Str) -> Verb = \iacere,ieci,iactus -> verb3i : (_,_,_ : Str) -> Verb = \iacere,ieci,iactus ->
@@ -396,7 +396,7 @@ oper
iaci = iac + "i" ; iaci = iac + "i" ;
iacie = iac + "ie" ; iacie = iac + "ie" ;
iacia = iac + "ia" ; iacia = iac + "ia" ;
in mkVerb iaci iacia iacie iaco iacere ieci iactus in mkVerb iaci iacia iacie iaco (iaci + "unt") iacere ieci iactus
(iac + "iam") (iac + "ient") iacie ; (iac + "iam") (iac + "ient") iacie ;
verb4 : (_,_,_ : Str) -> Verb = \sentire,sensi,sensus -> verb4 : (_,_,_ : Str) -> Verb = \sentire,sensi,sensus ->
@@ -405,7 +405,7 @@ oper
sentio = senti + "o" ; sentio = senti + "o" ;
sentia = senti + "a" ; sentia = senti + "a" ;
sentie = senti + "e" ; sentie = senti + "e" ;
in mkVerb senti sentia sentie sentio sentire sensi sensus in mkVerb senti sentia sentie sentio (senti + "unt") sentire sensi sensus
(senti + "am") (senti + "ent") sentie ; (senti + "am") (senti + "ent") sentie ;