home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / source / dvips / tfmload.c < prev    next >
C/C++ Source or Header  |  1994-01-08  |  4KB  |  161 lines
  1. /*
  2.  *   Loads a tfm file.  It marks the characters as undefined.
  3.  */
  4. #include "dvips.h" /* The copyright notice in that file is included too! */
  5. /*
  6.  *   These are the external routines it calls:
  7.  */
  8. #ifdef AMIGA
  9. #include "tfmload_protos.h"
  10. #include "dvips_protos.h"
  11. #include "search_protos.h"
  12. #include "scalewidth_protos.h"
  13. #include "search_protos.h"
  14. #else 
  15. extern void error() ;
  16. extern integer scalewidth() ;
  17. extern FILE *search() ;
  18. #endif
  19. /*
  20.  *   Here are the external variables we use:
  21.  */
  22. extern real conv ;
  23. extern real vconv ;
  24. extern real alpha ;
  25. extern char *tfmpath ;
  26. extern char errbuf[] ;
  27. extern integer fsizetol ;
  28. /*
  29.  *   Our static variables:
  30.  */
  31. FILE *tfmfile ; 
  32. static char name[50] ;
  33.  
  34. /*
  35.  *   Tries to open a tfm file.  Uses cmr10.tfm if unsuccessful,
  36.  *   and complains loudly about it.
  37.  */
  38. void
  39. tfmopen(fd)
  40.         register fontdesctype *fd ;
  41. {
  42.    register char *d, *n ;
  43.  
  44.    d = fd->area ;
  45.    n = fd->name ;
  46.    if (*d==0)
  47.       d = tfmpath ;
  48. #ifdef MVSXA   /* IBM: MVS/XA */
  49.    (void)sprintf(name, "tfm(%s)", n) ;
  50. #else
  51.    (void)sprintf(name, "%s.tfm", n) ;
  52. #endif
  53.    if ((tfmfile=search(d, name, READBIN))==NULL) {
  54.       (void)sprintf(errbuf, "Can't open font metric file %s%s",
  55.              fd->area, name) ;
  56.       error(errbuf) ;
  57.       error("I will use cmr10.tfm instead, so expect bad output.") ;
  58. #ifdef MVSXA   /* IBM: MVS/XA */
  59.       if ((tfmfile=search(d, "tfm(cmr10)", READBIN))==NULL)
  60. #else
  61.       if ((tfmfile=search(d, "cmr10.tfm", READBIN))==NULL)
  62. #endif
  63.          error(
  64.           "! I can't find cmr10.tfm; please reinstall me with proper paths") ;
  65.    }
  66. }
  67.  
  68. shalfword
  69. tfmbyte ()
  70. {
  71. #ifdef AMIGA
  72.   return(shalfword) (getc(tfmfile)) ;
  73. #else
  74.   return(getc(tfmfile)) ;
  75. #endif
  76. }
  77.  
  78. halfword
  79. tfm16 ()
  80. {
  81.   register halfword a ; 
  82.   a = tfmbyte () ; 
  83. #ifdef AMIGA
  84.   return (halfword)( a * 256 + tfmbyte () ) ; 
  85. #else
  86.   return ( a * 256 + tfmbyte () ) ; 
  87. #endif
  88. } 
  89.  
  90. integer
  91. tfm32 ()
  92. {
  93.   register integer a ; 
  94.   a = tfm16 () ; 
  95.   if (a > 32767) a -= 65536 ;
  96.   return ( a * 65536 + tfm16 () ) ; 
  97. } 
  98.  
  99. int
  100. tfmload(curfnt)
  101.         register fontdesctype *curfnt ;
  102. {
  103.    register shalfword i ;
  104.    register integer li ;
  105.    integer scaledsize ;
  106.    shalfword nw, hd ;
  107.    shalfword bc, ec ;
  108.    integer scaled[256] ;
  109.    halfword chardat[256] ;
  110.    int charcount = 0 ;
  111.  
  112.    tfmopen(curfnt) ;
  113. /*
  114.  *   Next, we read the font data from the tfm file, and store it in
  115.  *   our own arrays.
  116.  */
  117.    li = tfm16() ; hd = tfm16() ;
  118.    bc = tfm16() ; ec = tfm16() ;
  119.    nw = tfm16() ;
  120.    li = tfm32() ; li = tfm32() ; li = tfm32() ; li = tfm16() ;
  121.    li = tfm32() ;
  122.    if (li && curfnt->checksum)
  123.       if (li!=curfnt->checksum) {
  124.          (void)sprintf(errbuf,"Checksum mismatch in %s", name) ;
  125.          error(errbuf) ;
  126.        }
  127.    li = (integer)(alpha * (real)tfm32()) ;
  128.    if (li > curfnt->designsize + fsizetol ||
  129.        li < curfnt->designsize - fsizetol) {
  130.       (void)sprintf(errbuf,"Design size mismatch in %s", name) ;
  131.       error(errbuf) ;
  132.    }
  133.    for (i=2; i<hd; i++)
  134.       li = tfm32() ;
  135.    for (i=0; i<256; i++)
  136.       chardat[i] = 256 ;
  137.    for (i=bc; i<=ec; i++) {
  138.       chardat[i] = tfmbyte() ;
  139.       li = tfm16() ;
  140.       li |= tfmbyte() ;
  141.       if (li || chardat[i])
  142.          charcount++ ;
  143.    }
  144.    scaledsize = curfnt->scaledsize ;
  145.    for (i=0; i<nw; i++)
  146.       scaled[i] = scalewidth(tfm32(), scaledsize) ;
  147.    (void)fclose(tfmfile) ;
  148.    for (i=0; i<256; i++)
  149.       if (chardat[i]!= 256) {
  150.          li = scaled[chardat[i]] ;
  151.          curfnt->chardesc[i].TFMwidth = li ;
  152.          if (li >= 0)
  153.             curfnt->chardesc[i].pixelwidth = ((integer)(conv*li+0.5)) ;
  154.          else
  155.             curfnt->chardesc[i].pixelwidth = -((integer)(conv*-li+0.5)) ;
  156.          curfnt->chardesc[i].flags = (curfnt->resfont ? EXISTS : 0) ;
  157.       }
  158.    curfnt->loaded = 1 ;
  159.    return charcount ;
  160. }
  161.