summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 443883f)
raw | patch | inline | side by side (parent: 443883f)
author | DeaDDooMER <deaddoomer@deadsoftware.ru> | |
Mon, 24 Feb 2020 10:44:21 +0000 (13:44 +0300) | ||
committer | DeaDDooMER <deaddoomer@deadsoftware.ru> | |
Mon, 24 Feb 2020 10:44:21 +0000 (13:44 +0300) |
src/generic/Dsw/Mod/Opts.cp | patch | blob | history |
index f4fc7d110d35ace6fab6b5603695e6ab660485a3..3262528440e99d6c173413c189c47345b216e3ad 100644 (file)
PROCEDURE GetOpt* (IN optstring: ARRAY OF CHAR): CHAR;
VAR opt, ch: CHAR; i: INTEGER;
BEGIN
+ str := NIL;
IF argn >= LEN(args) THEN
opt := 0X; optMode := FALSE (* eof *)
ELSIF optMode & IsOpt(args[argn, argi]) OR (args[argn, argi] = "-") & IsOpt(args[argn, argi + 1]) THEN