Category : Modula II Source Code
Archive   : FLXCPY10.ZIP
Filename : CMDLINE.MOD

IMPLEMENTATION MODULE CmdLine;

FROM GetEnvName IMPORT GetEnvName;
FROM SYSTEM IMPORT ADDRESS, ADR;
FROM Loader IMPORT ProgPrefixAddress;


VAR
i, cnt, l : CARDINAL; (* counters, length of command line *)

(* Break command line, return count and pointers to variables *)
PROCEDURE ReadCmdLine( VAR ArgC : CARDINAL;
VAR ArgV : ARRAY OF ParmPtr);

BEGIN (* ReadCmdLine *)
l := ORD( ProgPrefixAddress^.CommText[-1]);
i := 0;
cnt := 0;
WITH ProgPrefixAddress^ DO
LOOP
WHILE (CommText[i] = ' ') DO (* skip over spaces *)
INC( i);
END; (* WHILE (CommText[i] = ' ') *)
IF (CommText[i] = 0x) THEN
EXIT;
ELSE
ArgV[cnt] := ADR( CommText[i]);
INC( cnt);
IF (cnt >= HIGH( ArgV)+1) THEN
EXIT;
END;
END;
WHILE (CommText[i] <> ' ') DO
INC( i);
IF (CommText[i] = 0x) THEN
EXIT;
END;
END; (* WHILE (CommText[i] <> ' ') *)
CommText[i] := 0x; (* terminate this argument *)
INC( i);
END; (* LOOP *)
CommText[-1] := 0x; (* only parse once *)
END; (* WITH *)
ArgC := cnt;
END ReadCmdLine;

END CmdLine.