---------------------------------------------------------------
--                                                           
--  RAPID - Rapid Ada Portable Interface Designer     
--                                                           
--  CARGV_HELPERS.ADS 
--  Description : handles translation of Arguments to Ada
--    TASH procedures.
--                       
--  By: Martin Carlisle
--                                         
-- RAPID is free software; you can redistribute it and/or 
-- modify it without restriction.  However, we ask that you
-- please retain the original author information, and clearly  
-- indicate if it has been modified.
--
-- RAPID is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty
-- of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
--
---------------------------------------------------------------
-- These functions take an argument passed to a Tcl callback and
-- convert it to a type more friendly to Ada.
---------------------------------------------------------------
with Cargv;

package Cargv_Helpers is

   Invalid_Argument     : exception;
   Not_Enough_Arguments : exception;

   function Argument(Argv : Cargv.Chars_Ptr_Ptr;
      Number : Integer) return String;

   function Argument(Argv : Cargv.Chars_Ptr_Ptr;
      Number : Integer) return Integer;

end Cargv_Helpers;