MODULE WBStart;
(*
 * libraries/wbstart.h  V2.2
 *
 * shared library include file
 *
 * (c) 1991-1996 Stefan Becker
 *
 * AmigaOberonVersion by Thomas Igracki
 *)

IMPORT
  e: Exec, u: Utility;

CONST
  NAME    * = "wbstart.library";
  VERSION * = 2;

(* Tags for WBStartTagList() *)

(* Name of the program to start. It is relative to      *)
(* directoryName or wbsDirLock.                         *)
  name            * = u.user + 1; (* const char *       *)

(* Name of a directory. Mutually exclusive to directoryLock  *)
  directoryName   * = u.user + 2; (* const char *       *)

(* Lock of a directory. Mutually exclusive to directoryName  *)
  directoryLock   * = u.user + 3; (* BPTR               *)

(* Stack size for the new process                       *)
  stack           * = u.user + 4; (* ULONG              *)

(* Priority for the new process                         *)
  priority        * = u.user + 5; (* LONG               *)

(* Number of arguments in argumentList                  *)
  argumentCount   * = u.user + 6; (* ULONG              *)

(* Array of arguments. argumentCount MUST be specified also! *)
  argumentList    * = u.user + 7; (* struct WBArg *     *)

VAR
  base -: e.LibraryPtr;

PROCEDURE WBStartTagList * {base,-30} (tags{8}  : u.TagListPtr): LONGINT;

PROCEDURE WBStartTags    * {base,-30} (tag1{8}..: u.Tag       ): LONGINT;

BEGIN
     base := e.OpenLibrary (NAME, VERSION);
(*
     IF base = NIL THEN
        IF I.DisplayAlert (I.recoveryAlert, "\x00\x64\x14missing wbstart.library\o\o", 50) THEN END;
        HALT (20)
     END; (* IF *)
*)
CLOSE
     IF base # NIL THEN e.CloseLibrary (base); base := NIL END
END WBStart.