#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <gdk/gdk.h>
#include <gtk/gtk.h>
#include <gdk_imlib.h>

struct ScreenMate
{
  FILE * rc;
  int PNum;
  GdkPixmap ** Pix;
  GdkBitmap ** Mask;
} SM;

struct SM_MenuItem
{
  char * label;
  char * text;
};

struct SM_MenuItem * SM_MenuPtr=0;
int SM_MenuSize=0;
GtkWidget * SM_Menu=NULL;

int WndWidth=0,WndHeight=0,WMH=0,WMW=0,no_exit_flag=0;
GdkWindow * RootWnd=NULL,*RWnd=NULL;
GtkWidget *Main=NULL;
GdkWindowAttr attr;

char * Btn1_ClickLbl=NULL,* Btn2_ClickLbl=NULL,* Btn3_ClickLbl=NULL;

gint click_btn_callback(GtkWidget *w, GdkEventButton *event, gpointer data);
void unspace(char * buf);
int interp_seek_line(struct ScreenMate * sm,int line);
int interp_seek_label(struct ScreenMate * sm,char * label);
int check_eat_token(char * buf,char * tok);
gint interpreter_callback();
void interpreter(struct ScreenMate * sm);
void interpreter_fetch(char * startlabel);
int isfile(char *s);
void wrap_exit();

void init_window()
{
  Main = gtk_window_new ( GTK_WINDOW_TOPLEVEL );

  gtk_signal_connect( GTK_OBJECT(Main), "destroy",
		      GTK_SIGNAL_FUNC(wrap_exit), NULL);
  gtk_widget_set_events (Main,GDK_BUTTON_PRESS_MASK);
 gtk_signal_connect(GTK_OBJECT(Main),"button_press_event",(GtkSignalFunc)click_btn_callback, NULL);

  gtk_widget_set_usize( Main, WndWidth, WndHeight );

  attr.window_type = GDK_WINDOW_CHILD;
  attr.wclass = GDK_INPUT_OUTPUT;
  attr.width = WndWidth;
  attr.height = WndHeight;

  Main->window = gdk_window_new(
			  NULL, &attr, 0);
  gtk_widget_show(Main);
  gdk_window_show(Main->window);
  for(RootWnd=Main->window;(RootWnd!=NULL)&(RWnd!=RootWnd);RootWnd=gdk_window_get_parent(RootWnd))
    RWnd=RootWnd;
  gdk_window_get_size(RWnd,&WMW,&WMH);
  //printf("Root window:%dx%d\n",WMW,WMH);
  return;
}

gint display_pixmap(GdkPixmap *DisplayPixmap, GdkBitmap *DisplayMask )
{

   gdk_window_set_back_pixmap(
			     Main->window,
			     DisplayPixmap,
			     0);
   gdk_window_shape_combine_mask(
				Main->window,
				DisplayMask,
				0,0);
  gdk_window_clear(Main->window);
  gdk_flush();
 
  return(TRUE);
}

int isfile(char *s)
{
   struct stat st;
   
   if ((!s)||(!*s)) return 0;
   if (stat(s,&st)<0) return 0;
   if (S_ISREG(st.st_mode)) return st.st_size;
   return 0;
}

int interp_seek_line(struct ScreenMate * sm,int line)
{
  char buf[200],* bptr;
  
  if(sm==NULL)
    return 0;
  if(sm->rc==NULL)
    return 0;
  if(!line)
    return 0;

  rewind(sm->rc);
  line--;
  if(!line)
    return 1;
  for(;((bptr=fgets(buf,sizeof(buf),sm->rc))!=NULL)&(!!line);line--);
  
  return !line;
}
int interp_seek_label(struct ScreenMate * sm,char * label)
{
  char buf[200],* bptr;
  
  if(sm==NULL)
    return 0;
  if(sm->rc==NULL)
    return 0;
  if(label==NULL)
    return 0;

  rewind(sm->rc);
  while((bptr=fgets(buf,sizeof(buf),sm->rc))!=NULL)
    {
      if(check_eat_token(buf,"label"))
	{
	  unspace(buf);
	  if(!strncasecmp(buf,label,strlen(label)))
	    return 1;
	}
      else if(check_eat_token(buf,"emb_image"))
        {
          char * pos,xbuf[200];
	  unspace(buf);
          pos=buf;
          while((!!*pos)&(*pos!=' '))
            pos++;
          if(!*pos)
            exit(fprintf(stderr,"Syntax error while bypassing \"emb_image\" in label scaner\n"));
          while(pos>=buf)
            {
              *pos=' ';
              pos--;
            };
          unspace(buf);
          memset(xbuf,0,sizeof(xbuf));
          while((bptr=fgets(xbuf,sizeof(xbuf),sm->rc))!=NULL)
            if(check_eat_token(xbuf,buf))
              break;            
          if(bptr==NULL)
            exit(fprintf(stderr,"End of file while \"emb_image\" in label scaner\n"));
        };
    };
  
  return 0;
}

