/* Portions of this software.... */

/*Copyright George Peter Staplin 2003*/

/*You may use/copy/modify/distribute this software for any purpose
 *provided that I am given credit and you don't sue me for any bugs.
 */

/*Please contact me using GeorgePS@XMission.com if you like this, or
 *have questions.
 */
		
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xatom.h>
#include <X11/keysym.h>
#include <X11/xpm.h>

#include "map_db.h"
#include "socket.h"
#include "nmea.h"

#ifndef u_char
#define u_char unsigned char
#endif

#include "module_jpeg.h"
#include "module_png.h"

Window mainWin;
GC copyGC;
int WIN_X = 400;
int WIN_Y = 400;

int AutoRecenter = 0;

/* Arrays of style info */
char *style_name[16];
GC style_gc[16];
int style_count = 0;


int get_byte_order (void) {
	union {
		char c[sizeof(short)];
		short s;
	} order;

	order.s = 1;
	if ((1 == order.c[0])) {
		return LSBFirst;
	} else {
		return MSBFirst;
	}
}
		
XImage *create_image_from_buffer (Display *dis, int screen, u_char *buf, int buf_width, int buf_height, int zoom) {
	int depth;
	XImage *img = NULL;
	Visual *vis;
	double rRatio;
	double gRatio;
	double bRatio;
	int outIndex = 0;	
	int i;
	int width = buf_width/zoom;
	int height = buf_height/zoom;
	int numBufBytes = (3 * (buf_width * buf_height));
		
	depth = DefaultDepth (dis, screen);
	vis = DefaultVisual (dis, screen);

	rRatio = vis->red_mask / 255.0;
	gRatio = vis->green_mask / 255.0;
	bRatio = vis->blue_mask / 255.0;

	if (depth >= 24) {
		size_t numNewBufBytes = (4 * (width * height));
		u_int32_t *newBuf = malloc (numNewBufBytes);
	
		for (i = 0; i < numBufBytes;) {
			unsigned int r, g, b;
			r = (buf[i++] * rRatio);
			g = (buf[i++] * gRatio);
			b = (buf[i++] * bRatio);

			r &= vis->red_mask;
			g &= vis->green_mask;
			b &= vis->blue_mask;
			
			newBuf[outIndex] = r | g | b;
			++outIndex;
		}		
		
		img = XCreateImage (dis, 
			CopyFromParent, depth, 
			ZPixmap, 0, 
			(char *) newBuf,
			width, height,
			32, 0
		);
		
	} else if (depth >= 15) {
		size_t numNewBufBytes = (2 * (width * height));
		u_int16_t *newBuf = malloc (numNewBufBytes);
		
		for (i = 0; i < numBufBytes;) {
			unsigned int r, g, b;

			r = (buf[i++] * rRatio);
			g = (buf[i++] * gRatio);
			b = (buf[i++] * bRatio);
					
			r &= vis->red_mask;
			g &= vis->green_mask;
			b &= vis->blue_mask;
			
			newBuf[outIndex] = r | g | b;
			++outIndex;
		}		
		
		img = XCreateImage (dis,
			CopyFromParent, depth,
			ZPixmap, 0,
			(char *) newBuf,
			width, height,
			16, 0
		);
	} else {
		fprintf (stderr, "This program does not support displays with a depth less than 15.");
		return NULL;				
	}

	XInitImage (img);
	/*Set the client's byte order, so that XPutImage knows what to do with the data.*/
	/*The default in a new X image is the server's format, which may not be what we want.*/
	if ((LSBFirst == get_byte_order ())) {
		img->byte_order = LSBFirst;
	} else {
		img->byte_order = MSBFirst;
	}
	
	/*The bitmap_bit_order doesn't matter with ZPixmap images.*/
	img->bitmap_bit_order = MSBFirst;

	return img;
}		

