/* Copyright (c) 1996 by Terje Pedersen.  All Rights Reserved   */
/*                                                              */
/* By using this code you will agree to these terms:            */
/*                                                              */
/* 1. You may not use this code for profit in any way or form   */
/*    unless an agreement with the author has been reached.     */
/*                                                              */
/* 2. The author is not responsible for any damages caused by   */
/*    the use of this code.                                     */
/*                                                              */
/* 3. All modifications are to be released to the public.       */
/*                                                              */
/* Thats it! Have fun!                                          */
/* TP                                                           */
/*                                                              */

/***
   NAME
     context
   PURPOSE
     
   NOTES
     
   HISTORY
     Terje Pedersen - Jun 29, 1995: Created.
***/

#include <intuition/intuition.h>
#include <intuition/intuitionbase.h>

#include <graphics/gfx.h>
#include <graphics/gfxbase.h>
#include <graphics/gfxmacros.h>
#include <graphics/displayinfo.h>
#include <devices/timer.h>

#include <proto/intuition.h>
#include <proto/graphics.h>
#include <proto/gadtools.h>
#include <proto/layers.h>

#include <dos.h>
#include <signal.h>
#include <stdlib.h>
#include <time.h>
#include <stdio.h>

#include "libX11.h"

#define XLIB_ILLEGAL_ACCESS 1

#include <X11/X.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Intrinsic.h>
#include <X11/IntrinsicP.h>
#include <X11/CoreP.h>


#define MAXID 200
#define MAXCONTEXT 5
int X11resourceID[MAXID];
int X11contextType[MAXID][MAXCONTEXT];
char *X11contextData[MAXID][MAXCONTEXT];
int X11numIDs = 0;

int X11Quarks = 1;

/********************************************************************************
Name     : 
Author   : Terje Pedersen
Input    : 
Output   : 
Function : 
********************************************************************************/

X11contextoverflow( int d )
{
  printf("Warning: context overflow(%d)..\n",d); getchar();
}

/********************************************************************************
Name     : 
Author   : Terje Pedersen
Input    : 
Output   : 
Function : 
********************************************************************************/

XrmUniqueQuark()
{
#ifdef DEBUGXEMUL_ENTRY
  printf("XrmUniqueQuark\n");
#endif
/*
  int i;
  for( i=0; i<X11numIDs; i++ )
  if( X11resourceID[i]==0 ){

    return(i);
  }
*/
  return( X11Quarks++ );
}

/********************************************************************************
Name     : 
Author   : Terje Pedersen
Input    : 
Output   : 
Function : 
********************************************************************************/

X11findID( XID rid )
{
  int i;

  for( i=0; i<X11numIDs; i++ )
    if( X11resourceID[i]==rid )
      break;
  if( i<X11numIDs )
    return(i);
  else {
    for( i=0; i<X11numIDs; i++ )
      if( !X11resourceID[i] ){
	X11resourceID[i] = rid;

	return(i);
      }
    X11resourceID[X11numIDs] = rid;
    if( X11numIDs+1==MAXID ){
      X11contextoverflow(1);

      return( X11numIDs );
    }

    return( X11numIDs++ );
  }
}

/********************************************************************************
Name     : 
Author   : Terje Pedersen
Input    : 
Output   : 
Function : 
********************************************************************************/

int
XSaveContext( Display* display,
	      XID rid,
	      XContext context,
	      _Xconst char* data )
{
  int id = X11findID(rid);

#ifdef DEBUGXEMUL_ENTRY
  printf("XSaveContext\n");
#endif
  if( context>=MAXCONTEXT )
    X11contextoverflow(2);
  X11contextType[id][context] = context;
  X11contextData[id][context] = data;

  return(0);
}

/********************************************************************************
Name     : 
Author   : Terje Pedersen
Input    : 
Output   : 
Function : 
********************************************************************************/

int
XDeleteContext( Display* display,
	        XID rid,
	        XContext context )
{
  int id = X11findID(rid);

#ifdef DEBUGXEMUL_ENTRY
  printf("XDeleteContext\n");
#endif
  if( context>=MAXCONTEXT )
    X11contextoverflow(3);
  X11contextType[id][context] = 0;
  free(X11contextData[id][context]);
  X11contextData[id][context] = NULL;
  X11resourceID[id] = 0;

  return(0);
}

/********************************************************************************
Name     : 
Author   : Terje Pedersen
Input    : 
Output   : 
Function : 
********************************************************************************/

int
XFindContext( Display* display,
	      XID rid,
	      XContext context,
	      XPointer* data_return )
{
  int i;

#ifdef DEBUGXEMUL_ENTRY
  printf("XFindContext\n");
#endif

  for( i=0; i<X11numIDs; i++ )
    if( X11resourceID[i]==rid )
      break;
  if( i==X11numIDs )
    return(1);
  if( context>=MAXCONTEXT )
    X11contextoverflow(4);
  *data_return = X11contextData[i][context];
  if( !*data_return )
    return(1);
  return(0);
}