mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-12 22:39:31 -06:00
108 lines
3.8 KiB
Plaintext
108 lines
3.8 KiB
Plaintext
--# -path=.:../scandinavian:../abstract:../../prelude
|
|
|
|
--1 The Top-Level Swedish Resource Grammar: Structural Words
|
|
--
|
|
-- Aarne Ranta 2002 -- 2004
|
|
--
|
|
concrete StructuralDan of Structural =
|
|
CategoriesDan, NumeralsDan ** open Prelude, MorphoDan, SyntaxDan in {
|
|
|
|
flags optimize=values ;
|
|
|
|
lin
|
|
|
|
UseNumeral i = {
|
|
s = \\g => table {Nom => i.s ! g ; Gen => i.s ! g ++ "s"} ; ---
|
|
n = i.n
|
|
} ;
|
|
|
|
above_Prep = ss "ovenfor" ;
|
|
after_Prep = ss "efter" ;
|
|
by8agent_Prep = ss "af" ;
|
|
all8mass_Det = mkDeterminerSgGender2 "all" "alt" IndefP ;
|
|
all_NDet = mkDeterminerPl "alle" IndefP ;
|
|
almost_Adv = ss "næsten" ;
|
|
although_Subj = ss ["selv om"] ;
|
|
and_Conj = ss "og" ** {n = Pl} ;
|
|
because_Subj = ss ["fordi"] ;
|
|
before_Prep = ss "før" ;
|
|
behind_Prep = ss "bag" ;
|
|
between_Prep = ss "mellem" ;
|
|
both_AndConjD = sd2 "både" "og" ** {n = Pl} ;
|
|
by8means_Prep = ss "med" ;
|
|
can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
|
|
{s1 = [] ; isAux = True} ;
|
|
can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
|
|
{s1 = [] ; isAux = True} ;
|
|
during_Prep = ss "under" ;
|
|
either8or_ConjD = sd2 "enten" "eller" ** {n = Sg} ;
|
|
everybody_NP = let alla = table {Nom => "alle" ; Gen => "alles"} in
|
|
{s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ;
|
|
every_Det = varjeDet ;
|
|
everything_NP = nameNounPhrase (mkProperName "alt" NNeutr) ;
|
|
everywhere_Adv = advPost "overalt" ;
|
|
from_Prep = ss "fra" ;
|
|
he_NP = pronNounPhrase han_34 ;
|
|
how_IAdv = ss "hvor" ;
|
|
how8many_IDet = mkDeterminerPl ["hvor mange"] IndefP ;
|
|
if_Subj = ss "hvis" ;
|
|
in8front_Prep = ss "fremfor" ; ---- ?
|
|
i_NP = pronNounPhrase jag_32 ;
|
|
in_Prep = ss "i" ;
|
|
it_NP = pronNounPhrase det_40 ; ----
|
|
many_Det = mkDeterminerPl "mange" IndefP ;
|
|
most_Det = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ;
|
|
most8many_Det = flestaDet ;
|
|
much_Det = mkDeterminerSg (detSgInvar "meget") IndefP ;
|
|
must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "må" **
|
|
{s1 = [] ; isAux = True} ; ---- ?
|
|
on_Prep = ss "på" ;
|
|
or_Conj = ss "eller" ** {n = Sg} ;
|
|
otherwise_Adv = ss "anderledes" ; ---- ?
|
|
part_Prep = ss "af" ;
|
|
no_Phr = ss ["Nej ."] ;
|
|
yes_Phr = ss ["Ja ."] ;
|
|
possess_Prep = ss "af" ;
|
|
quite_Adv = ss "temmelig" ;
|
|
she_NP = pronNounPhrase hon_35 ;
|
|
so_Adv = ss "så" ;
|
|
somebody_NP = nameNounPhrase (mkProperName "nogen" NUtr) ;
|
|
some_Det = mkDeterminerSgGender2 "nogen" "noget" IndefP ;
|
|
some_NDet = mkDeterminerPlNum "nogle" IndefP ;
|
|
something_NP = nameNounPhrase (mkProperName "noget" NNeutr) ;
|
|
somewhere_Adv = advPost ["et eller andet sted"] ; ---- ?
|
|
that_Det = mkDeterminerSgGender2 ["den der"] ["det der"] (DefP Indef) ;
|
|
that_NP = regNameNounPhrase ["det der"] NNeutr ;
|
|
therefore_Adv = ss "derfor" ;
|
|
these_NDet = mkDeterminerPlNum ["de her"] (DefP Indef) ;
|
|
they8fem_NP = pronNounPhrase de_38 ;
|
|
they_NP = pronNounPhrase de_38 ;
|
|
this_Det = mkDeterminerSgGender2 ["den her"] ["det her"] (DefP Indef) ;
|
|
this_NP = regNameNounPhrase ["det her"] NNeutr ;
|
|
those_NDet = mkDeterminerPlNum ["de der"] (DefP Indef) ;
|
|
thou_NP = pronNounPhrase du_33 ;
|
|
through_Prep = ss "igennem" ;
|
|
too_Adv = ss "for" ; ---- ?
|
|
to_Prep = ss "til" ;
|
|
under_Prep = ss "under" ;
|
|
very_Adv = ss "meget" ;
|
|
want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" nonExist **
|
|
{s1 = [] ; isAux = True} ; ---
|
|
we_NP = pronNounPhrase (vi_36) ;
|
|
what8many_IP = intPronWhat plural ;
|
|
what8one_IP = intPronWhat singular ;
|
|
when_IAdv = ss "hvornår" ;
|
|
when_Subj = ss "når" ;
|
|
where_IAdv = ss "hver" ;
|
|
which8one_IDet = vilkenDet ;
|
|
which8many_IDet = mkDeterminerPl "hvilke" IndefP ;
|
|
who8many_IP = intPronWho plural ;
|
|
who8one_IP = intPronWho singular ;
|
|
why_IAdv = ss "hvorfor" ;
|
|
without_Prep = ss "uden" ;
|
|
with_Prep = ss "med" ;
|
|
ye_NP = pronNounPhrase (ni_37) ;
|
|
you_NP = pronNounPhrase De_38 ;
|
|
|
|
}
|