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

make ParseFin compile with Construction

Browse Source
This commit is contained in:
aarne
2013-12-07 08:01:28 +00:00
parent 4f877ef885
commit 0f2cc75490
2 changed files with 3 additions and 282 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,4 +1,4 @@
--# -path=.:..:../../abstract:../../common:../../english:../kotus
--# -path=.:..:../../abstract:../../common:../../api:../../english:../kotus
concrete ParseFin of ParseEngAbs =
TenseX, ---- - [Pol, PNeg, PPos],
@@ -21,7 +21,7 @@ concrete ParseFin of ParseEngAbs =
VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV]
, DictEngFin
**
open MorphoFin, ResFin, ParadigmsFin, SyntaxFin, StemFin, Prelude in {
open MorphoFin, ResFin, ParadigmsFin, SyntaxFin, StemFin, (E = ExtraFin), Prelude in {
flags literal=Symb ; coding = utf8 ;
@@ -68,7 +68,7 @@ lin
PredVPosv np vp = mkCl np vp ; ----
-- Ant -> Pol -> VPSlash -> RS ; --- here replaced by a relative clause
PastPartRS ant pol vps = mkRS ant pol (mkRCl which_RP (passVPSlash (lin VPSlash vps))) ;
PastPartRS ant pol vps = mkRS ant pol (mkRCl which_RP (E.PassVPSlash (lin VPSlash vps))) ;
ApposNP np1 np2 = {
s = \\c => np1.s ! c ++ "," ++ np2.s ! c ;