mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-11 12:12:51 -06:00
122 lines
4.1 KiB
Plaintext
122 lines
4.1 KiB
Plaintext
concrete StructuralFin of Structural = CatFin **
|
|
open MorphoFin, ParadigmsFin, Prelude in {
|
|
|
|
flags optimize=all ;
|
|
|
|
lin
|
|
above_Prep = postGenPrep "yläpuolella" ;
|
|
after_Prep = postGenPrep "jälkeen" ;
|
|
|
|
all_Predet = {s = \\n,c =>
|
|
let
|
|
kaiket = caseTable n (nhn (sKorpi "kaikki" "kaiken" "kaikkena"))
|
|
in
|
|
case c of {
|
|
Nom => "kaikki" ;
|
|
_ => kaiket ! c
|
|
}
|
|
} ;
|
|
almost_AdA, almost_AdN = ss "melkein" ;
|
|
although_Subj = ss "vaikka" ;
|
|
always_AdV = ss "aina" ;
|
|
and_Conj = ss "ja" ** {n = Pl} ;
|
|
because_Subj = ss "koska" ;
|
|
before_Prep = prePrep partitive "ennen" ;
|
|
behind_Prep = postGenPrep "takana" ;
|
|
between_Prep = postGenPrep "välissä" ;
|
|
both7and_DConj = sd2 "sekä" "että" ** {n = Pl} ;
|
|
but_PConj = ss "mutta" ;
|
|
by8agent_Prep = postGenPrep "toimesta" ;
|
|
by8means_Prep = casePrep adessive ;
|
|
can8know_VV = reg2V "osata" "osasi" ;
|
|
can_VV = regV "voida" ;
|
|
during_Prep = postGenPrep "aikana" ;
|
|
either7or_DConj = sd2 "joko" "tai" ** {n = Sg} ;
|
|
-- everybody_NP = regNP "everybody" Sg ;
|
|
-- every_Det = mkDeterminer Sg "every" ;
|
|
-- everything_NP = regNP "everything" Sg ;
|
|
everywhere_Adv = ss "kaikkialla" ;
|
|
-- first_Ord = ss "first" ;
|
|
from_Prep = casePrep elative ;
|
|
he_Pron = mkPronoun "hän" "hänen" "häntä" "hänenä" "häneen" Sg P3 ;
|
|
here_Adv = ss "täällä" ;
|
|
here7to_Adv = ss "tänne" ;
|
|
here7from_Adv = ss "täältä" ;
|
|
how_IAdv = ss "miten" ;
|
|
-- how8many_IDet = mkDeterminer Pl ["how many"] ;
|
|
if_Subj = ss "jos" ;
|
|
in8front_Prep = postGenPrep "edessä" ;
|
|
i_Pron = mkPronoun "minä" "minun" "minua" "minuna" "minuun" Sg P1 ;
|
|
in_Prep = casePrep inessive ;
|
|
it_Pron = {
|
|
s = \\c => MorphoFin.pronSe.s ! npform2case c ;
|
|
a = agrP3 Sg ;
|
|
isPron = False
|
|
} ;
|
|
less_CAdv = ss "vähemmän" ;
|
|
-- many_Det = mkDeterminer Pl "many" ;
|
|
more_CAdv = ss "enemmän" ;
|
|
-- most_Predet = ss "eniten" ;
|
|
-- much_Det = mkDeterminer Sg "much" ;
|
|
-- must_VV = mkVerb4 "have" "has" "had" "had" ** {c2 = "to"} ; ---
|
|
no_Phr = ss "ei" ;
|
|
on_Prep = casePrep adessive ;
|
|
-- one_Quant = mkDeterminer Sg "one" ;
|
|
only_Predet = {s = \\_,_ => "vain"} ;
|
|
or_Conj = ss "tai" ** {n = Sg} ;
|
|
otherwise_PConj = ss "muuten" ;
|
|
part_Prep = casePrep partitive ;
|
|
please_Voc = ss ["ole hyvä"] ; --- number
|
|
possess_Prep = casePrep genitive ;
|
|
quite_Adv = ss "melko" ;
|
|
she_Pron = mkPronoun "hän" "hänen" "häntä" "hänenä" "häneen" Sg P3 ;
|
|
so_AdA = ss "niin" ;
|
|
-- somebody_NP = regNP "somebody" Sg ;
|
|
-- someSg_Det = mkDeterminer Sg "some" ;
|
|
-- somePl_Det = mkDeterminer Pl "some" ;
|
|
-- something_NP = regNP "something" Sg ;
|
|
somewhere_Adv = ss "jossain" ;
|
|
-- that_Quant = mkQuant "that" "those" ;
|
|
that_NP =
|
|
mkPronoun "tuo" "tuon" "tuota" "tuona" "tuohon" Sg P3 **
|
|
{isPron = False} ;
|
|
there_Adv = ss "siellä" ; --- tuolla
|
|
there7to_Adv = ss "sinne" ;
|
|
there7from_Adv = ss "sieltä" ;
|
|
therefore_PConj = ss "siksi" ;
|
|
they_Pron = mkPronoun "he" "heidän" "heitä" "heinä" "heihin" Pl P3 ; --- ne
|
|
-- this_Quant = mkQuant "this" "these" ;
|
|
this_NP =
|
|
mkPronoun "tämä" "tämän" "tätä" "tänä" "tähän" Sg P3 **
|
|
{isPron = False} ;
|
|
those_NP =
|
|
mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Pl P3 **
|
|
{isPron = False} ;
|
|
through_Prep = postGenPrep "kautta" ;
|
|
too_AdA = ss "liian" ;
|
|
to_Prep = casePrep illative ; --- allative
|
|
under_Prep = postGenPrep "alla" ;
|
|
very_AdA = ss "erittäin" ;
|
|
want_VV = regV "tahtoa" ;
|
|
we_Pron = mkPronoun "me" "meidän" "meitä" "meinä" "meihin" Pl P1 ;
|
|
-- whatPl_IP = mkIP "what" "what" "what's" Sg ;
|
|
-- whatSg_IP = mkIP "what" "what" "what's" Sg ;
|
|
when_IAdv = ss "milloin" ;
|
|
when_Subj = ss "kun" ;
|
|
where_IAdv = ss "missä" ;
|
|
-- whichPl_IDet = mkDeterminer Pl ["which"] ;
|
|
-- whichSg_IDet = mkDeterminer Sg ["which"] ;
|
|
-- whoSg_IP = mkIP "who" "whom" "whose" Sg ;
|
|
-- whoPl_IP = mkIP "who" "whom" "whose" Pl ;
|
|
why_IAdv = ss "miksi" ;
|
|
without_Prep = prePrep partitive "ilman" ;
|
|
with_Prep = postGenPrep "kanssa" ;
|
|
yes_Phr = ss "kyllä" ;
|
|
youSg_Pron = mkPronoun "sinä" "sinun" "sinua" "sinuna" "sinuun" Sg P2 ;
|
|
youPl_Pron = mkPronoun "te" "teidän" "teitä" "teinä" "teihin" Pl P2 ;
|
|
youPol_Pron = mkPronoun "te" "teidän" "teitä" "teinä" "teihin" Pl P2 ; --- Sg
|
|
|
|
|
|
}
|
|
|