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     ! 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;