1
0
forked from GitHub/gf-core
Files
gf-core/lib/src/latin/StructuralLat.gf

131 lines
5.9 KiB
Plaintext

concrete StructuralLat of Structural = CatLat **
open ResLat, ParadigmsLat, Prelude, IrregLat, ConstructX in
{
flags optimize=all ;
lin
above_Prep = mkPrep "super" Abl ; -- abl. L...
after_Prep = mkPrep "post" Acc ; -- acc. L...
all_Predet = ss "cuncti" ; -- L...
almost_AdA, almost_AdN = ss "quasi" ; -- L...
although_Subj = ss "quamquam" ; -- L...
always_AdV = ss "semper" ; -- L...
and_Conj = sd2 [] "et" ** {n = Pl} ; -- L...
-----b and_Conj = ss "and" ** {n = Pl} ;
because_Subj = ss "cum" ; -- L...
before_Prep = mkPrep "ante" Acc ; -- acc. L...
behind_Prep = mkPrep "a tergo" Acc ; -- acc. L...
between_Prep = mkPrep "inter" Acc ; -- acc. L...
both7and_DConj = sd2 "et" "et" ** {n = Pl} ; --L...
but_PConj = ss "sed" ; -- L...
by8agent_Prep = mkPrep "per" Abl ; -- L...
by8means_Prep = Abl_Prep ; -- L...
can8know_VV, can_VV = IrregLat.can_VV ; --L...
during_Prep = mkPrep "inter" Acc ; -- L...
either7or_DConj = sd2 "aut" "aut" ** {n = Sg} ; -- L...
everybody_NP = regNP "quisque" "quemque" "cuiusque" "cuique" "quoque" "quisque" ( Masc | Fem ) Sg ;-- regNP "quisquae" Sg ; -- L...
every_Det = mkDeterminer ( mkA "omnis" ) Pl ; -- Pons
everything_NP = regNP "omnia" "omnia" "omnium" "omnis" "omnis" "omnia" Neutr Pl ; --regNP "omnia" Pl ; -- L...
everywhere_Adv = ss "ubique" ; -- L...
few_Det = mkDeterminer ( mkA "paulus" ) Pl ; -- L...
----- first_Ord = ss "first" ; DEPRECATED
for_Prep = mkPrep "pro" Abl ; -- abl. L...
from_Prep = mkPrep "de" Abl ; -- abl. L...
he_Pron = mkPronoun Masc Sg P3 ;
here_Adv = ss "hic" ; -- L...
here7to_Adv = ss "huc" ; -- L...
here7from_Adv = ss "hinc" ; -- L...
how_IAdv = ss "qui" ; -- L...
how8many_IDet = mkDeterminer (mkA "quantus" ) Pl ; -- Pons
how8much_IAdv = ss "quantum" ; -- L...
if_Subj = ss "si" ; -- L...
in8front_Prep = mkPrep "ante" Acc ; -- acc. L...
i_Pron = mkPronoun Masc Sg P1 ;
in_Prep = mkPrep "in" ( variants { Abl ; Acc } ) ; -- L...
it_Pron = mkPronoun Neutr Sg P3 ;
less_CAdv = mkCAdv "minus" "quam" ; -- L...
many_Det = mkDeterminer ( mkA "multus" ) Pl ; -- L...
more_CAdv = mkCAdv "magis" "quam" ; -- L...
most_Predet = ss "plurimi" ; -- L...
much_Det = mkDeterminer ( mkA "multus" ) Sg ; -- L...
must_VV = mkVV ( mkV "debere" ) True ; -- L...
-----b no_Phr = ss "immo" ;
no_Utt = ss "non est" ; -- should be expressed by a short negated sentence L...
on_Prep = mkPrep "in" ( Acc | Abl ) ; -- L...
------ one_Quant = mkDeterminer Sg "one" ; -- DEPRECATED
only_Predet = ss "solum" ; -- L...
or_Conj = sd2 [] "aut" ** {n = Sg} ; -- L...
otherwise_PConj = ss "praeterea" ; -- Pons
part_Prep = mkPrep [] Gen ; -- Bayer-Lindauer 127
please_Voc = ss "queso" ; -- L...
possess_Prep = mkPrep [] Gen ; -- Bayer-Lindauer 125.2
quite_Adv = ss "admodum" ; -- or by comparation L...
she_Pron = mkPronoun Fem Sg P3 ;
so_AdA = ss "sic" ; -- L...
somebody_NP = regNP "aliquis" "aliquem" "alicuius" "clicui" "aliquo" "aliquis" ( Masc | Fem ) Sg ; -- Bayer-Lindauer 60.1
someSg_Det = mkDeterminer ( mkA "aliquis" ) Sg ; -- L...
somePl_Det = mkDeterminer ( mkA "nonnullus" ) Pl ; --L ...
something_NP = regNP "aliquid" "aliquid" "alicuius rei" "alicui rei" "aliqua re" "aliquid" Masc Sg ; -- Bayer-Lindauer 60.1
somewhere_Adv = ss "usquam" ; -- L...
that_Quant = ille_Quantifier ;
that_Subj = ss "ut" ; -- L...
there_Adv = ss "ibi" ; -- loc. L...
there7to_Adv = ss "eo" ; -- Pons
there7from_Adv = ss "inde" ; -- Pons
therefore_PConj = ss "ergo" ; -- L...
they_Pron = mkPronoun Masc Pl P3 ;
this_Quant = hic_Quantifier ;
through_Prep = mkPrep "per" Acc ; -- L...
too_AdA = ss "quoque" ; -- L...
to_Prep = mkPrep "ad" Acc; -- L...
under_Prep = mkPrep "sub" Acc ; -- L...
very_AdA = ss "valde" ; -- L...
want_VV = mkVV IrregLat.want_V True ; -- L...
we_Pron = mkPronoun Masc Pl P1 ;
whatSg_IP = { s =pronForms "quid" "quid" "cuius" "cui" "quo" ; n = Sg } ; -- only feminine or masculine Bayer-Lindauer 59.1
whatPl_IP = { s = \\_ => "" ; n = Pl } ; -- no plural forms Bayer-Lindauer 59.1
when_IAdv = ss "quando" ; -- L...
when_Subj = ss "si" ; -- L...
where_IAdv = ss "ubi" ; -- L...
which_IQuant = -- Bayer-Lindauer 59.1.2 and 58.1
{ s = table {
Ag Masc Sg c => ( pronForms "qui" "quem" "cuius" "cui" "quo" ) ! c ;
Ag Masc Pl c => ( pronForms "qui" "quos" "quorum" "quibus" "quibus" ) ! c ;
Ag Fem Sg c => ( pronForms "quae" "quam" "cuius" "cui" "qua" ) ! c ;
Ag Fem Pl c => ( pronForms "quae" "quas" "quarum" "quibus" "quibus" ) ! c ;
Ag Neutr Sg c => ( pronForms "quod" "quod" "cuius" "cui" "quo" ) ! c ;
Ag Neutr Pl c => ( pronForms "quae" "quae" "quorum" "quibus" "quibus" ) ! c
}
} ;
-----b whichPl_IDet = mkDeterminer Pl ["which"] ;
-----b whichSg_IDet = mkDeterminer Sg ["which"] ;
whoSg_IP = { s =pronForms "quis" "quem" "cuius" "cui" "quo" ; n = Sg } ; -- only feminine or masculine Bayer-Lindauer 59.1
whoPl_IP = { s = \\_ => "" ; n = Pl } ; -- no plural forms Bayer-Lindauer 59.1
why_IAdv = ss "cur" ; -- L...
without_Prep = mkPrep "sine" Abl ; -- abl. L..
with_Prep = mkPrep "cum" Abl ; -- abl. L..
yes_Utt = ss "sane" ; -- L...
youSg_Pron = mkPronoun Masc Sg P2 ;
youPl_Pron = mkPronoun Masc Pl P2 ;
youPol_Pron = youSg_Pron | youPl_Pron ;
no_Quant = { s , sp = ( mkA "nullus" ).s ! Posit } ; -- nullus L...
not_Predet = ss "non" ; -- L...
if_then_Conj = {s1 = "si" ; s2 = "######" ; n = Sg } ; -- no word in s2 field L...
at_least_AdN = ss "saltem" ; -- L...
at_most_AdN = ss "summum" ; -- Pons
nobody_NP = regNP "nemo" "neminem" "neminis" "nemini" "nemine" "nemo" ( Masc | Fem ) Sg ; -- Bayer Lindauer 60.4
nothing_NP = regNP "nihil" "nihil" "nullius rei" "nulli rei" "nulla re" "nihil" Neutr Sg ; -- Bayer-Lindauer 60.4
except_Prep = mkPrep "praeter" Acc ; -- L...
as_CAdv = mkCAdv "ita" "ut" ; -- L ...
have_V2 = mkV2 (mkV "habere") ; -- habeo, -ui, -itum 2 (Langenscheidts)
lin language_title_Utt = ss "lingua latina" ;
}