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

[anon@anon.org (anon)]

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


/* C version: from spca.c  */

/* Now, where is the void???  */


/* ************************************************************************ */
/*                         Initialize_spca_Driver                           */
/*                                                                          */
/* Initialize_spca_Driver -- Initializes the loadable module.               */
/*                           1.  Create and extry in the "/proc"            */
/*                           2.  Registers the usb device                   */
/*                                                                          */
/* ************************************************************************ */

int __init Initialize_spca_Driver ( void )
  {

#ifdef CONFIG_PROC_FS
    Create_Proc_File_System ( ) ;
#endif

    if ( usb_register ( &USB_Driver_Table ) )
      {
        info ( "SPCA USB ERROR: Camera driver not installed" ) ;
             /* notify kernel that memory can be recalmed */ 
        return -1 ; 
      }
    info ( DRIVER_DESC " : version " DRIVER_VERSION ) ;
    return 0 ;
  }




In <4a02b178$0$31872$9b4e6d93@newsspool3.arcor-online.net>, Georg Bauhaus <rm.dash-bauhaus@futureapps.de> writes:
>anon schrieb:
>> Using a "function" type of module install 
>>         program is the only way a "Module" can be written and have an 
>>         "exit status".
>
>Uhm, no.
>
>Actually, the clean up routines of modules (assuming
>Linux kernel modules) have "void" return type.
>
>
>>         Note: Ada as a computer language should be allowed to create 
>>               these type of programs which means that Ada needs to 
>>               support main subprogram that are functions.
>
>What seems needed is a way to write programs such that
>they follow the conventions of the respective execution
>environment; communication; interrupts; special locations;
>and maybe return values.
>
>This will necessarily depend on the execution environment,
>I should think, which may or may not require *some*
>subprogram to be a function with parameters, say.