home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / adaada.zip / ADAADA.ZIP / SRC / ADA_ERR / _INIT.C next >
C/C++ Source or Header  |  1994-10-10  |  2KB  |  71 lines
  1. // Copyright (c) 1994 ARINC Research Corporation
  2. // From material copyright (c) 1991, 1992 Premia Corporation
  3. //
  4. // This material may be reproduced by or for the US Government pursuant 
  5. // to the copyright license under DFAR Clause 252.227-7013 (1988)
  6. //
  7. // Developed for US Air Force under contract no. F41608-90-D-0544-0005
  8. //
  9. // MODIFICATIONS
  10. //   94/06 - J. Neuse, SD/OSE/EA  - Initial code
  11. //   94/10 - O. Sluder, SD/OSE/EA - Cleanup
  12.  
  13. #include <CW_Ada.h>
  14.  
  15. // ...........
  16. // .         .
  17. // .  _init  .  BODY
  18. // .         .
  19. // ...........
  20.  
  21. extern void _DLL _init ( void )
  22. {
  23.     // ..........
  24.     // .        .
  25.     // .  Init  .  SPEC
  26.     // .        .
  27.     // ..........
  28.  
  29.     extern void _ADA Init ( void );
  30.     
  31.     Init();
  32. }
  33.  
  34. // ........................
  35. // .                      .
  36. // .  _MeridianErrorInfo  .  BODY
  37. // .                      .
  38. // ........................
  39.  
  40. extern int _DLL _MeridianErrorInfo ( void )
  41. {
  42.     // .......................
  43.     // .                     .
  44.     // .  MeridianErrorInfo  .  SPEC
  45.     // .                     .
  46.     // .......................
  47.  
  48.     extern int _ADA MeridianErrorInfo ( void );
  49.     
  50.     return MeridianErrorInfo();
  51. }
  52.  
  53. // .....................
  54. // .                   .
  55. // .  _JanusErrorInfo  .  BODY
  56. // .                   .
  57. // .....................
  58.  
  59. extern int _DLL _JanusErrorInfo ( void )
  60. {
  61.     // ....................
  62.     // .                  .
  63.     // .  JanusErrorInfo  .  SPEC
  64.     // .                  .
  65.     // ....................
  66.  
  67.     extern int _ADA JanusErrorInfo ( void );
  68.     
  69.     return JanusErrorInfo();
  70. }
  71.