GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-28 20:36:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

copy files over from GF-latin

Browse Source
This commit is contained in:
Herbert Lange
2019-01-14 16:40:07 +01:00
parent 579bdfcca5
commit 58c8cf70ea
492 changed files with 6213807 additions and 809 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/latin/MorphoLat.gf
+125 -17
View File
@@ -8,7 +8,7 @@
-- syntax. To build a lexicon, it is better to use $ParadigmsLat$, which
-- gives a higher-level access to this module.
resource MorphoLat = ParamX, ResLat ** open Prelude in {
resource MorphoLat = ParamX, ResLat ** open Prelude, Predef in {
--
-- flags optimize=all ;
--
@@ -149,18 +149,18 @@ oper
noun_ngg : Str -> Str -> Gender -> Noun = \verbum,verbi,g ->
let s : Noun = case <verbum,verbi> of {
<_ + "a", _ + "ae"> => noun1 verbum ;
<_ + "us", _ + "i"> => noun2us verbum ;
<_ + "um", _ + "i"> => noun2um verbum ;
<_ + ( "er" | "ir" ) , _ + "i"> => noun2er verbum verbi ;
<_ + "us", _ + "us"> => noun4us verbum ;
<_ + "u", _ + "us"> => noun4u verbum ;
<_ + "es", _ + "ei"> => noun5 verbum ;
<_ + "a" , _ + "ae"> => noun1 verbum ;
<_ + "us" , _ + "i" > => noun2us verbum ;
<_ + "um" , _ + "i" > => noun2um verbum ;
<_ + ( "er" | "ir" ) , _ + "i" > => noun2er verbum verbi ;
<_ + "us" , _ + "us"> => noun4us verbum ;
<_ + "u" , _ + "us"> => noun4u verbum ;
<_ + "es" , _ + "ei"> => noun5 verbum ;
<semi + "bos" , _ > => prefixNoun semi (noun3 "bos" "bovis" Masc) ;
_ => noun3 verbum verbi g
}
in
nounWithGen g s ;
nounWithGender g s ;
noun : Str -> Noun = \verbum ->
case verbum of {
@@ -170,6 +170,7 @@ oper
_ + ( "er" | "ir" ) => noun2er verbum ( (Predef.tk 2 verbum) + "ri" ) ;
_ + "u" => noun4u verbum ;
_ + "es" => noun5 verbum ;
semi + "bos" => prefixNoun semi (noun_ngg "bos" "bovis" Masc) ;
_ => Predef.error ("3rd declinsion cannot be applied to just one noun form " ++ verbum)
} ;
@@ -179,7 +180,7 @@ oper
_ + "a" => noun1 verbum ;
_ + "us" => noun2us verbum ;
_ + "um" => noun2um verbum ;
_ + ( "er" | "ir" ) =>
_ + ( "er" | "ir" | "ur" | "tr") =>
let
puer = verbum ;
pue = Predef.tk 1 puer ;
@@ -189,6 +190,7 @@ oper
-- Exception of adjectives where e is part of the word stem 31 3.2
("asper" | "miser" | "tener" | "frugifer") + _ => "e";
-- "liber" => ( "e" | "" ) ; conflicting with noun liber
_ + "tr" => "t";
_ => ""
} ;
pu = Predef.tk 1 pue ;
@@ -310,6 +312,8 @@ oper
-- Usual cases
pulch + "er" => pulch + "r" ;
bon + "us" => bon ;
cam + "ur" => cam ;
dime + "tr" => bonus ;
_ => Predef.error ("adj12 does not apply to" ++ bonus)
} ;
nbonus = (noun12 bonus) ;
@@ -334,9 +338,10 @@ oper
(noun1 (bon + "a"))
(noun2um (bon + "um"))
< compsup.p1 , advs.p1 >
< compsup.p2 , advs.p2 > ;
< compsup.p2 , advs.p2 >
(bon + "o") (bon + "ius") (bon + "issimo") ;
adj3x : (_,_ : Str) -> Adjective = \acer,acris ->
adj3x : (_,_ : Str) -> Adjective = \acer,acris -> -- FISHY??
let
ac = Predef.tk 2 acer ;
acrise : Str * Str = case acer of {
@@ -353,16 +358,104 @@ oper
(noun3adj acrise.p2 acris Neutr)
< compsuper.p1 , "" >
< compsuper.p2 , "" >
;
(ac + "riter") (ac + "rius") (ac + "rissimo") ;
adjgre : Str -> Str -> Str -> Adjective = \bonus,bona,bonum ->
let
first : Str -> Agr => Str =
\stem ->
table { Ag Masc Sg Nom => stem + "os" ;
Ag (Masc | Neutr) Sg Gen => stem + "ou" ;
Ag (Masc | Neutr) Sg Dat => stem + "oi" ;
Ag (Masc | Neutr) Sg Acc => stem + "on" ;
Ag Masc Sg Voc => stem + "e" ;
Ag Fem Sg (Nom | Voc) => stem + "a" ;
Ag Fem Sg Gen => stem + "as" ;
Ag Fem Sg Dat => stem + "ai" ;
Ag Fem Sg Acc => stem + "an" ;
Ag Neutr Sg (Nom | Voc) => stem + "on" ;
Ag Masc Pl (Nom | Voc) => stem + "oi" ;
Ag (Masc | Fem | Neutr) Pl Gen => stem + "on" ;
Ag (Masc | Neutr) Pl Dat => stem + "ois" ;
Ag Masc Pl Acc => stem + "ous" ;
Ag Fem Pl (Nom | Voc) => stem + "ai" ;
Ag Fem Pl Dat => stem + "ais" ;
Ag Fem Pl Acc => stem + "as" ;
Ag Neutr Pl (Nom | Acc | Voc) => stem + "a" ;
Ag _ _ Abl => nonExist
} ;
second : Str -> Agr => Str =
\stem ->
table { Ag (Masc | Fem) Sg Nom => stem + "os" ;
Ag (Masc | Fem | Neutr) Sg Gen => stem + "ou" ;
Ag (Masc | Fem | Neutr) Sg Dat => stem + "oi" ;
Ag (Masc | Fem | Neutr) Sg Acc => stem + "on" ;
Ag (Masc | Fem) Sg Voc => stem + "e" ;
Ag Neutr Sg (Nom | Voc) => stem + "on" ;
Ag (Masc | Fem) Pl (Nom | Voc) => stem + "oi";
Ag (Masc | Fem | Neutr) Pl Gen => stem + "on" ;
Ag (Masc | Fem | Neutr) Pl Dat => stem + "ois" ;
Ag (Masc | Fem) Pl Acc => stem + "ous" ;
Ag Neutr Pl (Nom | Acc | Voc) => stem + "a" ;
Ag _ _ Abl => nonExist
} ;
third : Str -> Agr => Str =
\stem ->
table { Ag (Masc | Fem | Neutr) Sg (Nom | Voc) => stem + "es" ;
Ag (Masc | Fem | Neutr) Sg Gen => stem + "ous" ;
Ag (Masc | Fem | Neutr) Sg Dat => stem + "ei" ;
Ag (Masc | Fem) Sg Acc => stem + "e" ;
Ag Neutr Sg Acc => stem + "es" ;
Ag (Masc | Fem) Pl (Nom | Acc | Voc) => "eis" ;
Ag (Masc | Fem | Neutr) Pl Gen => "on" ;
Ag (Masc | Fem | Neutr) Pl Dat => "esi" ;
Ag Neutr Pl (Nom | Acc | Voc ) => "e" ;
Ag _ _ Abl => nonExist
} ;
in
{ s = case <bonus,bona,bonum> of {
<agi + "os" , _ + "a" , _ + "on"> =>
table { Posit => first agi ;
Compar => first (agi + "oter") ;
Super => first (agi + "otat")
} ;
<arctic + "os" , _ + "e" , _ + "on"> =>
table { Posit => second arctic ;
Compar => second (arctic + "oter") ;
Super => second (arctic + "otat")
} ;
<akapn + "os" , _ + "os", _ + "on"> =>
table { Posit => second akapn ;
Compar => second (akapn + "oter") ;
Super => second (akapn + "otat")
} ;
<isoscel + "es", _ + "es", _ + "es"> =>
table { Posit => third isoscel ;
Compar => first (isoscel + "oter") ;
Super => first (isoscel + "otat")
} ;
<amethystiz + "on", _ + "ousa", _ + "on"> =>
table { Posit => table { Ag g Sg c => first amethystiz ! Ag g Sg c ;
Ag g Pl c => third amethystiz ! Ag g Sg c
} ;
Compar => \\_ => nonExist ;
Super => \\_ => nonExist
};
_ => error ("Greek adjective " ++ bonus ++ bona ++ bonum ) -- { s = \\_,_ => "" ; adv = \\_ => ""} ;
} ;
adv = mkAdverb bonus
} ;
-- smart paradigms
adj123 : Str -> Str -> Adjective = \bonus,boni ->
adj123 : Str -> Str -> Adjective = \bonus,boni ->
case <bonus,boni> of {
<_ + ("us" | "er"), _ + "i" > => adj12 bonus ;
<_ + ("us" | "er"), _ + "is"> => adj3x bonus boni ;
<_ , _ + "is"> => adj3x bonus boni ;
<_ + "is" , _ + "e" > => adj3x bonus boni ;
<_ + "is" , _ + "os"> => adj3x bonus boni ;
-- <_ + "os" , _ + "on"> => adjgre bonus boni boni ;
<bon + "on" , _ + "os"> => adjgre bonus (bon + "ousa") bonus ;
_ => Predef.error ("adj123: not applicable to" ++ bonus ++ boni)
} ;
@@ -372,8 +465,18 @@ oper
facil + "is" => adj3x bonus bonus ;
feli + "x" => adj3x bonus (feli + "cis") ;
_ => adj3x bonus (bonus + "is") ---- any example?
} ;
} ;
adjfull : (bonus,bona,bonum : Str) -> Adjective = \bonus,bona,bonum ->
case <bonus,bona,bonum> of {
<_ + ("er"|"us"|"ur"|"tr"), _ + "a" , _ + "um"> => adj12 bonus ;
<_ + ("er"|"is"), _ + "is" , _ + "e" > => adj3x bonus bonum ; -- FISHY?
<_ + "ior" , _ + "ior", _ + "ius"> => adj3x bonus bonum ; -- FISHY?
<_ + "os" , _ + "os" , _ + "on"> => adjgre bonus bona bonum ;
<_ + "es" , _ + "es" , _ + "es"> => adjgre bonus bona bonum ;
<_ + "os" , _ + ("e"|"a") , _ + "on"> => adjgre bonus bona bonum ;
_ => Predef.error ("Not supported" ++ bonus ++ bona ++ bonum)
} ;
----3 Verbs
@@ -605,6 +708,8 @@ oper
_ + ( "i" | "u" ) + "o" => verb3i iacere ieci iactus ; -- Bayer-Linduaer 74 1
_ => verb3c iacere ieci iactus
} ;
ab + "esse" => prefixVerb ab esseAux ;
circum + "ferre" => prefixVerb circum ferreAux ;
_ => Predef.error ("verb_ippp: illegal infinitive form" ++ iacere)
} ;
@@ -618,6 +723,9 @@ oper
_ + "ire" => let iaci = Predef.tk 2 iacere
in verb4 iacere ; -- (iaci + "vi") (iaci + "tus") ;
_ + "ere" => verb2 iacere ;
circum + "ferre" => prefixVerb circum ferreAux ;
ab + "esse" => prefixVerb ab esseAux ;
prae + "posse" => prefixVerb prae posseAux ;
_ => Predef.error ("verb: illegal infinitive form" ++ iacere)
} ;
}