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

refactored Fin so that the stemmed and the unstemmed versions share all code except StemFin. It is chosen by setting the path; a functor solution would be purer, but it feels like overkill.

Browse Source
This commit is contained in:
aarne
2013-08-06 21:36:12 +00:00
parent 9d4b055f5f
commit 5610b93e30
32 changed files with 417 additions and 2903 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/finnish/IdiomFin.gf
View File

@@ -46,7 +46,7 @@ concrete IdiomFin of Idiom = CatFin **
adv = vp.adv ;
ext = vp.ext ;
sc = vp.sc ;
qp = vp.qp ;
h = vp.h ;
isNeg = vp.isNeg
} ;
@@ -60,7 +60,7 @@ concrete IdiomFin of Idiom = CatFin **
adv = vp.adv ;
ext = vp.ext ;
sc = vp.sc ;
qp = vp.qp ; isNeg = vp.isNeg
h = vp.h ; isNeg = vp.isNeg
} ;
-- This gives "otetaan oluet" instead of "ottakaamme oluet".
@@ -74,7 +74,7 @@ concrete IdiomFin of Idiom = CatFin **
} ;
oper
olla = verbOlla ** {sc = NPCase Nom ; qp = True ; p = []} ;
olla = verbOlla ** {sc = NPCase Nom ; h = Back ; p = []} ;
noSubj : Polarity -> Str = \_ -> [] ;
}