Return to unix_command_line.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / System

Annotation of OpenXM_contrib/PHC/Ada/System/unix_command_line.adb, Revision 1.1.1.1

1.1       maekawa     1: with Ada.Command_Line;
                      2:
                      3: package body Unix_Command_Line is
                      4:
                      5: -- IMPLEMENTATION : using Ada.Command_Line
                      6:
                      7:   function Number_of_Arguments return natural is
                      8:   begin
                      9:     return Ada.Command_Line.Argument_Count;
                     10:   end Number_of_Arguments;
                     11:
                     12:   function Argument ( i : natural ) return string is
                     13:   begin
                     14:     return Ada.Command_Line.Argument(i);
                     15:   end Argument;
                     16:
                     17: end Unix_Command_Line;