Subversion Repositories openrisc

package Opt6 is

   type String_Access is access all String;

   type String_List is array (Positive range <>) of String_Access;

   type String_List_Access is access all String_List;

   type Command_Line_Iterator is record

      Params   : String_List_Access;

      Current  : Natural;

   end record;

   function Current_Parameter (Iter : Command_Line_Iterator) return String;

end Opt6;