PROCEDURE UnloadMod* (name: ARRAY OF CHAR; VAR ok: BOOLEAN);
      VAR mod: Kernel.Module; str: Dialog.String; n: Kernel.Name;
   BEGIN
      n := SHORT(name$); mod := Kernel.ThisLoadedMod(n);
      IF mod # NIL THEN
         Dialog.ShowParamStatus("#Dev:Unloading", name, "", "");
         Kernel.UnloadMod(mod);
         IF mod.refcnt < 0 THEN
            Dialog.MapParamString("#Dev:Unloaded", name, "", "", str);
            StdLog.String(str); StdLog.Ln;
            Controls.Relink
         ELSE
            Dialog.ShowParamMsg("#Dev:UnloadingFailed", name, "", "");
            ok := FALSE
         END
      ELSE
         Dialog.ShowParamMsg("#Dev:NotFound", name, "", "");
         ok := FALSE;
      END
   END UnloadMod;

   PROCEDURE CompileAndUnload*;
      VAR t: TextModels.Model; error: BOOLEAN;
   BEGIN
      Open;
      t := TextViews.FocusText();
      IF t # NIL THEN
         Do(t, StdLog.text, 0, defopt, error);
         IF error THEN DevMarkers.ShowFirstError(t, TextViews.focusOnly)
         ELSE DevDebug.UnloadMod(DevCPT.SelfName$, error)
         END
      ELSE Dialog.ShowMsg("#Dev:NoTextViewFound")
      END;
      Close
   END CompileAndUnload;

UnloadMod*: PROCEDURE (name: ARRAY OF CHAR; VAR ok: BOOLEAN);

DevCommanders.UnloadMod := UnloadMod;

   PROCEDURE Unload (cmd: Dialog.String);
      VAR modname: Kernel.Name; i: INTEGER; ch: CHAR; ok: BOOLEAN;
   BEGIN
      ASSERT(UnloadMod # NIL, 20);
      i := 0; ch := cmd[0];
      WHILE (ch # 0X) & (ch # ".") DO modname[i] := SHORT(ch); INC(i); ch := cmd[i] END;
      modname[i] := 0X;
      UnloadMod(modname$, ok)
   END Unload;