/* -*- c-basic-offset: 8 -*-
   rdesktop: A Remote Desktop Protocol client.
   User interface services - NanoX(microwindows)
   Copyright (C) Jay Sorg 2004-2005

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/*
  problems with nanox lib
    opcodes don't work, can only rely on copy
    stipple orgins don't work
    clip seems to affect source too, it should only affect dest
      in copyarea functions
*/

#include "../rdesktop.h"

#include <stdarg.h>  /* va_list va_start va_end */

#include <nano-X.h>

extern int g_tcp_port_rdp;
int g_use_rdp5 = 1;
char g_hostname[16];
char g_username[64];
int g_width = 800;
int g_height = 600;
int g_server_bpp = 16;
int g_encryption = 1;
int g_desktop_save = 0; /* todo */
int g_polygon_ellipse_orders = 0;
int g_bitmap_cache = 1;
int g_bitmap_cache_persist_enable = 0;
int g_bitmap_cache_precache = 1;
int g_bitmap_compression = 1;
uint32 g_rdp5_performanceflags =
  RDP5_NO_WALLPAPER | RDP5_NO_FULLWINDOWDRAG | RDP5_NO_MENUANIMATIONS;
int g_console_session = 0;
int g_keylayout = 0x409; /* Defaults to US keyboard layout */

static int g_sck = 0;
static char g_servername[256] = "";
static GR_WINDOW_ID g_wnd = 0;
static GR_GC_ID g_gc = 0;
static GR_GC_ID g_gc_clean = 0;
static int g_deactivated = 0;
static int g_ext_disc_reason = 0;
static GR_SCREEN_INFO g_screen_info;
static int g_bpp = 0;
static int g_Bpp = 0;

struct key
{
  int ch1;
  int ch2;
  int ch3;
  int chs; /* shift char */
};

static struct key g_keys[256];

#define COLOR16TO32(color) \
( \
  ((((color >> 8) & 0xf8) | ((color >> 13) & 0x7)) <<  0) | \
  ((((color >> 3) & 0xfc) | ((color >>  9) & 0x3)) <<  8) | \
  ((((color << 3) & 0xf8) | ((color >>  2) & 0x7)) << 16) \
)

static uint32 g_ops[16] =
{
  GR_MODE_CLEAR,         /* 0 */
  GR_MODE_NOR,           /* ~(src | dst) */
  GR_MODE_ANDINVERTED,   /* (~src) & dst */
  GR_MODE_COPYINVERTED,  /* ~src */
  GR_MODE_ANDREVERSE,    /* src & (~dst) */
  GR_MODE_INVERT,        /* ~(dst) */
  GR_MODE_XOR,           /* src ^ dst */
  GR_MODE_NAND,          /* ~(src & dst) */
  GR_MODE_AND,           /* src & dst */
  GR_MODE_EQUIV,         /* ~(src) ^ dst or is it ~(src ^ dst) */
  GR_MODE_NOOP,          /* dst */
  GR_MODE_ORINVERTED,    /* (~src) | dst */
  GR_MODE_COPY,          /* src */
  GR_MODE_ORREVERSE,     /* src | (~dst) */
  GR_MODE_OR,            /* src | dst */
  GR_MODE_SETTO1         /* ~0 */
};

/*****************************************************************************/
int ui_select(int in)
{
  if (g_sck == 0)
  {
    g_sck = in;
  }
  return 1;
}

/*****************************************************************************/
void ui_set_clip(int x, int y, int cx, int cy)
{
  GR_REGION_ID region;
  GR_RECT rect;

  region = GrNewRegion();
  rect.x = x;
  rect.y = y;
  rect.width = cx;
  rect.height = cy;
  GrUnionRectWithRegion(region, &rect);
  GrSetGCRegion(g_gc, region); /* can't destroy region here, i guess gc */
                               /* takes owership, if you destroy it */
                               /* clip is reset, hum */
}

/*****************************************************************************/
void ui_reset_clip(void)
{
  GrSetGCRegion(g_gc, 0);
}

/*****************************************************************************/
void ui_bell(void)
{
  GrBell();
}

