IMPLEMENTATION MODULE Args;
  IMPORT Arguments;
  (* getarg primitive for Mocka 1208m, adapted from Software Tools. *)

  VAR argv: Arguments.ArgTable;
    argc: INTEGER;

  PROCEDURE getarg(n: INTEGER; VAR s: string; maxsize: INTEGER): BOOLEAN;
    VAR i: INTEGER;
      res: BOOLEAN;
  BEGIN
    IF (n >= 0) AND (n < argc) THEN
      IF maxsize > 0 THEN
        i := 0;
        WHILE (i < maxsize) AND (argv^[n]^[i] # 0C) DO
          s[i+1] := ORD(argv^[n]^[i]);
          INC(i)
        END;
        s[i+1] := ENDSTR
      END;
      res := TRUE
    ELSE
      res := FALSE
    END;
    RETURN res
  END getarg;

  PROCEDURE nargs(): INTEGER;
  BEGIN
    RETURN argc
  END nargs;

  PROCEDURE init();
    VAR cnt: SHORTCARD;
  BEGIN
    Arguments.GetArgs(cnt, argv);
    argc := VAL(INTEGER, cnt)
  END init;

BEGIN init
END Args.