From f30560efcc5acb39f8b9a4a5d0ea0482224a5fc1 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 15 Nov 2008 20:08:09 +0000 Subject: Attempto complete up to spec --- next-lib/src/swedish/MakeStructuralSwe.gf | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'next-lib/src/swedish/MakeStructuralSwe.gf') 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 } -- cgit v1.2.3