forked from GitHub/gf-core
a24d8a9506
Adding coding pragmas --# -coding=latin1 so that grammars will continue to work when we change the default character encoding to UTF-8.
61 lines
1.7 KiB
Plaintext
61 lines
1.7 KiB
Plaintext
--# -coding=latin1
|
|
concrete IdiomSwe of Idiom = CatSwe **
|
|
open MorphoSwe, ParadigmsSwe, IrregSwe, Prelude in {
|
|
|
|
flags optimize=all_subs ;
|
|
|
|
oper
|
|
utr = ParadigmsSwe.utrum ;
|
|
neutr = ParadigmsSwe.neutrum ;
|
|
|
|
lin
|
|
ImpersCl vp = mkClause "det" (agrP3 neutr Sg) vp ;
|
|
GenericCl vp = mkClause "man" (agrP3 utr Sg) vp ;
|
|
|
|
CleftNP np rs = mkClause "det" (agrP3 neutr Sg)
|
|
(insertObj (\\_ => np.s ! rs.c ++ rs.s ! np.a ! RNom) (predV verbBe)) ;
|
|
|
|
CleftAdv ad s = mkClause "det" (agrP3 neutr Sg)
|
|
(insertObj (\\_ => ad.s ++ s.s ! Sub) (predV verbBe)) ;
|
|
|
|
ExistNP np =
|
|
mkClause "det" (agrP3 neutr Sg) (insertObj
|
|
(\\_ => np.s ! accusative) (predV (depV finna_V))) ;
|
|
|
|
ExistIP ip = {
|
|
s = \\t,a,p =>
|
|
let
|
|
cls =
|
|
(mkClause "det" (agrP3 neutr Sg) (predV (depV finna_V))).s ! t ! a ! p ;
|
|
who = ip.s ! accusative
|
|
in table {
|
|
QDir => who ++ cls ! Inv ;
|
|
QIndir => who ++ cls ! Sub
|
|
}
|
|
} ;
|
|
|
|
ExistNPAdv np adv =
|
|
mkClause "det" (agrP3 neutr Sg) (insertObj
|
|
(\\_ => np.s ! accusative ++ adv.s) (predV (depV finna_V))) ;
|
|
|
|
ExistIPAdv ip adv = {
|
|
s = \\t,a,p =>
|
|
let
|
|
cls =
|
|
(mkClause "det" (agrP3 neutr Sg) (insertAdv adv.s (predV (depV finna_V)))).s ! t ! a ! p ;
|
|
who = ip.s ! accusative
|
|
in table {
|
|
QDir => who ++ cls ! Inv ;
|
|
QIndir => who ++ cls ! Sub
|
|
}
|
|
} ;
|
|
|
|
ProgrVP vp =
|
|
insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;
|
|
|
|
ImpPl1 vp = {s = ["låt oss"] ++ infVP vp {g = Utr ; n = Pl ; p = P1}} ;
|
|
|
|
|
|
}
|
|
|