/*****************************************************************************/
/* gota convert the rdp glyph to nanox glyph */
void * ui_create_glyph(int width, int height, uint8 * data)
{
  char * p, * q, * r;
  int datasize, i, j;

  datasize = GR_BITMAP_SIZE(width, height) * sizeof(GR_BITMAP);
  p = xmalloc(datasize);
  q = p;
  r = data;
  memset(p, 0, datasize);
  for (i = 0; i < height; i++)
  {
    j = 0;
    while (j + 8 < width)
    {
      *q = *(r + 1);
      q++;
      r++;
      *q = *(r - 1);
      q++;
      r++;
      j += 16;
    }
    if ((width % 16) <= 8 && (width % 16) > 0)
    {
      q++;
      *q = *r;
      q++;
      r++;
      j += 8;
    }
  }
  return p;
}

/*****************************************************************************/
void ui_destroy_glyph(void * glyph)
{
  xfree(glyph);
}

/*****************************************************************************/
void * ui_create_colourmap(COLOURMAP * colors)
{
  return 0;
}

/*****************************************************************************/
void ui_set_colourmap(void * map)
{
}

/*****************************************************************************/
void * ui_create_bitmap(int width, int height, uint8 * data)
{
  GR_WINDOW_ID pixmap;
  uint8 * p;
  uint32 i, j, pixel;

  p = data;
  pixmap = GrNewPixmap(width, height, 0);
  if (g_server_bpp == 16 && g_bpp == 32)
  {
    p = xmalloc(width * height * g_Bpp);
    for (i = 0; i < height; i++)
    {
      for (j = 0; j < width; j++)
      {
        pixel = *(((uint16 *) data) + (i * width + j));
        pixel = COLOR16TO32(pixel);
        *(((uint32 *) p) + (i * width + j)) = pixel;
      }
    }
  }
  GrArea(pixmap, g_gc_clean, 0, 0, width, height, p, MWPF_RGB);
  if (p != data)
  {
    xfree(p);
  }
  return (void *) pixmap;
}

/*****************************************************************************/
void ui_destroy_bitmap(void * bmp)
{
  GrDestroyWindow((GR_WINDOW_ID)bmp);
}

/*****************************************************************************/
#define DO_GLYPH(ttext,idx) \
{ \
  glyph = cache_get_font (font, ttext[idx]); \
  if (!(flags & TEXT2_IMPLICIT_X)) \
  { \
    xyoffset = ttext[++idx]; \
    if ((xyoffset & 0x80)) \
    { \
      if (flags & TEXT2_VERTICAL) \
      { \
        y += ttext[idx+1] | (ttext[idx+2] << 8); \
      } \
      else \
      { \
        x += ttext[idx+1] | (ttext[idx+2] << 8); \
      } \
      idx += 2; \
    } \
    else \
    { \
      if (flags & TEXT2_VERTICAL) \
      { \
        y += xyoffset; \
      } \
      else \
      { \
        x += xyoffset; \
      } \
    } \
  } \
  if (glyph != NULL) \
  { \
    x1 = x + glyph->offset; \
    y1 = y + glyph->baseline; \
    GrBitmap(g_wnd, g_gc, x1, y1, glyph->width, glyph->height, glyph->pixmap); \
    if (flags & TEXT2_IMPLICIT_X) \
    { \
      x += glyph->width; \
    } \
  } \
}

/*****************************************************************************/
void ui_draw_text(uint8 font, uint8 flags, uint8 opcode, int mixmode,
                  int x, int y,
                  int clipx, int clipy, int clipcx, int clipcy,
                  int boxx, int boxy, int boxcx, int boxcy, BRUSH * brush,
                  int bgcolor, int fgcolor, uint8 * text, uint8 length)
{
  FONTGLYPH * glyph;
  int i, j, xyoffset, x1, y1;
  DATABLOB * entry;

  GrSetGCMode(g_gc, GR_MODE_COPY);
  GrSetGCUseBackground(g_gc, 0); /* this can be set when gc is created */
  if (g_server_bpp == 16 && g_bpp == 32)
  {
    fgcolor = COLOR16TO32(fgcolor);
    bgcolor = COLOR16TO32(bgcolor);
  }
  GrSetGCForeground(g_gc, bgcolor);
  if (boxx + boxcx > g_width)
  {
    boxcx = g_width - boxx;
  }
  if (boxcx > 1)
  {
    GrFillRect(g_wnd, g_gc, boxx, boxy, boxcx, boxcy);
  }
  else if (mixmode == MIX_OPAQUE)
  {
    GrFillRect(g_wnd, g_gc, clipx, clipy, clipcx, clipcy);
  }
  GrSetGCForeground(g_gc, fgcolor);
  /* Paint text, character by character */
  for (i = 0; i < length;)
  {
    switch (text[i])
    {
      case 0xff:
        if (i + 2 < length)
        {
          cache_put_text(text[i + 1], text, text[i + 2]);
        }
        else
        {
          error("this shouldn't be happening\n");
          exit(1);
        }
        /* this will move pointer from start to first character after */
        /* FF command */
        length -= i + 3;
        text = &(text[i + 3]);
        i = 0;
        break;
      case 0xfe:
        entry = cache_get_text(text[i + 1]);
        if (entry != NULL)
        {
          if ((((uint8 *) (entry->data))[1] == 0) &&
                                (!(flags & TEXT2_IMPLICIT_X)))
          {
            if (flags & TEXT2_VERTICAL)
            {
              y += text[i + 2];
            }
            else
            {
              x += text[i + 2];
            }
          }
          for (j = 0; j < entry->size; j++)
          {
            DO_GLYPH(((uint8 *) (entry->data)), j);
          }
        }
        if (i + 2 < length)
        {
          i += 3;
        }
        else
        {
          i += 2;
        }
        length -= i;
        /* this will move pointer from start to first character after */
        /* FE command */
        text = &(text[i]);
        i = 0;
        break;
      default:
        DO_GLYPH(text, i);
        i++;
        break;
    }
  }
}

