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

Fin.VPSlashPrep is cyclic in the presence of empty-strinc prepositions. Therefore omitted it from ParseFin.

Browse Source
This commit is contained in:
aarne
2013-12-10 15:17:35 +00:00
parent 81d37de270
commit 52a6c03605
7 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/Makefile
View File

@@ -122,7 +122,9 @@ clean:
Parse: ParseEng ParseBul ParseChi ParseGer ParseSwe ParseHin ParseFin ParseFre Parse: ParseEng ParseBul ParseChi ParseGer ParseSwe ParseHin ParseFin ParseFre Parse8
Parse8:
gf -make -literal=Symb -probs=$(PROBSFILE) -name=Parse8 ParseEng.pgf ParseBul.pgf ParseChi.pgf ParseGer.pgf ParseSwe.pgf ParseHin.pgf ParseFin.pgf ParseFre.pgf gf -make -literal=Symb -probs=$(PROBSFILE) -name=Parse8 ParseEng.pgf ParseBul.pgf ParseChi.pgf ParseGer.pgf ParseSwe.pgf ParseHin.pgf ParseFin.pgf ParseFre.pgf

2
lib/src/finnish/ExtraFin.gf
View File

@@ -233,7 +233,7 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
kohan_Part = mkPart "kohan" "köhän" ; kohan_Part = mkPart "kohan" "köhän" ;
pahan_Part = mkPart "pahan" "pähän" ; pahan_Part = mkPart "pahan" "pähän" ;
PassVPSlash vp = passVP vp vp.c2.c ; PassVPSlash vp = passVP vp vp.c2 ;
{- ----- {- -----
s = \\vif,ant,pol,agr => case vif of { s = \\vif,ant,pol,agr => case vif of {

2
lib/src/finnish/IdiomFin.gf
View File

@@ -37,7 +37,7 @@ concrete IdiomFin of Idiom = CatFin **
ImpersCl vp = mkClause noSubj (agrP3 Sg) vp ; ImpersCl vp = mkClause noSubj (agrP3 Sg) vp ;
GenericCl vp = mkClause noSubj (agrP3 Sg) (passVP vp (NPCase Nom)) ; GenericCl vp = mkClause noSubj (agrP3 Sg) (passVP vp (casePrep nominative)) ;
ProgrVP vp = ProgrVP vp =
let let

6
lib/src/finnish/StemFin.gf
View File

@@ -315,9 +315,9 @@ oper
vptyp = vp.vptyp --- missään vptyp = vp.vptyp --- missään
} ; } ;
passVP : VP -> NPForm -> VP = \vp,sc -> { passVP : VP -> Compl -> VP = \vp,pr -> {
s = {s = vp.s.s ; h = vp.s.h ; p = vp.s.p ; sc = sc} ; -- minusta pidetään ---- TODO minun päälleni katsotaan s = {s = vp.s.s ; h = vp.s.h ; p = vp.s.p ; sc = pr.c} ; -- minusta pidetään ---- TODO minun katsotaan päälle
s2 = vp.s2 ; s2 = \\b,p,a => pr.s ++ vp.s2 ! b ! p ! a ; ---- prep after verb
ext = vp.ext ; ext = vp.ext ;
adv = vp.adv ; adv = vp.adv ;
vptyp = {isNeg = vp.vptyp.isNeg ; isPass = True} ; vptyp = {isNeg = vp.vptyp.isNeg ; isPass = True} ;

2
lib/src/finnish/VerbFin.gf
View File

@@ -91,7 +91,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin, StemFin in {
ReflVP v = insertObjPre False (\fin,b,agr -> appCompl fin b v.c2 (reflPron agr)) v ; ReflVP v = insertObjPre False (\fin,b,agr -> appCompl fin b v.c2 (reflPron agr)) v ;
PassV2 v = passVP (predSV v) v.c2.c ; PassV2 v = passVP (predSV v) v.c2 ;
{- ---- {- ----
s = \\vif,ant,pol,agr => case vif of { s = \\vif,ant,pol,agr => case vif of {

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

@@ -8,7 +8,8 @@ concrete ParseFin of ParseEngAbs =
NumeralFin, NumeralFin,
SymbolFin [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP], SymbolFin [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],
ConjunctionFin, ConjunctionFin,
VerbFin - [SlashV2V, PassV2, UseCopula, ComplVV], VerbFin - [SlashV2V, PassV2, UseCopula, ComplVV,
VPSlashPrep], -- with empty prepositions, a cyclic rule that leads to overgeneration
AdverbFin, AdverbFin,
PhraseFin, PhraseFin,
SentenceFin, SentenceFin,

6
lib/src/finnish/stemmed/StemFin.gf
View File

@@ -665,9 +665,9 @@ oper
vptyp = vp.vptyp --- missään vptyp = vp.vptyp --- missään
} ; } ;
passVP : VP -> NPForm -> VP = \vp,sc -> { passVP : VP -> Compl -> VP = \vp,pr -> {
s = {s = vp.s.s ; h = vp.s.h ; p = vp.s.p ; sc = sc} ; -- minusta pidetään ---- TODO minun päälleni katsotaan s = {s = vp.s.s ; h = vp.s.h ; p = vp.s.p ; sc = pr.c} ; -- minusta pidetään ---- TODO minun katsotaan päälle
s2 = vp.s2 ; s2 = \\b,p,a => pr.s ++ vp.s2 ! b ! p ! a ; ---- prep after verb
ext = vp.ext ; ext = vp.ext ;
adv = vp.adv ; adv = vp.adv ;
vptyp = {isNeg = vp.vptyp.isNeg ; isPass = True} ; vptyp = {isNeg = vp.vptyp.isNeg ; isPass = True} ;