void unspace(char * buf)
{
  while(*buf==' ')
    memmove(buf,buf+1,strlen(buf));
}

int check_eat_token(char * buf,char * tok)
{
  if((tok==NULL)||(buf==NULL))
    return 0;
  
  if(!!strncasecmp(buf,tok,strlen(tok)))
    return 0;
  memmove(buf,buf+strlen(tok),strlen(buf)-strlen(tok)+1);
  return 1;
}

gint handle_menu(GtkWidget *widget, gpointer data)
{
  interpreter_fetch(data);
  gtk_widget_destroy(SM_Menu);
  SM_Menu=NULL;
  gtk_timeout_add( 50,interpreter_callback, NULL );
  return(FALSE);
}
gint interpreter_callback()
{
  if(Main!=NULL)
    gdk_window_raise(Main->window);
  interpreter(&SM);
  return(FALSE);
}

void interpreter_fetch(char * startlabel)
{
  if(startlabel==NULL)
    startlabel="main";

  if(!interp_seek_label(&SM,startlabel))
    exit(fprintf(stderr,"Can't locate label %s\n",startlabel));
  return;
}

gint click_btn_callback(GtkWidget *w, GdkEventButton *event, gpointer data)
{
  switch(event->button)
    {
    case 1:
      if(Btn1_ClickLbl!=NULL)
	interpreter_fetch(Btn1_ClickLbl);
      break;
    case 2:
      if(Btn2_ClickLbl!=NULL)
	interpreter_fetch(Btn2_ClickLbl);
      break;
    case 3:
      if(Btn3_ClickLbl!=NULL)
	interpreter_fetch(Btn3_ClickLbl);
      break;
    };
  return(FALSE);
}

