mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 05:29:30 -06:00
87 lines
1.9 KiB
Plaintext
87 lines
1.9 KiB
Plaintext
instance DiffDan of DiffScand = open CommonScand, Prelude in {
|
|
|
|
-- Parameters.
|
|
|
|
param
|
|
Gender = Utr | Neutr ;
|
|
|
|
oper
|
|
utrum = Utr ;
|
|
neutrum = Neutr ;
|
|
|
|
gennum : Gender -> Number -> GenNum = \g,n ->
|
|
case <<g,n> : Gender * Number> of {
|
|
<Utr, Sg> => SgUtr ;
|
|
<Neutr,Sg> => SgNeutr ;
|
|
_ => Plg
|
|
} ;
|
|
|
|
detDef : Species = Indef ;
|
|
|
|
Verb : Type = {
|
|
s : VForm => Str ;
|
|
part : Str ;
|
|
vtype : VType ;
|
|
isVaere : Bool
|
|
} ;
|
|
|
|
hasAuxBe v = v.isVaere ;
|
|
|
|
-- Strings.
|
|
|
|
conjThat = "at" ;
|
|
conjThan = "end" ;
|
|
conjAnd = "og" ;
|
|
infMark = "at" ;
|
|
compMore = "mere" ;
|
|
|
|
subjIf = "hvis" ;
|
|
|
|
artIndef : Gender => Str = table {
|
|
Utr => "en" ;
|
|
Neutr => "et"
|
|
} ;
|
|
|
|
verbHave =
|
|
mkVerb "have" "har" "hav" "havde" "haft" "haven" "havet" "havne" **
|
|
{part = [] ; isVaere = False} ;
|
|
verbBe =
|
|
mkVerb "være" "er" "var" "var" "været" "væren" "været" "værne" **
|
|
{part = [] ; isVaere = False} ;
|
|
verbBecome =
|
|
mkVerb "blive" "bliver" "bliv" "blev" "blevet"
|
|
"bliven" "blivet" "blivne" **
|
|
{part = [] ; isVaere = True} ;
|
|
|
|
auxFut = "vil" ; -- "skal" in ExtDan
|
|
auxCond = "ville" ;
|
|
|
|
negation : Polarity => Str = table {
|
|
Pos => [] ;
|
|
Neg => "ikke"
|
|
} ;
|
|
|
|
genderForms : (x1,x2 : Str) -> Gender => Str = \all,allt ->
|
|
table {
|
|
Utr => all ;
|
|
Neutr => allt
|
|
} ;
|
|
|
|
relPron : GenNum => RCase => Str = \\gn,c => case c of {
|
|
RNom => "som" ;
|
|
RGen => "hvis" ;
|
|
RPrep => gennumForms "hvilken" "hvilket" "hvilke" ! gn
|
|
} ;
|
|
|
|
pronSuch = gennumForms "sådan" "sådant" "sådanne" ;
|
|
|
|
reflPron : Agr -> Str = \a -> case a of {
|
|
{gn = Plg ; p = P1} => "oss" ;
|
|
{gn = Plg ; p = P2} => "jer" ;
|
|
{p = P1} => "mig" ;
|
|
{p = P2} => "dig" ;
|
|
{p = P3} => "sig"
|
|
} ;
|
|
|
|
}
|