ResourceHOWTO updafed

lib/resource-1.0/norwegian/IrregNor.gf

@@ -6,7 +6,7 @@ concrete IrregNor of IrregNorAbs = CatNor ** open ParadigmsNor in {
 
   flags optimize=values ;
 
-  lin be_V = irregV "be" "bad" "bedt" ;
+  lin be_V = mkV "be" "ber" "bes" "bad" "bedt" "be" ;
   lin bite_V = irregV "bite" (variants {"bet" ; "beit"}) "bitt" ;
   lin bli_V = irregV "bli" (variants {"ble" ; "blei"}) "blitt" ;
   lin brenne_V = irregV "brenne" (variants {"brant" ; "brente"}) "brent" ;
@@ -46,7 +46,7 @@ concrete IrregNor of IrregNorAbs = CatNor ** open ParadigmsNor in {
   lin løpe_V = irregV "løpe" "løp" (variants {"løpt" ; "løpet"}) ;
   lin måtte_V = irregV "måtte" "måtte" "måttet" ;
   lin renne_V = irregV "renne" "rant" "rent" ;
-  lin se_V = irregV "se" "så" "sett" ;
+  lin se_V = mkV "se" "ser" "ses" "så" "sett" "se" ;
   lin selge_V = irregV "selge" "solgte" "solgt" ;
   lin sette_V = irregV "sette" "satte" "satt" ;
   lin si_V = irregV "si" "sa" "sagt" ;

lib/resource-1.0/norwegian/MorphoNor.gf

@@ -131,17 +131,6 @@ oper
       _  => vHusk spis 
       } ;
 
-  irregVerb : (drikke,drakk,drukket : Str) -> Verbum = 
-    \drikke,drakk,drukket ->
-    let
-      drikk = init drikke ;
-      drikker = case last (init drikke) of {
-        "r" => drikk ;
-        _   => drikke + "r"
-        }
-    in 
-    mkVerb6 drikke drikker  (drikke + "s") drakk drukket drikk ; 
-
 
 -- For $Numeral$.
 

lib/resource-1.0/norwegian/ParadigmsNor.gf

@@ -352,8 +352,20 @@ oper
 
   mk2V a b = regVerb a b ** {s1 = [] ; vtype = VAct ; lock_V = <>} ;
 
-  irregV x y z =  irregVerb x y z
-     ** {s1 = [] ; vtype = VAct ; lock_V = <>} ;
+  irregV =
+    \drikke,drakk,drukket ->
+    let
+      drikk = case last drikke of {
+        "e" => init drikke ;
+        _ => drikke
+        } ;
+      drikker = case last (init drikke) of {
+        "r" => init drikke ;
+        _   => drikke + "r"
+        }
+    in 
+    mkV drikke drikker (drikke + "s") drakk drukket drikk ; 
+
 
   partV v p = {s = \\f => v.s ! f ++ p ; vtype = v.vtype ; lock_V = <>} ;
   depV v = {s = v.s ; vtype = VPass ; lock_V = <>} ;