/*****************************************************************************/
void ui_line(uint8 opcode, int startx, int starty, int endx, int endy,
             PEN * pen)
{
  uint32 op;
  uint32 color;

  opcode = 0; /* some opcode crash it, setting GR_MODE_COPY, todo */
  op = g_ops[opcode];
  //printf("opcoe %d %d\n", op, opcode);
  GrSetGCMode(g_gc, op);
  color = pen->colour;
  if (g_server_bpp == 16 && g_bpp == 32)
  {
    color = COLOR16TO32(color);
  }
  GrSetGCForeground(g_gc, color);
  //printf("%d %d %d %d\n", startx, starty, endx, endy);
  GrLine(g_wnd, g_gc, startx, starty, endx, endy);
  GrSetGCMode(g_gc, GR_MODE_COPY);
}

/*****************************************************************************/
void ui_triblt(uint8 opcode, int x, int y, int cx, int cy,
               void * src, int srcx, int srcy,
               BRUSH * brush, int bgcolor, int fgcolor)
{
}

/*****************************************************************************/
void ui_memblt(uint8 opcode, int x, int y, int cx, int cy,
               void * src, int srcx, int srcy)
{
  uint32 op;

  op = g_ops[opcode];
  GrCopyArea(g_wnd, g_gc, x, y, cx, cy, (GR_DRAW_ID)src, srcx, srcy, op);
}

/*****************************************************************************/
void ui_desktop_restore(uint32 offset, int x, int y, int cx, int cy)
{
}

/*****************************************************************************/
void ui_desktop_save(uint32 offset, int x, int y, int cx, int cy)
{
}

/*****************************************************************************/
void ui_rect(int x, int y, int cx, int cy, int color)
{
  if (g_server_bpp == 16 && g_bpp == 32)
  {
    color = COLOR16TO32(color);
  }
  GrSetGCMode(g_gc, GR_MODE_COPY);
  GrSetGCForeground(g_gc, color);
  GrFillRect(g_wnd, g_gc, x, y, cx, cy);
}

/*****************************************************************************/
void ui_screenblt(uint8 opcode, int x, int y, int cx, int cy,
                  int srcx, int srcy)
{
  GR_WINDOW_ID pixmap;
  uint32 op;

  op = g_ops[opcode];
  pixmap = GrNewPixmap(cx, cy, 0);
  GrCopyArea(pixmap, g_gc_clean, 0, 0, cx, cy, g_wnd,
             srcx, srcy, GR_MODE_COPY);
  GrCopyArea(g_wnd, g_gc, x, y, cx, cy, pixmap, 0, 0, op);
  GrDestroyWindow(pixmap);

  // this don't work, i don't know why, todo, check on it
  //GrCopyArea(g_wnd, g_gc, x, y, cx, cy, g_wnd, srcx, srcy, op);
}

