Figure 37.
The original Get_Command_Line body for Meridian.
<![CDATA[
------------------------------------------------------
-- GCLBMIBM.ada
-- 9 June 1987
-- Do-While Jones
-- Meridian command line interface for IBM PC.
-- This procedure is NOT PORTABLE because it uses
-- some utility packages available from Meridian
-- Software Systems, Inc. These packages are
-- compatible with the Meridian AdaVantage compiler,
-- but are not included with the compiler. (They
-- must be purchased separately.)
with TEXT_HANDLER, ARG; -- Meridian Utility packages.
procedure Get_Command_Line(TAIL : out string;
LENGTH : out natural) is
BUFFER : TEXT_HANDLER.Text(127);
LEN : natural;
begin
if ARG.Count < 2 then
LENGTH := 0;
return;
end if;
TEXT_HANDLER.Set(BUFFER, ARG.Data(2));
LEN := TEXT_HANDLER.Length(BUFFER);
LENGTH := LEN;
TAIL(1..LEN) := TEXT_HANDLER.Value(BUFFER);
end Get_Command_Line;
]]>