rules for constructing structural words (separate from Paradigms - is this desirable?)

This commit is contained in:
aarne
2008-11-14 17:32:34 +00:00
parent e9592c8020
commit 65c6f8548a
14 changed files with 81 additions and 20 deletions

View File

@@ -0,0 +1,11 @@
--# -path=.:../scandinavian:../common:../abstract
resource MakeStructuralSwe = open CatSwe, ParadigmsSwe, MorphoSwe, Prelude in {
oper
mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
mkSubj : Str -> Subj = \x ->
{s = x ; lock_Subj = <>} ;
}

View File

@@ -125,8 +125,6 @@ concrete StructuralSwe of Structural = CatSwe **
lin
not_Predet = {s = \\_ => "inte"} ;
nothing_but_Predet = {s = \\_ => "inget förutom"} ;
nobody_but_Predet = {s = \\_ => "ingen förutom"} ;
no_Quant =
{s = table {
Sg => \\_,_ => genderForms "ingen" "inget" ;
@@ -141,5 +139,7 @@ lin
at_least_AdN = ss "minst" ;
at_most_AdN = ss "högst" ;
except_Prep = ss "utom" ;
}