/* hosts/amiga/amiga.c
**
** Collects all routines needed for the Amiga which are not specific
** enough to go into one of the other files.
**
**   25-Feb-93 [lars]
**   28-Feb-93 [lars] Moved to DICE 2.07.53
**   02-Apr-93 [lars] send_udp() dummy added.
**   09-Apr-93 [lars] Overloaded break check of the compiler.
**   17-Jun-93 [lars] Put in support for AmiTCP.
**   20-Sep-93 [lars] Fixed small but fatal bug in chmod().
**   23-Nov-93 [lars] Made version string more style conform.
**   30-Nov-93 [lars] ixconvert() et al. exported into ixfile.c
**   16-Dec-93 [lars] SystemTagList() exported into ixfile.c
**   05-Jun-94 [lars] cleanup_alarm() called on shutdown.
*/

/*-----------------------------------------------------------------------*/

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

#ifdef INCLUDE_VERSION
#include <dos/dos.h>
#include <clib/dos_protos.h>
#else
#include <libraries/dos.h>
#endif

#include <stdlib.h>
#include <stdio.h>
#include <strings.h>
#include "config.h"
#include "patchlevel.h"
#include "nsignal.h"

#if defined(_DCC) && !defined(INCLUDE_VERSION)  /* for fstat() */
#include <sys/stat.h>
#include <stdlib.h>
#include <fcntl.h>
#include <string.h>
#endif

extern struct Library *SysBase; /* DICE runtime will open it */

void init_rusage(void);

/*-----------------------------------------------------------------------*/

#ifdef INCLUDE_VERSION
#  define OSVERSION "2.0"
#  ifndef AMIGA_TCP
#    define NETVERSION
#    define NETSTRING ""
#  elif defined(AMITCP)
#    define NETVERSION ", AmiTCP"
#    define NETSTRING NETVERSION
#  else /* AS225 */
#    define NETVERSION ", AS225"
#    define NETSTRING NETVERSION
#  endif /* type of net interface */
#else  /* OS 1.3 */
#  define OSVERSION "1.3"
#  define NETVERSION
#  define NETSTRING ""
#endif

static char ver[] =
  "\0$VER: Amylaar-LPMud " GAME_VERSION PATCH_LEVEL " (" __DATE__ ") OS " OSVERSION NETVERSION " #940718";
static APTR oldException = NULL;
static ULONG oldExceptSig = 0L;

extern ULONG sys_signal_alarm;

/*-----------------------------------------------------------------------
** void amiga_init(void);
** void amiga_end(void);
**
** Perform all necessary setup/setdown operations.
*/

void amiga_init (void) {
  char *vp = ver;  /* so the version string won't be optimized away */

  printf ("dr %s%s (Amiga, OS %s%s)\n", GAME_VERSION, PATCH_LEVEL, OSVERSION, NETSTRING);
#ifdef INCLUDE_VERSION
  if (SysBase->lib_Version < 36) {
    printf ("Fatal: Need OS 2.0 to run.\n");
    exit(20);
  }
#endif
  init_rusage();
#if defined(AMIGA_TCP)
  amiga_sockinit();
#endif
  oldException = ((struct Task*)FindTask(NULL))->tc_ExceptCode;
  oldExceptSig = SetExcept(0L, 0L);
}

void amiga_end (void) {
  static short done = 0;
  if (done++) return;  /* May be called multiple times */
  cleanup_alarm();
  SetExcept (oldExceptSig, EXT_SIGINT | EXT_SIGHUP | sys_signal_alarm);
  ((struct Task*)FindTask(NULL))->tc_ExceptCode = oldException;
#if defined(AMIGA_TCP)
  amiga_sockexit();
#endif
}

/*-----------------------------------------------------------------------
** int send_udp (char *to_host, int to_port, char *msg)
**
** This is normally implemented in comm1.c when UDP communications
** are used. Unfortunately, since make_func doesn't incarnate a full
** preprocessor, compiling with simulated sockets makes interpret.c access
** send_udp() even though comm1.c doesn't know about it.
** So this dummy...
*/

#ifndef UDP_SEND
int send_udp(char *to_host, int to_port, char *msg)
{
  return 0;
}
#endif

/*-----------------------------------------------------------------------
** DICE-specifics.
*/

#if defined(_DCC)

/*-----------------------------------------------------------------------
** The routine the DICE runtime lib will call for Ctrl-C checks.
** It is overloaded so it will work with LPMuds special signal handling.
*/

void chkabort(void) { check_signals(); }

/*-----------------------------------------------------------------------
** DICE has the prototype, but not the fun...
*/

void *memchr (const void *buf, int c, size_t s) {
  while (s--) if (*(char *)buf == (char) c) return buf; else ((char *)buf)++;
  return NULL;
}

#ifndef INCLUDE_VERSION /* !OS 2.0 */
/*-----------------------------------------------------------------------
** DICE's implementation of fstat() uses dos ExamineFH() when running
** under OS 2.0. Unfortunately there's no stub for it the 1.3-amiga.lib
** so compiling for OS 1.3 can't be done.
** To circumvent this, this downstripped version of fstat() is used
** when compiling for OS 1.3. Due to that OS limitations, it doesn't
** work properly.
*/

typedef struct FileInfoBlock  FileInfoBlock;

fstat(int fd, struct stat *xstat) {
  int r = -1;
  _IOFDS *d;

  clrmem(xstat, sizeof(*xstat));
  if (d = __getfh(fd)) {
    r = stat(d->fd_FileName, xstat);
    /*
     *        extended size will not show up in examine if we have written
     *        the active handle.
     */
    {
      long pos = Seek(d->fd_Fh, 0L, 0);
      long siz;
      Seek(d->fd_Fh, 0L, 1);
      siz = Seek(d->fd_Fh, pos, -1);
      if (xstat->st_size < siz)
      xstat->st_size = siz;
    }
  }
  return(r);
}

#endif /* !OS 2.0 */

#endif /* DICE */

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