/*
  * CGMIN.C
  *
  * $Id: cgmin.c,v 1.1 2008/04/08 17:40:13 binet Exp $
  *
  * Define the CGM reader/echoer for GIST.
  *
  */
 /*    Copyright (c) 1994.  The Regents of the University of California.
                     All rights reserved.  */
 
 #include "play.h"
 #include "cgmin.h"
 #include "engine.h"
 
 #include <stdio.h>
 #include "pstdio.h"
 
 #include <string.h>
 #include "pstdlib.h"
 
 extern void CGMinfo(void);  /* defined here */
 
 /* function that returns the number of pages in a CGM file family */
 extern int CGM_pages(void);
 
 /* Some commercial GKS packages (e.g.- ATC) set the palette to
    0==black, 1==white, then use color 1 as the foreground color, but
    print it as black (sigh).  This flag tries to accomodate such
    deviant behavior.  */
 extern int bg0fg1;
 int bg0fg1= 0;
 
 typedef struct CGM CGM;
 typedef unsigned char Octet;
 
 Engine *outEngines[8];
 int outTypes[8];
 
 static int EchoPage(int number, int inc);
 
 static CGM *NewCGM(char *name, p_file *file, int maxPages);
 static CGM *DeleteCGM(CGM *cgm);
 static void NextName(char *filename);
 static int BeginCatalog(CGM *cgm);
 
 static long ReadParameters(long nOctets, GpColor *colors, long maxColors);
 static int SkipParameters(long nOctets);
 static long ReadElement(int *klass, int *id);
 
 static long DePascalify(char *text, Octet *pasctxt, long nMax);
 static int Snarf16(Octet *param);
 static long SnarfInteger(Octet *param);
 static GpReal SnarfReal(Octet *param);
 static void RememberPoint(GpReal x0, GpReal y0);
 static char *SnarfMoreText(Octet *param);
 static char *SnarfText(Octet *param);
 static char *PathifyText(char *text, int path);
 static GpReal SnarfSA(Octet *param, int md, GpReal dflt);
 static int SnarfColor(Octet *param, long nOctets);
 static void ConvertPoints(long n, short *vdc, GpReal *ndcx, GpReal *ndcy);
 static int CheckScratch(long nPoints);
 
 static void SetVDC(int *vdc);
 static void GSetClip(int on);
 static void ResetPalette(int forPage);
 
 static int DoClass0(int id, long nOctets);
 static int DoClass1(int id, long nOctets);
 static int DoClass2(int id, long nOctets);
 static int DoClass3(int id, long nOctets);
 static int DoClass4(int id, long nOctets);
 static int DoClass5(int id, long nOctets);
 static int DoClass6(int id, long nOctets);
 static int DoClass7(int id, long nOctets);
 
 #define NCAR_RECORD_SIZE 1440L
 #define N_BUFSIZE 4096L
 static unsigned long n_fread(void *ptr, unsigned long nbytes, CGM *cgm);
 static int n_fseek(CGM *cgm, long offset, int relative);
 static long n_ftell(CGM *cgm);
 static long n_fskip(void *ptr, long nbytes, CGM *cgm);
 
 /* ------------------------------------------------------------------------ */
 
 static int currentPage= 0;
 
 static char metafileName[256];                    /* from BEGIN METAFILE */
 static char pictureName[256];          /* from most recent BEGIN PICTURE */
 static char metafileDescription[256];       /* from METAFILE DESCRIPTION */
 static int isGistCGM= 0;  /* set if metafileDescription begins "Gist;  " */
 
 static int nBytesInt= 2;
 static int vdcIllegible, realIllegible, indexIllegible,
   cvalIllegible, cndxIllegible, cselIllegible;
 
 #define N_GIST_FONTS 20
 static char *gistFonts[]= {
   "Courier", "Courier-Bold", "Courier-Oblique", "Courier-BoldOblique",
   "Times-Roman", "Times-Bold", "Times-Italic", "Times-BoldItalic",
   "Helvetica", "Helvetica-Bold", "Helvetica-Oblique", "Helvetica-BoldOblique",
   "Symbol", "Symbol", "Symbol", "Symbol",
   "NewCenturySchlbk-Roman", "NewCenturySchlbk-Bold",
   "NewCenturySchlbk-Italic", "NewCenturySchlbk-BoldItalic" };
 static int defaultNumbers[]= {
   0, 8, 4, 12, 1, 9, 5, 13, 2, 10, 6, 14, 3, 11, 7, 15, 16, 17, 18, 19 };
 
 /* Transformation from vdc->ndc is known on a per-page basis */
 #define DEFAULT_METRIC (1.0/(25545.24*(ONE_INCH/25.4)))
 static GpReal cgmScale= (1.0/25545.24), cgmScaleX= (1.0/25545.24),
   cgmScaleY= (1.0/25545.24), cgmOffsetX= 0.0, cgmOffsetY= 0.0;
 int cgmLandscape= 0;
 extern int cgmScaleToFit;
 int cgmScaleToFit= 0;
 
 /* May as well have a permanently allocated palette of maximal size */
 static GpColorCell cgmPalette[256], defaultPalette[256];
 static int cgmNColors= 0, defaultNColors=  0, cgmNColMax;
 static int cgmColorChange= 0, alteredPalette= 0, setXPalette= 0,
   needPalette= 0;
 
 struct CGMDesc {
   /* metafile descriptor elements */
   int colorMaxI, colorMaxV[6];
   int *fonts, nfonts, maxFonts;
 
   /* picture descriptor elements */
   int scaling;
   GpReal metric;
   int lwidth, msize, ewidth;
   int vdc[4];
   struct unused_color { unsigned char red, green, blue, gray; } background;
 
 #define ABSTRACT 0
 #define METRIC 1
 #define INDEXED 0
 #define DIRECT 1
 #define ABSOLUTE 0
 #define SCALED 1
 };
 
 /* cgmDesc represents default metafile and picture descriptor settings as
    defined in the ANSI X3.122 - 1986 (Part 3) standard */
 struct CGMDesc cgmDesc= {
   63, {0, 0, 0, 255, 255, 255}, defaultNumbers, N_GIST_FONTS, 0,
   0, DEFAULT_METRIC, 1, 1, 1, {0, 0, 32767, 32767}, {255, 255, 255, 255} };
 
 /* pageDesc represents cgmDesc, as modified by the defaults
    replacement section of the metafile header */
 struct CGMDesc pageDesc= {
   63, {0, 0, 0, 255, 255, 255}, defaultNumbers, N_GIST_FONTS, 0,
   0, DEFAULT_METRIC, 1, 1, 1, {0, 0, 32767, 32767}, {255, 255, 255, 255} };
 
 /* pictDesc represents pageDesc, as modified
    by any picture descriptor elements */
 struct CGMDesc pictDesc= {
   63, {0, 0, 0, 255, 255, 255}, defaultNumbers, N_GIST_FONTS, 0,
   0, DEFAULT_METRIC, 1, 1, 1, {0, 0, 32767, 32767}, {255, 255, 255, 255} };
 
 struct CGMControls {
   int auxColor, transparency;
   short clipBox[4];
   int clipOn, clipDefault;
 };
 
 /* cgmControls represent default control settings as defined in the
    ANSI X3.122 - 1986 (Part 3) standard */
 struct CGMControls cgmControls= {
   0, 1, {0, 0, 32767, 32767}, 1, 1 };
 
 /* pageControls represent cgmControls, as modified by the defaults
    replacement section of the metafile header */
 struct CGMControls pageControls= {
   0, 1, {0, 0, 32767, 32767}, 1, 1 };
 
 /* pictControls represents pageControls, as modified
    by any picture descriptor elements */
 struct CGMControls pictControls= {
   0, 1, {0, 0, 32767, 32767}, 1, 1 };
 
 struct NonGistAttribs {
   /* non-Gist constructs */
   int eVisible;         /* edge visibility separate from gistA.e.type */
   int hindex, pindex;   /* separate hatch and pattern indices */
   GpReal upX, upY, baseX, baseY;  /* character up and base vectors */
   GpReal expand, spacing;         /* other text attributes */
   int prec, path;                 /* text precision, path */
 };
 
 struct CGMAttributes {
 
   /* line attributes (GpLines, GpDisjoint) */
   GpLineAttribs l;
 
   /* marker attributes (GpMarkers) */
   GpMarkerAttribs m;
 
   /* filled area attributes (GpFill) */
   GpFillAttribs f;
 
   /* text attributes (GpText) */
   GpTextAttribs t;
 
   /* non-Gist constructs */
   struct NonGistAttribs ng;
 };
 
 /* cgmDefaults represent default attribute settings as defined in the
    ANSI X3.122 - 1986 (Part 3) standard */
 static struct CGMAttributes cgmDefaults= {
   { FG_COLOR, L_SOLID, 1.0 },                     /* line attributes */
   { FG_COLOR, M_ASTERISK, 1.0 },                  /* marker attributes */
   { FG_COLOR, F_SOLID },                          /* fill attributes */
   { FG_COLOR, 0, 0.0156,
       TX_RIGHT, TH_NORMAL, TV_NORMAL },           /* text attributes */
 
   {0, 0, 0, 0.0, 1.0, 1.0, 0.0, 1.0, 0.0, 2, 0}   /* non-Gist attributes,
                                                      except pattern table */
   };
 
 /* pageDefaults represent cgmDefaults, as modified by the defaults
    replacement section of the metafile header */
 static struct CGMAttributes pageDefaults= {
   { FG_COLOR, L_SOLID, 1.0 },                     /* line attributes */
   { FG_COLOR, M_ASTERISK, 1.0 },                /* marker attributes */
   { FG_COLOR, F_SOLID },                          /* fill attributes */
   { FG_COLOR, 0, 0.0156,
       TX_RIGHT, TH_NORMAL, TV_NORMAL },           /* text attributes */
 
   {0, 0, 0, 0.0, 1.0, 1.0, 0.0, 1.0, 0.0, 2, 0}   /* non-Gist attributes,
                                                      except pattern table */
   };
 
 /* current values of non-Gist attributes
    (current values of others in gistA) */
 static struct NonGistAttribs nonGistA= {
   0, 0, 0, 0.0, 1.0, 1.0, 0.0, 1.0, 0.0, 2, 0};
 
 /* ------------------------------------------------------------------------ */
 
 struct CGM {
   char *name;
   p_file *file;   /* non-zero only if currently open */
   CGM *prev, *next;
   int firstPage, nPages, maxPages;
   long *pageAddress, catalogEnd;
 
   /* additional stuff to read NCAR CGM files */
   unsigned char *buffer;
   long pos, valid;
   int ncar;
   long ncar_rec, ncar_len;
 };
 
 static CGM *currentCGM= 0, *firstCGM= 0, *catalogCGM= 0;
 
 static int cgmCmdLen;  /* 2 or 4, length of previous ReadElement command */
 static Octet *cmdString= 0;
 static Octet *currentCmd;
 static long cmdLength;
 
 /* Name incrementer copied from cgm.c */
 static void NextName(char *filename)
 {
   int i, len= filename? strlen(filename) : 0;
   if (len>4 && (strcmp(filename+len-4, ".cgm")==0 ||
                 strcmp(filename+len-4, ".CGM")==0)) i= len-4;
   else if (len>5 && (strcmp(filename+len-5, ".ncgm")==0 ||
                      strcmp(filename+len-5, ".NCGM")==0)) i= len-5;
   else i= len;
   while (i-- > 0) {
     if (filename[i]=='9') {
       filename[i]= '0';
     } else {
       if (filename[i]=='Z' || filename[i]>='z') filename[i]= '0';
       else filename[i]++;
       break;
     }
   }
 }
 
 static CGM *NewCGM(char *name, p_file *file, int maxPages)
 {
   CGM *cgm= (CGM *)p_malloc(sizeof(CGM)+strlen(name)+1);
   long *pageAddress= (long *)p_malloc(sizeof(long)*maxPages);
 
   if (!cgm || !pageAddress) {
     if (cgm) p_free(cgm);
     if (pageAddress) p_free(pageAddress);
     Warning("memory manager failed trying to open ", name);
     return 0;
   }
 
   cgm->name= ((char *)cgm)+sizeof(CGM);
   strcpy(cgm->name, name);
   if (!file) {
     NextName(cgm->name);
     file= p_fopen(cgm->name, "rb");
     if (!file) {
       p_free(cgm);
       p_free(pageAddress);
       return 0;
     }
   }
   cgm->file= file;
   cgm->prev= cgm->next= 0;
   cgm->firstPage= 1;
   cgm->nPages= 0;
   cgm->maxPages= maxPages;
   cgm->catalogEnd= -1;
   cgm->pageAddress= pageAddress;
 
   cgm->buffer = p_malloc(4096);
   cgm->pos = cgm->valid = 0;
   cgm->ncar = 0;
   cgm->ncar_rec = cgm->ncar_len = -1L;
 
   return cgm;
 }
 
 static CGM *DeleteCGM(CGM *cgm)
 {
   CGM *next= cgm->next;
   if (cgm->prev) cgm->prev->next= next;
   if (cgm->pageAddress) p_free(cgm->pageAddress);
   if (cgm->buffer) p_free(cgm->buffer);
   p_free(cgm);
   return next;
 }
 
 static int BeginCatalog(CGM *cgm)
 {
   CGM *oldCGM= currentCGM;
   int klass, id, bad;
   long nOctets;
 
   do {
     currentCGM= cgm;
 
     nOctets= ReadElement(&klass, &id);
 
     if (klass==0 && id==1) {
       bad= 0;
       for (;;) {
         SkipParameters(nOctets);
         nOctets= ReadElement(&klass, &id);
         if (nOctets>=0) {
           if (klass==0) {
             if (id==3 || id==2) break;  /* begin picture or end metafile */
             else if (id!=0) {
               if (cgm->ncar)
                 Warning("bad class 0 element in metafile descriptor", "");
               bad= 1;
               break;
             }
           } else if (klass!=1 && klass!=6 && klass!=7) {
             if (cgm->ncar)
               Warning("bad element class in metafile descriptor", "");
             bad= 1;
             break;
           }
         } else {
           bad= 1;
           break;
         }
       }
     } else {
       if (cgm->ncar) Warning("BEGIN METAFILE element missing", "");
       bad= 1;
     }
 
     if (bad) {
       int ncar = cgm->ncar;
       cgm->ncar = 1;
       if (ncar || n_fseek(cgm, 0L, 0)) {
         currentCGM= oldCGM;
         Warning(cgm->name, " is not a binary CGM, cannot open");
         return 1;
       }
     }
   } while (bad);
 
   if (id==3) {
     cgm->pageAddress[0]= n_ftell(cgm)-cgmCmdLen;
     SkipParameters(nOctets);
     cgm->catalogEnd= n_ftell(cgm);
     cgm->nPages= 1;
   } else {
     cgm->catalogEnd= -1;
   }
 
   currentCGM= oldCGM;
 
   return 0;
 }
 
 int CatalogCGM(void)
 {
   int klass, id, nPage;
   long nOctets;
   CGM *tmp, *cgm= currentCGM;
 
   if (!catalogCGM) return 0;
 
   while (catalogCGM->catalogEnd<0) {
     if (catalogCGM!=currentCGM) {
       p_fclose(catalogCGM->file);
       catalogCGM->file= 0;
     }
     nPage= catalogCGM->firstPage+catalogCGM->nPages;
     catalogCGM= NewCGM(catalogCGM->name, (void *)0, 256);
     if (!catalogCGM || BeginCatalog(catalogCGM)) {
       if (catalogCGM) {
         p_fclose(catalogCGM->file);
         DeleteCGM(catalogCGM);
         catalogCGM= 0;
       }
       return 0;
     }
     catalogCGM->firstPage= nPage;
   }
 
   n_fseek(catalogCGM, catalogCGM->catalogEnd, 0);
 
   for (;;) {
     currentCGM= catalogCGM;
     for (;;) {
       nOctets= ReadElement(&klass, &id);
       if (nOctets>=0) {
         if (klass==0) {
           if (id==3 || id==2) break;  /* begin picture or end metafile */
         }
         SkipParameters(nOctets);
       } else {
         Warning("missing END METAFILE element in ", catalogCGM->name);
         klass= 0;
         id= 2;
         break;
       }
     }
     currentCGM= cgm;
 
     if (id==3) {
       if (catalogCGM->maxPages==catalogCGM->nPages) {
         long *pa= (long *)p_malloc(sizeof(long)*(catalogCGM->maxPages+256));
         int i;
         if (!pa) {
           catalogCGM->catalogEnd= -1;
           if (catalogCGM!=currentCGM) p_fclose(catalogCGM->file);
           catalogCGM= 0;
           Warning("memory manager failed cataloging ", catalogCGM->name);
           break;
         }
         for (i=0 ; i<catalogCGM->nPages ; i++)
           pa[i]= catalogCGM->pageAddress[i];
         p_free(catalogCGM->pageAddress);
         catalogCGM->pageAddress= pa;
         catalogCGM->maxPages+= 256;
       }
       catalogCGM->pageAddress[catalogCGM->nPages++]=
         n_ftell(catalogCGM)-cgmCmdLen;
       currentCGM= catalogCGM;
       SkipParameters(nOctets);
       currentCGM= cgm;
       catalogCGM->catalogEnd= n_ftell(catalogCGM);
       break;
 
     } else { /* found END METAFILE */
       tmp= catalogCGM;
       tmp->catalogEnd= -1;
       if (tmp!=currentCGM) {
         p_fclose(tmp->file);
         tmp->file= 0;
       }
       tmp= tmp->next= NewCGM(catalogCGM->name, (void *)0, 256);
       if (tmp) {
         if (BeginCatalog(tmp)) {
           p_fclose(tmp->file);
           DeleteCGM(tmp);
           tmp= 0;
         } else {
           tmp->prev= catalogCGM;
           tmp->firstPage= catalogCGM->firstPage+catalogCGM->nPages;
         }
       }
       catalogCGM= tmp;
       if (!tmp) return 0;
     }
   }
 
   return 1;
 }
 
 /* ------------------------------------------------------------------------ */