RCS_ID_C="$Id: autoinit.c,v 4.3 1994/09/29 23:09:02 jraja Exp $";
/*
 *      autoinit.c - SAS/C autoinitialization functions for bsdsocket.library
 *
 *      Copyright © 1994 AmiTCP/IP Group, 
 *                       Network Solutions Development Inc.
 *                       All rights reserved.
 */

#include <exec/types.h>
#include <exec/libraries.h>

#include <intuition/intuition.h>

#include <proto/socket.h>
#include <proto/exec.h>
#include <proto/intuition.h>

#include <stdlib.h>

#include <errno.h>

#include <amitcp/socketbasetags.h>

struct Library *SocketBase = NULL;

static const char SOCKETNAME[] = "bsdsocket.library";

#define SOCKETVERSION 4		/* minimum bsdsocket version to use */

extern STRPTR _ProgramName;	/* SAS startup module defines this :-) */

/*
 * Globa| h_errno
 */
#if sizeof(int) != sizeof(long)
#error short ints not supported!
#endif
int h_errno = 0;

/****** net.lib/autoinit *********************************************

    NAME
        autoinit - SAS C Autoinitialization Functions

    SYNOPSIS
        LONG _STI_200_openSockets(void)

        void _STD_200_closeSockets(void)

    FUNCTION
        These functions open and close the bsdsocket.library at the startup
        and exit of the program, respectively.  For a program to use these
        functions, it must be linked with netlib:net.lib (or some variant).
        These functions are linked in only if the program references the
        global symbol "SocketBase".

        If the library can be opened, the _STI_200_openSockets() calls
        bsdsocket.library function SocketBaseTags() to tell the library the
        address and the size of the errno variable of the calling program,
        the program name (to be used in syslog() messages) and the address
        of the h_error variable (in which the name resolver errors are
        returned).

    NOTES
        _STI_200_openSockets() also checks that the system version is at
        least 37. It also puts up a requester if the bsdsocket.library is
        not found or is of wrong version.

        The autoinitialization and autotermination functions are features
        specific to the SAS C6.  However, these functions can be used with
        other (ANSI) C compilers, too. Example follows:

        \* at start of main() *\

        atexit(_STD_200_closeSockets);
        if (_STI_200_openSockets() != 0)
	   exit(20);

    BUGS
        The same autoinitialization won't work for both SAS C 6.3 and SAS C
        6.50 or latter.  Only way to terminate an initialization function is
        by exit() call with SAS C 6.3 binary.  If an autoinitialization
        function is terminated by exit() call with SAS C 6.50 binary, the
        autotermination functions won't be called.  Due this braindamage
        these compilers require separate net.lib libraries.

    SEE ALSO
        bsdsocket.library/SocketBaseTags(),
        SAS/C 6 User's Guide p. 145 for details of autoinitialization and
        autotermination functions.

*****************************************************************************
*/

/* SAS C 6.50 kludge */
#if __VERSION__ > 6 || __REVISION__ >= 50
#define exit(x) return(x)
#endif

/*
 * Using __stdargs prevents creation of register arguments entry point.
 * If both stack args and reg. args entry points are created, this
 * function is called _twice_, which is not wanted.
 *
 * The number 200 in the function names is the priority assigned to
 * shared library autoinitialization functions by SAS/C 6.50.
 */
LONG __stdargs
_STI_200_openSockets(void)
{
  struct Library *IntuitionBase;
  STRPTR errorStr;

  /*
   * Check OS version
   */
  if ((*(struct Library **)4)->lib_Version < 37)
    exit(20);

  /*
   * Open bsdsocket.library
   */
  if ((SocketBase = OpenLibrary((STRPTR)SOCKETNAME, SOCKETVERSION)) != NULL) {
    /*
     * Succesfull. Now tell bsdsocket.library:
     * - the address of our errno
     * - the address of our h_errno
     * - our program name
     */
    if (SocketBaseTags(SBTM_SETVAL(SBTC_ERRNOPTR(sizeof(errno))), &errno,
		       SBTM_SETVAL(SBTC_HERRNOLONGPTR), &h_errno,
		       SBTM_SETVAL(SBTC_LOGTAGPTR), _ProgramName,
		       TAG_END))
      exit(30);
    return 0;
  }
  else
    errorStr = "AmiTCP/IP version 4 or later must be started first.";

  IntuitionBase = OpenLibrary("intuition.library", 36);

  if (IntuitionBase != NULL) {
    struct EasyStruct libraryES;

    libraryES.es_StructSize = sizeof(libraryES);
    libraryES.es_Flags = 0;
    libraryES.es_Title = _ProgramName;
    libraryES.es_TextFormat = errorStr;
    libraryES.es_GadgetFormat = "Exit %s";

    EasyRequestArgs(NULL, &libraryES, NULL, (APTR)&_ProgramName);

    CloseLibrary(IntuitionBase);
  }
  exit(20);
}

void __stdargs
_STD_200_closeSockets(void)
{
  if (SocketBase) {
    CloseLibrary(SocketBase);
    SocketBase = NULL;
  }
}