/*****************************************************************************/
void ui_patblt(uint8 opcode, int x, int y, int cx, int cy,
               BRUSH * brush, int bgcolor, int fgcolor)
{
  uint32 op;
  uint8 i, ipattern[8];
  void * fill;

  //printf("%d\n", opcode);
  if (opcode != 12)
    return;
  op = g_ops[opcode];
  GrSetGCMode(g_gc, op);
  GrSetGCUseBackground(g_gc, 1);
  if (g_server_bpp == 16 && g_bpp == 32)
  {
    fgcolor = COLOR16TO32(fgcolor);
    bgcolor = COLOR16TO32(bgcolor);
  }
  switch (brush->style)
  {
    case 0: /* Solid */
      GrSetGCForeground(g_gc, fgcolor);
      GrFillRect(g_wnd, g_gc, x, y, cx, cy);
      break;
    case 3: /* Pattern */
      for (i = 0; i != 8; i++)
      {
        ipattern[7 - i] = brush->pattern[i];
      }
      fill = ui_create_glyph(8, 8, ipattern);
      GrSetGCForeground(g_gc, bgcolor);
      GrSetGCBackground(g_gc, fgcolor);
      GrSetGCFillMode(g_gc, GR_FILL_OPAQUE_STIPPLE);
      GrSetGCStipple(g_gc, fill, 8, 8);
      /* GrSetGCTSOffset don't work, I don't know why todo */
      GrSetGCTSOffset(g_gc, brush->xorigin, brush->yorigin);
      GrFillRect(g_wnd, g_gc, x, y, cx, cy);
      //printf("%d %d %d %d\n", x, y, brush->xorigin, brush->yorigin);
      GrSetGCFillMode(g_gc, GR_FILL_SOLID);
      GrSetGCTSOffset(g_gc, 0, 0);
      ui_destroy_glyph(fill);
      break;
  }
  GrSetGCUseBackground(g_gc, 0);
  GrSetGCMode(g_gc, GR_MODE_COPY);
}

/*****************************************************************************/
void ui_destblt(uint8 opcode, int x, int y, int cx, int cy)
{
  uint32 op;

  //printf("opcode %d x %d y %d cx %d cy %d\n", opcode, x, y, cx, cy);
  opcode = 0; /* some opcode crash it(opcode 5), setting GR_MODE_COPY, todo */
  op = g_ops[opcode];
  GrSetGCMode(g_gc, op);
  GrFillRect(g_wnd, g_gc, x, y, cx, cy);
  GrSetGCMode(g_gc, GR_MODE_COPY);
}

/*****************************************************************************/
void ui_move_pointer(int x, int y)
{
}

/*****************************************************************************/
void ui_set_null_cursor(void)
{
}

/*****************************************************************************/
void ui_paint_bitmap(int x, int y, int cx, int cy,
                     int width, int height, uint8 * data)
{
  void * b;

  b = ui_create_bitmap(width, height, data);
  ui_memblt(0xc, x, y, cx, cy, b, 0, 0);
  ui_destroy_bitmap(b);
}

/*****************************************************************************/
void ui_set_cursor(void * cursor)
{
}

/*****************************************************************************/
void * ui_create_cursor(uint32 x, uint32 y,
                        int width, int height,
                        uint8 * andmask, uint8 * xormask)
{
  return 0;
}

/*****************************************************************************/
void ui_destroy_cursor(void * cursor)
{
}

/*****************************************************************************/
uint16 ui_get_numlock_state(uint32 state)
{
  return 0;
}

/*****************************************************************************/
uint32 read_keyboard_state(void)
{
  return 0;
}

/*****************************************************************************/
void ui_resize_window(void)
{
}

/*****************************************************************************/
void ui_begin_update(void)
{
}

/*****************************************************************************/
void ui_end_update(void)
{
}

/*****************************************************************************/
void ui_polygon(uint8 opcode, uint8 fillmode, POINT * point, int npoints,
                BRUSH * brush, int bgcolor, int fgcolor)
{
}

/*****************************************************************************/
void ui_polyline(uint8 opcode, POINT * points, int npoints, PEN * pen)
{
  int i, x, y, dx, dy;

  if (npoints > 0)
  {
    x = points[0].x;
    y = points[0].y;
    for (i = 1; i < npoints; i++)
    {
      dx = points[i].x;
      dy = points[i].y;
      ui_line(opcode, x, y, x + dx, y + dy, pen);
      x = x + dx;
      y = y + dy;
    }
  }
}

/*****************************************************************************/
void ui_ellipse(uint8 opcode, uint8 fillmode,
                int x, int y, int cx, int cy,
                BRUSH * brush, int bgcolor, int fgcolor)
{
}

/*****************************************************************************/
void generate_random(uint8 * random)
{
  memcpy(random, "12345678901234567890123456789012", 32);
}

/*****************************************************************************/
void save_licence(uint8 * data, int length)
{
}

/*****************************************************************************/
int load_licence(uint8 ** data)
{
  return 0;
}

