diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-14 17:32:34 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-14 17:32:34 +0000 |
| commit | d5fa908250517476d69fae92ec7648a207007c0a (patch) | |
| tree | c0b685f8e506cc64d0b9260239cb0c7e26452167 /next-lib/src/swedish | |
| parent | f2a5937120e4c9d0e633f252b50a008746422a07 (diff) | |
rules for constructing structural words (separate from Paradigms - is this desirable?)
Diffstat (limited to 'next-lib/src/swedish')
| -rw-r--r-- | next-lib/src/swedish/MakeStructuralSwe.gf | 11 | ||||
| -rw-r--r-- | next-lib/src/swedish/StructuralSwe.gf | 4 |
2 files changed, 13 insertions, 2 deletions
diff --git a/next-lib/src/swedish/MakeStructuralSwe.gf b/next-lib/src/swedish/MakeStructuralSwe.gf new file mode 100644 index 000000000..48d0a1225 --- /dev/null +++ b/next-lib/src/swedish/MakeStructuralSwe.gf @@ -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 = <>} ; + +} diff --git a/next-lib/src/swedish/StructuralSwe.gf b/next-lib/src/swedish/StructuralSwe.gf index b257b850a..a6a3a00b2 100644 --- a/next-lib/src/swedish/StructuralSwe.gf +++ b/next-lib/src/swedish/StructuralSwe.gf @@ -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" ; } |