/* * This is the main routine. */ #ifndef DEFRES #define DEFRES (300) #endif #include "structures.h" /* The copyright notice there is included too! */ #ifdef VMS #define GLOBAL globaldef #include climsgdef #include ctype #include descrip #endif /* * First we define some globals. */ #ifdef VMS static char ofnme[252],infnme[252],pap[40],thh[20]; #endif fontdesctype *fonthead ; /* list of all fonts mentioned so far */ fontdesctype *curfnt ; /* the currently selected font */ sectiontype *sections ; /* sections to process document in */ Boolean manualfeed ; /* manual feed? */ Boolean compressed ; /* compressed? */ Boolean safetyenclose ; /* enclose in save/restore for stupid spoolers? */ Boolean removecomments = 0 ; /* remove comments from included PS? */ Boolean nosmallchars ; /* disable small char optimization for X4045? */ Boolean cropmarks ; /* add cropmarks? */ Boolean abspage = 0 ; /* are page numbers absolute? */ Boolean tryepsf = 0 ; /* should we try to make it espf? */ Boolean secure = 0 ; /* make safe for suid */ int collatedcopies = 1 ; /* how many collated copies? */ int sectioncopies = 1 ; /* how many times to repeat each section? */ integer pagecopies = 1 ; /* how many times to repeat each page? */ shalfword linepos = 0 ; /* where are we on the line being output? */ integer maxpages ; /* the maximum number of pages */ Boolean notfirst, notlast ; /* true if a first page was specified */ Boolean sendcontrolD ; /* should we send a control D at end? */ integer firstpage ; /* the number of the first page if specified */ integer lastpage ; integer firstseq ; integer lastseq ; integer hpapersize, vpapersize ; /* horizontal and vertical paper size */ integer hoff, voff ; /* horizontal and vertical offsets */ integer maxsecsize ; /* the maximum size of a section */ integer firstboploc ; /* where the first bop is */ Boolean sepfiles ; /* each section in its own file? */ int numcopies ; /* number of copies of each page to print */ char *oname ; /* output file name */ char *iname ; /* dvi file name */ char *fulliname ; /* same, with current working directory */ char *strings ; /* strings for program */ char *nextstring, *maxstring ; /* string pointers */ FILE *dvifile, *bitfile ; /* dvi and output files */ quarterword *curpos ; /* current position in virtual character packet */ quarterword *curlim ; /* final byte in virtual character packet */ fontmaptype *ffont ; /* first font in current frame */ real conv ; /* conversion ratio, pixels per DVI unit */ real vconv ; /* conversion ratio, pixels per DVI unit */ real alpha ; /* conversion ratio, DVI unit per TFM unit */ integer mag ; /* the magnification of this document */ integer num, den ; /* the numerator and denominator */ int overridemag ; /* substitute for mag value in DVI file? */ int actualdpi = DEFRES ; /* the actual resolution of the printer */ int vactualdpi = DEFRES ; /* the actual resolution of the printer */ int maxdrift ; /* max pixels away from true rounded position */ int vmaxdrift ; /* max pixels away from true rounded position */ char *paperfmt ; /* command-line paper format */ int landscape = 0 ; /* landscape mode */ integer fontmem ; /* memory remaining in printer */ integer pagecount ; /* page counter for the sections */ integer pagenum ; /* the page number we currently look at */ long bytesleft ; /* number of bytes left in raster */ quarterword *raster ; /* area for raster manipulations */ integer hh, vv ; /* horizontal and vertical pixel positions */ char *tfmpath = TFMPATH ; /* pointer to directories for tfm files */ char *pkpath = PKPATH ; /* pointer to directories for pk files */ char *vfpath = VFPATH ; /* pointer to directories for vf files */ char *figpath = FIGPATH ; /* pointer to directories for figure files */ char *headerpath = HEADERPATH ; /* pointer to directories for header files */ char *configpath = CONFIGPATH; /* where to find config files */ #ifndef PICTPATH #ifndef __THINK__ #define PICTPATH "." #else #define PICTPATH ":" #endif #endif char *pictpath = PICTPATH ; /* where IFF/etc. pictures are found */ #ifdef SEARCH_SUBDIRECTORIES char *fontsubdirpath = FONTSUBDIRPATH ; #endif #ifdef FONTLIB char *flipath = FLIPATH ; /* pointer to directories for fli files */ char *fliname = FLINAME ; /* pointer to names of fli files */ #endif integer swmem ; /* font memory in the PostScript printer */ int quiet ; /* should we only print errors to stderr? */ int filter ; /* act as filter default output to stdout, default input to stdin? */ int prettycolumn ; /* the column we are at when running pretty */ int gargc ; /* global argument count */ char **gargv ; /* global argument vector */ int totalpages = 0 ; /* total number of pages */ Boolean reverse ; /* are we going reverse? */ Boolean usesPSfonts ; /* do we use local PostScript fonts? */ Boolean usesspecial ; /* do we use \special? */ Boolean headers_off ; /* do we send headers or not? */ Boolean usescolor ; /* IBM: color - do we use colors? */ char *headerfile ; /* default header file */ char *warningmsg ; /* a message to write, if set in config file */ Boolean multiplesects ; /* more than one section? */ Boolean disablecomments ; /* should we suppress any EPSF comments? */ char *printer ; /* what printer to send this to? */ char *mfmode ; /* default MF mode */ frametype frames[MAXFRAME] ; /* stack for virtual fonts */ fontdesctype *baseFonts[256] ; /* base fonts for dvi file */ integer pagecost; /* memory used on the page being prescanned */ int delchar; /* characters to delete from prescanned page */ integer fsizetol; /* max dvi units error for psfile font sizes */ Boolean includesfonts; /* are fonts used in included psfiles? */ fontdesctype *fonthd[MAXFONTHD];/* list headers for included fonts of 1 name */ int nextfonthd; /* next unused fonthd[] index */ char xdig[256]; /* table for reading hexadecimal digits */ char banner[] = BANNER ; /* our startup message */ Boolean noenv ; /* ignore PRINTER envir variable? */ Boolean dopprescan = 0 ; /* do we do a scan before the prescan? */ integer lastheadermem ; /* how much mem did the last header require? */ extern int dontmakefont ; struct papsiz *papsizes ; /* all available paper size */ #ifdef MSDOS char *mfjobname = NULL; /* name of mfjob file if given */ FILE *mfjobfile = NULL; /* mfjob file for font making instructions */ #endif #ifdef DEBUG integer debug_flag = 0; #endif /* DEBUG */ #ifdef MSWIN char winline[256]; /* command line for windows */ int wargc; /* argc for windows */ char *wargv[32]; /* argv for windows */ char *strtok(); #endif /* * This routine calls the following externals: */ extern void outbangspecials() ; extern void prescanpages() ; #ifdef VMCMS /* IBM: VM/CMS - for 8 character truncation conflicts */ extern void pprscnpgs() ; #else extern void pprescanpages() ; #endif extern void initprinter() ; extern void cleanprinter() ; extern void dosection() ; extern void getdefaults() ; extern void cmdout() ; extern void numout() ; extern void initcolor() ; extern int add_header() ; #ifndef VMCMS /* IBM: VM/CMS */ #ifndef IBM6000 /* IBM: 6000s */ extern char *strcpy() ; #endif /* IBM: 6000s */ #endif /* IBM: VM/CMS */ extern void checkenv() ; extern void getpsinfo(), revpslists() ; #ifdef FONTLIB extern void fliload() ; #endif #ifdef __THINK__ int dcommand(char ***); #endif /* Declare the routine to get the current working directory. */ #ifndef IGNORE_CWD #ifndef HAVE_GETCWD extern char *getwd (); /* said to be faster than getcwd (SunOS man page) */ #define getcwd(b, len) getwd(b) /* used here only when b nonnull */ #else #ifdef ANSI extern char *getcwd (char *, int); #else extern char *getcwd (); #endif /* not ANSI */ #endif /* not HAVE_GETWD */ #ifdef SYSV #define MAXPATHLEN (256) #else #ifdef VMS #define MAXPATHLEN (256) #else /* ~SYSV */ #include /* for MAXPATHLEN */ #endif /* ~SYSV */ #endif #endif /* not IGNORE_CWD */ static char *helparr[] = { " Usage: dvips [options] filename[.dvi]", "a* Conserve memory, not time x # Override dvi magnification", "b # Page copies, for posters e.g. y # Multiply by dvi magnification", "c # Uncollated copies C # Collated copies", "d # Debugging D # Resolution", "e # Maxdrift value E* Try to create EPSF", "f* Run as filter F* Send control-D at end", "h f Add header file K* Pull comments from inclusions", "i* Separate file per section M* Don't make fonts", "k* Print crop marks N* No structured comments", "l # Last page O c Set/change paper offset", "m* Manual feed P s Load config.$s", "n # Maximum number of pages R Run securely", "o f Output file S # Max section size in pages", "p # First page T c Specify desired page size", "q* Run quietly U* Disable string param trick", "r* Reverse order of pages X # Horizontal resolution", "s* Enclose output in save/restore Y # Vertical resolution", "t s Paper format Z* Compress bitmap fonts", " # = number f = file s = string * = suffix, `0' to turn off", " c = comma-separated dimension pair (e.g., 3.2in,-32.1cm)", 0} ; void help() { char **p ; for (p=helparr; *p; p++) fprintf(stderr, " %s\n", *p) ; } /* * This error routine prints an error message; if the first * character is !, it aborts the job. */ static char *progname ; void error(s) char *s ; { extern void exit() ; (void)fprintf(stderr, "%s: %s\n", progname, s) ; if (*s=='!') { if (bitfile != NULL) { cleanprinter() ; } exit(1) ; /* fatal */ } } /* * This is our malloc that checks the results. We debug the * allocations but not the frees, since memory fragmentation * might be such that we can never use the free'd memory and * it's wise to be conservative. The only real place we free * is when repacking *huge* characters anyway. */ #ifdef DEBUG static integer totalalloc = 0 ; #endif char *mymalloc(n) integer n ; { char *p ; #ifdef SMALLMALLOC if (n > 65500L) error("! can't allocate more than 64K!") ; #endif #ifdef DEBUG totalalloc += n ; if (dd(D_MEM)) { #ifdef SHORTINT fprintf(stderr, "Alloc %ld\n", n) ; #else fprintf(stderr, "Alloc %d\n", n) ; #endif } #endif p = malloc(n) ; if (p == NULL) error("! no memory") ; return p ; } /* * Initialize sets up all the globals and data structures. */ void initialize() { int i; char *s; nextfonthd = 0; for (i=0; i<256; i++) xdig[i] = 0; i = 0; for (s="0123456789ABCDEF"; *s!=0; s++) xdig[*s] = i++; i = 10; for (s="abcdef"; *s!=0; s++) xdig[*s] = i++; strings = mymalloc((integer)STRINGSIZE) ; maxpages = 100000 ; numcopies = 1 ; nextstring = strings ; iname = fulliname = strings ; *nextstring++ = 0 ; maxstring = strings + STRINGSIZE - 200 ; bitfile = NULL ; bytesleft = 0 ; swmem = SWMEM ; oname = OUTPATH ; sendcontrolD = 0 ; multiplesects = 0 ; disablecomments = 0 ; maxdrift = -1 ; vmaxdrift = -1 ; } /* * This routine copies a string into the string `pool', safely. */ char * newstring(s) char *s ; { int l ; if (s == NULL) return(NULL) ; l = strlen(s) ; if (nextstring + l >= maxstring) error("! out of string space") ; (void)strcpy(nextstring, s) ; s = nextstring ; nextstring += l + 1 ; return(s) ; } void newoutname() { static int seq = 0 ; static char *seqptr = 0 ; char *p ; if (oname == 0 || *oname == 0) error("! need an output file name to specify separate files") ; if (*oname != '!') { if (seqptr == 0) { oname = newstring(oname) ; seqptr = 0 ; for (p = oname; *p; p++) if (*p == '.') seqptr = p + 1 ; if (seqptr == 0) seqptr = p ; nextstring += 5 ; /* make room for the number, up to five digits */ } sprintf(seqptr, "%03d", ++seq) ; } } /* * This routine reverses a list, where a list is defined to be any * structure whose first element is a pointer to another such structure. */ void *revlist(p) void *p ; { struct list { struct list *next ; } *pp = (struct list *)p, *qq = 0, *tt ; while (pp) { tt = pp->next ; pp->next = qq ; qq = pp ; pp = tt ; } return (void *)qq ; } #ifdef MSWIN /* This code is specific to Microsoft Windows and asks for a new * command line if the real command line was empty. */ void winargs() { fputs("Options: ",stdout); fgets(winline,256,stdin); wargc=1; if ( (wargv[1] = strtok(winline," \n")) != (char *)NULL ) { wargc=2; while ( ((wargv[wargc] = strtok((char *)NULL," \n")) != (char *)NULL) && (wargc < 31) ) wargc++; } wargv[wargc] = (char *)NULL; } /* A fake system() for Microsoft Windows */ int system(command) char *command; { char str[256]; strcpy(str,"Windows can't do system(\042"); if (command) { strncat(str,command,256-strlen(str)); } strncat(str,"\042);",256-strlen(str)); error(str); return(1); /* error */ } #endif /* * Finally, our main routine. */ extern void handlepapersize() ; #ifdef VMS main() #else void main(argc, argv) int argc ; char *argv[] ; #endif { extern void exit() ; int i, lastext = -1 ; register sectiontype *sects ; #ifdef MSWIN if (argc==1) { /* get new command line if no options or filenames */ help(); winargs(); wargv[0] = argv[0]; argc=wargc; argv=wargv; } #endif #ifdef __THINK__ argc = dcommand(&argv) ; /* do I/O stream redirection */ #endif #ifdef VMS progname = &thh[0] ; strcpy(progname,"DVIPS%ERROR"); #else progname = argv[0] ; gargv = argv ; gargc = argc ; /* we sneak a look at the first arg in case it's debugging */ #ifdef DEBUG if (argc > 1 && strncmp(argv[1], "-d", 2)==0) { if (argv[1][2]==0) { if (sscanf(argv[2], "%d", &debug_flag)==0) debug_flag = 0 ; } else { if (sscanf(argv[1]+2, "%d", &debug_flag)==0) debug_flag = 0 ; } } #endif #endif initialize() ; checkenv(0) ; getdefaults(CONFIGFILE) ; getdefaults((char *)0) ; /* * This next whole big section of code is straightforward; we just scan * the options. An argument can either immediately follow its option letter * or be separated by spaces. Any argument not preceded by '-' and an * option letter is considered a file name; the program complains if more * than one file name is given, and uses stdin if none is given. */ #ifdef VMS vmscli(); #else for (i=1; i 1000) error("! can only print one to a thousand page copies") ; break ; case 'c' : if (*p == 0 && argv[i+1]) p = argv[++i] ; if (sscanf(p, "%d", &numcopies)==0) error("! Bad number of copies option (-c).") ; break ; case 'd' : #ifdef DEBUG if (*p == 0 && argv[i+1]) p = argv[++i]; if (sscanf(p, "%d", &debug_flag)==0) error("! Bad debug option (-d)."); break; #else error("not compiled in debug mode") ; break ; #endif /* DEBUG */ case 'e' : if (*p == 0 && argv[i+1]) p = argv[++i] ; if (sscanf(p, "%d", &maxdrift)==0 || maxdrift<0) error("! Bad maxdrift option (-e).") ; vmaxdrift = maxdrift; break ; case 'f' : filter = (*p != '0') ; if (filter) oname = "" ; noenv = 1 ; sendcontrolD = 0 ; break ; case 'h' : case 'H' : if (*p == 0 && argv[i+1]) p = argv[++i] ; if (strcmp(p, "-") == 0) headers_off = 1 ; else (void)add_header(p) ; break ; case 'i': sepfiles = (*p != '0') ; break ; case 'k': cropmarks = (*p != '0') ; break ; case 'R': secure = 1 ; break ; case 'S': if (*p == 0 && argv[i+1]) p = argv[++i] ; if (sscanf(p, "%d", &maxsecsize)==0) error("! Bad section size arg (-S).") ; break ; case 'm' : manualfeed = (*p != '0') ; break ; case 'n' : if (*p == 0 && argv[i+1]) p = argv[++i] ; #ifdef SHORTINT if (sscanf(p, "%ld", &maxpages)==0) #else /* ~SHORTINT */ if (sscanf(p, "%d", &maxpages)==0) #endif /* ~SHORTINT */ error("! Bad number of pages option (-n).") ; break ; case 'o' : if (*p == 0 && argv[i+1] && *argv[i+1]!='-') p = argv[++i] ; oname = p ; noenv = 1 ; sendcontrolD = 0 ; break ; case 'O' : if (*p == 0 && argv[i+1]) p = argv[++i] ; handlepapersize(p, &hoff, &voff) ; break ; case 'T' : if (*p == 0 && argv[i+1]) p = argv[++i] ; handlepapersize(p, &hpapersize, &vpapersize) ; if (landscape) { error( "both landscape and papersize specified; ignoring landscape") ; landscape = 0 ; } break ; case 'p' : #ifdef MSDOS /* check for emTeX job file (-pj=filename) */ if (*p == 'j') { p++; if (*p == '=') p++; mfjobname = newstring(p); break; } /* must be page number instead */ #endif if (*p == 0 && argv[i+1]) p = argv[++i] ; if (*p == '=') { abspage = 1 ; p++ ; } #ifdef SHORTINT switch(sscanf(p, "%ld.%ld", &firstpage, &firstseq)) { #else /* ~SHORTINT */ switch(sscanf(p, "%d.%d", &firstpage, &firstseq)) { #endif /* ~SHORTINT */ case 1: firstseq = 0 ; case 2: break ; default: error("! Bad first page option (-p).") ; } notfirst = 1 ; break ; case 'l': if (*p == 0 && argv[i+1]) p = argv[++i] ; if (*p == '=') { abspage = 1 ; p++ ; } #ifdef SHORTINT switch(sscanf(p, "%ld.%ld", &lastpage, &lastseq)) { #else /* ~SHORTINT */ switch(sscanf(p, "%d.%d", &lastpage, &lastseq)) { #endif /* ~SHORTINT */ case 1: lastseq = 0 ; case 2: break ; default: error("! Bad last page option (-p).") ; } notlast = 1 ; break ; case 'q' : case 'Q' : quiet = (*p != '0') ; break ; case 'r' : reverse = (*p != '0') ; break ; case 't' : if (*p == 0 && argv[i+1]) p = argv[++i] ; if (strcmp(p, "landscape") == 0) { if (hpapersize || vpapersize) error( "both landscape and papersize specified; ignoring landscape") ; else landscape = 1 ; } else paperfmt = p ; break ; case 'x' : case 'y' : if (*p == 0 && argv[i+1]) p = argv[++i] ; if (sscanf(p, "%d", &mag)==0 || mag < 10 || mag > 100000) error("! Bad magnification parameter (-x).") ; overridemag = (c == 'x' ? 1 : -1) ; break ; case 'C' : if (*p == 0 && argv[i+1]) p = argv[++i] ; if (sscanf(p, "%d", &collatedcopies)==0) error("! Bad number of collated copies option (-C).") ; break ; case 'D' : if (*p == 0 && argv[i+1]) p = argv[++i] ; if (sscanf(p, "%d", &actualdpi)==0 || actualdpi < 10 || actualdpi > 10000) error("! Bad dpi parameter (-D).") ; vactualdpi = actualdpi; break ; case 'E' : tryepsf = (*p != '0') ; break ; case 'K' : removecomments = (*p != '0') ; break ; case 'U' : nosmallchars = (*p != '0') ; break ; case 'X' : if (*p == 0 && argv[i+1]) p = argv[++i] ; if (sscanf(p, "%d", &actualdpi)==0 || actualdpi < 10 || actualdpi > 10000) error("! Bad dpi parameter (-D).") ; break ; case 'Y' : if (*p == 0 && argv[i+1]) p = argv[++i] ; if (sscanf(p, "%d", &vactualdpi)==0 || vactualdpi < 10 || vactualdpi > 10000) error("! Bad dpi parameter (-D).") ; vactualdpi = vactualdpi; break ; case 'F' : sendcontrolD = (*p != '0') ; break ; case 'M': dontmakefont = (*p != '0') ; break ; case 'N' : disablecomments = (*p != '0') ; break ; case 'P' : if (*p == 0 && argv[i+1]) p = argv[++i] ; printer = p ; noenv = 1 ; getdefaults("") ; break ; case 's' : safetyenclose = (*p != '0') ; break ; case 'Z' : compressed = (*p != '0') ; break ; case '?' : (void)fprintf(stderr, banner) ; help() ; break ; default: error( "! Bad option, not one of acdefhiklmnopqrstxCDEFKMNOPSTUXYZ?") ; } } else { if (*iname == 0) { register char *p ; lastext = 0 ; iname = nextstring ; p = argv[i] ; while (*p) { *nextstring = *p++ ; if (*nextstring == '.') lastext = nextstring - iname ; else if (*nextstring == '/' || *nextstring == ':') lastext = 0 ; nextstring++ ; } if (lastext == 0) { lastext = nextstring - iname ; *nextstring++ = '.' ; *nextstring++ = 'd' ; *nextstring++ = 'v' ; *nextstring++ = 'i' ; } *nextstring++ = 0 ; } else error("! Two input file names specified.") ; } } if (noenv == 0) { register char *p ; extern char *getenv() ; if (p = getenv("PRINTER")) { strcpy(nextstring, "config.") ; strcat(nextstring, p) ; getdefaults(nextstring) ; } } #endif checkenv(1) ; /* * The logic here is a bit convoluted. Since all `additional' * PostScript font information files are loaded *before* the master * one, and yet they should be able to override the master one, we * have to add the information in the master list to the *ends* of * the hash chain. We do this by reversing the lists, adding them * to the front, and then reversing them again. */ revpslists() ; getpsinfo((char *)NULL) ; revpslists() ; if (!quiet) (void)fprintf(stderr, banner) ; if (oname[0] == '-' && oname[1] == 0) oname[0] = 0 ; if (*oname == 0 && ! filter) { oname = nextstring ; #ifdef VMCMS /* IBM: VM/CMS */ lastext = strchr(iname, '.') - iname ; #endif /* IBM: VM/CMS */ for (i=0; i<=lastext; i++) *nextstring++ = iname[i] ; *nextstring++ = 'p' ; *nextstring++ = 's' ; *nextstring++ = 0 ; } #ifdef DEBUG if (dd(D_PATHS)) { #ifdef SHORTINT (void)fprintf(stderr,"input file %s output file %s swmem %ld\n", #else /* ~SHORTINT */ (void)fprintf(stderr,"input file %s output file %s swmem %d\n", #endif /* ~SHORTINT */ iname, oname, swmem) ; (void)fprintf(stderr,"tfm path %s\npk path %s\n", tfmpath, pkpath) ; (void)fprintf(stderr,"fig path %s\nvf path %s\n", figpath, vfpath) ; (void)fprintf(stderr,"config path %s\nheader path %s\n", configpath, headerpath) ; #ifdef FONTLIB (void)fprintf(stderr,"fli path %s\nfli names %s\n", flipath, fliname) ; #endif } /* dd(D_PATHS) */ #endif /* DEBUG */ /* * Now we try to open the dvi file. */ if (warningmsg) error(warningmsg) ; headerfile = (compressed? CHEADERFILE : HEADERFILE) ; (void)add_header(headerfile) ; if (*iname != 0) { dvifile = fopen(iname, READBIN) ; fulliname = nextstring ; #ifndef IGNORE_CWD if (*iname != '/') { getcwd(nextstring, MAXPATHLEN + 2); while (*nextstring++) ; *(nextstring-1) = '/' ; } #endif strcpy(nextstring,iname) ; while (*nextstring++) ; /* advance nextstring past fulliname */ } else if (filter) dvifile = stdin; else { help() ; exit(0) ; } initcolor() ; if (dvifile==NULL) error("! DVI file can't be opened.") ; if (fseek(dvifile, 0L, 0) < 0) error("! DVI file must not be a pipe.") ; #ifdef FONTLIB fliload(); /* read the font libaries */ #endif /* * Now we do our main work. */ swmem += fontmem ; if (maxdrift < 0) { if (actualdpi <= 599) maxdrift = actualdpi / 100 ; else if (actualdpi < 1199) maxdrift = actualdpi / 200 + 3 ; else maxdrift = actualdpi / 400 + 6 ; } if (vmaxdrift < 0) { if (vactualdpi <= 599) vmaxdrift = vactualdpi / 100 ; else if (vactualdpi < 1199) vmaxdrift = vactualdpi / 200 + 3 ; else vmaxdrift = vactualdpi / 400 + 6 ; } if (dopprescan) #ifdef VMCMS /* IBM: VM/CMS - for 8 character truncation conflicts */ pprscnpgs() ; #else pprescanpages() ; #endif prescanpages() ; #ifdef MSDOS if (mfjobfile != (FILE*)NULL) { char answer[5]; fputs("}\n",mfjobfile); fclose(mfjobfile); fputs("Exit to make missing fonts now (y/n)? ",stdout); fgets(answer,4,stdin); if (*answer=='y' || *answer=='Y') exit(8); /* exit with errorlevel 8 for emTeX dvidrv */ } #endif if (includesfonts) (void)add_header(IFONTHEADER) ; if (usesPSfonts) (void)add_header(PSFONTHEADER) ; if (usesspecial) (void)add_header(SPECIALHEADER) ; if (usescolor) /* IBM: color */ (void)add_header(COLORHEADER) ; papsizes = (struct papsiz *)revlist((void *)papsizes) ; sects = sections ; if (sects == NULL || sects->next == NULL) { sectioncopies = collatedcopies ; collatedcopies = 1 ; } else { totalpages *= collatedcopies ; if (! sepfiles) multiplesects = 1 ; } totalpages *= pagecopies ; if (tryepsf) { if (totalpages != 1 || paperfmt || landscape || manualfeed || collatedcopies > 1 || numcopies > 1 || cropmarks || *iname == 0) { error("Can't make it EPSF, sorry") ; tryepsf = 0 ; } } if (! sepfiles) { initprinter() ; outbangspecials() ; } for (i=0; i STDOUTSIZE) { fprintf(stderr, "\n") ; prettycolumn = 0 ; } (void)fprintf(stderr, "(-> %s) ", oname) ; prettycolumn += strlen(oname) + 6 ; } initprinter() ; outbangspecials() ; } else if (! quiet) { if (prettycolumn > STDOUTSIZE) { fprintf(stderr, "\n") ; prettycolumn = 0 ; } (void)fprintf(stderr, ". ") ; prettycolumn += 2 ; } (void)fflush(stderr) ; dosection(sects, sectioncopies) ; sects = sects->next ; if (sepfiles) cleanprinter() ; } } if (! sepfiles) cleanprinter() ; if (! quiet) (void)fprintf(stderr, "\n") ; #ifdef DEBUG if (dd(D_MEM)) { #ifdef SHORTINT fprintf(stderr, "Total memory allocated: %ld\n", totalalloc) ; #else fprintf(stderr, "Total memory allocated: %d\n", totalalloc) ; #endif } #endif exit(0) ; /*NOTREACHED*/ } #ifdef VMS #include "[]vmscli.c" #endif #ifdef VMCMS /* IBM: VM/CMS */ #include "dvipscms.h" #endif