home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / Dvi / dvieps.arc / FONTFILE.H < prev    next >
C/C++ Source or Header  |  1988-10-29  |  8KB  |  274 lines
  1. /* -*-C-*- fontfile.h */
  2. /*-->fontfile*/
  3. /**********************************************************************/
  4. /****************************** fontfile ******************************/
  5. /**********************************************************************/
  6.  
  7. void
  8. fontfile(filelist,font_path,font_name,magnification)
  9. char *filelist[MAXFORMATS];    /* output filename list */
  10. char *font_path;        /* host font file pathname */
  11. char *font_name;        /* TeX font_name */
  12. int magnification;        /* magnification value */
  13. {
  14.  
  15.     /*
  16.     Given a TeX font_name and a magnification value, construct a list of
  17.     system-dependent  host  filenames,  returning  them  in  the   first
  18.     argument.  The files are not guaranteed to exist.  The font names by
  19.     default contains names for the PK,  GF, and PXL font files, but  the
  20.     selection, and search order, may be changed at run time by  defining
  21.     a value for the environment  variable FONTLIST.  See initglob()  for
  22.     details.
  23.     */
  24.  
  25.     register int m;            /* index into filelist[] */
  26.     register INT16 k;            /* loop index */
  27.     float fltdpi;            /* dots/inch */
  28.     int dpi;                /* dots/inch for filename */
  29.  
  30. #if    OS_VAXVMS
  31.     char *tcp;            /* temporary character pointer */
  32.     char *tcp2;            /* temporary character pointer */
  33.     char temp_name[MAXFNAME];    /* temporary filename */
  34. #endif
  35.  
  36.     /*
  37.     We need to convert an old-style ROUNDED integer magnification based
  38.     on 1000 units = 200 dpi to an actual rounded dpi value.
  39.  
  40.     We have
  41.     magnification = round(real_mag) = trunc(real_mag + 0.5)
  42.     which implies
  43.     float(magnification) - 0.5 <= real_mag < float(magnification) + 0.5
  44.  
  45.     We want
  46.     dpi = round(real_mag/5.0)
  47.     which implies
  48.     float(dpi) - 0.5 <= real_mag/5.0 < float(dpi) + 0.5
  49.     or
  50.     5.0*float(dpi) - 2.5 <= real_mag < 5.0*float(dpi) + 2.5
  51.  
  52.     We can combine the two to conclude that
  53.     5.0*float(dpi) - 2.5 < float(magnification) + 0.5
  54.     or
  55.     5.0*float(dpi) - 3 < float(magnification)
  56.     which gives the STRICT inequality
  57.     float(dpi) < (float(magnification) + 3.0)/5.0
  58.     */
  59.  
  60.     fltdpi = (((float)magnification) + 3.0)/5.0;
  61.     dpi = (int)fltdpi;
  62.     if (fltdpi == (float)dpi)
  63.     dpi--;                /* enforce inequality */
  64. /* jrd's debug code...
  65. fprintf(stderr, "fontfile '%s' mag %d -> %d dpi\n", font_name, magnification, dpi);
  66. */
  67.  
  68.     for (k = 0; k < MAXFORMATS; ++k) /* loop over possible file types */
  69.       *filelist[k] = '\0';    /* Initially, all filenames are empty */
  70.  
  71.     m = 0;                /* index in filelist[] */
  72.     for (k = 0; k < MAXFORMATS; ++k) /* loop over possible file types */
  73.     {
  74.  
  75. #if    OS_TOPS20
  76.  
  77.     /* Typical results:
  78.         texfonts:amr10.300gf
  79.         texfonts:amr10.300pk
  80.         texfonts:amr10.1500pxl
  81.     */
  82.  
  83.     if (k == gf_index)
  84.         (void)sprintf(filelist[m++], "%s%s.%dgf",
  85.         font_path, font_name, dpi);
  86.     else if (k == pk_index)
  87.         (void)sprintf(filelist[m++], "%s%s.%dpk",
  88.         font_path, font_name, dpi);
  89.     else if (k == pxl_index)
  90.         (void)sprintf(filelist[m++], "%s%s.%dpxl",
  91.         font_path, font_name, magnification);
  92.  
  93. #endif /* OS_TOPS20 */
  94.  
  95. #if    (OS_PCDOS)
  96.  
  97.     /* Typical results:
  98.         d:\tex\fonts\300\amr10.gf
  99.         d:\tex\fonts\300\amr10.pk
  100.         d:\tex\fonts\1500\amr10.pxl
  101.     */
  102.  
  103.     if (k == gf_index)
  104.         (void)sprintf(filelist[m++], "%s%d\\%s.gf",
  105.         font_path, dpi, font_name);
  106.     else if (k == pk_index)
  107.         (void)sprintf(filelist[m++], "%s%d\\%s.pk",
  108.         font_path, dpi, font_name);
  109.     else if (k == pxl_index)
  110.         (void)sprintf(filelist[m++], "%s%d\\%s.pxl",
  111.         font_path, magnification, font_name);
  112.  
  113. #endif /* OS_PCDOS */
  114.  
  115. #if    (OS_ATARI)
  116. /* jrd added this section */
  117.  
  118.     /* Typical results:
  119.         d:\tex\fonts\amr10\300gf
  120.         d:\tex\fonts\amr10\300pk
  121.         d:\tex\fonts\amr10\1500pxl
  122.     */
  123.  
  124.     if (font_path[strlen(font_path) - 1] != '\\')
  125.         {
  126.         char * foo = (char * )alloca(256);
  127.         strcpy(foo, font_path);
  128.         strcat(foo, "\\");
  129.         font_path = foo;
  130.         }
  131.     if (k == gf_index)
  132.         (void)sprintf(filelist[m++], "%s%s\\%dgf",
  133.         font_path, font_name, dpi);
  134.     else if (k == pk_index)
  135.         (void)sprintf(filelist[m++], "%s%s\\%dpk",
  136.         font_path, font_name, dpi);
  137.     else if (k == pxl_index)
  138.         (void)sprintf(filelist[m++], "%s%s\\%dpxl",
  139.         font_path, font_name, magnification);
  140.  
  141. #endif /* OS_ATARI */
  142.  
  143. #if    OS_UNIX
  144.  
  145.     /* Typical results (both naming styles are tried):
  146.         /usr/lib/tex/fonts/300/amr10.gf
  147.         /usr/lib/tex/fonts/amr10.300gf
  148.         /usr/lib/tex/fonts/300/amr10.pk
  149.         /usr/lib/tex/fonts/1500/amr10.pxl
  150.         /usr/lib/tex/fonts/amr10.1500pxl
  151.         /usr/lib/tex/fonts/amr10.300pk
  152.     */
  153.  
  154.     if (k == gf_index)
  155.     {
  156.         (void)sprintf(filelist[m++], "%s%d/%s.gf",
  157.         font_path, dpi, font_name);
  158.         (void)sprintf(filelist[m++], "%s%s.%dgf",
  159.         font_path, font_name, dpi);
  160.     }
  161.     else if (k == pk_index)
  162.     {
  163.         (void)sprintf(filelist[m++], "%s%d/%s.pk",
  164.         font_path, dpi, font_name);
  165.         (void)sprintf(filelist[m++], "%s%s.%dpk",
  166.         font_path, font_name, dpi);
  167.     }
  168.     else if (k == pxl_index)
  169.     {
  170.         (void)sprintf(filelist[m++], "%s%d/%s.pxl",
  171.         font_path, magnification, font_name);
  172.         (void)sprintf(filelist[m++], "%s%s.%dpxl",
  173.         font_path, font_name, magnification);
  174.     }
  175.     /*(void)fprintf(stderr,"In fontfile: Path = %s\n",filelist[m - 1]);*/
  176.  
  177. #endif /* OS_UNIX */
  178.  
  179.  
  180. #if    OS_VAXVMS
  181.  
  182.     /* Typical results (both naming styles are tried):
  183.         [tex.fonts.300]amr10.gf
  184.         [tex.fonts]amr10.300gf
  185.         [tex.fonts.300]amr10.pk
  186.         [tex.fonts]amr10.300pk
  187.         [tex.fonts.1500]amr10.pxl
  188.         [tex.fonts]amr10.1500pxl
  189.  
  190.  
  191.     We try a translation of  a logical name here if  what we have in
  192.     fontpath[]    is   not     a   directory  specification     like
  193.     "device:[tex.fonts]" or a rooted logical  name like "tex_fonts:"
  194.     translating to something like "device:[tex.fonts.]"
  195.     */
  196.  
  197.  
  198.     /* Use a straightforward expansion first, in case fontpath is
  199.        a search list. */
  200.     if (k == gf_index)
  201.     {
  202.         (void)sprintf(filelist[m++], "%s[%d]%s.gf", fontpath,
  203.         dpi, font_name);
  204.         (void)sprintf(filelist[m++], "%s%s.%dgf", fontpath,
  205.         font_name, dpi);
  206.     }
  207.     else if (k == pk_index)
  208.     {
  209.         (void)sprintf(filelist[m++], "%s[%d]%s.pk", fontpath,
  210.         dpi, font_name);
  211.         (void)sprintf(filelist[m++], "%s%s.%dpk", fontpath,
  212.         font_name, dpi);
  213.     }
  214.     else if (k == pxl_index)
  215.     {
  216.         (void)sprintf(filelist[m++], "%s[%d]%s.pxl", fontpath,
  217.         magnification, font_name);
  218.         (void)sprintf(filelist[m++], "%s%s.%dpxl", fontpath,
  219.         font_name, magnification);
  220.     }
  221.  
  222.     (void)strcpy(temp_name,fontpath);
  223.     tcp = strrchr(temp_name,']'); /* search for last right bracket */
  224.     if (tcp == (char *)NULL) /* then try logical name translation */
  225.     {
  226.         tcp = GETENV(fontpath);
  227.         if (tcp != (char *)NULL)
  228.         {
  229.             tcp2 = strrchr(tcp,']');
  230.         if (tcp2 == (char *)NULL)
  231.           tcp = (char *)NULL; /* translates to another logical name */
  232.         else
  233.         {
  234.             if (*(tcp2-1) == '.')
  235.                 tcp = (char *)NULL; /* looks like rooted logical name */
  236.             else    /* looks like directory name */
  237.             {
  238.                 (void)strcpy(temp_name,tcp);
  239.                 tcp = strrchr(temp_name,']');
  240.             }
  241.         }
  242.         }
  243.     }
  244.     if (tcp != (char *)NULL)
  245.     {    /* fontpath is something like [tex.fonts] */
  246.         *tcp = '\0';        /* clobber right bracket */
  247.         if (k == gf_index)
  248.         {
  249.         (void)sprintf(filelist[m++], "%s.%d]%s.gf", temp_name,
  250.             dpi, font_name);
  251.         (void)sprintf(filelist[m++], "%s]%s.%dgf", temp_name,
  252.             font_name, dpi);
  253.         }
  254.         else if (k == pk_index)
  255.         {
  256.         (void)sprintf(filelist[m++], "%s.%d]%s.pk", temp_name,
  257.             dpi, font_name);
  258.         (void)sprintf(filelist[m++], "%s]%s.%dpk", temp_name,
  259.             font_name, dpi);
  260.         }
  261.         else if (k == pxl_index)
  262.         {
  263.         (void)sprintf(filelist[m++], "%s.%d]%s.pxl", temp_name,
  264.             magnification, font_name);
  265.         (void)sprintf(filelist[m++], "%s]%s.%dpxl", temp_name,
  266.             font_name, magnification);
  267.         }
  268.     }
  269. #endif /* OS_VAXVMS */
  270.     }
  271.  
  272. }
  273.  
  274.