/*
 * Copyright 1989 O'Reilly and Associates, Inc.
 * See ../Copyright for complete rights and liability information.
 */
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xos.h>

#include <stdio.h>
#include "serial_sgi.h"
#include <unistd.h>
#include <math.h>

/*#include "../bitmaps/icon_bitmap"*/
#define BITMAPDEPTH 1
#define SMALL 1
#define OK 0
#define BUF_SIZE 2000

#define MAX(x,y) (x>y ? x : y)
#define MIN(x,y) (x<y ? x : y)

Cursor createnullcursor(Display *display,Window root)
{
    Pixmap cursormask;
    XGCValues xgc;
    GC gc;
    XColor dummycolour;
    Cursor cursor;

    cursormask = XCreatePixmap(display, root, 1, 1, 1/*depth*/);
    xgc.function = GXclear;
    gc =  XCreateGC(display, cursormask, GCFunction, &xgc);
    XFillRectangle(display, cursormask, gc, 0, 0, 1, 1);
    dummycolour.pixel = 0;
    dummycolour.red = 0;
    dummycolour.flags = 04;
    cursor = XCreatePixmapCursor(display, cursormask, cursormask,
              &dummycolour,&dummycolour, 0,0);
    XFreePixmap(display,cursormask);
    XFreeGC(display,gc);
    return cursor;
}

/* These are used as arguments to nearly every Xlib routine, so it saves 
 * routine arguments to declare them global.  If there were 
 * additional source files, they would be declared extern there. */
Display *display;
int screen;

