The Ada Program: arg_or_default.adb

  1 with Ada.Command_Line; -- access to external execution env (Ada95 A.15)
  2 use Ada;
  3 
  4 function Arg_Or_Default (X: String; N: Positive:= 1) return String is
  5 begin
  6    if Command_Line.Argument_Count >= N then
  7       return Command_Line.Argument (N);
  8    else
  9       return X;
 10    end if;
 11 end Arg_Or_Default;