romance under reconstruction

lib/resource/swedish/ParadigmsSwe.gf

@@ -335,7 +335,7 @@ oper
   mkV0  v = v ** {lock_V0 = <>} ;
   mkVS  v = v ** {lock_VS = <>} ;
   mkV2S v p = mkV2 v p ** {lock_V2S = <>} ;
-  mkVV  v = v ** {s3 = "att" ; lock_VV = <>} ;
+  mkVV  v = v ** {isAux = False ; lock_VV = <>} ;
   mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ;
   mkVA  v = v ** {lock_VA = <>} ;
   mkV2A v p = mkV2 v p ** {lock_V2A = <>} ;

lib/resource/swedish/StructuralSwe.gf

@@ -5,7 +5,8 @@
 -- Aarne Ranta 2002 -- 2004
 --
 concrete StructuralSwe of Structural = 
-  CategoriesSwe, NumeralsSwe ** open Prelude, MorphoSwe, SyntaxSwe in {
+  CategoriesSwe, NumeralsSwe ** 
+    open Prelude, MorphoSwe, SyntaxSwe in {
 
   flags optimize=values ;
 
@@ -27,8 +28,10 @@ concrete StructuralSwe of Structural =
   between_Prep = ss "mellan" ;
   both_AndConjD = sd2 "både" "och" ** {n = Pl} ;
   by8means_Prep = ss "med" ;
-  can8know_VV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" ** {s3 = []} ;
-  can_VV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" ** {s3 = []} ;
+  can8know_VV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen"
+  ** {isAux = True} ;
+  can_VV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen"
+  ** {isAux = True} ;
   during_Prep = ss "under" ;
   either8or_ConjD = sd2 "antingen" "eller" ** {n = Sg} ;
   everybody_NP = let alla = table {Nom => "alla" ; Gen => "allas"} in 
@@ -50,7 +53,7 @@ concrete StructuralSwe of Structural =
   most_Det = mkDeterminerSgGender2 ["den mesta"] ["det mesta"] (DefP Def) ;
   most8many_Det = flestaDet ;
   much_Det = mkDeterminerSg (detSgInvar "mycket") IndefP ;
-  must_VV = mkVerb "få" "måste" "få" "fick" "måst" "måst" ** {s3 = []} ;
+  must_VV = mkVerb "få" "måste" "få" "fick" "måst" "måst"   ** {isAux = True} ;
   no_Phr = ss ["Nej ."] ;
   on_Prep = ss "på" ;
   or_Conj = ss "eller" ** {n = Sg} ;
@@ -80,7 +83,7 @@ concrete StructuralSwe of Structural =
   to_Prep = ss "till" ;
   under_Prep = ss "under" ;
   very_Adv = ss "mycket" ;
-  want_VV = mkVerb "vilja" "vill" "vilj" "ville" "velat" "velad" ** {s3 = []} ;
+  want_VV = mkVerb "vilja" "vill" "vilj" "ville" "velat" "velad"   ** {isAux = True} ;
   we_NP = pronNounPhrase (vi_36) ;
   what8many_IP = intPronWhat plural ;
   what8one_IP = intPronWhat singular ;

lib/resource/swedish/SyntaxSwe.gf

@@ -118,14 +118,14 @@ instance SyntaxSwe of SyntaxScand = TypesSwe **
   progressiveVerbPhrase : VerbGroup -> VerbGroup = \verb ->
     complVerbVerb 
       (mkVerb "hålla" "håller" "håll"  "höll" "hållit" "hållen" ** 
-       {s3 = ["på att"]})
+         {isAux = False}) ----  ;{s3 = ["på att"]})
       (predVerbGroup True Simul verb) ;  
 
   progressiveClause : NounPhrase -> VerbPhrase -> Clause = \np,vp ->
     predVerbGroupClause np
      (complVerbVerb 
       (mkVerb "hålla" "håller" "håll"  "höll" "hållit" "hållen" ** 
-       {s3 = ["på att"]})
+         {isAux = False}) ----  ;{s3 = ["på att"]})
       vp) ;
 
   strPrep : ComplPrep -> Str = \p -> case p of {

lib/resource/swedish/TestResourceSwe.gf

@@ -67,7 +67,7 @@ lin
    Tell = extTransVerb (vNopart (vTala "berätt")) [] ;
    Look = extTransVerb (mkVerbPart "se" "ser" "se" "såg" "sett" "sedd" "ut") [] ;
 
-   Try = extTransVerb (vNopart (vLeka "försök")) [] ** {s3 = "att"} ;
+   Try = extTransVerb (vNopart (vLeka "försök")) [] ** {isAux=False} ;
    Important = extAdjective (aFin "viktig") ** {s2 = "för"} ;
    Probable = extAdjective (aFin "sannolik") ;
    Easy = extAdjective (aAbstrakt "lätt") ** {s2 = "för"} ;