/*****************************************************************************/
void * xrealloc(void * in, int size)
{
  if (size < 1)
  {
    size = 1;
  }
  return realloc(in, size);
}

/*****************************************************************************/
void * xmalloc(int size)
{
  return malloc(size);
}

/*****************************************************************************/
void xfree(void * in)
{
  if (in != 0)
  {
    free(in);
  }
}

/*****************************************************************************/
void warning(char * format, ...)
{
  va_list ap;

  fprintf(stderr, "WARNING: ");
  va_start(ap, format);
  vfprintf(stderr, format, ap);
  va_end(ap);
}

/*****************************************************************************/
void unimpl(char * format, ...)
{
  va_list ap;

  fprintf(stderr, "NOT IMPLEMENTED: ");
  va_start(ap, format);
  vfprintf(stderr, format, ap);
  va_end(ap);
}

/*****************************************************************************/
void error(char * format, ...)
{
  va_list ap;

  fprintf(stderr, "ERROR: ");
  va_start(ap, format);
  vfprintf(stderr, format, ap);
  va_end(ap);
}

/*****************************************************************************/
int rd_pstcache_mkdir(void)
{
  return 0;
}

/*****************************************************************************/
int rd_open_file(char * filename)
{
  return 0;
}

/*****************************************************************************/
void rd_close_file(int fd)
{
  return;
}

/*****************************************************************************/
int rd_read_file(int fd, void * ptr, int len)
{
  return 0;
}

/*****************************************************************************/
int rd_write_file(int fd, void * ptr, int len)
{
  return 0;
}

/*****************************************************************************/
int rd_lseek_file(int fd, int offset)
{
  return 0;
}

/*****************************************************************************/
int rd_lock_file(int fd, int start, int len)
{
  return False;
}

/*****************************************************************************/
static void out_params(void)
{
  fprintf(stderr, "rdesktop: A Remote Desktop Protocol client.\n");
  fprintf(stderr, "Version " VERSION ". Copyright (C) 1999-2005 Matt Chapman.\n");
  fprintf(stderr, "nanox uiport by Jay Sorg\n");
  fprintf(stderr, "See http://www.rdesktop.org/ for more information.\n\n");
  fprintf(stderr, "Usage: nanoxrdesktop [options] server\n");
  fprintf(stderr, "\n");
}

/*****************************************************************************/
static int parse_parameters(int in_argc, char ** in_argv)
{
  int i;

  if (in_argc <= 1)
  {
    out_params();
    return 0;
  }
  for (i = 1; i < in_argc; i++)
  {
    strcpy(g_servername, in_argv[i]);
  }
  return 1;
}

/*****************************************************************************/
/*static int key(int ch, int flags)
{
  return (ch & 0xffff) | ((flags & 0xffff) << 16);
}*/

