forked from GitHub/gf-core
78 lines
1.9 KiB
Plaintext
78 lines
1.9 KiB
Plaintext
--# -path=.:abstract:common:prelude
|
|
|
|
concrete ExtraFin of ExtraFinAbs = CatFin **
|
|
open ResFin, MorphoFin, Coordination, Prelude, NounFin, StructuralFin in {
|
|
|
|
lin
|
|
GenNP np = {
|
|
s1,sp = \\_,_ => np.s ! NPCase Gen ;
|
|
s2 = [] ;
|
|
isNum = False ;
|
|
isPoss = False ;
|
|
isDef = True --- "Jussin kolme autoa ovat" ; thus "...on" is missing
|
|
} ;
|
|
|
|
|
|
lincat
|
|
VPI = {s : Str} ;
|
|
[VPI] = {s1,s2 : Str} ;
|
|
lin
|
|
BaseVPI = twoSS ;
|
|
ConsVPI = consrSS comma ;
|
|
|
|
MkVPI vp = {s = infVP (NPCase Nom) Pos (agrP3 Sg) vp Inf1} ;
|
|
ConjVPI = conjunctDistrSS ;
|
|
ComplVPIVV vv vpi =
|
|
insertObj (\\_,_,_ => vpi.s) (predV vv) ;
|
|
|
|
AdvExistNP adv np =
|
|
mkClause (\_ -> adv.s) np.a (insertObj
|
|
(\\_,b,_ => np.s ! NPCase Nom) (predV (verbOlla ** {sc = NPCase Nom ; qp = "ko"}))) ;
|
|
|
|
RelExistNP prep rp np = {
|
|
s = \\t,ant,bo,ag =>
|
|
let cl =
|
|
mkClause
|
|
(\_ -> appCompl True Pos prep (rp2np ag.n rp))
|
|
np.a
|
|
(insertObj
|
|
(\\_,b,_ => np.s ! NPCase Nom)
|
|
(predV (verbOlla ** {sc = NPCase Nom ; qp = "ko"}))) ;
|
|
in
|
|
cl.s ! t ! ant ! bo ! SDecl ;
|
|
c = NPCase Nom
|
|
} ;
|
|
|
|
AdvPredNP adv v np =
|
|
mkClause (\_ -> adv.s) np.a (insertObj
|
|
(\\_,b,_ => np.s ! NPCase Nom) (predV v)) ;
|
|
|
|
i_implicPron = mkPronoun [] "minun" "minua" "minuna" "minuun" Sg P1 ;
|
|
whatPart_IP = {
|
|
s = table {
|
|
NPCase Nom | NPAcc => "mitä" ;
|
|
c => whatSg_IP.s ! c
|
|
} ;
|
|
n = Sg
|
|
} ;
|
|
|
|
PartCN cn =
|
|
let
|
|
acn = DetCN (DetQuant IndefArt NumSg) cn
|
|
in {
|
|
s = table {
|
|
NPCase Nom | NPAcc => acn.s ! NPCase Part ;
|
|
c => acn.s ! c
|
|
} ;
|
|
a = acn.a ;
|
|
isPron = False
|
|
} ;
|
|
|
|
vai_Conj = {s1 = [] ; s2 = "vai" ; n = Sg} ;
|
|
|
|
CompPartAP ap = {
|
|
s = \\agr => ap.s ! False ! NCase agr.n Part
|
|
} ;
|
|
|
|
}
|