MODULE M3CheckTool;

(* Copyright (C) 1991, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

IMPORT M3Args;

VAR
  tool_g := M3Args.New(Name, 
    "Modula-3 Checkout System", Version, master := TRUE);

PROCEDURE Handle(): M3Args.T RAISES {}=
  BEGIN
    RETURN tool_g;
  END Handle;

BEGIN
  M3Args.RegisterString(tool_g, InitialCommands_Arg,
    "execute given commands before interaction");
END M3CheckTool.