Window create_window (Display *dis, int screen, int x, int y, int width, int height) {
	Window win;
	unsigned long windowMask;
	XSetWindowAttributes winAttrib;	
	XTextProperty windowName;

        windowName.value    = (unsigned char *) "mMDS";
        windowName.encoding = XA_STRING;
        windowName.format   = 8;
        windowName.nitems   = strlen((char *) windowName.value);
                        
        /**
         * Tell X to ask the window manager to set the window title. (X
         * itself doesn't provide window title functionality.)
         */
			
	windowMask = CWBackPixel | CWBorderPixel;	
	winAttrib.border_pixel = BlackPixel (dis, screen);
	winAttrib.background_pixel = BlackPixel (dis, screen);
	winAttrib.override_redirect = 0;
		
	win = XCreateWindow (dis, DefaultRootWindow (dis), 
		x, y,
		width, height,
		0, DefaultDepth (dis, screen),
		InputOutput, CopyFromParent,
		windowMask, &winAttrib
	);

        XSetWMName(dis, win, &windowName);
		
	return win;
}	

int imageWidth;
int imageHeight;
int screen;
Display *dis;
XImage *img;
int src_x, src_y;

int RedrawCount = 0;
char *RedrawList[1024];

void mMDS_LoadMap(char *name)
{
	u_char *buf = NULL;
        char *ext;
        char *c;
        int zoom = 1;

	for (c=name; *c; c++);
        for (; *c != '.'; c--);
	ext = c+1;

        if (strcmp(ext,"jpg") == 0 ) 
	  buf = decode_jpeg (map_db_name(name), &imageWidth, &imageHeight);
        else if ( strcmp(ext,"png") == 0 )
	  buf = decode_png (map_db_name(name), &imageWidth, &imageHeight);
        
        fprintf(stderr,"Height = %d, Width = %d\n",imageHeight,imageWidth);

	if (buf) {
		img = create_image_from_buffer (dis, screen, buf, imageWidth, imageHeight, zoom);
		imageWidth /= zoom;
		imageHeight /= zoom;
		free (buf);
	}

        src_x = 0;
        src_y = 0;
}

void mds_draw(char*);

void redraw_exposed_area(int x, int y, int width, int height)
{
  if (img) {
    XPutImage (dis, mainWin, copyGC, img, src_x+x, src_y+y, x, y, width, height);
    XFlush (dis);
  }
}

void mMDS_Refresh()
{
  int i;
  char *c = NULL;

  c = map_db_check(src_x + WIN_X/2,src_y + WIN_Y/2);
  if (c != NULL && AutoRecenter == 1) {
    double center_latitude,center_longitude;
    printf("New map = %s\n",c);

    center_latitude = map_db_y2lat(src_y + WIN_Y/2);
    center_longitude = map_db_x2long(src_x + WIN_X/2);
    
    mMDS_LoadMap(c);

    src_x = map_db_long2x(center_longitude) - WIN_X/2;
    src_y = map_db_lat2y(center_latitude) - WIN_Y/2;
  }

  if ( (src_x + WIN_X ) > imageWidth ) src_x = imageWidth - WIN_X;
  if ( (src_y + WIN_Y ) > imageHeight ) src_y = imageHeight - WIN_Y;
  if ( src_x < 0 ) src_x = 0;
  if ( src_y < 0 ) src_y = 0;

  redraw_exposed_area(0,0,WIN_X,WIN_Y);

  for (i=0;i<RedrawCount;i++) {
    if ( RedrawList[i] ) {
      mds_draw(RedrawList[i]);
      printf("[%d] %s\n",i,RedrawList[i]);
    }
  }
}


void mMDS_PanEast(int x)
{
  src_x += x;
}

void mMDS_PanWest(int x)
{
  src_x -= x;
}

void mMDS_PanNorth(int y)
{
  src_y -= y;
}

void mMDS_PanSouth(int y)
{
  src_y += y;
}

void mMDS_ReCenter(char *c)
{
  double latitude;
  double longitude;
  char *t;

  t = strtok(c,",");
  latitude = nmea_to_double(t);
  t = strtok(NULL,",");
  if (strcmp(t,"S") == 0 )
    latitude = -latitude;

  t = strtok(NULL,",");
  longitude = nmea_to_double(t);
  t = strtok(NULL,",");
  if (strcmp(t,"W") == 0 )
    longitude = -longitude;

  src_x = map_db_long2x(longitude) - WIN_X/2;
  src_y = map_db_lat2y(latitude) - WIN_Y/2;
}

