home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / Dvi / dvieps.arc / OPENFONT.H < prev    next >
C/C++ Source or Header  |  1988-10-29  |  12KB  |  337 lines
  1. /* -*-C-*- openfont.h */
  2. /*-->openfont*/
  3. /**********************************************************************/
  4. /****************************** openfont ******************************/
  5. /**********************************************************************/
  6.  
  7. void
  8. openfont(fontname)
  9. char *fontname;
  10.  
  11. /***********************************************************************
  12.     The original version of this DVI driver reopened the font file  each
  13.     time the font changed, resulting in an enormous number of relatively
  14.     expensive file  openings.    This version  keeps  a cache  of  up  to
  15.     MAXOPEN open files,  so that when  a font change  is made, the  file
  16.     pointer, fontfp, can  usually be  updated from the  cache.  When the
  17.     file is not found in  the cache, it must  be opened.  In this  case,
  18.     the next empty slot  in the cache  is assigned, or  if the cache  is
  19.     full, the least used font file is closed and its slot reassigned for
  20.     the new file.  Identification of the least used file is based on the
  21.     counts of the number  of times each file  has been "opened" by  this
  22.     routine.  On return, the file pointer is always repositioned to  the
  23.     beginning of the file.
  24.  
  25.     If the first open attempt  fails, an attempt will  be made to use  a
  26.     substitute font, then neighboring magnifications (with the same font
  27.     name), or substitutes for them.
  28. ***********************************************************************/
  29.  
  30. {
  31.     register INT16 i,j,k;    /* loop indices */
  32.     INT16 current;
  33.     INT16 least_used;
  34.     INT16 maxopen = MAXOPEN;
  35.  
  36. #if    OS_VAXVMS
  37.     long *jpi;
  38. #endif
  39.  
  40.     struct font_entry *tfontptr;
  41.     char subfont[MAXFNAME];
  42.     int submag;
  43.     char* filelist[MAXFORMATS];    /* pointers to templist[][] */
  44.     char templist[MAXFORMATS][MAXFNAME];
  45.  
  46. #if    VIRTUAL_FONTS
  47.     struct stat statbuf;        /* so fstat() can get file size */
  48.     char *p;
  49. #endif
  50.  
  51.     if ((pfontptr != (struct font_entry *)NULL) && (pfontptr == fontptr))
  52.     return;            /* we need not have been called */
  53.  
  54.     for (j = 0; j < MAXFORMATS; ++j)    /* initialize fontlist pointers */
  55.     filelist[j] = &templist[j][0];
  56.  
  57. #if    IBM_PC_MICROSOFT
  58.     /* This code required rewriting to get around a fatal compiler
  59.     assertion error occasioned by the code in the #else part */
  60.     for (current = 1; current <= nopen; ++current)
  61.     {
  62.         FILE* pfp;
  63.  
  64.     pfp = font_files[current].font_id;
  65.     if (pfp == fontptr->font_file_id)
  66.         break;
  67.     }
  68. #else
  69.     for (current = 1;
  70.     (current <= nopen) &&
  71.         (font_files[current].font_id != fontptr->font_file_id);
  72.     ++current)
  73.     ;            /* try to find file in open list */
  74. #endif
  75.  
  76.     if (current <= nopen)    /* file already open, lookup its id */
  77.     fontfp = font_files[current].font_id;
  78.     else
  79.     {
  80.     /***************************************************************
  81.     The file was  not in list  of open  files.  If the  list is  not
  82.     full, add it to  the list; otherwise  close the least-used  file
  83.     and remove it from the font_entry containing it.  Finally,  open
  84.     the file, or its closest  neighbor in the magnification  family.
  85.     A warning is issued  if no file can  be opened.  The caller  can
  86.     then proceed with zero font metrics if desired.
  87.     ***************************************************************/
  88.  
  89. #if    OS_VAXVMS
  90.         /***************************************************************
  91.     VAX VMS has many user quotas, one of which is the maximum number
  92.     of files  that can be open, which  need have no relation  to the
  93.     number  that C  permits.  If  we do  not determine the  limit at
  94.     run-time, the drivers may attempt to open too many files, and in
  95.     such a case, will fail.   There  are two relevant  quotas, FILLM
  96.     (open file limit), and  FILCNT (remaining open file quota).   We
  97.     use the latter,  and leave  one available file  for a   possible
  98.     error log.
  99.     ***************************************************************/
  100.  
  101.     jpi = (long*)getjpi(JPI$_FILCNT);
  102.     if (jpi == (long*)NULL)
  103.         maxopen = MAXOPEN;        /* should never happen */
  104.     else
  105.         maxopen = nopen - 1 + *jpi;
  106.     maxopen = MIN(maxopen,MAXOPEN);    /* we have arrays of size MAXFONT */
  107.                     /* so do not exceed that limit */
  108. #endif /* OS_VAXVMS */
  109.  
  110.     if (nopen < maxopen)    /* just add it to list */
  111.         current = ++nopen;
  112.     else            /* list full -- find least used file, */
  113.     {            /* close it, and reuse slot for new file */
  114.         least_used = 1;
  115.         for (i = 2; i <= maxopen; ++i)
  116.         if (font_files[least_used].use_count >
  117.             font_files[i].use_count)
  118.             least_used = i;
  119.  
  120.         fontfp = font_files[least_used].font_id;
  121.         tfontptr = hfontptr;
  122.         while (tfontptr != (struct font_entry*)NULL)
  123.         {            /* remove file pointer from its font_entry */
  124.         if (tfontptr->font_file_id == fontfp)
  125.         {
  126.             tfontptr->font_file_id = (FILE*)NULL;
  127.             break;
  128.         }
  129.         tfontptr = tfontptr->next;
  130.         }
  131.  
  132. #if    VIRTUAL_FONTS
  133.         if (virt_font && (fontfp != (FILE*)NULL))
  134.             (void)virtfree(fontfp);
  135. #endif
  136.  
  137.         (void)fclose(fontfp);
  138.         fontfp = (FILE*)NULL;
  139.         current = least_used;
  140.     }
  141.     (void)actfact(fontptr->font_mag);    /* Get global mag_index */
  142.  
  143.     fontfp = (FILE*)NULL;
  144.  
  145.     /***************************************************************
  146.     Try the requested font, then any substitute font, then for  each
  147.     neighboring magnification  from  nearest to  furthest,  try  the
  148.     requested font, and then any substitute font.
  149.     ***************************************************************/
  150.  
  151.     for (k = 0; (fontfp == (FILE*)NULL) && (k < MAGTABSIZE); ++k)
  152.     {                /* loop over mag family */
  153.         for (i = -k; (fontfp == (FILE*)NULL) && (i <= k); i += MAX(1,k+k))
  154.         {                /* try smaller, then larger */
  155.         if (IN(0,mag_index+i,MAGTABSIZE-1))
  156.         {
  157. /* jrd's debug code
  158. fprintf(stderr, "openfont: k=%d i=%d mag_index=%d mag_tab->%f magsize->%d\n",
  159.         k, i, mag_index, mag_table[mag_index+1],
  160.         MAGSIZE(mag_table[mag_index+1]),
  161.         (int)MAGSIZE(mag_table[mag_index+1])
  162.         );
  163. fprintf(stderr, "  mag*1000=%f mag*1000+.5=%f ..->int=%d\n", 
  164.         mag_table[mag_index+1] * 1000, 
  165.         mag_table[mag_index+1] * 1000 + 0.5,
  166.         (int)(mag_table[mag_index+1] * 1000 + 0.5)
  167.         );
  168. */
  169.             (void)fontfile(filelist, ((fontptr->a==0)?fontpath:""),
  170.             fontname, (int)MAGSIZE(mag_table[mag_index+i]));
  171.             for (j = 0; (j < MAXFORMATS) && *filelist[j]; ++j)
  172.             {
  173.             fontfp = FOPEN(filelist[j],RB_OPEN);
  174.             DEBUG_OPEN(fontfp,filelist[j],RB_OPEN);
  175.             if (fontfp != (FILE *)NULL)
  176.             {
  177.                 strcpy(fontptr->name,filelist[j]);
  178.                 break;
  179.             }
  180.             }
  181.             if ((k > 0) && (fontfp != (FILE*)NULL))
  182.             {
  183.             (void)sprintf(message,
  184.                 "Font file [%s [mag %d]] could not be opened.\n\
  185. ---using nearest neighbor [%s [mag %d]] instead.",
  186.                 fontname,(int)MAGSIZE(mag_table[mag_index]),
  187.                 fontptr->name,
  188.                 (int)MAGSIZE(mag_table[mag_index+i]));
  189.             (void)warning(message);
  190.             }
  191.  
  192.             if ((fontfp == (FILE*)NULL) && fontsub(subfont,&submag,
  193.             fontname,(int)MAGSIZE(mag_table[mag_index+i])))
  194.             {
  195.             (void)fontfile(filelist,((fontptr->a==0)?fontpath:""),
  196.                 subfont,(submag ? submag :
  197.                 (int)MAGSIZE(mag_table[mag_index+i])));
  198.             for (j = 0; (j < MAXFORMATS) && *filelist[j]; ++j)
  199.             {
  200.                 fontfp = FOPEN(filelist[j],RB_OPEN);
  201.                 DEBUG_OPEN(fontfp,filelist[j],RB_OPEN);
  202.                 if (fontfp != (FILE *)NULL)
  203.                 {
  204.                 strcpy(fontptr->name,filelist[j]);
  205.                 break;
  206.                 }
  207.             }
  208.  
  209.             if (fontfp != (FILE*)NULL)
  210.             {
  211.                 (void)sprintf(message,
  212.                 "Substituting font file [%s [mag %d]] \
  213. by [%s [mag %d]]",
  214.                 fontname,(int)MAGSIZE(mag_table[mag_index]),
  215.                 fontptr->name,
  216.                 (int)MAGSIZE(mag_table[mag_index+i]));
  217.                 (void)warning(message);
  218.             }
  219.             }
  220.         }
  221.         } /* end for (i) -- loop over smaller and larger neighbors  */
  222.     } /* end for (k) -- loop over mag family */
  223.  
  224.     if (fontfp == (FILE*)NULL)
  225.     {
  226.         --nopen;            /* don't count this failed open */
  227.         (void)sprintf(message,"Font file [%s [mag %d]] could not be \
  228. opened; %d font files are open\n\
  229. Proceeding with zero size characters for this font",
  230.         fontname,(int)MAGSIZE(mag_table[mag_index]),nopen);
  231.         (void)warning(message);
  232.     }
  233.  
  234.     font_files[current].font_id = fontfp;
  235.     font_files[current].use_count = 0;
  236.  
  237. #if    VIRTUAL_FONTS
  238.     /*
  239.     ****************************************************************
  240.     This code  is implementation-dependent.   On many  C  compilers,
  241.     FILE points to a struct of the form
  242.  
  243.     struct    _iobuf {
  244.         char    *_ptr;    // pointer to next available char
  245.         int    _cnt;    // number of chars left in buffer
  246.         char    *_base;    // pointer to start of buffer
  247.         int    _flag;    // assorted flags
  248.         int    _file;    // file number handle
  249.         }
  250.  
  251.     To implement virtual fonts,  we save the  pointers in a  private
  252.     global array, get the file size from fstat(), malloc() a  buffer
  253.     for it, read the entire file in, and replace the pointers in the
  254.     FILE variable with ones  for  the  new buffer.  Just before  the
  255.     file is  closed, the space is  freed  and the   old pointers are
  256.     restored.   Although many C implementations use  malloc() to get
  257.     the buffer  space  in the  first place, which  would  make  this
  258.     saving unnecessary, not all do; see  the implementation given in
  259.     Kernighan and Ritchie "The C Programming Language", p. 168.
  260.  
  261.     In  implementing   this   code   on   any   new   machine,   the
  262.     implementations of fread(), read(), fseek(), and rewind() should
  263.     be checked to  choose the  most efficient one  (e.g. one  system
  264.     call for entire file  read, and no  double buffering), and  make
  265.     sure that  fseek() and  rewind()  do not  unnecessarily  discard
  266.     input buffer  contents.  fseek()  and  rewind() are  defined  in
  267.     terms of macros FSEEK() and REWIND() in machdefs.h to facilitate
  268.     replacement.
  269.     ****************************************************************
  270.     */
  271.     if (virt_font)
  272.     {
  273.         virt_save[fileno(fontfp)].base = (char *)NULL;
  274.         (void)fstat(fileno(fontfp),&statbuf);    /* get file size */
  275.         p = (char *)MALLOC((int)statbuf.st_size);    /* get file buffer */
  276.         if (p != (char *)NULL)
  277.         {
  278.         if (READ(fileno(fontfp),p,(int)statbuf.st_size)
  279.              == (int)statbuf.st_size)
  280.         {            /* read successful */
  281.             virt_save[fileno(fontfp)].ptr = FILE_PTR(fontfp);
  282.             virt_save[fileno(fontfp)].cnt = FILE_CNT(fontfp);
  283.             virt_save[fileno(fontfp)].base = FILE_BASE(fontfp);
  284.             FILE_PTR(fontfp) = p;
  285.             FILE_BASE(fontfp) = p;
  286.             FILE_CNT(fontfp) = (int)statbuf.st_size;
  287.         }
  288.         else            /* failure */
  289.         {
  290.             (void)REWIND(fontfp);
  291.             (void)free(p);    /* free dynamic buffer */
  292.         }
  293.         }
  294.         if (DBGOPT(DBG_FONT_CACHE))
  295.         {
  296.             (void)fprintf(stderr,"\nopenfont(): Font file %d [%s] ",
  297.             (int)fileno(fontfp),fontptr->name);
  298.             if (p == (char *)NULL)
  299.             (void)fprintf(stderr,
  300.             "cannot callocate buffer for entire file\n");
  301.         else
  302.             (void)fprintf(stderr,
  303.             "buffer length 0x%x\told buffer at 0x%lx\t\
  304. new buffer at 0x%lx\n",
  305.             (int)statbuf.st_size,
  306.             (long)virt_save[fileno(fontfp)].base,
  307.             (long)FILE_BASE(fontfp));
  308.         }
  309.     }
  310. #endif
  311.  
  312.     } /* end if (file is in open list) */
  313.  
  314.     pfontptr = fontptr;            /* make previous = current font */
  315.     fontptr->font_file_id = fontfp;    /* set file identifier */
  316.     font_files[current].use_count++;    /* update reference count */
  317. }
  318.  
  319. #if    VIRTUAL_FONTS
  320. void
  321. virtfree(fp)                /* free buffer space before close */
  322. FILE *fp;
  323. {
  324.     if (virt_font && (fp != (FILE*)NULL) &&
  325.     (virt_save[fileno(fp)].base != (char *)NULL))
  326.     {
  327.     (void)fflush(fp);
  328.     (void)free(FILE_BASE(fp));
  329.     FILE_PTR(fp) = virt_save[fileno(fp)].ptr;
  330.     FILE_CNT(fp) = virt_save[fileno(fp)].cnt;
  331.     FILE_BASE(fp) = virt_save[fileno(fp)].base;
  332.     virt_save[fileno(fp)].base = (char *)NULL;
  333.     }
  334. }
  335. #endif
  336.  
  337.