/*
  * BROWSER.C
  *
  * $Id: browser.c,v 1.1 2008/04/08 17:40:13 binet Exp $
  *
  * Main for GIST CGM viewer
  *
  */
 /*    Copyright (c) 1994.  The Regents of the University of California.
                     All rights reserved.  */
 
 #include <string.h>
 #include "pstdlib.h"
 #include "pstdio.h"
 
 #include "xbasic.h"
 #include "cgm.h"
 
 /* OpenCGM, ReadCGM, CGMRelative, cgmLandscape, bg0fg1 in cgmin.h */
 #include "cgmin.h"
 /* GpEPSEngine declared in eps.h */
 #include "eps.h"
 
 extern long strtol(const char *, char **, int);
 
 extern int cgmScaleToFit;
 extern int gtDoEscapes;
 
 /* List of commands in alphabetical order, 0 terminated */
 static char *commandList[]= {
   "cgm", "display", "draw", "eps", "free", "help", "info", "open",
   "ps", "quit", "send", 0 };
 
 /* Corresponding functions */
 static int MakeCGM(int help);
 static int MakeX(int help);
 static int Draw(int help);
 static int EPS(int help);
 static int FreeAny(int help);
 static int Help(int help);
 static int Info(int help);
 static int OpenIn(int help);
 static int MakePS(int help);
 static int Quit(int help);
 static int Send(int help);
 static int Special(int help);  /* must correspond to 0 in commandList */
 static int nPrefix, cSuffix;   /* arguments for Special */
 typedef int (*Command)(int help);
 static Command CommandList[]= {
   &MakeCGM, &MakeX, &Draw, &EPS, &FreeAny, &Help, &Info, &OpenIn,
   &MakePS, &Quit, &Send, &Special };
 static int GetCommand(char *token);
 
 int amBatch= 0;
 
 int warningCount= 0;
 int no_warnings= 0;
 
 static int CreateCGM(int device, char *name);
 static int CreatePS(int device, char *name);
 static int CreateX(int device, char *name);
 
 static int GetPageGroup(char *token);
 static int CheckEOL(char *command);
 static void DrawSend(int ds, char *token);
 static int GetDeviceList(int ds, char *command);
 static int FindDevice(void);
 static int SaveName(int device, char *name);
 static void DoSpecial(int nPrefix, int cSuffix);
 
 static int xPrefix= 0;
 static void HandleExpose(Engine *engine, Drauing *drauing, int xy[]);
 static void HandleOther(Engine *engine, int k, int md);
 static int HelpAndExit(void);
 static int MessageAndExit(char *msg);
 
 extern int on_idle(void);
 extern int on_quit(void);
 extern void on_stdin(char *line);
 static int did_startup = 0;
 extern int do_startup(void);
 
 int defaultDPI;
 
 char *outNames[8];
 int outLengths[8];
 int outDraw[8], outSend[8], outMark[8];
 
 int nPageGroups= 0;
 int mPage[32], nPage[32], sPage[32];
 int n_active_groups = 0;
 
 static int nOut, noDisplay, x_only;
 static char *inName;
 
 int
 on_launch(int argc, char *argv[])
 {
   int i, j;
   char *arg;
 
   nOut= 0;
   for (i=0 ; i<8 ; i++) {
     outNames[i]= 0;
     outEngines[i]= 0;
     outDraw[i]= outSend[i]= outLengths[i]= 0;
   }
   noDisplay= amBatch= x_only= 0;
   defaultDPI= 100;
   inName= 0;
 
   p_quitter(&on_quit);
   p_idler(&on_idle);
   p_stdinit(&on_stdin);
   g_stdout = p_stdout;
 
   for (i=1 ; i<argc ; i++) {
     arg= argv[i];
 
     if (arg[0]=='-') {
       int fileType= -1;
       arg++;
       if (strcmp(arg, "cgm")==0) {
         fileType= 0;
         i++;
         if (i>=argc) return MessageAndExit("Missing file or display name");
         arg= argv[i];
       } else if (strcmp(arg, "ps")==0) {
         fileType= 1;
         i++;
         if (i>=argc) return MessageAndExit("Missing file or display name");
         arg= argv[i];
       } else if (strcmp(arg, "in")==0) {
         i++;
         if (i>=argc) return MessageAndExit("Missing file or display name");
         if (inName) return HelpAndExit();
         else inName= argv[i];
       } else if (strcmp(arg, "display")==0 || strcmp(arg, "d")==0) {
         fileType= 2;
         i++;
         if (i>=argc) return MessageAndExit("Missing file or display name");
         arg= argv[i];
       } else if (strcmp(arg, "f")==0) {
         amBatch= 1;
         fileType= 1;
         arg= "*stdout*";
       } else if (strcmp(arg, "nd")==0) noDisplay= 1;
       else if (strcmp(arg, "b")==0) amBatch= 1;
       else if (strcmp(arg, "nowarn")==0) no_warnings= 1;
       else if (strcmp(arg, "geometry")==0) {
         char *suffix;
         int w=0,h=0;
         i++;
         if (i>=argc) MessageAndExit("Missing geometry");
         arg = argv[i];
         w = (int)strtol(arg, &suffix, 10);
         if (suffix!=arg && *suffix=='x') {
           arg = suffix+1;
           h = (int)strtol(arg, &suffix, 10);
         }
         if (w < 10 || h < 10) MessageAndExit("Invalid geometry");
         gx75width = gx100width = w;
         gx75height = gx100height = h;
       } else if (strcmp(arg, "75")==0) defaultDPI= 75;
       else if (strcmp(arg, "100")==0) defaultDPI= 100;
       else if (strcmp(arg, "gks")==0) {
         gx75width= gx75height= 600;     /* 8x8 X window size */
         gx100width= gx100height= 800;   /* 8x8 X window size */
         cgmScaleToFit= 1;               /* 8x8 PostScript plotting area */
         gtDoEscapes= 0;
       } else if (strcmp(arg, "x")==0) x_only= 1;
       else if (strcmp(arg, "gks")==0) {
         cgmScaleToFit= 1;
         gtDoEscapes= 0;
       }
       else if (strcmp(arg, "fmbug")==0) epsFMbug= 1;
       else if (strcmp(arg, "bg0fg1")==0) bg0fg1= 1;
       else if (strcmp(arg, "esc0")==0) gtDoEscapes= 0;
       else if (strcmp(arg, "esc1")==0) gtDoEscapes= 1;
       else return HelpAndExit();
 
       if (fileType>=0) {
         if (nOut>=8)
           return MessageAndExit("At most 8 output files/displays allowed");
         for (j=0 ; j<nOut ; j++) if (strcmp(outNames[j], arg)==0)
           return MessageAndExit("Duplicate output filenames not allowed");
         outNames[nOut]= arg;
         outTypes[nOut]= fileType;
         nOut++;
       }
 
     } else if (arg[0]<='9' && arg[0]>='0') {
       if (GetPageGroup(arg)) return MessageAndExit("Try again");
 
     } else if (!inName) {
       inName= arg;
 
     } else {
       return HelpAndExit();
     }
   }
 
   if (inName && OpenCGM(inName)) inName= 0;
 
   if (amBatch) {
     if (!inName)
       return MessageAndExit("Must specify an input CGM file to use -b or -f");
     if (!nOut)
       return MessageAndExit("Must specify some output file to use -b");
     noDisplay= 1;
   }
 
   /* Create CGM and PostScript engines */
   for (i=0 ; i<nOut ; i++) {
     if (outTypes[i]==0) CreateCGM(i, outNames[i]);
     else if (outTypes[i]==1) CreatePS(i, outNames[i]);
   }
 
   /* If page list specified, do implied send command */
   if (amBatch && nPageGroups<=0) {
     mPage[0]= 1;
     nPage[0]= 32767;
     sPage[0]= 1;
     nPageGroups= 1;
   }
   if (nPageGroups>0) {
     for (i=0 ; i<8 ; i++) {
       if (!outSend[i]) GpDeactivate(outEngines[i]);
       if (outSend[i] && !GpActivate(outEngines[i])) n_active_groups++;
     }
   }
 
   g_initializer(&argc, argv);
 
   return 0;
 }
 
 int
 do_startup(void)
 {
   int i;
   did_startup = 1;
 
   if (!noDisplay) {
     int noX= 1;
     for (i=0 ; i<nOut ; i++) if (outTypes[i]==2) {
       if (!CreateX(i, outNames[i])) noX= 0;
     }
     if (noX && nOut<8) {
       if (!CreateX(nOut, 0)) {
         nOut++;
         noX= 0;
       }
     }
     noDisplay= noX;
   }
   if (noDisplay && x_only)
     return MessageAndExit("Must be an X display to use -x");
   if (x_only && !inName)
     return MessageAndExit("Must specify an input CGM file to use -x");
 
   if (n_active_groups)
     ReadCGM(mPage, nPage, sPage, nPageGroups);
   return 0;
 }
 
 static int need_prompt = 1;
 
 int
 on_idle(void)
 {
   int flag;
   if (!did_startup && do_startup()) return 0;
   if (need_prompt && !x_only && !amBatch) p_stdout("gist> ");
   need_prompt = 0;
   flag = CatalogCGM();
   if (!flag && amBatch) p_quit();
   return flag;
 }
 
 int
 on_quit(void)
 {
   int i;
   for (i=0 ; i<8 ; i++) {
     if (outEngines[i]) {
       GpDeactivate(outEngines[i]);
       GpKillEngine(outEngines[i]);
     }
   }
 
   return 0;
 }
 
 /* ------------------------------------------------------------------------ */
 
 static int HelpAndExit(void)
 {
   p_stderr("Usage:   gist [cgminput] [options] [page list]\n\n");
   p_stderr("   options:  -in cgminput  (open cgminput for input)\n");
   p_stderr("             -cgm cgmout   (open cgmout for output)\n");
   p_stderr("             -ps psout     (open psout for output)\n");
   p_stderr("             -display host:n.m  (connect to X server)\n");
   p_stderr("             -75  (default to 75 dpi)\n");
   p_stderr("             -100 (default to 100 dpi)\n");
   p_stderr("             -gks (default to 8x8 inches)\n");
   p_stderr("             -geometry WxH (initial window size in pixels)\n");
   p_stderr("             -nd  (not even default X server)\n");
   p_stderr("             -b   (batch mode, implies -nd)\n");
   p_stderr("             -x   (graphics window only, no keyboard)\n");
   p_stderr("             -nowarn (only one warning message printed)\n");
   p_stderr("             -f   (PostScript to stdout, implies -b)\n");
   p_stderr("             -fmbug (if EPS files are for FrameMaker)\n");
   p_stderr("             -bg0fg1 (force color 0 to bg, 1 to fg)\n");
   p_stderr("             -esc0 (skip ^_! escapes-assumed if -gks)\n");
   p_stderr("             -esc1 (handle ^_! text escapes-default)\n");
   p_stderr("   page list:  [page group] [page group] ...\n");
   p_stderr("   page group:  n     (output page n)\n");
   p_stderr("   page group:  n-m   (output pages n->m inclusive)\n");
   p_stderr("   page group:  n-m-s (output every s-th page, n-m)\n");
   p_quit();
   return 1;
 }
 
 static int MessageAndExit(char *msg)
 {
   p_stderr("gist: ");
   p_stderr(msg);
   p_stderr("\ngist: try    gist -help    for usage\n");
   p_quit();
   return 1;
 }
 
 void Warning(char *general, char *particular)
 {
   if (++warningCount > 5) return;
   if (no_warnings) {
     if (no_warnings==1)
       p_stderr("gist: (WARNING) rerun without -nowarn to see warnings");
     no_warnings= 2;
     return;
   }
   p_stderr("gist: (WARNING) ");
   p_stderr(general);
   p_stderr(particular);
   p_stderr("\n");
 }
 
 /* ------------------------------------------------------------------------ */
 
 static int GetCommand(char *token)
 {
   char **command= commandList;
   char *cmd;
   char *now= token;
   int quitOK= 0;
 
   if (!now) return -1;
 
   /* Quit has two synonyms, ? is a synonym for help, and f, b, and g
      are special command forms.  */
   if (strcmp(token, "exit")==0 || strcmp(token, "end")==0 ||
       strcmp(token, "quit")==0) {
     /* Quit and its synonyms cannot be abbreviated */
     now= "quit";
     quitOK= 1;
   } else if (strcmp(token, "?")==0) now= "help";
   else if (strcmp(token, "f")==0) now= "1f";
   else if (strcmp(token, "b")==0) now= "1b";
   else if (strcmp(token, "g")==0) now= "1g";
   else if (strcmp(token, "s")==0) now= "send";
 
   /* Check for nf, nb, ng */
   if (*now<='9' && *now>='0') {
     char *suffix;
     nPrefix= (int)strtol(now, &suffix, 10);
     cSuffix= *suffix;
     if ((cSuffix=='f' || cSuffix=='b' || cSuffix=='g') &&
         *(suffix+1)=='\0') {
       while (*command) command++;
       return command-commandList;
     }
   }
 
   cmd= *command;
   while (cmd && *now>*cmd) cmd= *(++command);
   while (cmd && *now==*cmd) {
     while (*cmd && *now==*cmd) { now++;  cmd++; }
     if (!*now) break;  /* token matches cmd */
     now= token;
     cmd= *(++command);
   }
   if (!cmd || *now) {
     p_stderr("gist: Unknown command: ");
     p_stderr(token);
     p_stderr("\n      Type help for help.\n");
     return -1;
   }
 
   if (*cmd) {
     now= token;
     cmd= *(command+1);
     if (cmd && *now++==*cmd++) {
       while (*cmd && *now==*cmd) { now++;  cmd++; }
       if (!*now) {
         p_stderr("gist: Ambiguous command: ");
         p_stderr(token);
         p_stderr("\n      Type help for help.\n");
         return -1;
       }
     }
   }
 
   if (strcmp(*command, "quit")==0 && !quitOK) {
     p_stderr("gist: The quit command cannot be abbreviated.\n");
     return -1;
   }
 
   return command-commandList;
 }
 
 static int GetPageGroup(char *token)
 {
   int n, m, s;
   char *suffix, *tok;
 
   s= 1;
   n= m= (int)strtol(token, &suffix, 10);
   if (suffix!=token && *suffix=='-') {
     tok= suffix+1;
     n= (int)strtol(tok, &suffix, 10);
     if (suffix!=tok && *suffix=='-') {
       tok= suffix+1;
       s= (int)strtol(tok, &suffix, 10);
       if (suffix==tok) suffix= tok-1;  /* this is an error */
     }
   }
 
   if (*suffix) {
     p_stderr("gist: (SYNTAX) ");
     p_stderr(token);
     p_stderr(" is not a legal page number group\n");
     return 1;
   }
 
   if (nPageGroups>=32) {
     p_stderr("gist: (SYNTAX) too many page number groups (32 max)\n");
     return 1;
   }
 
   mPage[nPageGroups]= m;
   nPage[nPageGroups]= n;
   sPage[nPageGroups]= s;
   nPageGroups++;
   return 0;
 }
 
 static int CheckEOL(char *command)
 {
   if (strtok(0, " \t\n")) {
     p_stderr("gist: (SYNTAX) garbage after ");
     p_stderr(command);
     p_stderr(" command\n");
     return 1;
   } else {
     return 0;
   }
 }
 
 static int Help(int help)
 {
   int cmd;
 
   if (help) {
     p_stderr("gist: help command syntax:\n     help [command]\n");
     p_stderr("  Print help message (for given command).\n");
     return 0;
   }
 
   cmd= GetCommand(strtok(0, " \t\n"));
 
   if (cmd<0) {
     int len;
     char line[80], **command= commandList;
     p_stderr("gist: Input Syntax:\n     command [arg1] [arg2] ...\n");
     strcpy(line, "  Available commands are:  ");
     len= 27;
     for (;;) {
       for (;;) {
         if (len+strlen(*command) > 72) {
           strcpy(line+len, "\n");
           p_stderr(line);
           break;
         }
         strcpy(line+len, *command);
         len+= strlen(*command++);
         if (!*command) {
           strcpy(line+len, "\n");
           p_stderr(line);
           break;
         }
         strcpy(line+len, ", ");
         len+= 2;