#ifndef WINELIB
#include <stdio.h>
#include <stdlib.h>
#include <signal.h>
#include <string.h>
#include <errno.h>
#include <time.h>
#include <setjmp.h>

#if defined(__NetBSD__) || defined(__FreeBSD__)
#include <sys/syscall.h>
#include <sys/param.h>
#else
#include <syscall.h>
#endif

#include "wine.h"
#include "dos_fs.h"
#include "prototypes.h"
#include "miscemu.h"
#include "registers.h"
#include "win.h"

#if !defined(BSD4_4) || defined(linux) || defined(__FreeBSD__)
char * cstack[4096];
#endif
struct sigaction segv_act;

#ifdef linux
extern void ___sig_restore();
extern void ___masksig_restore();

/* Similar to the sigaction function in libc, except it leaves alone the
   restorer field */

static int
wine_sigaction(int sig,struct sigaction * new, struct sigaction * old)
{
	__asm__("int $0x80":"=a" (sig)
		:"0" (SYS_sigaction),"b" (sig),"c" (new),"d" (old));
	if (sig>=0)
		return 0;
	errno = -sig;
	return -1;
}
#endif

int do_int(int intnum, struct sigcontext_struct *context)
{
	switch(intnum)
	{
	      case 0x10: return do_int10(context);

	      case 0x11:  
		AX = DOS_GetEquipment();
		return 1;

	      case 0x12:               
		AX = 640;
		return 1;	/* get base mem size */                

              case 0x13: return do_int13(context);
	      case 0x15: return do_int15(context);
	      case 0x16: return do_int16(context);
	      case 0x1a: return do_int1a(context);
	      case 0x21: return do_int21(context);

	      case 0x22:
		AX = 0x1234;
		BX = 0x5678;
		CX = 0x9abc;
		DX = 0xdef0;
		return 1;

              case 0x25: return do_int25(context);
              case 0x26: return do_int26(context);
              case 0x2a: return do_int2a(context);
	      case 0x2f: return do_int2f(context);
	      case 0x31: return do_int31(context);
	      case 0x5c: return do_int5c(context);

              default:
                fprintf(stderr,"int%02x: Unimplemented!\n", intnum);
                break;
	}
	return 0;
}

