diff options
Diffstat (limited to 'next-lib/src/swedish/MakeStructuralSwe.gf')
| -rw-r--r-- | next-lib/src/swedish/MakeStructuralSwe.gf | 12 |
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 } |
