![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / System / unix_command_line.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:34 2000 UTC (23 years, 10 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
with Ada.Command_Line; package body Unix_Command_Line is -- IMPLEMENTATION : using Ada.Command_Line function Number_of_Arguments return natural is begin return Ada.Command_Line.Argument_Count; end Number_of_Arguments; function Argument ( i : natural ) return string is begin return Ada.Command_Line.Argument(i); end Argument; end Unix_Command_Line;