/*****************************************************************************/
static void init_keys(void)
{
  memset(&g_keys, 0, sizeof(g_keys));
  g_keys[0x01].ch1 = 27; /* esc */
  g_keys[0x02].ch1 = '1';
  g_keys[0x02].chs = '!';
  g_keys[0x03].ch1 = '2';
  g_keys[0x03].chs = '@';
  g_keys[0x04].ch1 = '3';
  g_keys[0x04].chs = '#';
  g_keys[0x05].ch1 = '4';
  g_keys[0x05].chs = '$';
  g_keys[0x06].ch1 = '5';
  g_keys[0x06].chs = '%';
  g_keys[0x07].ch1 = '6';
  g_keys[0x07].chs = '^';
  g_keys[0x08].ch1 = '7';
  g_keys[0x08].chs = '&';
  g_keys[0x09].ch1 = '8';
  g_keys[0x09].chs = '*';
  g_keys[0x0a].ch1 = '9';
  g_keys[0x0a].chs = '(';
  g_keys[0x0b].ch1 = '0';
  g_keys[0x0b].chs = ')';
  g_keys[0x0c].ch1 = '-';
  g_keys[0x0c].chs = '_';
  g_keys[0x0d].ch1 = '=';
  g_keys[0x0d].chs = '+';
  g_keys[0x0e].ch1 = 8; /* backspace */
  g_keys[0x0f].ch1 = 9; /* tab */
  g_keys[0x10].ch1 = 'q';
  g_keys[0x10].chs = 'Q';
  g_keys[0x11].ch1 = 'w';
  g_keys[0x11].chs = 'W';
  g_keys[0x12].ch1 = 'e';
  g_keys[0x12].chs = 'E';
  g_keys[0x13].ch1 = 'r';
  g_keys[0x13].chs = 'R';
  g_keys[0x14].ch1 = 't';
  g_keys[0x14].chs = 'T';
  g_keys[0x15].ch1 = 'y';
  g_keys[0x15].chs = 'Y';
  g_keys[0x16].ch1 = 'u';
  g_keys[0x16].chs = 'U';
  g_keys[0x17].ch1 = 'i';
  g_keys[0x17].chs = 'I';
  g_keys[0x18].ch1 = 'o';
  g_keys[0x18].chs = 'O';
  g_keys[0x19].ch1 = 'p';
  g_keys[0x19].chs = 'P';
  g_keys[0x1a].ch1 = '[';
  g_keys[0x1a].chs = '{';
  g_keys[0x1b].ch1 = ']';
  g_keys[0x1b].chs = '}';
  g_keys[0x1c].ch2 = 13; /* enter */
  g_keys[0x1d].ch1 = 63533; /* left control */
  g_keys[0x1d].ch2 = 63534; /* right control */
  g_keys[0x1e].ch1 = 'a';
  g_keys[0x1e].chs = 'A';
  g_keys[0x1f].ch1 = 's';
  g_keys[0x1f].chs = 'S';
  g_keys[0x20].ch1 = 'd';
  g_keys[0x20].chs = 'D';
  g_keys[0x21].ch1 = 'f';
  g_keys[0x21].chs = 'F';
  g_keys[0x22].ch1 = 'g';
  g_keys[0x22].chs = 'G';
  g_keys[0x23].ch1 = 'h';
  g_keys[0x23].chs = 'H';
  g_keys[0x24].ch1 = 'j';
  g_keys[0x24].chs = 'J';
  g_keys[0x25].ch1 = 'k';
  g_keys[0x25].chs = 'K';
  g_keys[0x26].ch1 = 'l';
  g_keys[0x26].chs = 'L';
  g_keys[0x27].ch1 = ';';
  g_keys[0x27].chs = ':';
  g_keys[0x28].ch1 = '\'';
  g_keys[0x28].chs = '"';
  g_keys[0x29].ch1 = '`';
  g_keys[0x29].chs = '~';
  g_keys[0x2a].ch1 = 63531; /* left shift */
  g_keys[0x2b].ch1 = '\\';
  g_keys[0x2c].ch1 = 'z';
  g_keys[0x2c].chs = 'Z';
  g_keys[0x2d].ch1 = 'x';
  g_keys[0x2d].chs = 'X';
  g_keys[0x2e].ch1 = 'c';
  g_keys[0x2e].chs = 'C';
  g_keys[0x2f].ch1 = 'v';
  g_keys[0x2f].chs = 'V';
  g_keys[0x30].ch1 = 'b';
  g_keys[0x30].chs = 'B';
  g_keys[0x31].ch1 = 'n';
  g_keys[0x31].chs = 'N';
  g_keys[0x32].ch1 = 'm';
  g_keys[0x32].chs = 'M';
  g_keys[0x33].ch1 = ',';
  g_keys[0x33].chs = '<';
  g_keys[0x34].ch1 = '.';
  g_keys[0x34].chs = '>';
  g_keys[0x35].ch1 = '/';
  g_keys[0x35].ch2 = 63509;
  g_keys[0x35].chs = '?';
  g_keys[0x36].ch1 = 63532; /* right shift */
  g_keys[0x37].ch1 = '*'; /* star on keypad */
  g_keys[0x37].ch2 = 63510; /* star on keypad */
  g_keys[0x38].ch1 = 63535; /* alt */
  g_keys[0x38].ch2 = 63536; /* alt */
  g_keys[0x39].ch1 = ' ';
  g_keys[0x3a].ch1 = 0; /* caps lock */
  g_keys[0x3b].ch1 = 63515; /* f1 */
  g_keys[0x3c].ch1 = 63516; /* f2 */
  g_keys[0x3d].ch1 = 63517; /* f3 */
  g_keys[0x3e].ch1 = 63518; /* f4 */
  g_keys[0x3f].ch1 = 63519; /* f5 */
  g_keys[0x40].ch1 = 63520; /* f6 */
  g_keys[0x41].ch1 = 63521; /* f7 */
  g_keys[0x42].ch1 = 63522; /* f8 */
  g_keys[0x43].ch1 = 63523; /* f9 */
  g_keys[0x44].ch1 = 63524; /* f10 */
  g_keys[0x45].ch1 = 0; /* num lock */
  g_keys[0x46].ch1 = 0; /* scroll lock */
  g_keys[0x47].ch1 = 63505; /* home */
  g_keys[0x47].ch2 = 63494; /* home */
  g_keys[0x48].ch1 = 63490; /* arrow up */
  g_keys[0x48].ch2 = 63506; /* arrow up */
  g_keys[0x49].ch1 = 63507; /* page up */
  g_keys[0x49].ch2 = 63496; /* page up */
  g_keys[0x4a].ch1 = '-'; /* -(minus) on keypad */
  g_keys[0x4a].ch2 = 63511; /* -(minus) on keypad */
  g_keys[0x4b].ch1 = 63502; /* arrow left */
  g_keys[0x4b].ch2 = 63488; /* arrow left */
  g_keys[0x4c].ch1 = 63503; /* middle(5 key) on keypad */
  g_keys[0x4d].ch1 = 63504; /* arrow right */
  g_keys[0x4d].ch2 = 63489; /* arrow right */
  g_keys[0x4e].ch1 = '+'; /* +(plus) on keypad */
  g_keys[0x4e].ch2 = 63512; /* +(plus) on keypad */
  g_keys[0x4f].ch1 = 63499; /* end */
  g_keys[0x4f].ch2 = 63495; /* end */
  g_keys[0x50].ch1 = 63500; /* arrow down */
  g_keys[0x50].ch2 = 63491; /* arrow down */
  g_keys[0x51].ch1 = 63501; /* page down */
  g_keys[0x51].ch2 = 63497; /* page down */
  g_keys[0x52].ch1 = 63498; /* insert */
  g_keys[0x52].ch2 = 63492; /* insert */
  g_keys[0x53].ch1 = 63508; /* delete */
  g_keys[0x53].ch2 = 63493; /* delete */
  g_keys[0x54].ch1 = 63525; /* f11 */
  g_keys[0x54].ch1 = 63527; /* f12 */
}

