Re: How to exit an Ada program with (unix shell) error code?

[Martin <martin.dowie@btopenworld.com>]

On May 7, 12:22 pm, a...@anon.org (anon) wrote:
> "Initialize_spca_Driver" is the main subprogram for this device module in
> either Ada or C versions
>
> with Linux ;
> with Linux.Modules ;
> with Linux.Modules.IO ;
>
> use  Linux ;
> use  Modules ;
> use  IO ;
>
> package body spca is
>
> ..
>
> -- ------------------------------------------------------------------------ --
> --                         Initialize_spca_Driver                           --
> --                                                                          --
> -- Initialize_spca_Driver -- Initializes the loadable module.               --
> --                           1.  Create and extry in the "/proc"            --
> --                           2.  Registers the usb device                   --
> --                                                                          --
> -- ------------------------------------------------------------------------ --
>
>   function Initialize_spca_Driver return Exit_Status is
>     begin
>       Create_Proc_File_System ;
>
>       if usb_register ( USB_Driver_Table ) then
>         info ( "SPCA USB ERROR: Camera driver not installed" ) ;
>                                -- Error tell kernel it can reclaim this memory
>         return Failure ;
>       end if ;
>     -- It up and waiting
>     info ( DRIVER_DESC & " : version " & DRIVER_VERSION ) ;
>     return Success ;  
>   end Initialize_spca_Driver ;
> end spca ;

Fine...it just isn't guarenteed to be portable.

Cheers
-- Martin