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

completions to ParseEngFin

Browse Source
This commit is contained in:
aarne
2012-05-25 14:37:07 +00:00
parent 62bcfe933b
commit bc5363de1b
1 changed files with 31 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
lib/src/finnish/ParseFin.gf
View File

@@ -13,61 +13,63 @@ concrete ParseFin of ParseEngAbs =
SentenceFin, SentenceFin,
RelativeFin, RelativeFin,
IdiomFin [NP, VP, Tense, Cl, ProgrVP, ExistNP], IdiomFin [NP, VP, Tense, Cl, ProgrVP, ExistNP],
ExtraFin [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash], ExtraFin [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash]
DictEngFin , DictEngFin
** **
open MorphoFin, ResFin, ParadigmsFin, Prelude in { open MorphoFin, ResFin, ParadigmsFin, SyntaxFin, Prelude in {
flags literal=Symb ; coding = utf8 ;
flags literal=Symb ;
{-
lin lin
myself_NP = regNP "myself" singular ; myself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P1) ;
yourselfSg_NP = regNP "yourself" singular ; yourselfSg_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P2) ;
himself_NP = regNP "himself" singular ; himself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P3) ;
herself_NP = regNP "herself" singular ; herself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P3) ;
itself_NP = regNP "itself" singular ; itself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P3) ;
ourself_NP = regNP "ourself" plural ; ourself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Pl P1) ;
yourselfPl_NP = regNP "yourself" plural ; yourselfPl_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Pl P2) ;
themself_NP = regNP "themself" plural ; themself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Pl P3) ;
themselves_NP = regNP "themselves" plural ; themselves_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Pl P3) ;
{-
CompoundCN num noun cn = { CompoundCN num noun cn = {
s = \\n,c => num.s ! Nom ++ noun.s ! num.n ! Nom ++ cn.s ! n ! c ; s = \\n,c => num.s ! Nom ++ noun.s ! num.n ! Nom ++ cn.s ! n ! c ;
g = cn.g g = cn.g
} ; } ;
DashCN noun1 noun2 = {
DashCN noun1 noun2 = { -- type-checking
s = \\n,c => noun1.s ! Sg ! Nom ++ "-" ++ noun2.s ! n ! c ; s = \\n,c => noun1.s ! Sg ! Nom ++ "-" ++ noun2.s ! n ! c ;
g = noun2.g g = noun2.g
} ; } ;
GerundN v = { GerundN v = { -- parsing
s = \\n,c => v.s ! VPresPart ; s = \\n,c => v.s ! VPresPart ;
g = Neutr g = Neutr
} ; } ;
GerundAP v = { GerundAP v = { -- beckoning
s = \\agr => v.s ! VPresPart ; s = \\agr => v.s ! VPresPart ;
isPre = True isPre = True
} ; } ;
PastPartAP v = { PastPartAP v = { -- broken
s = \\agr => v.s ! VPPart ; s = \\agr => v.s ! VPPart ;
isPre = True isPre = True
} ; } ;
OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ; OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ; -- higher
PositAdVAdj a = {s = a.s ! AAdv} ; PositAdVAdj a = {s = a.s ! AAdv} ; -- really
UseQuantPN q pn = {s = \\c => q.s ! False ! Sg ++ pn.s ! npcase2case c ; a = agrgP3 Sg pn.g} ; UseQuantPN q pn = {s = \\c => q.s ! False ! Sg ++ pn.s ! npcase2case c ; a = agrgP3 Sg pn.g} ; -- this London
SlashV2V v p vp = insertObjc (\\a => p.s ++ case p.p of {CPos => ""; _ => "not"} ++ SlashV2V v p vp = insertObjc (\\a => p.s ++ case p.p of {CPos => ""; _ => "not"} ++ -- force not to sleep
v.c3 ++ v.c3 ++
infVP v.typ vp a) infVP v.typ vp a)
(predVc v) ; (predVc v) ;
ComplPredVP np vp = { ComplPredVP np vp = { -- ?
s = \\t,a,b,o => s = \\t,a,b,o =>
let let
verb = vp.s ! t ! a ! b ! o ! np.a ; verb = vp.s ! t ! a ! b ! o ! np.a ;
@@ -79,20 +81,12 @@ lin
} }
} ; } ;
that_RP = { CompS s = {s = \\_ => "that" ++ s.s} ; -- S -> Comp
s = \\_ => "that" ; CompVP vp = {s = \\a => infVP VVInf vp a} ; -- VP -> Comp
a = RNoAg
} ;
no_RP = {
s = \\_ => "" ;
a = RNoAg
} ;
CompS s = {s = \\_ => "that" ++ s.s} ;
CompVP vp = {s = \\a => infVP VVInf vp a} ;
lin
PPos = {s = [] ; p = CPos} ;
PNeg = {s = [] ; p = CNeg True} ; -- contracted: don't
-} -}
that_RP = which_RP ;
no_RP = which_RP ;
} }