void interpreter(struct ScreenMate * sm)
{
  char buf[200],*bptr;

  if(sm==NULL)
    exit(fprintf(stderr,"No screenmate descriptor\n"));
  if(sm->rc==NULL)
    exit(fprintf(stderr,"No screenmate rc file opened\n"));

  memset(buf,0,sizeof(buf));
  while((bptr=fgets(buf,sizeof(buf),sm->rc))!=NULL)
    {
      if(buf[strlen(buf)-1]=='\n')
	buf[strlen(buf)-1]=0;
      unspace(buf);
      if(*buf=='#')
	continue;
      if(check_eat_token(buf,"label"))
	continue;
     else if(check_eat_token(buf,"exit"))
	exit(0);
      else if(check_eat_token(buf,"init_window"))
	{
	  if((!WndHeight)||(!WndWidth))
	    exit(fprintf(stderr,"Set window height and width first !\n"));
	  init_window();
	}
      else if(check_eat_token(buf,"close_window"))
	{
	  no_exit_flag=1;
	  gtk_widget_destroy(Main);
	  Main=NULL;
	}
      else if(check_eat_token(buf,"goto"))
	{
	  unspace(buf);
	  if(!interp_seek_label(sm,buf))
	    exit(fprintf(stderr,"Can't locate label %s\n",buf));
	}
      else if(check_eat_token(buf,"print "))
	puts(buf);
     else if(check_eat_token(buf,"exec"))
       {
	 unspace(buf);
	 system(buf);
       }
      else if(check_eat_token(buf,"test"))
       {
	 char * pos;
	 unspace(buf);
	 pos=buf;
	 while((!!*pos)&(*pos!=' '))
	   pos++;
	 if(!*pos)
	   exit(fprintf(stderr,"Syntax: TEST <label> <condition>\n"));
	 *pos=0;
	 pos++;
	 unspace(pos);
	 if(system(pos)==0)
	   interpreter_fetch(buf);
       }
      else if(check_eat_token(buf,"onclick"))
       {
	 char ** TargetLbl=NULL;
	 int do_clear=0;
	 unspace(buf);
	 if(check_eat_token(buf,"clear"))
	   {
	     do_clear=1;
	     unspace(buf);
	   };
	 if(check_eat_token(buf,"left"))
	   TargetLbl=&Btn1_ClickLbl;
	 else if(check_eat_token(buf,"right"))
	   TargetLbl=&Btn3_ClickLbl;
	 else if(check_eat_token(buf,"middle"))
	   TargetLbl=&Btn2_ClickLbl;
	 else
	   exit(fprintf(stderr,"Unknown button: %s !\n",buf));
	 if(do_clear)
	   {
	     if(*TargetLbl!=NULL)
	       free(*TargetLbl);
	     *TargetLbl=NULL;
	   }
	 else
	   {
	     unspace(buf);
	     if(*TargetLbl!=NULL)
	       free(*TargetLbl);
	     (*TargetLbl)=strdup(buf);
	   }
       }
      else if(check_eat_token(buf,"title "))
	{
	  if(Main==NULL)
	    exit(fprintf(stderr,"Init window first !\n"));
	  gdk_window_set_title(Main->window,buf);
	}
      else if(check_eat_token(buf,"makemenu"))
	{
	  int item_num,i;
	  unspace(buf);
	  if((item_num=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  if(SM_MenuPtr!=NULL)
	    {
	      for(i=0;i<SM_MenuSize;i++)
		{
		  free(SM_MenuPtr[i].text);
		  free(SM_MenuPtr[i].label);
		};
	      free(SM_MenuPtr);	
	    };
	  SM_MenuSize=item_num;
	
	  if((SM_MenuPtr=malloc(item_num*sizeof(struct SM_MenuItem)))==NULL)
	    exit(fprintf(stderr,"Out of memory"));
	  memset(SM_MenuPtr,0,item_num*sizeof(struct SM_MenuItem));
	}
   else if(check_eat_token(buf,"menuitem"))
	{
	  int item_num;
	  char *pos;
	  unspace(buf);
	  pos=buf;
	  while((!!*pos)&(*pos!=' '))
	    pos++;
	  if(!*pos)
	    exit(fprintf(stderr,"Syntax: MENUITEM <num> <label> <text>\n"));
	  *pos=0;
	  if((item_num=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  if(item_num>SM_MenuSize)
	    exit(fprintf(stderr,"menu size is %d items\n",SM_MenuSize));	
	  item_num--;
	  while(pos!=buf-1)
	    {
	      *pos=' ';
	      pos--;
	    };
	  unspace(buf);
	  pos=buf;
	  while((!!*pos)&(*pos!=' '))
	    pos++;
	  if(!*pos)
	    exit(fprintf(stderr,"Syntax: MENUITEM <num> <label> <text>\n"));
	  *pos=0;
	  if(SM_MenuPtr[item_num].label!=NULL)
	    free(SM_MenuPtr[item_num].label);
	  SM_MenuPtr[item_num].label=strdup(buf);
	   while(pos!=buf-1)
	    {
	      *pos=' ';
	      pos--;
	    };
	  unspace(buf);
	  if(SM_MenuPtr[item_num].text!=NULL)
	    free(SM_MenuPtr[item_num].text);
	  SM_MenuPtr[item_num].text=strdup(buf);
	}
      else if(check_eat_token(buf,"showmenu"))
	{
	  GtkWidget *button;
	  int mnu_ind;

	  if(!SM_MenuSize)
	    exit(fprintf(stderr,"Menu not defined !\n"));

	  SM_Menu = gtk_menu_new();
	  
	  for(mnu_ind=0;mnu_ind<SM_MenuSize;mnu_ind++)
	    {
	      button = gtk_menu_item_new_with_label(SM_MenuPtr[mnu_ind].text);
	      gtk_signal_connect (GTK_OBJECT (button), "activate",(GtkSignalFunc) handle_menu, SM_MenuPtr[mnu_ind].label);
	      gtk_menu_append(GTK_MENU(SM_Menu),button);
	      gtk_widget_show(button);
	    };
	  gtk_widget_show(SM_Menu);
	  return;
	}
      else if(check_eat_token(buf,"sprites"))
	{
	  int sprite_num;
	  unspace(buf);
	  if((sprite_num=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  sm->PNum=sprite_num;
	  if(sm->Pix!=NULL)
	    free(sm->Pix);
	  if(sm->Mask!=NULL)
	    free(sm->Mask);
	  if((sm->Pix=malloc(sprite_num*sizeof(GdkPixmap *)))==NULL)
	    exit(fprintf(stderr,"Out of memory"));
	  memset(sm->Pix,0,sprite_num*sizeof(GdkPixmap *));
	  if((sm->Mask=malloc(sprite_num*sizeof(GdkBitmap *)))==NULL)
	    exit(fprintf(stderr,"Out of memory"));
	  memset(sm->Mask,0,sprite_num*sizeof(GdkBitmap *));
	}
     else if(check_eat_token(buf,"wnd_width"))
	{
	  int width;
	  unspace(buf);
	  if((width=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  WndWidth=width;
	}
     else if(check_eat_token(buf,"wnd_height"))
	{
	  int height;
	  unspace(buf);
	  if((height=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  WndHeight=height;
	}
      else if(check_eat_token(buf,"move"))
	{
	  int shift,pos_x,pos_y;
	  char *pos;

	  if(Main==NULL)
	    exit(fprintf(stderr,"Init window first !\n"));
	  unspace(buf);	  
	  if(check_eat_token(buf,"center"))
	    {
	      gdk_window_move(Main->window,WMW/2,WMH/2);
	      continue;
	    };
	  if(check_eat_token(buf,"mouse"))
	    {
	      gdk_window_get_pointer(RWnd,&pos_x,&pos_y,0);
	      gdk_window_move(Main->window,pos_x,pos_y);
	      continue;
	    };
	  
	  pos=buf;
	  while((!!*pos)&(*pos!=' '))
	    pos++;
	  if(!*pos)
	    exit(fprintf(stderr,"Syntax: MOVE <center|mouse> | <pixels> <up|down|left|right>"));
	  *pos=0;
	  if((shift=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  while(pos!=buf-1)
	    {
	      *pos=' ';
	      pos--;
	    };
	  unspace(buf);
	  gdk_window_get_position(Main->window,&pos_x,&pos_y);
	  if(check_eat_token(buf,"up"))
	    pos_y+=shift;
	  else if(check_eat_token(buf,"down"))
	    pos_y-=shift;
	  else if(check_eat_token(buf,"left"))
	    pos_x+=shift;
	  else if(check_eat_token(buf,"right"))
	    pos_x-=shift;
	  else if(check_eat_token(buf,"x"))
	    pos_x=shift;
	  else if(check_eat_token(buf,"y"))
	    pos_y=shift;
	  else
	        exit(fprintf(stderr,"Unknown direction: %s\n",buf));
	  //	  printf("Move to : %d %d\n",pos_x,pos_y);
	  if((pos_x>0)&(pos_y>0)&(pos_x<WMW+WndWidth)&(pos_y<WMH+WndHeight))
	    gdk_window_move(Main->window,pos_x,pos_y);
	}
      else if(check_eat_token(buf,"sleep"))
	{
	  int sleeptime;
	  unspace(buf);
	  if((sleeptime=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  usleep(sleeptime);
	}
      else if(check_eat_token(buf,"display"))
	{
	  int imgnum;
	  unspace(buf);
	  if((imgnum=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  if(imgnum>sm->PNum)
	    exit(fprintf(stderr,"Only %d images available\n",sm->PNum));
	  imgnum--;
	  if(sm->Pix[imgnum]==NULL)
	    exit(fprintf(stderr,"Image #%d not loaded !\n",imgnum+1));
	  display_pixmap(sm->Pix[imgnum],sm->Mask[imgnum]);
	}
      else if(check_eat_token(buf,"timeout"))
	{
	  int sleeptime;
	  unspace(buf);
	  if((sleeptime=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  if(Main==NULL)
	    exit(fprintf(stderr,"Init window first !"));
	  gtk_timeout_add(sleeptime,interpreter_callback, NULL );
	  return;
	}
      else if(check_eat_token(buf,"random"))
	{
	  int prob;
	  char * pos;

	  unspace(buf);
	  pos=buf;
	  while((!!*pos)&(*pos!=' '))
	    pos++;
	  if(!*pos)
	    exit(fprintf(stderr,"Syntax: RANDOM <probability> <label>"));
	  *pos=0;
	  if((prob=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	  while(pos!=buf-1)
	    {
	      *pos=' ';
	      pos--;
	    };
	  unspace(buf);
	  if(prob-((int)(100.0*rand()/(RAND_MAX+1.0)))>=0)
	    if(!interp_seek_label(sm,buf))
	      exit(fprintf(stderr,"Can't locate label %s\n",buf)); 
	}
      else if(check_eat_token(buf,"image"))
	{
	  int imgn;
	  char * pos;

	  unspace(buf);
	  pos=buf;
	  while((!!*pos)&(*pos!=' '))
	    pos++;
	  if(!*pos)
	    exit(fprintf(stderr,"Syntax: IMAGE <number> <pixmap>"));
	  *pos=0;
	  if((imgn=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	   if(!sm->PNum)
	    exit(fprintf(stderr,"Please allocate images first !\n"));
	   if(Main==NULL)
	     exit(fprintf(stderr,"Please init window first !\n"));
	   if(imgn>sm->PNum)
	    exit(fprintf(stderr,"Only %d images allocated\n",sm->PNum));
	  while(pos!=buf-1)
	    {
	      *pos=' ';
	      pos--;
	    };
	  imgn--;
	  unspace(buf);
	  if(!isfile(buf))
	    exit(fprintf(stderr,"Not a file %s\n",buf)); 
	  if((sm->Pix[imgn]= gdk_pixmap_create_from_xpm(Main->window,&sm->Mask[imgn],NULL,buf))==NULL)
	    exit(fprintf(stderr,"Can't read XPM file %s\n",buf));;
	}
      else if(check_eat_token(buf,"emb_image"))
	{
	  int imgn;
	  char * pos,* tmpn, xbuf[200];
	  FILE * tmpf;

	  unspace(buf);
	  pos=buf;
	  while((!!*pos)&(*pos!=' '))
	    pos++;
	  if(!*pos)
	    exit(fprintf(stderr,"Syntax: XIMAGE <number> <DELIM>"));
	  *pos=0;
	  if((imgn=atoi(buf))<1)
	    exit(fprintf(stderr,"%s: Not a number or impossible value",buf));
	   if(!sm->PNum)
	    exit(fprintf(stderr,"Please allocate images first !\n"));
	   if(Main==NULL)
	     exit(fprintf(stderr,"Please init window first !\n"));
	   if(imgn>sm->PNum)
	    exit(fprintf(stderr,"Only %d images allocated\n",sm->PNum));
	  while(pos!=buf-1)
	    {
	      *pos=' ';
	      pos--;
	    };
	  imgn--;
	  unspace(buf);
	  if((tmpn=tempnam(NULL,NULL))==NULL)
	    exit(fprintf(stderr,"Can't generate temp name\n")); 
	  if((tmpf=fopen(tmpn,"a+"))==NULL)
	    exit(fprintf(stderr,"Can't open temp file\n"));
          memset(xbuf,0,sizeof(xbuf)); 
          pos=xbuf;
          while((pos=fgets(xbuf,sizeof(xbuf),sm->rc))!=NULL)
	    {
              if(check_eat_token(xbuf,buf))
                break;
              fprintf(tmpf,"%s",xbuf);
            };
          if(pos==NULL)
	    exit(fprintf(stderr,"End of file while seeking for \"%s\"\n",buf));
          fclose(tmpf);
	  if((sm->Pix[imgn]=gdk_pixmap_create_from_xpm(Main->window,&sm->Mask[imgn],NULL,tmpn))==NULL)
	    exit(fprintf(stderr,"Can't read XPM file %s\n",tmpn));
          if(unlink(tmpn)==-1)
	    exit(fprintf(stderr,"Can't unlink file %s\n",tmpn));
	}
      else 
	exit(fprintf(stderr,"Unknown statement: %s\n",buf));
    };
  exit(0);
}
void wrap_exit()
{
  if(no_exit_flag)
    no_exit_flag--;
  else
    exit(0);
}

int main(int argc,char ** argv)
{
  gdk_init(&argc, &argv);
  if((argc!=2)&&(argc!=3))
    return fprintf(stderr,"Usage: %s <screenmate script> [int label]\n",argv[0]);
  memset(&SM,0,sizeof(SM));
  if((SM.rc=fopen(argv[1],"r"))==NULL)
    return fprintf(stderr,"Can't open script %s\n",argv[1]);
  interpreter_fetch(argc==3?argv[2]:NULL);
  gtk_timeout_add( 100,interpreter_callback, NULL );
  gtk_main();
}