/*****************************************************************************
*									     *
*  COPYRIGHT (c) 1993 BY						     *
*  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.			     *
*  ALL RIGHTS RESERVED.						             *
* 									     * 
*  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED     *
*  ONLY IN  ACCORDANCE WITH  THE  TERMS  OF  SUCH  LICENSE  AND WITH THE     *
*  INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR  ANY  OTHER     *
*  COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY     *
*  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE IS  HEREBY     *
*  TRANSFERRED.							             *
* 									     * 
*  THE INFORMATION IN THIS SOFTWARE IS  SUBJECT TO CHANGE WITHOUT NOTICE     * 
*  AND  SHOULD  NOT  BE  CONSTRUED AS  A COMMITMENT BY DIGITAL EQUIPMENT     * 
*  CORPORATION.							             *
* 									     * 
*  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE  OR  RELIABILITY OF ITS     *
*  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.		     *
*									     *
*****************************************************************************/

/*
*++
*  FACILITY:
*
*      VMS Executive (LIB)
*
*  ABSTRACT:
*
*  This header file will setup initialization/unload routines for execlets.
*  Before including this header file, the programmer needs to #define symbols
*  for those routines to be defined. The good news is that you can setup all
*  your initialization and unload routines in one swell foop. You can define
*  multiple symbols and then just #include this file to do the setup. This is
*  different from how the setup works from MACRO or BLISS, where a nice macro
*  takes care of ALL of the ugly stuff. In C, you need to get ugly yourself
*  (yes, this is supposed to be an improvement - Guess again!). Fortunately,
*  that's easy for most of us. 
*
*  This include file has been setup so that multiple inclusions won't cause
*  problems. It will still work properly. However, the way you use this include
*  file DOES matter. It can ONLY be invoked from the outer most scope of your
*  C module, and that includes outside of main{}. You must also have already
*  declared the initialization/unload routines. 
*
*  This include file specifies the following psect option attributes that must
*  not be overridden in your link option file (DECC always sets MOD for
*  psects with initial data):
*
*  For EXEC$INIT_000 and EXEC$INIT_001:
*
*	LONG,PIC,CON,REL,GBL,NOSHR,EXE,WRT,NOVEC,MOD
*
*  For EXEC$UNL_000 and EXEC$UNL_001:
*
*	OCTA,PIC,CON,REL,GBL,NOSHR,NOEXE,WRT,NOVEC,MOD
*
*  The following examples show what to do in your C execlet to emulate what
*  you used to do in MACRO and BLISS:
*
*  To setup a single, priority 0 (the MACRO/BLISS default) initialization
*  routine:
*
*  execlet_init_rtn()
*    { }
*
*  #define INIT000_ROUTINE execlet_init_rtn
*  #include <init_rtn_setup>
*
*  main()
*    { }
*
*  To setup a priority 1 initialization routine and priority 0 (the MACRO/BLISS
*  default) unload routine:
*
*  execlet_init_rtn()
*    { }
*  execlet_unload_rtn()
*    { }
*
*  #define INIT001_ROUTINE execlet_init_rtn
*  #define UNL000_ROUTINE execlet_unload_rtn
*  #include <init_rtn_setup>
*
*  main()
*    { }
*
*  AUTHOR:
*
*      Steve DiPirro
*
*  CREATION DATE:      07-Jan-1993
*
*  MODIFICATION HISTORY:
*
*	X-3	Andy Kuehnel				22-Jul-1998
*		- Allow multiple modules to specify init routines.
*		- Specify the psect options; we are finally using a
*		  compiler that allows us to do that.
*
*	X-2	SDD		Steve DiPirro		06-May-1996
*		Make sure required pointer size explicitly declared.
*
*--
*/

/*
  We want to allow multiple inclusions of this header file. So no need to
  do the setup more than once.
*/
#ifndef __INIT_RTN_SETUP
#define __INIT_RTN_SETUP 1

#ifdef __INITIAL_POINTER_SIZE
#pragma __required_pointer_size __save
#pragma __required_pointer_size __short
#endif

/*
 Some compilers warn if an array is allocated on too small an alignment.  We must allocate on an exact alignment
 for the init processing to work, so we must do it this way.  Disable the warning.
*/

#pragma message save
#pragma message disable UNKMSGID  /* This allows the next one to work even on compilers where it is not supported*/
#pragma message disable ALIGNNOTSTD

typedef struct
{
    int (*init_rtn)();
    long second_long;
} INIT_RTN_VEC;

#endif

#define ssxconcat(a,b) a##b
#define ssconcat(a,b) ssxconcat(a,b)

/*
  The setup is complete. For each routine symbol which has been defined,
  setup the vector in the appropriate PSECT for that routine.
*/

#ifdef INIT001_ROUTINE
#pragma extern_model save 
#pragma extern_model strict_refdef "EXEC$INIT_001" long,pic,con,rel,gbl,noshr,exe,wrt,novec
INIT_RTN_VEC ssconcat(INIVEC$,INIT001_ROUTINE)={INIT001_ROUTINE,0};
#pragma extern_model restore
#undef INIT001_ROUTINE
#endif

#ifdef INIT000_ROUTINE
#pragma extern_model save 
#pragma extern_model strict_refdef "EXEC$INIT_000" long,pic,con,rel,gbl,noshr,exe,wrt,novec
INIT_RTN_VEC ssconcat(INIVEC$,INIT000_ROUTINE)={INIT000_ROUTINE,0};
#pragma extern_model restore
#undef INIT000_ROUTINE
#endif

#ifdef UNL001_ROUTINE
#pragma extern_model save 
#pragma extern_model strict_refdef "EXEC$UNL_001" octa,pic,con,rel,gbl,noshr,noexe,wrt,novec
INIT_RTN_VEC ssconcat(INIVEC$,UNL001_ROUTINE)={UNL001_ROUTINE,0};
#pragma extern_model restore
#undef UNL001_ROUTINE
#endif

#ifdef UNL000_ROUTINE
#pragma extern_model save 
#pragma extern_model strict_refdef "EXEC$UNL_000" octa,pic,con,rel,gbl,noshr,noexe,wrt,novec
INIT_RTN_VEC ssconcat(INIVEC$,UNL000_ROUTINE)={UNL000_ROUTINE,0};
#pragma extern_model restore
#undef UNL000_ROUTINE
#endif

#pragma message restore


#ifdef __INITIAL_POINTER_SIZE
#pragma __required_pointer_size __restore
#endif