/* This is (x)dvipdfmx, an extended version of... DVIPDFMx, an eXtended version of DVIPDFM by Mark A. Wicks. Copyright (C) 2002-2021 by Jin-Hwan Cho, Matthias Franz, and Shunsaku Hirata, the DVIPDFMx project team. Copyright (c) 2006 SIL. (xdvipdfmx extensions for XeTeX support) Copyright (C) 1998, 1999 by Mark A. Wicks This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. */ #ifdef HAVE_CONFIG_H #include #endif #include #include #include #include #include "system.h" #include "mem.h" #include "dpxconf.h" #include "dpxfile.h" #include "dpxutil.h" #include "dpxcrypt.h" #include "dvi.h" #include "pdflimits.h" #include "pdfdoc.h" #include "pdfdev.h" #include "pdfparse.h" #include "pdfencrypt.h" #include "spc_tpic.h" #include "specials.h" #include "mpost.h" #include "fontmap.h" #include "pdffont.h" #include "pdfximage.h" #include "cid.h" #include "dvipdfmx.h" #include "tt_aux.h" #include "error.h" #if defined(LIBDPX) const char *my_name = "ApTeX"; #else const char *my_name; #endif /* LIBDPX */ /* Verbosity level */ static int verbose = 0; static int really_quiet = 0; /* Compatibility option flags */ static int opt_flags = 0; #define OPT_TPIC_TRANSPARENT_FILL (1 << 1) #define OPT_CIDFONT_FIXEDPITCH (1 << 2) #define OPT_FONTMAP_FIRST_MATCH (1 << 3) #define OPT_PDFDOC_NO_DEST_REMOVE (1 << 4) #define OPT_PDFOBJ_NO_PREDICTOR (1 << 5) #define OPT_PDFOBJ_NO_OBJSTM (1 << 6) /* Basic PDF output settings */ static int pdf_version_major = 1; static int pdf_version_minor = 5; static int compression_level = 9; /* PDF document navigation feature settings */ static double annot_grow_x = 0.0; static double annot_grow_y = 0.0; static int bookmark_open = 0; static double mag = 1.0; static int enable_thumbnail = 0; static int font_dpi = 600; /* PDF output device settings */ static int pdfdecimaldigits = 3; static char ignore_colors = 0; /* Image cache life in hours * 0 means erase all old images and leave new images * -1 means erase all old images and also erase new images * -2 means ignore image cache (default) */ static int image_cache_life = -2; /* Image format conversion filter template */ static char *filter_template = NULL; /* Encryption */ static int do_encryption = 0; static int key_bits = 40; static int32_t permission = 0x003C; /* Page device */ double paper_width = 595.0; double paper_height = 842.0; static double x_offset = 72.0; static double y_offset = 72.0; int landscape_mode = 0; static int translate_origin = 0; static int has_paper_option = 0; /* Input and output filenames */ static char *dvi_filename = NULL, *pdf_filename = NULL; static void read_config_file (const char *config); static void set_default_pdf_filename (void) { const char *dvi_base; const char *suffix; size_t len = 0; dvi_base = xbasename(dvi_filename); suffix = strrchr(dvi_base, '.'); /* suffix can be dvi_base if dvi_base is like ".abcde" */ if (suffix == NULL || suffix == dvi_base) { suffix = dvi_base + strlen(dvi_base); } len = strlen(dvi_base) - strlen(suffix); if (dpx_conf.compat_mode == dpx_mode_mpost_mode && FILESTRCASEEQ(".mps", suffix)) { pdf_filename = NEW(len+strlen(".pdf")+1, char); strncpy(pdf_filename, dvi_base, len); pdf_filename[len] = '\0'; } else if ((FILESTRCASEEQ(".dvi", suffix) || FILESTRCASEEQ(".xdv", suffix))) { pdf_filename = NEW(len+strlen(".pdf")+1, char); strncpy(pdf_filename, dvi_base, len); pdf_filename[len] = '\0'; } else { pdf_filename = NEW(strlen(dvi_base)+strlen(".pdf")+1, char); strcpy(pdf_filename, dvi_base); } strcat (pdf_filename, ".pdf"); } static void show_version (void) { printf ("This is %s Version " VERSION " by the DVIPDFMx project team,\n", my_name); printf ("modified for TeX Live,\n"); if (*my_name == 'x') printf ("an extended version of DVIPDFMx, which in turn was\n"); printf ("an extended version of dvipdfm-0.13.2c developed by Mark A. Wicks.\n"); printf ("\nCopyright (C) 2002-2021 the DVIPDFMx project team\n"); printf ("Copyright (C) 2006-2021 SIL International.\n"); printf ("\nThis is free software; you can redistribute it and/or modify\n"); printf ("it under the terms of the GNU General Public License as published by\n"); printf ("the Free Software Foundation; either version 2 of the License, or\n"); printf ("(at your option) any later version.\n"); } static void show_usage (void) { printf ("\nUsage: %s [OPTION]... [DVIFILE[.dvi|.xdv]]\n", my_name); printf (" %s --extractbb|--xbb|--ebb [OPTION]...\tBe \"extractbb\"\n", my_name); printf (" %s --help|--showpaper|--version\n", my_name); printf ("Convert DVI or XDV input to PDF; defaults given below.\n"); printf ("\nOptions:\n"); printf (" -c \t\tIgnore color specials (for B&W printing)\n"); printf (" --dvipdfm\tEnable DVIPDFM emulation mode\n"); printf (" -d number\tSet PDF decimal digits (0-5) [3]\n"); printf (" -f filename\tLoad additional font map filename[.map]\n"); printf (" -g dimension\tAnnotation \"grow\" amount [0.0in]\n"); printf (" -h | --help \tShow this help message and exit\n"); printf (" -l \t\tLandscape mode\n"); printf (" -m number\tSet additional magnification [1.0]\n"); printf (" --mvorigin\tTranslate the origin for MP inclusion\n"); printf (" -o filename\tSet output file name, \"-\" for stdout [DVIFILE.pdf]\n"); printf (" -p papersize\tSet papersize [a4]\n"); printf (" -q \t\tBe quiet\n"); printf (" -r resolution\tSet resolution (in DPI) for raster fonts [600]\n"); printf (" -s pages\tSelect page ranges [all pages]\n"); printf (" --showpaper\tShow available paper formats and exit\n"); printf (" -t \t\tEmbed thumbnail images of PNG format (DVIFILE.pageno, pageno=int) \n"); printf (" --version\tOutput version information and exit\n"); printf (" -v \t\tBe verbose\n"); printf (" -vv\t\tBe more verbose\n"); printf (" --kpathsea-debug number\tSet kpathsea debugging flags [0]\n"); printf (" -x dimension\tSet horizontal offset [1.0in]\n"); printf (" -y dimension\tSet vertical offset [1.0in]\n"); printf (" -z number \tSet zlib compression level (0-9) [9]\n"); printf (" -C number\tSpecify miscellaneous option flags [0]:\n"); printf ("\t\t 0x0001 reserved\n"); printf ("\t\t 0x0002 Use semi-transparent filling for tpic shading command,\n"); printf ("\t\t\t instead of opaque gray color; requires PDF 1.4.\n"); printf ("\t\t 0x0004 Treat all CIDFont as fixed-pitch font.\n"); printf ("\t\t 0x0008 Do not replace duplicate fontmap entries.\n"); printf ("\t\t 0x0010 Do not optimize PDF destinations.\n"); printf ("\t\t 0x0020 Do not use predictor filter for Flate compression.\n"); printf ("\t\t 0x0040 Do not use object stream.\n"); printf ("\t\tPositive values are always ORed with previously given flags.\n"); printf ("\t\tAnd negative values replace old values.\n"); printf (" -D template\tPS->PDF conversion command line template [none]\n"); printf (" -E \t\tAlways try to embed fonts, regardless of licensing flags.\n"); printf (" -I number\tImage cache life in hours [-2]\n"); printf (" \t 0: erase all old images and leave new images\n"); printf (" \t-1: erase all old images and also erase new images\n"); printf (" \t-2: ignore image cache\n"); printf (" -K number\tEncryption key length [40]\n"); printf (" -M \t\tProcess MetaPost PostScript output\n"); printf (" -O number\tSet maximum depth of open bookmark items [0]\n"); printf (" -P number\tSet permission flags for PDF encryption [0x003C]\n"); printf (" -S \t\tEnable PDF encryption\n"); printf (" -V number\tSet PDF version [%d.%d]\n", PDF_VERSION_DEFAULT/10,PDF_VERSION_DEFAULT%10); printf ("\nAll dimensions entered on the command line are \"true\" TeX dimensions.\n"); printf ("Argument of \"-s\" lists physical page ranges separated by commas,\n"); printf ("\te.g., \"-s 1-3,5-6\".\n"); printf ("Papersize is specified by paper format (e.g., \"a4\")\n"); printf ("\tor by w,h (e.g., \"20cm,30cm\").\n"); printf ("\n"); printf ("Email bug reports to dvipdfmx@tug.org.\n"); } static void usage (void) { fprintf (stderr, "\nTry \"%s --help\" for more information.\n", my_name); exit(1); } static void select_paper (const char *paperspec) { const struct paper *pi; int error = 0; pi = paperinfo(paperspec); if (pi && papername(pi)) { paper_width = paperpswidth (pi); paper_height = paperpsheight(pi); } else { const char *p = paperspec, *endptr, *comma; comma = strchr(p, ','); endptr = p + strlen(p); if (!comma) ERROR("Unrecognized paper format: %s", paperspec); error = dpx_util_read_length(&paper_width, 1.0, &p, comma); p = comma + 1; error = dpx_util_read_length(&paper_height, 1.0, &p, endptr); } if (error || paper_width <= 0.0 || paper_height <= 0.0) ERROR("Invalid paper size: %s (%.2fx%.2f)", paperspec, paper_width, paper_height); } struct page_range { int first, last; } *page_ranges = NULL; int num_page_ranges = 0; int max_page_ranges = 0; static void select_pages (const char *pagespec) { char *q; const char *p = pagespec; while (*p != '\0') { /* Enlarge page range table if necessary */ if (num_page_ranges >= max_page_ranges) { max_page_ranges += 4; page_ranges = RENEW(page_ranges, max_page_ranges, struct page_range); } page_ranges[num_page_ranges].first = 0; page_ranges[num_page_ranges].last = 0; for ( ; *p && isspace((unsigned char)*p); p++); q = parse_unsigned(&p, p + strlen(p)); /* Can't be signed. */ if (q) { /* '-' is allowed here */ page_ranges[num_page_ranges].first = atoi(q) - 1; page_ranges[num_page_ranges].last = page_ranges[num_page_ranges].first; RELEASE(q); } for ( ; *p && isspace((unsigned char)*p); p++); if (*p == '-') { for (++p; *p && isspace((unsigned char)*p); p++); page_ranges[num_page_ranges].last = -1; if (*p) { q = parse_unsigned(&p, p + strlen(p)); if (q) { page_ranges[num_page_ranges].last = atoi(q) - 1; RELEASE(q); } for ( ; *p && isspace((unsigned char)*p); p++); } } else { page_ranges[num_page_ranges].last = page_ranges[num_page_ranges].first; } num_page_ranges++; if (*p == ',') p++; else { for ( ; *p && isspace((unsigned char)*p); p++); if (*p) ERROR("Bad page range specification: %s", p); } } return; } /* Ask passwords for encryption */ #ifdef WIN32 /* Broken on mintty? */ #include #define getch _getch static char * getpass (const char *prompt) { static char pwd_buf[MAX_PWD_LEN]; size_t i; fputs(prompt, stderr); fflush(stderr); for (i = 0; i < sizeof(pwd_buf)-1; i++) { pwd_buf[i] = getch(); if (pwd_buf[i] == '\r' || pwd_buf[i] == '\n') break; fputs("*", stderr); fflush(stderr); } pwd_buf[i] = '\0'; fputs("\n", stderr); return pwd_buf; } #else /* !WIN32 */ #include #endif /* WIN32 */ static int get_enc_password (char *oplain, char *uplain) { char *retry_passwd; while (1) { strncpy(oplain, getpass("Owner password: "), MAX_PWD_LEN); retry_passwd = getpass("Re-enter owner password: "); if (!strncmp(oplain, retry_passwd, MAX_PWD_LEN)) break; fputs("Password is not identical.\nTry again.\n", stderr); fflush(stderr); } while (1) { strncpy(uplain, getpass("User password: "), MAX_PWD_LEN); retry_passwd = getpass("Re-enter user password: "); if (!strncmp(uplain, retry_passwd, MAX_PWD_LEN)) break; fputs("Password is not identical.\nTry again.\n", stderr); fflush(stderr); } return 0; } static void compute_id_string (unsigned char *id, const char *producer, const char *dviname, const char *pdfname) { char datestr[32]; MD5_CONTEXT md5; MD5_init(&md5); /* Don't use timezone for compatibility */ dpx_util_format_asn_date(datestr, 0); MD5_write(&md5, (const unsigned char *)datestr, strlen(datestr)); if (producer) MD5_write(&md5, (const unsigned char *)producer, strlen(producer)); if (dviname) MD5_write(&md5, (const unsigned char *)dviname, strlen(dviname)); if (pdfname) MD5_write(&md5, (const unsigned char *)pdfname, strlen(pdfname)); MD5_final(id, &md5); } static const char *optstrig = ":hD:r:m:g:x:y:o:s:p:clf:i:qtvV:z:d:I:K:P:O:MSC:Ee"; static struct option long_options[] = { {"help", 0, 0, 'h'}, {"version", 0, 0, 130}, {"showpaper", 0, 0, 131}, {"dvipdfm", 0, 0, 132}, {"mvorigin", 0, 0, 1000}, {"kpathsea-debug", 1, 0, 133}, {0, 0, 0, 0} }; static void do_args_first_pass (int argc, char *argv[], const char *source, int unsafe) { int c; optind = 1; while ((c = getopt_long(argc, argv, optstrig, long_options, NULL)) != -1) { switch(c) { case 'h': show_usage(); exit(0); break; case 130: /* --version */ show_version(); exit(0); break; case 131: /* --showpaper */ dumppaperinfo(); exit(0); break; case 132: /* --dvipdfm */ dpx_conf.compat_mode = dpx_mode_compat_mode; break; case 133: /* --kpathsea-debug */ kpathsea_debug = atoi(optarg); break; case 1000: /* --mvorigin */ translate_origin = 1; break; case 'q': really_quiet = 2; break; case 'v': verbose++; break; case 'M': dpx_conf.compat_mode = dpx_mode_mpost_mode; break; /* 'm' option placed here since other options set via special * requires magnification already being determined for interpreting * various length values. */ case 'm': { char *nextptr; if ((mag = strtod(optarg, &nextptr)) < 0.0 || nextptr == optarg) ERROR("Invalid magnification specified: %s", optarg); } break; default: /* ignore everything else */ break; } } if (really_quiet) shut_up(really_quiet); else { int i; for (i = 0; i < verbose; i++) { dpx_conf.verbose_level++; } } if (argc > optind + 1) { fprintf(stderr, "%s: Multiple dvi filenames?", my_name); usage(); } else if (argc > optind) { /* last argument */ dvi_filename = NEW(strlen(argv[optind]) + 5, char); /* space to append ".dvi" */ strcpy(dvi_filename, argv[optind]); } } /* Set "unsafe" to non-zero value when parsing config specials to * disallow overriding "D" option value. */ static void do_args_second_pass (int argc, char *argv[], const char *source, int unsafe) { int c, error = 0; char *nextptr; const char *nnextptr; optind = 1; while ((c = getopt_long(argc, argv, optstrig, long_options, NULL)) != -1) { switch(c) { case 'h': case 130: case 131: case 132: case 133: case 1000: case 'q': case 'v': case 'M': /* already done */ break; /* 'm' option handled in first_pass */ case 'm': if (unsafe) { /* FIXME: it's not actually 'unsafe'... just to know it's called from special */ WARN("Ignoring \"m\" option for dvipdfmx:config special. (too late)"); } break; case 'D': if (unsafe) { WARN("Ignoring \"D\" option for dvipdfmx:config special. (unsafe)"); } else { if (filter_template) RELEASE(filter_template); filter_template = NEW(strlen(optarg)+1, char); strcpy(filter_template, optarg); } break; case 'r': if ((font_dpi = atoi(optarg)) <= 0) ERROR("Invalid bitmap font dpi specified: %s", optarg); break; case 'g': nnextptr = nextptr = optarg; { const char *comma; comma = strchr(optarg, ','); if (comma) { error = dpx_util_read_length(&annot_grow_x, 1.0, &nnextptr, comma); nnextptr = comma + 1; if (!error) error = dpx_util_read_length(&annot_grow_y, 1.0, &nnextptr, nextptr + strlen(nextptr)); } else { error = dpx_util_read_length(&annot_grow_x, 1.0, &nnextptr, nextptr + strlen(nextptr)); if (!error) annot_grow_y = annot_grow_x; } if (error) { WARN("Error reading argument for \"-g\" option: %s", optarg); } } break; case 'x': nnextptr = nextptr = optarg; dpx_util_read_length(&x_offset, 1.0, &nnextptr, nextptr + strlen(nextptr)); break; case 'y': nnextptr = nextptr = optarg; dpx_util_read_length(&y_offset, 1.0, &nnextptr, nextptr + strlen(nextptr)); break; case 'o': pdf_filename = NEW (strlen(optarg)+1, char); strcpy(pdf_filename, optarg); break; case 's': select_pages(optarg); break; case 't': enable_thumbnail = 1; break; case 'p': select_paper(optarg); has_paper_option = 1; break; case 'c': ignore_colors = 1; break; case 'l': landscape_mode = 1; break; case 'f': if (opt_flags & OPT_FONTMAP_FIRST_MATCH) pdf_load_fontmap_file(optarg, FONTMAP_RMODE_APPEND); else pdf_load_fontmap_file(optarg, FONTMAP_RMODE_REPLACE); break; case 'i': { /* -i ./foo.cfg, -i /usr/abc/foo.cfg, etc. are not allowed for security reason. */ char *dir1, *dir2; int optind_save= optind; dir1 = strrchr(optarg, '/'); dir2 = strrchr(optarg, '\\'); if (dir1 || dir2) { WARN("%s is not allowed. Default configuration file is used.", optarg); } else { read_config_file(optarg); } optind = optind_save; break; } case 'V': { if (strchr(optarg, '.')) { /* new format X.X */ double tmp = atof(optarg); pdf_version_major = (int) tmp; pdf_version_minor = (int) (10 * (tmp - pdf_version_major) + 0.5); } else { pdf_version_major = 1; pdf_version_minor = atoi(optarg); } break; } case 'z': compression_level = atoi(optarg); break; case 'd': pdfdecimaldigits = atoi(optarg); break; case 'I': image_cache_life = atoi(optarg); break; case 'S': do_encryption = 1; break; case 'K': key_bits = (unsigned) atoi(optarg); if (!(key_bits >= 40 && key_bits <= 128 && (key_bits % 8 == 0)) && key_bits != 256) ERROR("Invalid encryption key length specified: %s", optarg); break; case 'P': permission = (unsigned) strtoul(optarg, &nextptr, 0); if (nextptr == optarg) ERROR("Invalid encryption permission flag: %s", optarg); break; case 'O': bookmark_open = atoi(optarg); break; case 'C': { int flags = (unsigned) strtol(optarg, &nextptr, 0); if (nextptr == optarg) ERROR("Invalid flag: %s", optarg); if (flags < 0) opt_flags = -flags; else opt_flags |= flags; break; } case 'E': dpx_conf.ignore_font_license = 1; break; case 'e': if (dpx_conf.compat_mode == dpx_mode_compat_mode) { WARN("dvipdfm \"-e\" option not supported."); break; } /* else fall through */ default: fprintf(stderr, "%s: %s \"-%c\"\n", source ? source : my_name, c == ':' ? "Missing argument for" : "Unknown option", optopt); usage(); } } if (source) { if (argc > optind) fprintf(stderr, "%s: Unexpected argument in \"%s %s\".\n", source, argv[1], argv[2]); return; } return; } static void cleanup (void) { if (dvi_filename) RELEASE(dvi_filename); if (pdf_filename) RELEASE(pdf_filename); if (page_ranges) RELEASE(page_ranges); if (filter_template) RELEASE(filter_template); } static void read_config_file (const char *config) { const char *start, *end; char *option; FILE *fp; static char argv0[] = "config_file"; char *argv[3]; fp = DPXFOPEN(config, DPX_RES_TYPE_TEXT); if (!fp) { WARN("Could not open config file \"%s\".", config); return; } argv[0] = argv0; while ((start = mfgets (work_buffer, WORK_BUFFER_SIZE, fp)) != NULL) { int argc = 1; end = work_buffer + strlen(work_buffer); skip_white (&start, end); if (start >= end) continue; /* Build up an argument list as if it were passed on the command line */ if ((option = parse_ident (&start, end))) { argc = 2; argv[1] = NEW (strlen(option)+2, char); strcpy (argv[1]+1, option); RELEASE (option); *argv[1] = '-'; skip_white (&start, end); if (start < end) { argc += 1; if (*start == '"') { argv[2] = parse_c_string (&start, end); } else argv[2] = parse_ident (&start, end); } } do_args_second_pass (argc, argv, config, 0); while (argc > 1) { RELEASE (argv[--argc]); } } if (fp) MFCLOSE(fp); } void read_config_special (const char **start, const char *end) { char *option; static char argv0[] = "config_special"; char *argv[3]; int argc = 1; argv[0] = argv0; skip_white (start, end); if (*start >= end) return; /* Build up an argument list as if it were passed on the command line */ if ((option = parse_ident (start, end))) { argc = 2; argv[1] = NEW (strlen(option)+2, char); strcpy (argv[1]+1, option); RELEASE (option); *argv[1] = '-'; skip_white (start, end); if (*start < end) { argc += 1; if (**start == '"') { argv[2] = parse_c_string (start, end); } else argv[2] = parse_ident (start, end); } } do_args_second_pass (argc, argv, argv0, 1); /* Set to unsafe */ while (argc > 1) { RELEASE (argv[--argc]); } } static void system_default (void) { if (systempapername() != NULL) { select_paper(systempapername()); } else if (defaultpapername() != NULL) { select_paper(defaultpapername()); } } void error_cleanup (void) { /* Fixed a stupid bug... * Please don't put an ordinay function which may call ERROR() inside it. * It may result in error cleanup routine being called recursively. */ pdf_error_cleanup_cache(); /* delete temporary files */ pdf_error_cleanup(); if (pdf_filename) { if (pdf_get_output_file()) { remove(pdf_filename); fprintf(stderr, "\nOutput file removed.\n"); } else { fprintf(stderr, "\nNo output PDF file written.\n"); } } } #define SWAP(v1,v2) do {\ double _tmp = (v1);\ (v1) = (v2);\ (v2) = _tmp;\ } while (0) static void do_dvi_pages (void) { int page_no, page_count, i, step; double page_width, page_height; double init_paper_width, init_paper_height; pdf_rect mediabox; spc_exec_at_begin_document(); if (num_page_ranges == 0) { if (!page_ranges) { page_ranges = NEW(1, struct page_range); max_page_ranges = 1; } page_ranges[0].first = 0; page_ranges[0].last = -1; /* last page */ num_page_ranges = 1; } init_paper_width = page_width = paper_width; init_paper_height = page_height = paper_height; page_count = 0; mediabox.llx = 0.0; mediabox.lly = 0.0; mediabox.urx = paper_width; mediabox.ury = paper_height; pdf_doc_set_mediabox(0, &mediabox); /* Root node */ for (i = 0; i < num_page_ranges && dvi_npages(); i++) { if (page_ranges[i].last < 0) page_ranges[i].last += dvi_npages(); step = (page_ranges[i].first <= page_ranges[i].last) ? 1 : -1; page_no = page_ranges[i].first; while (dvi_npages()) { if (page_no < dvi_npages()) { double w, h, xo, yo; int lm; MESG("[%d", page_no+1); /* FIXME: incompatibility here.... In older versions of dvipdfmx page sizes * are inherited from the previous page but in the current implementation * pagesize special only takes effect to the current page. * The following line resets page sizes to the paper size... */ page_width = paper_width; page_height = paper_height; w = page_width; h = page_height; lm = landscape_mode; xo = x_offset; yo = y_offset; dvi_scan_specials(page_no, &w, &h, &xo, &yo, &lm, /* No need for encryption options */ NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* No trailer IDs */ NULL, NULL, NULL); if (lm != landscape_mode) { /* The first page was already scanned once and SWAP() was applied there. * Do not apply SWAP() twice! * FIXME: SWAP() not applied to paper_width and paper_height. Why? */ SWAP(w, h); landscape_mode = lm; } /* Specified as a command line option */ if (!has_paper_option) { if (page_width != w || page_height != h) { page_width = w; page_height = h; } } if (x_offset != xo || y_offset != yo) { x_offset = xo; y_offset = yo; } if (page_width != init_paper_width || page_height != init_paper_height) { mediabox.llx = 0.0; mediabox.lly = 0.0; mediabox.urx = page_width; mediabox.ury = page_height; pdf_doc_set_mediabox(page_count+1, &mediabox); } dvi_do_page(page_height, x_offset, y_offset); page_count++; MESG("]"); } if (step > 0 && page_no >= page_ranges[i].last) break; else if (step < 0 && page_no <= page_ranges[i].last) break; else { page_no += step; } } } if (page_count < 1) { ERROR("No pages fall in range!"); } spc_exec_at_end_document(); } static void do_mps_pages (void) { FILE *fp; /* _FIXME_ */ fp = MFOPEN(dvi_filename, FOPEN_RBIN_MODE); if (fp) { mps_do_page(fp); MFCLOSE(fp); } else { int i, page_no, step, page_count = 0; char *filename; /* Process filename.1, filename.2,... */ filename = NEW(strlen(dvi_filename) + 16 + 1, char); for (i = 0; i < num_page_ranges; i++) { step = (page_ranges[i].first <= page_ranges[i].last) ? 1 : -1; page_no = page_ranges[i].first; for (;;) { if (page_no < 0) ERROR("Invalid page number for MPS input: %d", page_no); sprintf(filename, "%s.%d", dvi_filename, page_no + 1); fp = MFOPEN(filename, FOPEN_RBIN_MODE); if (fp) { MESG("[%ld<%s>", page_no + 1, filename); mps_do_page(fp); page_count++; MESG("]"); MFCLOSE(fp); } if (step > 0 && page_no >= page_ranges[i].last) break; else if (step < 0 && page_no <= page_ranges[i].last) break; else { page_no += step; } } } RELEASE(filename); if (page_count == 0) ERROR("No page output for \"%s\".", dvi_filename); } } #if !defined(LIBDPX) /* Support to make DLL in W32TeX */ #define DLLPROC dlldvipdfmxmain #if defined(WIN32) && !defined(__MINGW32__) && !defined(MIKTEX) && defined(DLLPROC) extern __declspec(dllexport) int DLLPROC (int argc, char *argv[]); #else #undef DLLPROC #endif #endif /* !LIBDPX */ #if defined(MIKTEX) # define main Main #endif int #if defined(DLLPROC) DLLPROC (int argc, char *argv[]) #else #if defined(LIBDPX) dvipdfmx_main (int argc, char *argv[]) #else main (int argc, char *argv[]) #endif /* LIBDPX */ #endif { double dvi2pts; char *base; struct pdf_setting settings; char uplain[MAX_PWD_LEN+1], oplain[MAX_PWD_LEN+1]; /* encryption password */ const char *creator = NULL; unsigned char id1[16], id2[16]; int has_id = 0; #ifdef WIN32 int ac; char **av, *enc; #endif #ifdef MIKTEX miktex_initialize(); #else kpse_set_program_name(argv[0], "dvipdfmx"); /* we pretend to be dvipdfmx for kpse purposes */ #ifdef WIN32 texlive_gs_init (); enc = kpse_var_value("command_line_encoding"); if (get_command_line_args_utf8(enc, &ac, &av)) { argc = ac; argv = av; } #endif #endif if (argc > 1 && (STREQ (argv[1], "--xbb") || STREQ (argv[1], "--extractbb") || STREQ (argv[1], "--dvipdfm") || STREQ (argv[1], "--dvipdfmx") || STREQ (argv[1], "--ebb"))) { argc--; base = argv++[1]+2; } else { base = kpse_program_basename (argv[0]); } if (FILESTRCASEEQ (base, "extractbb") || FILESTRCASEEQ (base, "xbb")) { my_name = "extractbb"; return extractbb (argc, argv); } else if (FILESTRCASEEQ (base, "ebb")) { my_name = "ebb"; dpx_conf.compat_mode = dpx_mode_compat_mode; return extractbb (argc, argv); } else if (FILESTRCASEEQ (base, "dvipdfm")) { dpx_conf.compat_mode = dpx_mode_compat_mode; } else if (FILESTRCASEEQ (base, "dvipdfmx")) { my_name = "dvipdfmx"; } else { my_name = "xdvipdfmx"; } opterr = 0; /* Special-case single option --mvorigin, --help, --showpaper, or --version, * to avoid possible diagnostics about config files, etc. * Also handle -q and -v that cannot be set in config file. * Get input DVI file name too. */ do_args_first_pass(argc, argv, NULL, 0); paperinit(); system_default(); pdf_init_fontmaps(); /* This must come before parsing options... */ read_config_file(DPX_CONFIG_FILE); /* Current implementation seems to be assuming that paper size read from config * is for "default" and explicitly specified one via command-line option must be * used for all pages regardless of papersize specials. */ has_paper_option = 0; #ifndef MIKTEX kpse_init_prog("", font_dpi, NULL, NULL); kpse_set_program_enabled(kpse_pk_format, true, kpse_src_texmf_cnf); #endif pdf_font_set_dpi(font_dpi); if (!dvi_filename) { if (verbose) MESG("No dvi filename specified, reading standard input.\n"); if (!pdf_filename) if (verbose) MESG("No pdf filename specified, writing to standard output.\n"); } else if (!pdf_filename) set_default_pdf_filename(); if (pdf_filename && !strcmp(pdf_filename, "-")) { RELEASE(pdf_filename); pdf_filename = NULL; } if (dpx_conf.compat_mode == dpx_mode_mpost_mode) { x_offset = 0.0; y_offset = 0.0; dvi2pts = 0.01; /* dvi2pts controls accuracy. */ } else { dvi2pts = dvi_init(dvi_filename, mag); if (dvi2pts == 0.0) ERROR("dvi_init() failed!"); creator = dvi_comment(); /* Set PDF Creator entry */ dvi_scan_specials(0, &paper_width, &paper_height, &x_offset, &y_offset, &landscape_mode, &pdf_version_major, &pdf_version_minor, &do_encryption, &key_bits, &permission, oplain, uplain, &has_id, id1, id2); } /* Command-line options take precedence */ { int has_encrypt_special = do_encryption; do_args_second_pass(argc, argv, NULL, 0); if (do_encryption && !has_encrypt_special) { get_enc_password(oplain, uplain); } } /* moved to here because image caching was not effective */ dpx_delete_old_cache(image_cache_life); MESG("%s -> %s\n", dvi_filename ? dvi_filename : "stdin", pdf_filename ? pdf_filename : "stdout"); /* Kpathsea messages: * really_quiet > 1 is actually for suppressing error messages in dvipdfmx. */ kpse_make_tex_discard_errors = really_quiet; /* Setup Options */ settings.ver_major = pdf_version_major; settings.ver_minor = pdf_version_minor; /* PDF trailer ID. */ if (!has_id) { #define PRODUCER \ "%s-%s, Copyright 2002-2021 by Jin-Hwan Cho, Matthias Franz, and Shunsaku Hirata" char producer[256]; sprintf(producer, PRODUCER, my_name, VERSION); compute_id_string(id1, producer, dvi_filename, pdf_filename); memcpy(id2, id1, 16); } /* Encryption and Other Settings */ { memset(&settings.encrypt, 0, sizeof(struct pdf_enc_setting)); settings.enable_encrypt = do_encryption; settings.encrypt.use_aes = 1; settings.encrypt.encrypt_metadata = 1; settings.encrypt.key_size = key_bits; settings.encrypt.permission = permission; settings.encrypt.uplain = uplain; settings.encrypt.oplain = oplain; } /* PDF object settings */ settings.object.compression_level = compression_level; if (opt_flags & OPT_PDFOBJ_NO_OBJSTM) { settings.object.enable_objstm = 0; } else { settings.object.enable_objstm = 1; } if (opt_flags & OPT_PDFOBJ_NO_PREDICTOR) { settings.object.enable_predictor = 0; } else { settings.object.enable_predictor = 1; } /* PDF document settings * Set default paper size here so that all page's can inherite it. * annot_grow: Margin of annotation. * bookmark_open: Miximal depth of open bookmarks. */ if (landscape_mode) { SWAP(paper_width, paper_height); } settings.media_width = paper_width; settings.media_height = paper_height; settings.annot_grow_amount.x = annot_grow_x; settings.annot_grow_amount.y = annot_grow_y; settings.outline_open_depth = bookmark_open; settings.check_gotos = !(opt_flags & OPT_PDFDOC_NO_DEST_REMOVE); settings.enable_manual_thumb = enable_thumbnail; /* PDF page output settings */ settings.device.dvi2pts = dvi2pts; settings.device.precision = pdfdecimaldigits; settings.device.ignore_colors = ignore_colors; set_distiller_template(filter_template); /* Initialize PDF document creation routine. */ pdf_open_document(pdf_filename, creator, id1, id2, settings); if (opt_flags & OPT_CIDFONT_FIXEDPITCH) CIDFont_set_flags(CIDFONT_FORCE_FIXEDPITCH); /* Please move this to spc_init_specials(). */ if (opt_flags & OPT_TPIC_TRANSPARENT_FILL) tpic_set_fill_mode(1); if (translate_origin) mps_set_translate_origin(1); if (dpx_conf.compat_mode == dpx_mode_mpost_mode) { do_mps_pages(); } else { do_dvi_pages(); } pdf_close_document(); pdf_close_fontmaps(); /* pdf_font may depend on fontmap. */ if (dpx_conf.compat_mode != dpx_mode_mpost_mode) dvi_close(); MESG("\n"); cleanup(); paperdone(); #ifdef MIKTEX miktex_uninitialize (); #endif return 0; }