/*****************************************************************************/
/* returns 0 if found key */
static int get_sc(GR_EVENT_KEYSTROKE * event_keystroke, int * sc, int * ec)
{
  int i;

  //printf("%d %d\n", event_keystroke->ch, event_keystroke->modifiers);
  *sc = 0;
  *ec = 0;
  for (i = 0; i < 256; i++)
  {
    if (event_keystroke->modifiers & 1) /* shift is down */
    {
      if (event_keystroke->ch == g_keys[i].chs)
      {
        *sc = i;
        break;
      }
    }
    if (event_keystroke->ch == g_keys[i].ch1 ||
        event_keystroke->ch == g_keys[i].ch2 ||
        event_keystroke->ch == g_keys[i].ch3)
    {
      *sc = i;
      break;
    }
  }
  if (*sc == 0)
  {
    return 1;
  }
  else
  {
    return 0;
  }
}

/*****************************************************************************/
void static process_keystroke(GR_EVENT_KEYSTROKE * event_keystroke, int down)
{
  int sc, ec;

  if (get_sc(event_keystroke, &sc, &ec) == 0)
  {
    if (down)
    {
      rdp_send_input(0, RDP_INPUT_SCANCODE, RDP_KEYPRESS, sc, ec);
    }
    else
    {
      rdp_send_input(0, RDP_INPUT_SCANCODE, RDP_KEYRELEASE, sc, ec);
    }
  }
}

