some fixes in Fin and Swe

This commit is contained in:
aarne
2014-06-15 13:49:48 +00:00
parent 575478dcc1
commit 8c0592b399
4 changed files with 21 additions and 17 deletions

View File

@@ -1,5 +1,5 @@
concrete ChunkFin of Chunk = CatFin, ExtensionsFin [VPS,VPI] **
ChunkFunctor with (Syntax = SyntaxFin), (Extensions = ExtensionsFin) **
ChunkFunctor - [Prep_Chunk] with (Syntax = SyntaxFin), (Extensions = ExtensionsFin) **
open
SyntaxFin, (E = ExtensionsFin), Prelude,
ResFin, (P = ParadigmsFin) in {
@@ -7,6 +7,10 @@ concrete ChunkFin of Chunk = CatFin, ExtensionsFin [VPS,VPI] **
oper
emptyNP = mkNP (lin PN {s = \\_ => []}) ;
-- overridden, to avoid the generation of dangling case endings
lin
Prep_Chunk prep = mkAdv prep something_NP ;
lin
NP_Acc_Chunk np = ss (np.s ! NPAcc) ;
NP_Gen_Chunk np = ss (np.s ! NPCase Gen) ;