msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

added generalized ComplVV to ParseFin

Browse Source
This commit is contained in:
aarne
2013-03-25 14:21:46 +00:00
parent 77a9530cf9
commit eb9685e911
3 changed files with 27 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/src/finnish/ResFin.gf
View File

@@ -408,17 +408,25 @@ oper
} }
} ; } ;
infVP : NPForm -> Polarity -> Agr -> VP -> InfForm -> Str = -- the first Polarity is VP-internal, the second comes form the main verb:
\sc,pol,agr,vp,vi -> -- ([main] tahdon | en tahdo) ([internal] nukkua | olla nukkumatta)
infVPGen : Polarity -> NPForm -> Polarity -> Agr -> VP -> InfForm -> Str =
\ipol,sc,pol,agr,vp,vi ->
let let
fin = case sc of { -- subject case fin = case sc of { -- subject case
NPCase Nom => True ; -- minä tahdon nähdä auton NPCase Nom => True ; -- minä tahdon nähdä auton
_ => False -- minun täytyy nähdä auto _ => False -- minun täytyy nähdä auto
} ; } ;
verb = vp.s ! VIInf vi ! Simul ! Pos ! agr ; -- no "ei" verb = case ipol of {
compl = vp.s2 ! fin ! pol ! agr ++ vp.adv ! pol ++ vp.ext -- but compl. case propagated Pos => <vp.s ! VIInf vi ! Simul ! Pos ! agr, []> ; -- nähdä/näkemään
Neg => <(predV (verbOlla ** {sc = NPCase Nom ; qp = True ; p = []})).s ! VIInf vi ! Simul ! Pos ! agr,
(vp.s ! VIInf Inf3Abess ! Simul ! Pos ! agr).fin> -- olla/olemaan näkemättä
} ;
compl = vp.s2 ! fin ! pol ! agr ++ vp.adv ! pol ++ vp.ext -- compl. case propagated
in in
verb.fin ++ verb.inf ++ compl ; verb.p1.fin ++ verb.p1.inf ++ verb.p2 ++ compl ;
infVP : NPForm -> Polarity -> Agr -> VP -> InfForm -> Str = infVPGen Pos ;
-- The definitions below were moved here from $MorphoFin$ so that we the -- The definitions below were moved here from $MorphoFin$ so that we the
-- auxiliary of predication can be defined. -- auxiliary of predication can be defined.

13
lib/src/finnish/stemmed/ParseFin.gf
View File

@@ -24,6 +24,19 @@ open MorphoFin, ResFin, ParadigmsFin, SyntaxFin, StemFin, Prelude in {
flags literal=Symb ; coding = utf8 ; flags literal=Symb ; coding = utf8 ;
lin lin
ComplVV v ant pol vp =
insertObj
(\\_,b,a => infVPGen pol.p v.sc b a vp v.vi)
(predSV {s = v.s ;
sc = case vp.sc of {
NPCase Nom => v.sc ; -- minun täytyy pestä auto
c => c -- minulla täytyy olla auto
} ;
h = v.h ; p = v.p
}
) ;
myself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P1) ; myself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P1) ;
yourselfSg_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P2) ; yourselfSg_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P2) ;
himself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P3) ; himself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P3) ;

2
lib/src/hindi/DictHin.gf
View File

@@ -25785,7 +25785,7 @@ of_Prep = mkPrep "का" "की" ;
part_Prep = mkPrep "" "" ; part_Prep = mkPrep "" "" ;
please_Voc = ss "कृपया" ; please_Voc = ss "कृपया" ;
possess_Prep = mkPrep "का" "की" ; possess_Prep = mkPrep "का" "की" ;
quite_Adv = ss "काफ़ी" ; quite_Adv = mkAdv "काफ़ी" ;
she_Pron = personalPN "वह" "उस" "उस" "उस का" "उस की" "उस के" "उस की" Sg Fem Pers3_Distant ; -- chek with prasad about 'Us' she_Pron = personalPN "वह" "उस" "उस" "उस का" "उस की" "उस के" "उस की" Sg Fem Pers3_Distant ; -- chek with prasad about 'Us'
so_AdA = ss "तो" ; so_AdA = ss "तो" ;
somebody_NP = MassNP (UseN (ParadigmsHin.mkN "कोई" "कोई" "कोई" "कोई" "कोई" "कोई" Masc )); somebody_NP = MassNP (UseN (ParadigmsHin.mkN "कोई" "कोई" "कोई" "कोई" "कोई" "कोई" Masc ));