/*****************************************************************************/
void nanox_event(GR_EVENT * ev)
{
  GR_EVENT_MOUSE * event_mouse;
  GR_EVENT_BUTTON * event_button;
  GR_EVENT_FDINPUT * event_fdinput;
  GR_EVENT_KEYSTROKE * event_keystroke;

  if (ev->type == GR_EVENT_TYPE_FDINPUT) /* 12 */
  {
    event_fdinput = (GR_EVENT_FDINPUT *) ev;
    if (event_fdinput->fd == g_sck)
    {
      if (!rdp_loop(&g_deactivated, &g_ext_disc_reason))
      {
        fprintf(stderr, "Error in nanox_event\n");
        exit(1);
      }
    }
  }
  else if (ev->type == GR_EVENT_TYPE_BUTTON_DOWN) /* 2 */
  {
    event_button = (GR_EVENT_BUTTON *) ev;
    if (event_button->changebuttons & 4) /* left */
    {
      rdp_send_input(0, RDP_INPUT_MOUSE, MOUSE_FLAG_DOWN | MOUSE_FLAG_BUTTON1,
                     event_button->x, event_button->y);
    }
    else if (event_button->changebuttons & 1) /* right */
    {
      rdp_send_input(0, RDP_INPUT_MOUSE, MOUSE_FLAG_DOWN | MOUSE_FLAG_BUTTON2,
                     event_button->x, event_button->y);
    }
  }
  else if (ev->type == GR_EVENT_TYPE_BUTTON_UP) /* 3 */
  {
    event_button = (GR_EVENT_BUTTON *) ev;
    if (event_button->changebuttons & 4) /* left */
    {
      rdp_send_input(0, RDP_INPUT_MOUSE, MOUSE_FLAG_BUTTON1,
                     event_button->x, event_button->y);
    }
    else if (event_button->changebuttons & 1) /* right */
    {
      rdp_send_input(0, RDP_INPUT_MOUSE, MOUSE_FLAG_BUTTON2,
                     event_button->x, event_button->y);
    }
  }
  else if (ev->type == GR_EVENT_TYPE_MOUSE_MOTION) /* 6 */
  {
    event_mouse = (GR_EVENT_MOUSE *) ev;
    rdp_send_input(0, RDP_INPUT_MOUSE, MOUSE_FLAG_MOVE,
                   event_mouse->x, event_mouse->y);
  }
  else if (ev->type == GR_EVENT_TYPE_MOUSE_POSITION) /* 7 */
  {
    /* use GR_EVENT_TYPE_MOUSE_MOTION */
  }
  else if (ev->type == GR_EVENT_TYPE_KEY_DOWN) /* 8 */
  {
    event_keystroke = (GR_EVENT_KEYSTROKE *) ev;
    process_keystroke(event_keystroke, 1);
  }
  else if (ev->type == GR_EVENT_TYPE_KEY_UP) /* 9 */
  {
    event_keystroke = (GR_EVENT_KEYSTROKE *) ev;
    process_keystroke(event_keystroke, 0);
  }
  else if (ev->type == GR_EVENT_TYPE_FOCUS_IN) /* 10 */
  {
  }
  else if (ev->type == GR_EVENT_TYPE_FOCUS_OUT) /* 11 */
  {
  }
  else if (ev->type == GR_EVENT_TYPE_UPDATE) /* 13 */
  {
  }
  else
  {
    fprintf(stderr, "unknown event %d\n", ev->type);
  }
}

/*****************************************************************************/
int main(int in_argc, char ** in_argv)
{
  /* connect to server */
  if (GrOpen() < 0)
  {
    fprintf(stderr, "Couldn't connect to Nano-X server\n");
    exit(1);
  }
  GrGetScreenInfo(&g_screen_info);
  g_bpp = g_screen_info.bpp;
  g_Bpp = (g_screen_info.bpp + 7) / 8;
  g_width = g_screen_info.vs_width;
  g_height = g_screen_info.vs_height;
  if (!((g_bpp == 32 && g_server_bpp == 16) ||
        (g_bpp == 16 && g_server_bpp == 16)))
  {
    fprintf(stderr, "unsupported bpp, server = %d, client = %d\n",
            g_server_bpp, g_bpp);
    GrClose();
    exit(0);
  }

  /* read command line options */
  if (!parse_parameters(in_argc, in_argv))
  {
    GrClose();
    exit(0);
  }
  init_keys();
  /* connect to server */
  if (!rdp_connect(g_servername, RDP_LOGON_NORMAL, "", "", "", ""))
  {
    fprintf(stderr, "Error connecting\n");
    GrClose();
    exit(1);
  }
  /* create window */
  g_wnd = GrNewWindow(GR_ROOT_WINDOW_ID, 0, 0, g_width, g_height, 0, 0, 0);
  /* show window */
  GrMapWindow(g_wnd);
  /* create graphic context */
  g_gc = GrNewGC();
  g_gc_clean = GrNewGC();
  /* clear screen */
  GrSetGCForeground(g_gc, 0);
  GrFillRect(g_wnd, g_gc, 0, 0, g_width, g_height);
  /* register callbacks, set mask, and run main loop */
  GrSelectEvents(g_wnd, -1); /* all events */
  GrRegisterInput(g_sck);
  GrMainLoop(nanox_event);
  /* free graphic context */
  GrDestroyGC(g_gc);
  GrDestroyGC(g_gc_clean);
  /* free window */
  GrDestroyWindow(g_wnd);
  /* close connection */
  GrClose();
  return 0;
}