// Just a hack
int pixmap_count = 0;
char *pixmap_name[16];
Pixmap pixmap_data[16];
Pixmap pixmap_mask[16];
XpmAttributes pixmap_attrib[16];

void mMDS_DefinePixmap(char *c)
{
  char *n;

  n = strtok(c,",");
  pixmap_name[pixmap_count] = (char*) malloc (strlen(n));
  strcpy(pixmap_name[pixmap_count],n);

  n = strtok(NULL,"");
  pixmap_attrib[pixmap_count].valuemask = 0;
  XpmCreatePixmapFromBuffer(dis,mainWin,n,&pixmap_data[pixmap_count],&pixmap_mask[pixmap_count],&pixmap_attrib[pixmap_count]);
  pixmap_count++;
}

int bearing2angle(char *t)
{
  int a,b;

  if (strcmp(t,"N") == 0 )
    a = 0;
  else if (strcmp(t,"NE") == 0 )
    a = 45;
  else if (strcmp(t,"E") == 0 )
    a = 90;
  else if (strcmp(t,"SE") == 0 )
    a = 135;
  else if (strcmp(t,"S") == 0 )
    a = 180;
  else if (strcmp(t,"SW") == 0 )
    a = 225;
  else if (strcmp(t,"W") == 0 )
    a = 270;
  else if (strcmp(t,"NW") == 0 )
    a = 315;
  else
    a = atoi(t);

  if ( a >= 0 && a <= 90)
    b = 90 - a;
  if ( a > 90 && a <= 270)
    b = a - 90;
  if ( a > 270 )
    b = a - 450;

  return b;
}