void main(argc, argv)
int argc;
char **argv;
{
    Window win;
    unsigned int width, height, x = 0, y = 0;   /* window size and position */
    unsigned int border_width = 4;  /* four pixels */
    unsigned int display_width, display_height;
    unsigned int icon_width, icon_height;
    char *window_name = "basicwin";
    char *icon_name = "";
    Pixmap icon_pixmap;
    XSizeHints size_hints;
    XIconSize * size_list;
    XEvent report;
    GC gc;
    XFontStruct * font_info;
    char *display_name = NULL;
    int window_size = 0;    /* OK, or too SMALL to display contents */
    int root_x, root_y;
    int win_x, win_y;
    Window root, child;
    unsigned int keys_buttons;

    Window subwin;
    int xpositions[BUF_SIZE], ypositions[BUF_SIZE];
    int i;
    int count = 0;
    Bool buffer_filled = False;
    int status=0;
    
    /* JED */
    Window tmproot,tmpchild;
    int rootx,rooty,childx,childy;
    unsigned int maskreturn, prevmask;
    int xwarp;
    int prevx, prevy;
    int savey;
    int tmpint;
    Cursor nullcursor;
    
    
    int sendingstate=0;
    int sendleft=0;
    int sendright=0;
    float sendmult=1.0;
    
    
    /* mouse control params */
    int orig_num;
    int orig_den;
    int orig_thr;
    
    /* serial port */
    SerialID port;
    char outbuf[2048];
    char v1,v2,v3;
    
    int c;
    extern char *optarg;
    extern int optind;
    
    
    /* options */
    while ((c = getopt(argc, argv, "lrm:")) != -1)
      switch (c) {
      case 'l':
	sendleft=1;
	break;
      case 'r':
	sendright=1;
	break;
      case 'm':
	sendmult = atof(optarg);
	if (fabs(sendmult)<0.01) sendmult=1.0;
	break;
      case '?':
	fprintf(stderr,"usage: sharemouse [-l] [-r] [-m speed_mult]\n");
	fprintf(stderr,"\n");
	
	exit(2);
	break;
      }
 
    /* printf ("sendmult %f\n",sendmult);*/
    

    /* connect to X server */

    if ( (display = XOpenDisplay(display_name)) == NULL ) {
        (void) fprintf( stderr, "basicwin: cannot connect to X server %s\n",
                XDisplayName(display_name));
        exit( -1 );
    }

    /* get screen size from display structure macro */
    screen = DefaultScreen(display);
    display_width = DisplayWidth(display, screen);
    display_height = DisplayHeight(display, screen);

    /* note that x and y are 0, since the default position of the window
    * is the top left corner of the root. This is fine since the window
    * manager often allows the user to position the window before mapping it. */



    /* set Properties for window manager (always before mapping) */

    XSelectInput(display, RootWindow(display, screen),
		 PointerMotionMask /*| ButtonPressMask |
				   /*ButtonReleaseMask */);
    
 
    /* Display window */
    /*XMapWindow(display, win);
      XMapWindow(display, subwin);
    */

    /*JED*/
 
    /*
    status= XWarpPointer(display,None, subwin,0,0,width,height,500,300);
     printf ("Status %d: %d %d %d\n",status, BadCursor, BadValue, BadWindow);
    */

    nullcursor = createnullcursor(display,
				  RootWindow(display,screen));
    
    XGetPointerControl(display, &orig_num, &orig_den, &orig_thr);
    /*printf ("Pointer orig %d %d %d\n",orig_num,orig_den, orig_thr);*/
    
    
    port = Serial_OpenPort(BAUD1200,NO_PARITY,CHAR7,STOP1);
    if (port<0) {
      perror("Couldn't open serial port");
      exit(2);
    }
    
        
    
		 
    /*JED*/

    /* get events, use first to display text and graphics */
    while (1)  {

      if (1 || !XCheckWindowEvent(display,RootWindow(display, screen),
			      PointerMotionMask,
			     &report))
	{
	  sginap(3);
	  XQueryPointer(display,RootWindow(display,screen),&tmproot,
			&tmpchild, &rootx, &rooty, &childx, &childy,
			&maskreturn);
	  
	  /* Moved over edge */
	  if ((sendleft && !sendingstate && rootx == 0)
	      || (sendright && !sendingstate && rootx==display_width-1))
	    {
	     
	      status = XGrabPointer(display,RootWindow(display,screen),
				    False, PointerMotionMask |
				    ButtonPressMask |
				    ButtonReleaseMask,	GrabModeAsync,
				    GrabModeAsync, None, nullcursor, CurrentTime);
	      
	      if (!status)
		{
		  XGrabKeyboard(display,RootWindow(display,screen),
				False, GrabModeAsync, GrabModeAsync,
				CurrentTime);
		  
		  sendingstate=1;
		  /*printf ("Status %d: %d %d %d\n",status, BadCursor, BadValue, BadWindow);*/
	        
		  /* move to opposite side of screen */
		  xwarp = abs(display_width - 10 - rootx);
		  /* save the previous y value */
		  savey=rooty;
		  /* put pointer in middle so motion ok */
		  XWarpPointer(display, None, RootWindow(display, screen),
			       0, 0, display_width,
			       display_height, xwarp, display_height/2);
		  prevx=xwarp;
		  prevy=display_height/2;
		  /* slow the mouse down */
		  XChangePointerControl(display,1,1,1,1,1);

		  /* move the mouse to the edge of screen */
		  if (sendleft)
		    outbuf[0] = ((outbuf[0]>>2)<<2) | 0x1;
		  if (sendright)
		    outbuf[0] = ((outbuf[0]>>2)<<2) | 0x2;
		  Serial_Write(port,outbuf,3);
		  Serial_Write(port,outbuf,3);
		  Serial_Write(port,outbuf,3);
		  
		}
	      
	    }
	  /* Came back over edge */
	   else if (((sendleft && sendingstate && rootx == display_width-1) ||
		    (sendright && sendingstate && rootx == 0)) &&
		    !((maskreturn&Button1Mask) ||
		     (maskreturn&Button2Mask) || (maskreturn&Button3Mask)))
	     {
	       sendingstate=0;
	       XUngrabPointer(display,CurrentTime);
	       XUngrabKeyboard(display, CurrentTime);
	        
	       xwarp = abs(display_width - 10 - rootx);
	       XWarpPointer(display, None, RootWindow(display, screen),
			    0, 0, display_width,
			    display_height, xwarp, savey);
	       prevx=xwarp;
	       prevy=savey;
	       /* set mouse back to orig speed */
	       XChangePointerControl(display,1,1,orig_num,orig_den,orig_thr);
	       /* move the mouse to the edge of screen */
	       if (sendleft)
		 outbuf[0] = ((outbuf[0]>>2)<<2) | 0x1;
	       if (sendright)
		 outbuf[0] = ((outbuf[0]>>2)<<2) | 0x2;
	       Serial_Write(port,outbuf,3);
	       Serial_Write(port,outbuf,3);
	       Serial_Write(port,outbuf,3);
	       
	     }
	  /* Currently sending commands */
	   else if (sendingstate)
	     {
	       if (rootx!=prevx || rooty!=prevy || prevmask !=
		   maskreturn)
		 {
		   
		   /* printf ("got motion: %d %d : %d %d %d\n", rootx, rooty,
			   (maskreturn&Button1Mask),
			   (maskreturn&Button2Mask),
			   (maskreturn&Button3Mask) );*/

		   /* serial code */
		   tmpint=(rootx-prevx)*sendmult;
		   v1=MAX(MIN(tmpint,127),-127);
		   tmpint=(rooty-prevy)*sendmult;
		   v2=MAX(MIN(tmpint,127),-127);
		   
		   outbuf[0]=0x40;
		   if (maskreturn&Button1Mask) outbuf[0] |= 0x20;
		   if (maskreturn&Button3Mask) outbuf[0] |= 0x10;
		   if (maskreturn&Button2Mask) outbuf[0] |= 0x30;
		   outbuf[0] |= ((v2 & 0xC0)>>4);
		   outbuf[0] |= ((v1 & 0xC0)>>6);
	       
		   outbuf[1] = (v1 & 0x3F);
		   outbuf[2] = (v2 & 0x3F);
	       
		   /* printf ("Outgoing buf: %x %x %x\n",(unsigned
						       int)outbuf[0],
			   (unsigned int)outbuf[1], (unsigned int)
			   outbuf[2]);*/
		   Serial_Write(port,outbuf,3);
	       
		 }

	       /* check for border conditions */
	       if (rooty==0 || rooty==display_height-1 || (sendleft &&
							  rootx==0) ||
		   (sendright && rootx==display_width-1))
		 {
		   if (rooty==0) rooty=100;
		   if (rooty==display_height-1) rooty =
						  display_height-100;
		   if (rootx==0) rootx=100;
		   if (rootx==display_width-1) rootx =
						 display_width-100;
		   XWarpPointer(display, None, RootWindow(display, screen),
				0, 0, display_width,
				display_height, rootx, rooty);
 
		 }
	       
	       
	       /* update prev buffers */
	       prevmask = maskreturn;
	       prevx=rootx;
	       prevy=rooty;
	       
	     }
	  
 
	}
  

      
    }
}