summaryrefslogtreecommitdiff
path: root/next-lib/src/swedish/MakeStructuralSwe.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/swedish/MakeStructuralSwe.gf')
-rw-r--r--next-lib/src/swedish/MakeStructuralSwe.gf12
1 files changed, 10 insertions, 2 deletions
diff --git a/next-lib/src/swedish/MakeStructuralSwe.gf b/next-lib/src/swedish/MakeStructuralSwe.gf
index 48d0a1225..1da7840df 100644
--- a/next-lib/src/swedish/MakeStructuralSwe.gf
+++ b/next-lib/src/swedish/MakeStructuralSwe.gf
@@ -1,11 +1,19 @@
--# -path=.:../scandinavian:../common:../abstract
-resource MakeStructuralSwe = open CatSwe, ParadigmsSwe, MorphoSwe, Prelude in {
+resource MakeStructuralSwe = open CatSwe, ParadigmsSwe,
+ (P=ParadigmsSwe), MorphoSwe, Prelude in {
oper
- mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
+ mkConj : Str -> Str -> P.Number -> Conj = \x,y,n ->
{s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
mkSubj : Str -> Subj = \x ->
{s = x ; lock_Subj = <>} ;
+ mkIQuant : Str -> Str -> Str -> DetSpecies -> IQuant = \vilken,vilket,vilka,d ->
+ {s = table (P.Number)
+ [table (P.Gender) [vilken;vilket] ; table (P.Gender) [vilka;vilka]] ;
+ det = d ; lock_IQuant = <>} ;
+
+ dDefIndef : DetSpecies = DDef Indef ;
+ ---- other DetSpecies
}