void mds_draw(char *c)
{
  double latitude, longitude;
  int x,y,i,s;
  char *t,*b;
  GC gc = copyGC;

  b = (char *) malloc (strlen(c) + 1);
  strcpy(b,c);


  t = strtok(b,",");

  for (s=0;s<16;s++)
    if (style_name[s] != NULL && strcmp(t,style_name[s]) == 0) {
      gc = style_gc[s]; 
      break;
    }

  t = strtok(NULL,",");
  if (strcmp(t,"Pixmap") == 0 ) {
    Window w;
    int x_ret, y_ret;
    unsigned int width_ret, height_ret, border_ret, depth_ret;

    t = strtok(NULL,",");
    for (i=0; i<16; i++)
      if (strcmp(t,pixmap_name[i]) == 0 ) {
        break;
      }
    t = strtok(NULL,",");
    latitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"S") == 0 )
      latitude = -latitude;
    t = strtok(NULL,",");
    longitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"W") == 0 )
      longitude = -longitude;

    y = map_db_lat2y(latitude) - src_y;
    x = map_db_long2x(longitude) - src_x;

    XGetGeometry(dis,pixmap_data[i],&w,&x_ret,&y_ret,&width_ret,&height_ret,&border_ret,&depth_ret);

    XSetClipMask(dis,gc,pixmap_mask[i]);
    XSetClipOrigin(dis,gc,x-(width_ret/2),y-(height_ret/2));
    XCopyArea (dis, pixmap_data[i], mainWin, gc, 0, 0, width_ret, height_ret, x-(width_ret/2), y-(height_ret/2));
    XSetClipMask(dis,gc,None);
  } 
  else if (strcmp(t,"Point") == 0) {
    t = strtok(NULL,",");
    latitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"S") == 0 )
      latitude = -latitude;
    t = strtok(NULL,",");
    longitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"W") == 0 )
      longitude = -longitude;

    y = map_db_lat2y(latitude) - src_y;
    x = map_db_long2x(longitude) - src_x;

    XDrawPoint(dis,mainWin,gc,x,y);
  }
  else if (strcmp(t,"Line") == 0) {
    int x2, y2;
    t = strtok(NULL,",");
    latitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"S") == 0 )
      latitude = -latitude;
    t = strtok(NULL,",");
    longitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"W") == 0 )
      longitude = -longitude;

    y = map_db_lat2y(latitude) - src_y;
    x = map_db_long2x(longitude) - src_x;

    t = strtok(NULL,",");
    latitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"S") == 0 )
      latitude = -latitude;
    t = strtok(NULL,",");
    longitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"W") == 0 )
      longitude = -longitude;

    y2 = map_db_lat2y(latitude) - src_y;
    x2 = map_db_long2x(longitude) - src_x;

    XDrawLine(dis,mainWin,gc,x,y,x2,y2);
  }
  else if (strcmp(t,"Arc") == 0) {
    int height,width;
    int start_angle,extent_angle;
    t = strtok(NULL,",");
    height=atoi(t);
    t = strtok(NULL,",");
    width=atoi(t);
    t = strtok(NULL,",");
    start_angle=bearing2angle(t);
    t = strtok(NULL,",");
    extent_angle=atoi(t);
    t = strtok(NULL,",");
    if (strcmp(t,"CW") == 0)
      extent_angle = -extent_angle;

    t = strtok(NULL,",");
    latitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"S") == 0 )
      latitude = -latitude;
    t = strtok(NULL,",");
    longitude = nmea_to_double(t);
    t = strtok(NULL,",");
    if (strcmp(t,"W") == 0 )
      longitude = -longitude;

    y = map_db_lat2y(latitude) - src_y - (width / 2);
    x = map_db_long2x(longitude) - src_x - (height / 2);

    printf("start=%d,extent=%d\n",start_angle,extent_angle);
    XDrawArc(dis,mainWin,gc,x,y,width,height,start_angle*64,extent_angle*64);
  }
  else if (strcmp(t,"String") == 0) {
    char *corner,*text,*t1;
    XCharStruct text_bounds;
    int d;
    XGCValues values;
    int ox,oy;
    XFontStruct *font;

    corner = strtok(NULL,",");
    t1 = strtok(NULL,",");
    latitude = nmea_to_double(t1);
    t1 = strtok(NULL,",");
    if (strcmp(t1,"S") == 0 )
      latitude = -latitude;
    t1 = strtok(NULL,",");
    longitude = nmea_to_double(t1);
    t1 = strtok(NULL,",");
    if (strcmp(t1,"W") == 0 )
      longitude = -longitude;

    y = map_db_lat2y(latitude) - src_y;
    x = map_db_long2x(longitude) - src_x;
    text = strtok(NULL,"");

    XGetGCValues(dis,gc,GCFont,&values);
    font = XQueryFont(dis,values.font);
    XTextExtents(font, text, strlen(text), &d, &d, &d, &text_bounds);
    if (strcmp(corner,"UL") == 0 ) {
      ox = oy = 0;
    }
    else if (strcmp(corner,"UR") == 0 ) {
      oy = 0;
      ox = -text_bounds.width;
    }
    else if (strcmp(corner,"LL") == 0 ) {
      oy = -(text_bounds.ascent+text_bounds.descent);
      ox = 0;
    }
    else if (strcmp(corner,"LR") == 0 ) {
      oy = -(text_bounds.ascent+text_bounds.descent);
      ox = -text_bounds.width;
    }
    XDrawString(dis,mainWin,gc,x+ox,y+oy,text,strlen(text));
  }
  else if (strcmp(t,"ImageString") == 0) {
    char *corner,*text,*t1;
    XCharStruct text_bounds;
    int d;
    XGCValues values;
    int ox,oy;
    XFontStruct *font;

    corner = strtok(NULL,",");
    t1 = strtok(NULL,",");
    latitude = nmea_to_double(t1);
    t1 = strtok(NULL,",");
    if (strcmp(t1,"S") == 0 )
      latitude = -latitude;
    t1 = strtok(NULL,",");
    longitude = nmea_to_double(t1);
    t1 = strtok(NULL,",");
    if (strcmp(t1,"W") == 0 )
      longitude = -longitude;

    y = map_db_lat2y(latitude) - src_y;
    x = map_db_long2x(longitude) - src_x;
    text = strtok(NULL,"");

    XGetGCValues(dis,gc,GCFont,&values);
    font = XQueryFont(dis,values.font);
    XTextExtents(font, text, strlen(text), &d, &d, &d, &text_bounds);
    if (strcmp(corner,"UL") == 0 ) {
      oy = text_bounds.ascent;
      ox = 0;
    }
    else if (strcmp(corner,"UR") == 0 ) {
      oy = text_bounds.ascent;
      ox = -text_bounds.width;
    }
    else if (strcmp(corner,"LL") == 0 ) {
      oy = -text_bounds.descent;
      ox = 0;
    }
    else if (strcmp(corner,"LR") == 0 ) {
      oy = -text_bounds.descent;
      ox = -text_bounds.width;
    }
    XDrawImageString(dis,mainWin,gc,x+ox,y+oy,text,strlen(text));
  }
  free(b);
}

