#include <stdio.h>
#include <stdlib.h>
#include <strings.h>

//#include <X11/Xlib.h>
#include <X11/Xutil.h>
//#include <X11/Xatom.h>
#include <X11/Xresource.h>

extern const char *__progname;

#include "vars.h"

#include "x.h"

static XrmDatabase db;

static int argc;
static char **argv;

static Display *disp;
static Screen *scr;
static int scrno;
static int width;
static int height;
static Window rootwin;
static XVisualInfo visinfo;
static int (*preverr)(Display *, XErrorEvent *);
static int (*prevIOerr)(Display *);
static Colormap wincmap;

static Display *open_display(const char *disp)
{
 Display *rv;

 rv = XOpenDisplay(disp);
 if (rv == 0)
  { fprintf(stderr,"%s: can't open display %s\n",__progname,XDisplayName(disp));
    exit(1);
  }
 return(rv);
}

static int err(Display *d, XErrorEvent *ee)
{
 return((*preverr)(d,ee));
}

static int ioerr(Display *d)
{
 return((*prevIOerr)(d));
}

static void setup_visual(void)
{
 XVisualInfo *xvi;
 int nvi;
 XVisualInfo template;

 if (visualstr)
  { unsigned long int id;
    char *cp;
    id = strtol(visualstr,&cp,0);
    if (*cp)
     { fprintf(stderr,"%s: %s: invalid visual option\n",__progname,visualstr);
       exit(1);
     }
    template.visualid = (VisualID) id;
    xvi = XGetVisualInfo(disp,VisualIDMask,&template,&nvi);
    if (xvi == 0)
     { fprintf(stderr,"%s: no such visual found\n",__progname);
       exit(1);
     }
    if (nvi == 0)
     { fprintf(stderr,"%s: what? XGetVisualInfo returned non-nil but zero count?\n",__progname);
       exit(1);
     }
    visinfo = xvi[0];
    if (visinfo.class != TrueColor)
     { fprintf(stderr,"%s: visual %s isn't TrueColor\n",__progname,visualstr);
       exit(1);
     }
    if (visinfo.screen != XDefaultScreen(disp))
     { fprintf(stderr,"%s: warning: visual %s is on screen %d\n",__progname,visualstr,(int)visinfo.screen);
     }
  }
 else
  { int best_onscr;
    int best;
    int i;
    template.class = TrueColor;
    xvi = XGetVisualInfo(disp,VisualClassMask,&template,&nvi);
    best = -1;
    best_onscr = -1;
    for (i=0;i<nvi;i++)
     { if (xvi[i].screen == XDefaultScreen(disp))
	{ if ( (best_onscr < 0) ||
	       (xvi[i].depth > xvi[best_onscr].depth) ||
	       ( (xvi[i].depth == xvi[best_onscr].depth) &&
		 (xvi[i].visual == XDefaultVisual(disp,xvi[i].screen)) ) )
	   { best_onscr = i;
	   }
	}
       if ( (best < 0) ||
	    (xvi[i].depth > xvi[best].depth) ||
	    ( (xvi[i].depth == xvi[best].depth) &&
	      (xvi[i].visual == XDefaultVisual(disp,xvi[i].screen)) ) )
	{ best = i;
	}
     }
    if (best < 0)
     { fprintf(stderr,"%s: no TrueColor visual available\n",__progname);
       exit(1);
     }
    if (best_onscr < 0)
     { fprintf(stderr,"%s: no TrueColor visual on screen %d, using screen %d\n",__progname,XDefaultScreen(disp),xvi[best].screen);
     }
    else
     { best = best_onscr;
     }
    visinfo = xvi[best];
  }
}

static void setup_db(void)
{
 char *str;
 XrmDatabase db2;

 db = XrmGetStringDatabase("");
 str = XResourceManagerString(disp);
 if (str)
  { db2 = XrmGetStringDatabase(str);
    XrmMergeDatabases(db2,&db);
  }
#if defined(XlibSpecificationRelease) && (XlibSpecificationRelease >= 5)
 str = XScreenResourceString(scr);
 if (str)
  { db2 = XrmGetStringDatabase(str);
    XrmMergeDatabases(db2,&db);
  }
#endif
 if (xrmstr)
  { db2 = XrmGetStringDatabase(xrmstr);
    XrmMergeDatabases(db2,&db);
  }
}

void saveargv(int ac, char **av)
{
 int i;
 int nc;
 char *abuf;

 argc = ac;
 argv = malloc((ac+1)*sizeof(char *));
 nc = 1;
 for (i=0;i<ac;i++)
  { nc += strlen(av[i]) + 1;
  }
 abuf = malloc(nc*sizeof(char));
 for (i=0;i<ac;i++)
  { argv[i] = abuf;
    strcpy(abuf,av[i]);
    while (*abuf) abuf ++;
    abuf ++;
  }
 *abuf = '\0';
 argv[ac] = 0;
}

void setup_X(void)
{
 XrmInitialize();
 disp = open_display(displayname);
 if (synch) XSynchronize(disp,True);
 preverr = XSetErrorHandler(err);
 prevIOerr = XSetIOErrorHandler(ioerr);
 setup_visual();
 scr = XScreenOfDisplay(disp,visinfo.screen);
 scrno = visinfo.screen;
 width = XWidthOfScreen(scr);
 height = XHeightOfScreen(scr);
 rootwin = XRootWindowOfScreen(scr);
 setup_db();
 wincmap = XCreateColormap(disp,rootwin,visinfo.visual,AllocNone);
}