home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / printer / dvi2pcl.lha / openpkfile.c < prev    next >
C/C++ Source or Header  |  1993-02-18  |  3KB  |  93 lines
  1. /* $Log:    openpkfile.c,v $
  2.  * Revision 0.8  92/11/23  19:46:50  19:46:50  bt (Bo Thide')
  3.  * Fixed resolution bug. Portable downloading. Added/changed options. PJXL color support
  4.  * 
  5.  * Revision 0.7  92/11/13  02:41:35  02:41:35  bt (Bo Thide')
  6.  * More bug fixes and improvements. Support for PaintJet XL
  7.  * 
  8.  * Revision 0.6  92/11/10  21:47:51  21:47:51  bt (Bo Thide')
  9.  * Bug fixes. Added -R option. Better font handling.
  10.  * 
  11.  * Revision 0.5  92/11/09  16:25:38  16:25:38  bt (Bo Thide')
  12.  * Rewrite of dospecial.c. Extended \special support
  13.  * 
  14.  * Revision 0.4  92/11/08  02:45:54  02:45:54  bt (Bo Thide')
  15.  * Changed to portable bit manipulations. Replaced strrstr for non-POSIX compliant C. Fixed numerous bugs. Added support for more \special's.
  16.  * 
  17.  * Revision 0.3  92/08/24  12:45:45  12:45:45  bt (Bo Thide')
  18.  * Fixed 8 bit (dc font) support.
  19.  * 
  20.  * Revision 0.2  92/08/23  17:28:58  17:28:58  bt (Bo Thide')
  21.  * Source cleaned up.  Changed certain function calls.  Removed globals.
  22.  * 
  23.  * Revision 0.1  92/08/22  23:58:48  23:58:48  bt (Bo Thide')
  24.  * First Release.
  25.  *  */
  26.  
  27. #include <stdio.h>
  28. #include <string.h>
  29. #include "globals.h"
  30. #include "paths.h"
  31.  
  32. static char rcsid[] = "$Header: openpkfile.c,v 0.8 92/11/23 19:46:50 bt Exp $";
  33.  
  34. FILE *openpkfile()
  35. { 
  36.     FILE    *fileptr;
  37.     char    *fptr, *nptr, *pptr;
  38.     char    *pt_chrs = "0123456789", *pt_ptr;
  39.     int    pt_value;
  40.  
  41.     nptr = &names[font->name];
  42.     fptr = pkname;
  43.     pptr = fontpath;
  44.  
  45.     if(*nptr)
  46.         while(*nptr)
  47.             *fptr++ = *nptr++;
  48.     else
  49.         while(*pptr)
  50.             *fptr++ = *pptr++;
  51.     nptr++;
  52.  
  53.     /* Find the pt size from the font name string */
  54.     pt_ptr = strpbrk(nptr, pt_chrs);
  55.     sscanf(pt_ptr, "%d", &pt_value);
  56.  
  57.     /* Look for the pk fonts in pk300/10pt/cmr10.300pk etc.*/
  58.     /*sprintf(fptr,"/%dpt/%s.%dpk", pt_value, nptr, font->dir_size);*/
  59.     sprintf(fptr,"/%d/%s.%dpk",font->dir_size, nptr, font->dir_size);
  60.  
  61.     /* Try to open pk font file */
  62.     if((fileptr = fopen(pkname,"r")) != NULL)
  63.       return fileptr;
  64.  
  65.     /* Look for the pk fonts in pk300/cmr10.300pk etc.*/
  66.     sprintf(fptr,"/%s.%dpk", nptr, font->dir_size);
  67.     if((fileptr = fopen(pkname,"r")) != NULL)
  68.       return fileptr;
  69.  
  70.     fprintf(stderr,"Cannot find pk font file %s\n",pkname);
  71.  
  72.     /* Try to substitute at base resolution */
  73.     font->dir_size = pt_value = RESOLUTION;
  74.  
  75.     sprintf(fptr, "/%dpt/%s.%dpk", pt_value,nptr, font->dir_size);
  76.     if((fileptr = fopen(pkname,"r")) != NULL){
  77.         fprintf(stderr,"Substituting %s at %d points\n", nptr,pt_value);
  78.         return fileptr;
  79.     }
  80.  
  81.     sprintf(fptr, "/%s.%dpk",nptr,font->dir_size);
  82.     if((fileptr = fopen(pkname,"r")) != NULL){
  83.         fprintf(stderr,"Substituting %s at %d points\n", nptr,pt_value);
  84.         return fileptr;
  85.     }
  86.  
  87.     fprintf(stderr,"Substituting cmr10 at ten points . . .\n");
  88.     if ((fileptr = fopen(defaultpk,"r")) != NULL)
  89.         return 0;
  90.     fprintf(stderr, "Killed in openpkfile()\n");
  91.     exit(-1);
  92. }
  93.