void mMDS_Draw(char *c)
{
  char buff[16];
  int i;

  for (i=0;i<RedrawCount;i++)
    if (RedrawList[i] == 0 )
      break;
 
  RedrawList[i] = (char *) malloc (strlen(c)+1);
  strcpy(RedrawList[i],c);
  sprintf(buff,"ObjectId:%d\n",i);
  socket_send(buff);

  if (i == RedrawCount)
    RedrawCount++;

  mds_draw(c);
}

void mMDS_Erase(char *c)
{
  int obj_id;

  obj_id = atoi(c);
  free(RedrawList[obj_id]);
  RedrawList[obj_id] = NULL;
  mMDS_Refresh();
}

void mMDS_Quit()
{
  exit(0);
}

void mMDS_AutoRecenter(char *v)
{
  if (strcmp(v,"On") == 0)
    AutoRecenter = 1;
  else
    AutoRecenter = 0;
}

void mMDS_CreateStyle(char *v)
{
  char *t,*a,*b;
  unsigned long mask;
  XGCValues values;

  t = strtok(v,",");
  style_name[style_count] = (char *) malloc (strlen(t)+1);
  strcpy(style_name[style_count],t);

  while ((t=strtok(NULL,",")) != NULL ) {
    a = t;
    for (b=a;*b!='=';b++);
    *b=(char)0;
    b++;

    if (strcmp(a,"line_width") == 0 ) {
      mask |= GCLineWidth;
      values.line_width = atoi(b);
    }
    else if (strcmp(a,"line_style") == 0 ) {
      mask |= GCLineStyle;
      if (strcmp(b,"LineSolid") == 0 ) values.line_style = LineSolid;
      else if (strcmp(b,"LineOnOffDash") == 0 ) values.line_style = LineOnOffDash;
      else if (strcmp(b,"LineDoubleDash") == 0 ) values.line_style = LineDoubleDash;
    }
    else if (strcmp(a,"join_style") == 0 ) {
      mask |= GCJoinStyle;
      if (strcmp(b,"JoinMiter") == 0 ) values.join_style = JoinMiter;
      else if (strcmp(b,"JoinRound") == 0 ) values.join_style = JoinRound;
      else if (strcmp(b,"JoinBevel") == 0 ) values.join_style = JoinBevel;
    }
    else if (strcmp(a,"foreground") == 0 ) {
      XColor x, dump;
      mask |= GCForeground;
      XAllocNamedColor(dis,DefaultColormap(dis,screen),b,&x,&dump);
      values.foreground = x.pixel;
    }
    else if (strcmp(a,"background") == 0 ) {
      XColor x, dump;
      mask |= GCBackground;
      XAllocNamedColor(dis,DefaultColormap(dis,screen),b,&x,&dump);
      values.foreground = x.pixel;
    }
  }

  style_gc[style_count] = XCreateGC(dis, mainWin, mask, &values);

  style_count++;
}

