mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 14:33:41 +02:00
39 lines
533 B
ObjectPascal
39 lines
533 B
ObjectPascal
|
|
{$ifdef go32v2}
|
|
uses dpmiexcp;
|
|
|
|
{$endif go32v2}
|
|
|
|
const
|
|
nextoptpass : longint = 0;
|
|
procedure init;
|
|
|
|
const
|
|
endofparas : boolean = false;
|
|
|
|
procedure getparastring;
|
|
|
|
procedure nextopt;
|
|
|
|
begin
|
|
endofparas:=true;
|
|
getparastring;
|
|
inc(nextoptpass);
|
|
init;
|
|
end;
|
|
|
|
begin
|
|
if not endofparas then
|
|
nextopt;
|
|
end;
|
|
|
|
begin
|
|
getparastring;
|
|
end;
|
|
|
|
begin
|
|
init;
|
|
if nextoptpass<>1 then Halt(1);
|
|
end.
|
|
|