#ifdef linux
static void win_fault(int signal, struct sigcontext_struct context_struct)
{
    struct sigcontext_struct *context = &context_struct;
#else
static void win_fault(int signal, int code, struct sigcontext *context)
{
#endif
    unsigned char * instr;
    WORD *stack;
#if !(defined (linux) || defined (__NetBSD__))
    int i, *dump;
#endif

	/* First take care of a few preliminaries */
#ifdef linux
    if(signal != SIGSEGV 
       && signal != SIGILL 
       && signal != SIGFPE 
#ifdef SIGBUS
       && signal != SIGBUS 
#endif
       && signal != SIGTRAP) 
    {
	exit(1);
    }

    /* And back up over the int3 instruction. */
    if(signal == SIGTRAP) {
      EIP--;
      goto oops;
    }
#endif
#ifdef __NetBSD__
/*         set_es(0x1f); set_ds(0x1f); */
    if(signal != SIGBUS && signal != SIGSEGV && signal != SIGTRAP) 
	exit(1);
#endif
#ifdef __FreeBSD__
/*         set_es(0x27); set_ds(0x27); */
    if(signal != SIGBUS && signal != SIGSEGV && signal != SIGTRAP) 
	exit(1);
#endif
    if (CS == WINE_CODE_SELECTOR)
    {
	fprintf(stderr,
		"Segmentation fault in Wine program (%x:%lx)."
		"  Please debug\n", CS, EIP );
	goto oops;
    }

    /*  Now take a look at the actual instruction where the program
	bombed */
    instr = (unsigned char *) PTR_SEG_OFF_TO_LIN( CS, EIP );

    switch(*instr)
    {
      case 0xcd: /* int <XX> */
            instr++;
	    if (!do_int(*instr, context)) {
		fprintf(stderr,"Unexpected Windows interrupt %x\n", *instr);
		goto oops;
	    }
	    EIP += 2;  /* Bypass the int instruction */
            break;

      case 0xcf: /* iret */
            stack = (WORD *)PTR_SEG_OFF_TO_LIN( SS, SP );
            EIP = *stack++;
            CS  = *stack++;
            EFL = *stack;
            SP += 6;  /* Pop the return address and flags */
            break;

      case 0xe4: /* inb al,XX */
            inportb_abs(context);
	    EIP += 2;
            break;

      case 0xe5: /* in ax,XX */
            inport_abs(context);
	    EIP += 2;
            break;

      case 0xe6: /* outb XX,al */
            outportb_abs(context);
	    EIP += 2;
            break;

      case 0xe7: /* out XX,ax */
            outport_abs(context);
	    EIP += 2;
            break;

      case 0xec: /* inb al,dx */
            inportb(context);
	    EIP++;
            break;

      case 0xed: /* in ax,dx */
            inport(context);
	    EIP++;  
            break;

      case 0xee: /* outb dx,al */
            outportb(context);
	    EIP++;
            break;
      
      case 0xef: /* out dx,ax */
            outport(context);
	    EIP++;
            break;

      case 0xfa: /* cli, ignored */
	    EIP++;
            break;

      case 0xfb: /* sti, ignored */
	    EIP++;
            break;

      default:
		fprintf(stderr, "Unexpected Windows program segfault"
			" - opcode = %x\n", *instr);
		goto oops;
    }
    
    /* OK, done handling the interrupt */

    return;

  oops:
    XUngrabPointer(display, CurrentTime);
    XUngrabServer(display);
    XFlush(display);
    fprintf(stderr,"In win_fault %x:%lx\n", CS, EIP );
#if defined(linux) || defined(__NetBSD__) || defined(__FreeBSD__)
    wine_debug(signal, (int *)context);  /* Enter our debugger */
#else
    fprintf(stderr,"Stack: %x:%x\n", SS, ESP );
    dump = (int*) context;
    for(i=0; i<22; i++) 
    {
	fprintf(stderr," %8.8x", *dump++);
	if ((i % 8) == 7)
	    fprintf(stderr,"\n");
    }
    fprintf(stderr,"\n");
    exit(1);
#endif
}

void init_wine_signals(void)
{
#ifdef linux
	segv_act.sa_handler = (__sighandler_t) win_fault;
	/* Point to the top of the stack, minus 4 just in case, and make
	   it aligned  */
	segv_act.sa_restorer = 
		(void (*)()) (((unsigned int)(cstack) + sizeof(cstack) - 4) & ~3);
	wine_sigaction(SIGSEGV, &segv_act, NULL);
	wine_sigaction(SIGILL, &segv_act, NULL);
	wine_sigaction(SIGFPE, &segv_act, NULL);
#ifdef SIGBUS
	wine_sigaction(SIGBUS, &segv_act, NULL);
#endif
	wine_sigaction(SIGTRAP, &segv_act, NULL); /* For breakpoints */
#endif
#if defined(__NetBSD__) || defined(__FreeBSD__)
        sigset_t sig_mask;
        struct sigaltstack ss;
        
#if !defined (__FreeBSD__)
        if ((ss.ss_base = malloc(MINSIGSTKSZ)) == NULL) {
#else
        if ((ss.ss_sp = malloc(MINSIGSTKSZ)) == NULL) {
#endif
	        fprintf(stderr, "Unable to allocate signal stack (%d bytes)\n",
		        MINSIGSTKSZ);
		exit(1);
	}
	ss.ss_size = MINSIGSTKSZ;
        ss.ss_flags = 0;
        if (sigaltstack(&ss, NULL) < 0) {
                perror("sigstack");
                exit(1);
        }
        sigemptyset(&sig_mask);
        segv_act.sa_handler = (void (*)) win_fault;
	segv_act.sa_flags = SA_ONSTACK;
        segv_act.sa_mask = sig_mask;
	if (sigaction(SIGBUS, &segv_act, NULL) < 0) {
                perror("sigaction: SIGBUS");
                exit(1);
        }
        segv_act.sa_handler = (void (*)) win_fault;
	segv_act.sa_flags = SA_ONSTACK;
        segv_act.sa_mask = sig_mask;
	if (sigaction(SIGSEGV, &segv_act, NULL) < 0) {
                perror("sigaction: SIGSEGV");
                exit(1);
        }
        segv_act.sa_handler = (void (*)) win_fault; /* For breakpoints */
	segv_act.sa_flags = SA_ONSTACK;
        segv_act.sa_mask = sig_mask;
	if (sigaction(SIGTRAP, &segv_act, NULL) < 0) {
                perror("sigaction: SIGTRAP");
                exit(1);
        }
#endif
}

#endif /* ifndef WINELIB */