void mMDS_Help() {
  socket_send("# mini-Map Display Server\n");
  socket_send("#\n");
  socket_send("# Protocol Description:\n");
  socket_send("# LoadMap:{mapname}          - Loads map\n");
  socket_send("# Refresh                    - Force redraw of elements\n");
  socket_send("# PanEast:{#pixels}          - Pan map\n");
  socket_send("# PanWest:{#pixels}          - Pan map\n");
  socket_send("# PanNorth:{#pixels}         - Pan map\n");
  socket_send("# PanSouth:{#pixels}         - Pan map\n");
  socket_send("# ReCenter:{latitude},{N|S},{longitude},{E|W}\n");
  socket_send("#                            - Re-center the map\n");
  socket_send("# DefinePixmap:{name},{pixmap_data}\n");
  socket_send("#                            - Define a pixmap\n");
  socket_send("# Draw:default,Pixmap,{name},{latitude},{N|S},{longitude},{E|W}\n");
  socket_send("#                            - Draw a pixmap\n");
  socket_send("# Draw:{style},Point,{latitude},{N|S},{longitude},{E|W}\n");
  socket_send("#                            - Draw a single pixel\n");
  socket_send("# Draw:{style},String,{UL|UR|LL|LR},{latitude},{N|S},{longitude},{E|W},{text}\n");
  socket_send("# Draw:{style},ImageString,{UL|UR|LL|LR},{latitude},{N|S},{longitude},{E|W},{text}\n");
  socket_send("#                            - Draw Strings\n");
  socket_send("# Draw:{style},Line,{latitude},{N|S},{longitude},{E|W},{latitude},{N|S},{longitude},{E|W}\n");
  socket_send("#                            - Draw a line between points\n");
  socket_send("# Draw:{style},Arc,{height},{width},{bearing},{extent},{CW|CCW},{latitude},{N|S},{longitude},{E|W}\n");
  socket_send("#                            - Draw an arc\n");
  socket_send("# Erase:{object_id}          - Erase an object\n");
  socket_send("# AutoRecenter:{On|Off}      - Whether or not to re-center\n");
  socket_send("# CreateStyle:{style},{arg1},{arg2},...\n");
  socket_send("#                            - Create a drawing style\n");
  socket_send("#        line_width={#pixels}\n");
  socket_send("#        line_style={LineSolid|LineOnOffDash|LineDoubleDash}\n");
  socket_send("#        join_style={JoinMiter|JoinRound|JoinBevel}\n");
  socket_send("#        foreground={named_color}\n");
  socket_send("#        background={named_color}\n");
  socket_send("# Quit                       - Cause mMDS to exit\n");
  socket_send("#\n");
  socket_send("# All \"Draw\" commands return an {object_id}. Objects\n");
  socket_send("#    continue to get redrawn by the mMDS until an \"Erase\"\n");
  socket_send("#    command is issued.\n");
  socket_send("#\n");
}


int mds_parser(char *buffer)
{
  char *t, *v;

  if ( *buffer != '#' ) {

    t = strtok(buffer,":");
    v = strtok(NULL,":");

    if ( t ) {
      if (strcmp(t,"LoadMap") == 0) mMDS_LoadMap(v);
      else if (strcmp(t,"Refresh") == 0) mMDS_Refresh();
      else if (strcmp(t,"PanEast") == 0) mMDS_PanEast(atoi(v));
      else if (strcmp(t,"PanWest") == 0) mMDS_PanWest(atoi(v));
      else if (strcmp(t,"PanNorth") == 0) mMDS_PanNorth(atoi(v));
      else if (strcmp(t,"PanSouth") == 0) mMDS_PanSouth(atoi(v));
      else if (strcmp(t,"ReCenter") == 0) mMDS_ReCenter(v);
      else if (strcmp(t,"DefinePixmap") == 0) mMDS_DefinePixmap(v);
      else if (strcmp(t,"Draw") == 0) mMDS_Draw(v);
      else if (strcmp(t,"Erase") == 0) mMDS_Erase(v);
      else if (strcmp(t,"AutoRecenter") == 0) mMDS_AutoRecenter(v);
      else if (strcmp(t,"CreateStyle") == 0) mMDS_CreateStyle(v);
      else if (strcmp(t,"Quit") == 0) mMDS_Quit();
      else if (strcmp(t,"Help") == 0) mMDS_Help();
    }
  }

  return 0;
}

struct buffer {
  int max;
  int used;
  char *data;
};

int my_read(int,struct buffer*,char);

void mds_readfile(char *name)
{
   struct buffer b;
   int f,n;
   char *c;

   b.max = 0;

   f = open(name,O_RDONLY);
   if (f) {
     while ((n = my_read(f,&b,';')) != 0) {
       for (c = b.data; *c != '\n' && *c != '\r'; c++);
       *c = (char)0;
       if ( b.data[0] != '#' && strlen(b.data) > 0 ) {
         printf("[%s] = \"%s\"\n",name,b.data);
         mds_parser(b.data);
       }
     }
     close(f);
   }
}

int main (int argc, char *argv[]) {
        int s;
	int i;
        XGCValues values;
        unsigned long valuemask;
        XFontStruct *font;

        map_db_read();

        s = socket_init(6002);

	dis = XOpenDisplay (NULL);
	screen = DefaultScreen (dis);
	mainWin = create_window (dis, screen, 20, 20, WIN_X, WIN_Y);

        font = XLoadQueryFont(dis,"fixed");
        values.foreground = XBlackPixel(dis,screen);
        values.background = XWhitePixel(dis,screen);
        values.font = font->fid;
        valuemask = GCForeground | GCBackground | GCFont;

	copyGC = XCreateGC (dis, mainWin, valuemask, &values);

	XMapRaised (dis, mainWin);
	XSelectInput(dis, mainWin, ExposureMask | KeyPressMask | ButtonPressMask | StructureNotifyMask);

        mds_readfile(".mMDSrc");
	mMDS_Refresh();
	
	while (1) {
		XEvent event;
                int cnt;
		KeySym key;
		XButtonEvent *b = (XButtonEvent *) &event;
		XConfigureEvent *c = (XConfigureEvent *) &event;

                socket_handler(s,mds_parser);

                while ((cnt = XPending(dis)) > 0 ) {
		  XNextEvent (dis, &event);
		  switch  (event.type) {
			case Expose:
			  redraw_exposed_area(event.xexpose.x,event.xexpose.y,event.xexpose.width,event.xexpose.height);
			  // printf("%d\n",event.xexpose.count);
			  if (event.xexpose.count == 0) {
			    // socket_send_all("Expose\n");
			    for (i=0;i<RedrawCount;i++) {
			      if ( RedrawList[i] ) {
			        mds_draw(RedrawList[i]);
			        // printf("[%d] %s\n",i,RedrawList[i]);
			      }
			    }
			  }
			break;            
			case KeyPress:
				key = XLookupKeysym(&event.xkey,0);
				if (XK_q == key) {
					exit (EXIT_SUCCESS);
				}
				else if ( key == XK_Up ) {
				  src_y -= WIN_Y/10;
				  mMDS_Refresh();
				}
				else if ( key == XK_Down ) {
				  src_y += WIN_Y/10;
				  mMDS_Refresh();
				}
				else if ( key == XK_Left ) {
				  src_x -= WIN_X/10;
				  mMDS_Refresh();
				}
				else if ( key == XK_Right ) {
				  src_x += WIN_X/10;
				  mMDS_Refresh();
				}
				else if ( key == XK_Scroll_Lock ) {
				  AutoRecenter = 1 - AutoRecenter;
				  printf("AutoRecenter = %d\n",AutoRecenter);
				}
				
			break;
			case ButtonPress:
                                if (b->button == 1) {
				  // printf("%d,%d\n",b->x,b->y);
				  src_x += b->x - WIN_X/2;
				  src_y += b->y - WIN_Y/2;
				  mMDS_Refresh();
				}
                                if (b->button == 3) {
                                  int x,y;
				  char longitude[16],latitude[16];

                                  x = src_x + b->x;
                                  y = src_y + b->y;
				  longitude_to_nmea(longitude,map_db_x2long(x));
				  latitude_to_nmea(latitude,map_db_y2lat(y));
				  printf("%d %d %s,%s\n",y,x,latitude,longitude);
				}
                                if (b->button == 4) {
				  //printf("Scroll Up\n");
				  src_y -= WIN_Y/10;
				  mMDS_Refresh();
				}
                                if (b->button == 5) {
				  //printf("Scroll Down\n");
				  src_y += WIN_Y/10;
				  mMDS_Refresh();
				}
			break;
			case ConfigureNotify:
				src_x -= (c->width - WIN_X) / 2;
				src_y -= (c->height - WIN_Y) / 2;
				WIN_X = c->width;
				WIN_Y = c->height;
				mMDS_Refresh();
			break;
		 }
               }
	}
	/*We shouldn't reach this point.*/
	return EXIT_FAILURE;
}