/contrib/groff/src/devices/grops/psrm.cpp
C++ | 1178 lines | 1078 code | 66 blank | 34 comment | 348 complexity | 51f21f63501a170c00afc123eecfb278 MD5 | raw file
Possible License(s): MPL-2.0-no-copyleft-exception, BSD-3-Clause, LGPL-2.0, LGPL-2.1, BSD-2-Clause, 0BSD, JSON, AGPL-1.0, GPL-2.0
1// -*- C++ -*- 2/* Copyright (C) 1989, 1990, 1991, 1992, 2000, 2001, 2002, 2003, 2004 3 Free Software Foundation, Inc. 4 Written by James Clark (jjc@jclark.com) 5 6This file is part of groff. 7 8groff is free software; you can redistribute it and/or modify it under 9the terms of the GNU General Public License as published by the Free 10Software Foundation; either version 2, or (at your option) any later 11version. 12 13groff is distributed in the hope that it will be useful, but WITHOUT ANY 14WARRANTY; without even the implied warranty of MERCHANTABILITY or 15FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 16for more details. 17 18You should have received a copy of the GNU General Public License along 19with groff; see the file COPYING. If not, write to the Free Software 20Foundation, 51 Franklin St - Fifth Floor, Boston, MA 02110-1301, USA. */ 21 22#include "driver.h" 23#include "stringclass.h" 24#include "cset.h" 25 26#include "ps.h" 27 28#ifdef NEED_DECLARATION_PUTENV 29extern "C" { 30 int putenv(const char *); 31} 32#endif /* NEED_DECLARATION_PUTENV */ 33 34#define GROPS_PROLOGUE "prologue" 35 36static void print_ps_string(const string &s, FILE *outfp); 37 38cset white_space("\n\r \t\f"); 39string an_empty_string; 40 41char valid_input_table[256]= { 42#ifndef IS_EBCDIC_HOST 43 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 44 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 45 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 46 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 47 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 48 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 49 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 50 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 51 52 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 53 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 54 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 55 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 56 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 57 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 58 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 59 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 60#else 61 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 62 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 64 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 65 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 66 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 67 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 68 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 69 70 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 71 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 72 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 73 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 74 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 75 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 76 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 77 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 78#endif 79}; 80 81const char *extension_table[] = { 82 "DPS", 83 "CMYK", 84 "Composite", 85 "FileSystem", 86}; 87 88const int NEXTENSIONS = sizeof(extension_table)/sizeof(extension_table[0]); 89 90const char *resource_table[] = { 91 "font", 92 "procset", 93 "file", 94 "encoding", 95 "form", 96 "pattern", 97}; 98 99const int NRESOURCES = sizeof(resource_table)/sizeof(resource_table[0]); 100 101static int read_uint_arg(const char **pp, unsigned *res) 102{ 103 while (white_space(**pp)) 104 *pp += 1; 105 if (**pp == '\0') { 106 error("missing argument"); 107 return 0; 108 } 109 const char *start = *pp; 110 // XXX use strtoul 111 long n = strtol(start, (char **)pp, 10); 112 if (n == 0 && *pp == start) { 113 error("not an integer"); 114 return 0; 115 } 116 if (n < 0) { 117 error("argument must not be negative"); 118 return 0; 119 } 120 *res = unsigned(n); 121 return 1; 122} 123 124struct resource { 125 resource *next; 126 resource_type type; 127 string name; 128 enum { NEEDED = 01, SUPPLIED = 02, FONT_NEEDED = 04, BUSY = 010 }; 129 unsigned flags; 130 string version; 131 unsigned revision; 132 char *filename; 133 int rank; 134 resource(resource_type, string &, string & = an_empty_string, unsigned = 0); 135 ~resource(); 136 void print_type_and_name(FILE *outfp); 137}; 138 139resource::resource(resource_type t, string &n, string &v, unsigned r) 140: next(0), type(t), flags(0), revision(r), filename(0), rank(-1) 141{ 142 name.move(n); 143 version.move(v); 144 if (type == RESOURCE_FILE) { 145 if (name.search('\0') >= 0) 146 error("filename contains a character with code 0"); 147 filename = name.extract(); 148 } 149} 150 151resource::~resource() 152{ 153 a_delete filename; 154} 155 156void resource::print_type_and_name(FILE *outfp) 157{ 158 fputs(resource_table[type], outfp); 159 putc(' ', outfp); 160 print_ps_string(name, outfp); 161 if (type == RESOURCE_PROCSET) { 162 putc(' ', outfp); 163 print_ps_string(version, outfp); 164 fprintf(outfp, " %u", revision); 165 } 166} 167 168resource_manager::resource_manager() 169: extensions(0), language_level(0), resource_list(0) 170{ 171 read_download_file(); 172 string procset_name("grops"); 173 extern const char *version_string; 174 extern const char *revision_string; 175 unsigned revision_uint; 176 if (!read_uint_arg(&revision_string, &revision_uint)) 177 revision_uint = 0; 178 string procset_version(version_string); 179 procset_resource = lookup_resource(RESOURCE_PROCSET, procset_name, 180 procset_version, revision_uint); 181 procset_resource->flags |= resource::SUPPLIED; 182} 183 184resource_manager::~resource_manager() 185{ 186 while (resource_list) { 187 resource *tem = resource_list; 188 resource_list = resource_list->next; 189 delete tem; 190 } 191} 192 193resource *resource_manager::lookup_resource(resource_type type, 194 string &name, 195 string &version, 196 unsigned revision) 197{ 198 resource *r; 199 for (r = resource_list; r; r = r->next) 200 if (r->type == type 201 && r->name == name 202 && r->version == version 203 && r->revision == revision) 204 return r; 205 r = new resource(type, name, version, revision); 206 r->next = resource_list; 207 resource_list = r; 208 return r; 209} 210 211// Just a specialized version of lookup_resource(). 212 213resource *resource_manager::lookup_font(const char *name) 214{ 215 resource *r; 216 for (r = resource_list; r; r = r->next) 217 if (r->type == RESOURCE_FONT 218 && strlen(name) == (size_t)r->name.length() 219 && memcmp(name, r->name.contents(), r->name.length()) == 0) 220 return r; 221 string s(name); 222 r = new resource(RESOURCE_FONT, s); 223 r->next = resource_list; 224 resource_list = r; 225 return r; 226} 227 228void resource_manager::need_font(const char *name) 229{ 230 lookup_font(name)->flags |= resource::FONT_NEEDED; 231} 232 233typedef resource *Presource; // Work around g++ bug. 234 235void resource_manager::document_setup(ps_output &out) 236{ 237 int nranks = 0; 238 resource *r; 239 for (r = resource_list; r; r = r->next) 240 if (r->rank >= nranks) 241 nranks = r->rank + 1; 242 if (nranks > 0) { 243 // Sort resource_list in reverse order of rank. 244 Presource *head = new Presource[nranks + 1]; 245 Presource **tail = new Presource *[nranks + 1]; 246 int i; 247 for (i = 0; i < nranks + 1; i++) { 248 head[i] = 0; 249 tail[i] = &head[i]; 250 } 251 for (r = resource_list; r; r = r->next) { 252 i = r->rank < 0 ? 0 : r->rank + 1; 253 *tail[i] = r; 254 tail[i] = &(*tail[i])->next; 255 } 256 resource_list = 0; 257 for (i = 0; i < nranks + 1; i++) 258 if (head[i]) { 259 *tail[i] = resource_list; 260 resource_list = head[i]; 261 } 262 a_delete head; 263 a_delete tail; 264 // check it 265 for (r = resource_list; r; r = r->next) 266 if (r->next) 267 assert(r->rank >= r->next->rank); 268 for (r = resource_list; r; r = r->next) 269 if (r->type == RESOURCE_FONT && r->rank >= 0) 270 supply_resource(r, -1, out.get_file()); 271 } 272} 273 274void resource_manager::print_resources_comment(unsigned flag, FILE *outfp) 275{ 276 int continued = 0; 277 for (resource *r = resource_list; r; r = r->next) 278 if (r->flags & flag) { 279 if (continued) 280 fputs("%%+ ", outfp); 281 else { 282 fputs(flag == resource::NEEDED 283 ? "%%DocumentNeededResources: " 284 : "%%DocumentSuppliedResources: ", 285 outfp); 286 continued = 1; 287 } 288 r->print_type_and_name(outfp); 289 putc('\n', outfp); 290 } 291} 292 293void resource_manager::print_header_comments(ps_output &out) 294{ 295 for (resource *r = resource_list; r; r = r->next) 296 if (r->type == RESOURCE_FONT && (r->flags & resource::FONT_NEEDED)) 297 supply_resource(r, 0, 0); 298 print_resources_comment(resource::NEEDED, out.get_file()); 299 print_resources_comment(resource::SUPPLIED, out.get_file()); 300 print_language_level_comment(out.get_file()); 301 print_extensions_comment(out.get_file()); 302} 303 304void resource_manager::output_prolog(ps_output &out) 305{ 306 FILE *outfp = out.get_file(); 307 out.end_line(); 308 char *path; 309 if (!getenv("GROPS_PROLOGUE")) { 310 string e = "GROPS_PROLOGUE"; 311 e += '='; 312 e += GROPS_PROLOGUE; 313 e += '\0'; 314 if (putenv(strsave(e.contents()))) 315 fatal("putenv failed"); 316 } 317 char *prologue = getenv("GROPS_PROLOGUE"); 318 FILE *fp = font::open_file(prologue, &path); 319 if (!fp) 320 fatal("can't find `%1'", prologue); 321 fputs("%%BeginResource: ", outfp); 322 procset_resource->print_type_and_name(outfp); 323 putc('\n', outfp); 324 process_file(-1, fp, path, outfp); 325 fclose(fp); 326 a_delete path; 327 fputs("%%EndResource\n", outfp); 328} 329 330void resource_manager::import_file(const char *filename, ps_output &out) 331{ 332 out.end_line(); 333 string name(filename); 334 resource *r = lookup_resource(RESOURCE_FILE, name); 335 supply_resource(r, -1, out.get_file(), 1); 336} 337 338void resource_manager::supply_resource(resource *r, int rank, FILE *outfp, 339 int is_document) 340{ 341 if (r->flags & resource::BUSY) { 342 r->name += '\0'; 343 fatal("loop detected in dependency graph for %1 `%2'", 344 resource_table[r->type], 345 r->name.contents()); 346 } 347 r->flags |= resource::BUSY; 348 if (rank > r->rank) 349 r->rank = rank; 350 char *path = 0; // pacify compiler 351 FILE *fp = 0; 352 if (r->filename != 0) { 353 if (r->type == RESOURCE_FONT) { 354 fp = font::open_file(r->filename, &path); 355 if (!fp) { 356 error("can't find `%1'", r->filename); 357 a_delete r->filename; 358 r->filename = 0; 359 } 360 } 361 else { 362 errno = 0; 363 fp = include_search_path.open_file_cautious(r->filename); 364 if (!fp) { 365 error("can't open `%1': %2", r->filename, strerror(errno)); 366 a_delete r->filename; 367 r->filename = 0; 368 } 369 else 370 path = r->filename; 371 } 372 } 373 if (fp) { 374 if (outfp) { 375 if (r->type == RESOURCE_FILE && is_document) { 376 fputs("%%BeginDocument: ", outfp); 377 print_ps_string(r->name, outfp); 378 putc('\n', outfp); 379 } 380 else { 381 fputs("%%BeginResource: ", outfp); 382 r->print_type_and_name(outfp); 383 putc('\n', outfp); 384 } 385 } 386 process_file(rank, fp, path, outfp); 387 fclose(fp); 388 if (r->type == RESOURCE_FONT) 389 a_delete path; 390 if (outfp) { 391 if (r->type == RESOURCE_FILE && is_document) 392 fputs("%%EndDocument\n", outfp); 393 else 394 fputs("%%EndResource\n", outfp); 395 } 396 r->flags |= resource::SUPPLIED; 397 } 398 else { 399 if (outfp) { 400 if (r->type == RESOURCE_FILE && is_document) { 401 fputs("%%IncludeDocument: ", outfp); 402 print_ps_string(r->name, outfp); 403 putc('\n', outfp); 404 } 405 else { 406 fputs("%%IncludeResource: ", outfp); 407 r->print_type_and_name(outfp); 408 putc('\n', outfp); 409 } 410 } 411 r->flags |= resource::NEEDED; 412 } 413 r->flags &= ~resource::BUSY; 414} 415 416#define PS_MAGIC "%!PS-Adobe-" 417 418static int ps_get_line(string &buf, FILE *fp) 419{ 420 buf.clear(); 421 int c = getc(fp); 422 if (c == EOF) 423 return 0; 424 current_lineno++; 425 while (c != '\r' && c != '\n' && c != EOF) { 426 if (!valid_input_table[c]) 427 error("invalid input character code %1", int(c)); 428 buf += c; 429 c = getc(fp); 430 } 431 buf += '\n'; 432 buf += '\0'; 433 if (c == '\r') { 434 c = getc(fp); 435 if (c != EOF && c != '\n') 436 ungetc(c, fp); 437 } 438 return 1; 439} 440 441static int read_text_arg(const char **pp, string &res) 442{ 443 res.clear(); 444 while (white_space(**pp)) 445 *pp += 1; 446 if (**pp == '\0') { 447 error("missing argument"); 448 return 0; 449 } 450 if (**pp != '(') { 451 for (; **pp != '\0' && !white_space(**pp); *pp += 1) 452 res += **pp; 453 return 1; 454 } 455 *pp += 1; 456 res.clear(); 457 int level = 0; 458 for (;;) { 459 if (**pp == '\0' || **pp == '\r' || **pp == '\n') { 460 error("missing ')'"); 461 return 0; 462 } 463 if (**pp == ')') { 464 if (level == 0) { 465 *pp += 1; 466 break; 467 } 468 res += **pp; 469 level--; 470 } 471 else if (**pp == '(') { 472 level++; 473 res += **pp; 474 } 475 else if (**pp == '\\') { 476 *pp += 1; 477 switch (**pp) { 478 case 'n': 479 res += '\n'; 480 break; 481 case 'r': 482 res += '\n'; 483 break; 484 case 't': 485 res += '\t'; 486 break; 487 case 'b': 488 res += '\b'; 489 break; 490 case 'f': 491 res += '\f'; 492 break; 493 case '0': 494 case '1': 495 case '2': 496 case '3': 497 case '4': 498 case '5': 499 case '6': 500 case '7': 501 { 502 int val = **pp - '0'; 503 if ((*pp)[1] >= '0' && (*pp)[1] <= '7') { 504 *pp += 1; 505 val = val*8 + (**pp - '0'); 506 if ((*pp)[1] >= '0' && (*pp)[1] <= '7') { 507 *pp += 1; 508 val = val*8 + (**pp - '0'); 509 } 510 } 511 } 512 break; 513 default: 514 res += **pp; 515 break; 516 } 517 } 518 else 519 res += **pp; 520 *pp += 1; 521 } 522 return 1; 523} 524 525resource *resource_manager::read_file_arg(const char **ptr) 526{ 527 string arg; 528 if (!read_text_arg(ptr, arg)) 529 return 0; 530 return lookup_resource(RESOURCE_FILE, arg); 531} 532 533resource *resource_manager::read_font_arg(const char **ptr) 534{ 535 string arg; 536 if (!read_text_arg(ptr, arg)) 537 return 0; 538 return lookup_resource(RESOURCE_FONT, arg); 539} 540 541resource *resource_manager::read_procset_arg(const char **ptr) 542{ 543 string arg; 544 if (!read_text_arg(ptr, arg)) 545 return 0; 546 string version; 547 if (!read_text_arg(ptr, version)) 548 return 0; 549 unsigned revision; 550 if (!read_uint_arg(ptr, &revision)) 551 return 0; 552 return lookup_resource(RESOURCE_PROCSET, arg, version, revision); 553} 554 555resource *resource_manager::read_resource_arg(const char **ptr) 556{ 557 while (white_space(**ptr)) 558 *ptr += 1; 559 const char *name = *ptr; 560 while (**ptr != '\0' && !white_space(**ptr)) 561 *ptr += 1; 562 if (name == *ptr) { 563 error("missing resource type"); 564 return 0; 565 } 566 int ri; 567 for (ri = 0; ri < NRESOURCES; ri++) 568 if (strlen(resource_table[ri]) == size_t(*ptr - name) 569 && memcmp(resource_table[ri], name, *ptr - name) == 0) 570 break; 571 if (ri >= NRESOURCES) { 572 error("unknown resource type"); 573 return 0; 574 } 575 if (ri == RESOURCE_PROCSET) 576 return read_procset_arg(ptr); 577 string arg; 578 if (!read_text_arg(ptr, arg)) 579 return 0; 580 return lookup_resource(resource_type(ri), arg); 581} 582 583static const char *matches_comment(string &buf, const char *comment) 584{ 585 if ((size_t)buf.length() < strlen(comment) + 3) 586 return 0; 587 if (buf[0] != '%' || buf[1] != '%') 588 return 0; 589 const char *bufp = buf.contents() + 2; 590 for (; *comment; comment++, bufp++) 591 if (*bufp != *comment) 592 return 0; 593 if (comment[-1] == ':') 594 return bufp; 595 if (*bufp == '\0' || white_space(*bufp)) 596 return bufp; 597 return 0; 598} 599 600// Return 1 if the line should be copied out. 601 602int resource_manager::do_begin_resource(const char *ptr, int, FILE *, 603 FILE *) 604{ 605 resource *r = read_resource_arg(&ptr); 606 if (r) 607 r->flags |= resource::SUPPLIED; 608 return 1; 609} 610 611int resource_manager::do_include_resource(const char *ptr, int rank, FILE *, 612 FILE *outfp) 613{ 614 resource *r = read_resource_arg(&ptr); 615 if (r) { 616 if (r->type == RESOURCE_FONT) { 617 if (rank >= 0) 618 supply_resource(r, rank + 1, outfp); 619 else 620 r->flags |= resource::FONT_NEEDED; 621 } 622 else 623 supply_resource(r, rank, outfp); 624 } 625 return 0; 626} 627 628int resource_manager::do_begin_document(const char *ptr, int, FILE *, 629 FILE *) 630{ 631 resource *r = read_file_arg(&ptr); 632 if (r) 633 r->flags |= resource::SUPPLIED; 634 return 1; 635} 636 637int resource_manager::do_include_document(const char *ptr, int rank, FILE *, 638 FILE *outfp) 639{ 640 resource *r = read_file_arg(&ptr); 641 if (r) 642 supply_resource(r, rank, outfp, 1); 643 return 0; 644} 645 646int resource_manager::do_begin_procset(const char *ptr, int, FILE *, 647 FILE *outfp) 648{ 649 resource *r = read_procset_arg(&ptr); 650 if (r) { 651 r->flags |= resource::SUPPLIED; 652 if (outfp) { 653 fputs("%%BeginResource: ", outfp); 654 r->print_type_and_name(outfp); 655 putc('\n', outfp); 656 } 657 } 658 return 0; 659} 660 661int resource_manager::do_include_procset(const char *ptr, int rank, FILE *, 662 FILE *outfp) 663{ 664 resource *r = read_procset_arg(&ptr); 665 if (r) 666 supply_resource(r, rank, outfp); 667 return 0; 668} 669 670int resource_manager::do_begin_file(const char *ptr, int, FILE *, 671 FILE *outfp) 672{ 673 resource *r = read_file_arg(&ptr); 674 if (r) { 675 r->flags |= resource::SUPPLIED; 676 if (outfp) { 677 fputs("%%BeginResource: ", outfp); 678 r->print_type_and_name(outfp); 679 putc('\n', outfp); 680 } 681 } 682 return 0; 683} 684 685int resource_manager::do_include_file(const char *ptr, int rank, FILE *, 686 FILE *outfp) 687{ 688 resource *r = read_file_arg(&ptr); 689 if (r) 690 supply_resource(r, rank, outfp); 691 return 0; 692} 693 694int resource_manager::do_begin_font(const char *ptr, int, FILE *, 695 FILE *outfp) 696{ 697 resource *r = read_font_arg(&ptr); 698 if (r) { 699 r->flags |= resource::SUPPLIED; 700 if (outfp) { 701 fputs("%%BeginResource: ", outfp); 702 r->print_type_and_name(outfp); 703 putc('\n', outfp); 704 } 705 } 706 return 0; 707} 708 709int resource_manager::do_include_font(const char *ptr, int rank, FILE *, 710 FILE *outfp) 711{ 712 resource *r = read_font_arg(&ptr); 713 if (r) { 714 if (rank >= 0) 715 supply_resource(r, rank + 1, outfp); 716 else 717 r->flags |= resource::FONT_NEEDED; 718 } 719 return 0; 720} 721 722int resource_manager::change_to_end_resource(const char *, int, FILE *, 723 FILE *outfp) 724{ 725 if (outfp) 726 fputs("%%EndResource\n", outfp); 727 return 0; 728} 729 730int resource_manager::do_begin_preview(const char *, int, FILE *fp, FILE *) 731{ 732 string buf; 733 do { 734 if (!ps_get_line(buf, fp)) { 735 error("end of file in preview section"); 736 break; 737 } 738 } while (!matches_comment(buf, "EndPreview")); 739 return 0; 740} 741 742int read_one_of(const char **ptr, const char **s, int n) 743{ 744 while (white_space(**ptr)) 745 *ptr += 1; 746 if (**ptr == '\0') 747 return -1; 748 const char *start = *ptr; 749 do { 750 ++(*ptr); 751 } while (**ptr != '\0' && !white_space(**ptr)); 752 for (int i = 0; i < n; i++) 753 if (strlen(s[i]) == size_t(*ptr - start) 754 && memcmp(s[i], start, *ptr - start) == 0) 755 return i; 756 return -1; 757} 758 759void skip_possible_newline(FILE *fp, FILE *outfp) 760{ 761 int c = getc(fp); 762 if (c == '\r') { 763 current_lineno++; 764 if (outfp) 765 putc(c, outfp); 766 int cc = getc(fp); 767 if (cc != '\n') { 768 if (cc != EOF) 769 ungetc(cc, fp); 770 } 771 else { 772 if (outfp) 773 putc(cc, outfp); 774 } 775 } 776 else if (c == '\n') { 777 current_lineno++; 778 if (outfp) 779 putc(c, outfp); 780 } 781 else if (c != EOF) 782 ungetc(c, fp); 783} 784 785int resource_manager::do_begin_data(const char *ptr, int, FILE *fp, 786 FILE *outfp) 787{ 788 while (white_space(*ptr)) 789 ptr++; 790 const char *start = ptr; 791 unsigned numberof; 792 if (!read_uint_arg(&ptr, &numberof)) 793 return 0; 794 static const char *types[] = { "Binary", "Hex", "ASCII" }; 795 const int Binary = 0; 796 int type = 0; 797 static const char *units[] = { "Bytes", "Lines" }; 798 const int Bytes = 0; 799 int unit = Bytes; 800 while (white_space(*ptr)) 801 ptr++; 802 if (*ptr != '\0') { 803 type = read_one_of(&ptr, types, 3); 804 if (type < 0) { 805 error("bad data type"); 806 return 0; 807 } 808 while (white_space(*ptr)) 809 ptr++; 810 if (*ptr != '\0') { 811 unit = read_one_of(&ptr, units, 2); 812 if (unit < 0) { 813 error("expected `Bytes' or `Lines'"); 814 return 0; 815 } 816 } 817 } 818 if (type != Binary) 819 return 1; 820 if (outfp) { 821 fputs("%%BeginData: ", outfp); 822 fputs(start, outfp); 823 } 824 if (numberof > 0) { 825 unsigned bytecount = 0; 826 unsigned linecount = 0; 827 do { 828 int c = getc(fp); 829 if (c == EOF) { 830 error("end of file within data section"); 831 return 0; 832 } 833 if (outfp) 834 putc(c, outfp); 835 bytecount++; 836 if (c == '\r') { 837 int cc = getc(fp); 838 if (cc != '\n') { 839 linecount++; 840 current_lineno++; 841 } 842 if (cc != EOF) 843 ungetc(c, fp); 844 } 845 else if (c == '\n') { 846 linecount++; 847 current_lineno++; 848 } 849 } while ((unit == Bytes ? bytecount : linecount) < numberof); 850 } 851 skip_possible_newline(fp, outfp); 852 string buf; 853 if (!ps_get_line(buf, fp)) { 854 error("missing %%%%EndData line"); 855 return 0; 856 } 857 if (!matches_comment(buf, "EndData")) 858 error("bad %%%%EndData line"); 859 if (outfp) 860 fputs(buf.contents(), outfp); 861 return 0; 862} 863 864int resource_manager::do_begin_binary(const char *ptr, int, FILE *fp, 865 FILE *outfp) 866{ 867 if (!outfp) 868 return 0; 869 unsigned count; 870 if (!read_uint_arg(&ptr, &count)) 871 return 0; 872 if (outfp) 873 fprintf(outfp, "%%%%BeginData: %u Binary Bytes\n", count); 874 while (count != 0) { 875 int c = getc(fp); 876 if (c == EOF) { 877 error("end of file within binary section"); 878 return 0; 879 } 880 if (outfp) 881 putc(c, outfp); 882 --count; 883 if (c == '\r') { 884 int cc = getc(fp); 885 if (cc != '\n') 886 current_lineno++; 887 if (cc != EOF) 888 ungetc(cc, fp); 889 } 890 else if (c == '\n') 891 current_lineno++; 892 } 893 skip_possible_newline(fp, outfp); 894 string buf; 895 if (!ps_get_line(buf, fp)) { 896 error("missing %%%%EndBinary line"); 897 return 0; 898 } 899 if (!matches_comment(buf, "EndBinary")) { 900 error("bad %%%%EndBinary line"); 901 if (outfp) 902 fputs(buf.contents(), outfp); 903 } 904 else if (outfp) 905 fputs("%%EndData\n", outfp); 906 return 0; 907} 908 909static unsigned parse_extensions(const char *ptr) 910{ 911 unsigned flags = 0; 912 for (;;) { 913 while (white_space(*ptr)) 914 ptr++; 915 if (*ptr == '\0') 916 break; 917 const char *name = ptr; 918 do { 919 ++ptr; 920 } while (*ptr != '\0' && !white_space(*ptr)); 921 int i; 922 for (i = 0; i < NEXTENSIONS; i++) 923 if (strlen(extension_table[i]) == size_t(ptr - name) 924 && memcmp(extension_table[i], name, ptr - name) == 0) { 925 flags |= (1 << i); 926 break; 927 } 928 if (i >= NEXTENSIONS) { 929 string s(name, ptr - name); 930 s += '\0'; 931 error("unknown extension `%1'", s.contents()); 932 } 933 } 934 return flags; 935} 936 937// XXX if it has not been surrounded with {Begin,End}Document need to strip 938// out Page: Trailer {Begin,End}Prolog {Begin,End}Setup sections. 939 940// XXX Perhaps the decision whether to use BeginDocument or 941// BeginResource: file should be postponed till we have seen 942// the first line of the file. 943 944void resource_manager::process_file(int rank, FILE *fp, const char *filename, 945 FILE *outfp) 946{ 947 // If none of these comments appear in the header section, and we are 948 // just analyzing the file (ie outfp is 0), then we can return immediately. 949 static const char *header_comment_table[] = { 950 "DocumentNeededResources:", 951 "DocumentSuppliedResources:", 952 "DocumentNeededFonts:", 953 "DocumentSuppliedFonts:", 954 "DocumentNeededProcSets:", 955 "DocumentSuppliedProcSets:", 956 "DocumentNeededFiles:", 957 "DocumentSuppliedFiles:", 958 }; 959 960 const int NHEADER_COMMENTS = sizeof(header_comment_table) 961 / sizeof(header_comment_table[0]); 962 struct comment_info { 963 const char *name; 964 int (resource_manager::*proc)(const char *, int, FILE *, FILE *); 965 }; 966 967 static comment_info comment_table[] = { 968 { "BeginResource:", &resource_manager::do_begin_resource }, 969 { "IncludeResource:", &resource_manager::do_include_resource }, 970 { "BeginDocument:", &resource_manager::do_begin_document }, 971 { "IncludeDocument:", &resource_manager::do_include_document }, 972 { "BeginProcSet:", &resource_manager::do_begin_procset }, 973 { "IncludeProcSet:", &resource_manager::do_include_procset }, 974 { "BeginFont:", &resource_manager::do_begin_font }, 975 { "IncludeFont:", &resource_manager::do_include_font }, 976 { "BeginFile:", &resource_manager::do_begin_file }, 977 { "IncludeFile:", &resource_manager::do_include_file }, 978 { "EndProcSet", &resource_manager::change_to_end_resource }, 979 { "EndFont", &resource_manager::change_to_end_resource }, 980 { "EndFile", &resource_manager::change_to_end_resource }, 981 { "BeginPreview:", &resource_manager::do_begin_preview }, 982 { "BeginData:", &resource_manager::do_begin_data }, 983 { "BeginBinary:", &resource_manager::do_begin_binary }, 984 }; 985 986 const int NCOMMENTS = sizeof(comment_table)/sizeof(comment_table[0]); 987 string buf; 988 int saved_lineno = current_lineno; 989 const char *saved_filename = current_filename; 990 current_filename = filename; 991 current_lineno = 0; 992 if (!ps_get_line(buf, fp)) { 993 current_filename = saved_filename; 994 current_lineno = saved_lineno; 995 return; 996 } 997 if ((size_t)buf.length() < sizeof(PS_MAGIC) 998 || memcmp(buf.contents(), PS_MAGIC, sizeof(PS_MAGIC) - 1) != 0) { 999 if (outfp) { 1000 do { 1001 if (!(broken_flags & STRIP_PERCENT_BANG) 1002 || buf[0] != '%' || buf[1] != '!') 1003 fputs(buf.contents(), outfp); 1004 } while (ps_get_line(buf, fp)); 1005 } 1006 } 1007 else { 1008 if (!(broken_flags & STRIP_PERCENT_BANG) && outfp) 1009 fputs(buf.contents(), outfp); 1010 int in_header = 1; 1011 int interesting = 0; 1012 int had_extensions_comment = 0; 1013 int had_language_level_comment = 0; 1014 for (;;) { 1015 if (!ps_get_line(buf, fp)) 1016 break; 1017 int copy_this_line = 1; 1018 if (buf[0] == '%') { 1019 if (buf[1] == '%') { 1020 const char *ptr; 1021 int i; 1022 for (i = 0; i < NCOMMENTS; i++) 1023 if ((ptr = matches_comment(buf, comment_table[i].name))) { 1024 copy_this_line 1025 = (this->*(comment_table[i].proc))(ptr, rank, fp, outfp); 1026 break; 1027 } 1028 if (i >= NCOMMENTS && in_header) { 1029 if ((ptr = matches_comment(buf, "EndComments"))) 1030 in_header = 0; 1031 else if (!had_extensions_comment 1032 && (ptr = matches_comment(buf, "Extensions:"))) { 1033 extensions |= parse_extensions(ptr); 1034 // XXX handle possibility that next line is %%+ 1035 had_extensions_comment = 1; 1036 } 1037 else if (!had_language_level_comment 1038 && (ptr = matches_comment(buf, "LanguageLevel:"))) { 1039 unsigned ll; 1040 if (read_uint_arg(&ptr, &ll) && ll > language_level) 1041 language_level = ll; 1042 had_language_level_comment = 1; 1043 } 1044 else { 1045 for (i = 0; i < NHEADER_COMMENTS; i++) 1046 if (matches_comment(buf, header_comment_table[i])) { 1047 interesting = 1; 1048 break; 1049 } 1050 } 1051 } 1052 if ((broken_flags & STRIP_STRUCTURE_COMMENTS) 1053 && (matches_comment(buf, "EndProlog") 1054 || matches_comment(buf, "Page:") 1055 || matches_comment(buf, "Trailer"))) 1056 copy_this_line = 0; 1057 } 1058 else if (buf[1] == '!') { 1059 if (broken_flags & STRIP_PERCENT_BANG) 1060 copy_this_line = 0; 1061 } 1062 } 1063 else 1064 in_header = 0; 1065 if (!outfp && !in_header && !interesting) 1066 break; 1067 if (copy_this_line && outfp) 1068 fputs(buf.contents(), outfp); 1069 } 1070 } 1071 current_filename = saved_filename; 1072 current_lineno = saved_lineno; 1073} 1074 1075void resource_manager::read_download_file() 1076{ 1077 char *path = 0; 1078 FILE *fp = font::open_file("download", &path); 1079 if (!fp) 1080 fatal("can't find `download'"); 1081 char buf[512]; 1082 int lineno = 0; 1083 while (fgets(buf, sizeof(buf), fp)) { 1084 lineno++; 1085 char *p = strtok(buf, " \t\r\n"); 1086 if (p == 0 || *p == '#') 1087 continue; 1088 char *q = strtok(0, " \t\r\n"); 1089 if (!q) 1090 fatal_with_file_and_line(path, lineno, "missing filename"); 1091 lookup_font(p)->filename = strsave(q); 1092 } 1093 a_delete path; 1094 fclose(fp); 1095} 1096 1097// XXX Can we share some code with ps_output::put_string()? 1098 1099static void print_ps_string(const string &s, FILE *outfp) 1100{ 1101 int len = s.length(); 1102 const char *str = s.contents(); 1103 int funny = 0; 1104 if (str[0] == '(') 1105 funny = 1; 1106 else { 1107 for (int i = 0; i < len; i++) 1108 if (str[i] <= 040 || str[i] > 0176) { 1109 funny = 1; 1110 break; 1111 } 1112 } 1113 if (!funny) { 1114 put_string(s, outfp); 1115 return; 1116 } 1117 int level = 0; 1118 int i; 1119 for (i = 0; i < len; i++) 1120 if (str[i] == '(') 1121 level++; 1122 else if (str[i] == ')' && --level < 0) 1123 break; 1124 putc('(', outfp); 1125 for (i = 0; i < len; i++) 1126 switch (str[i]) { 1127 case '(': 1128 case ')': 1129 if (level != 0) 1130 putc('\\', outfp); 1131 putc(str[i], outfp); 1132 break; 1133 case '\\': 1134 fputs("\\\\", outfp); 1135 break; 1136 case '\n': 1137 fputs("\\n", outfp); 1138 break; 1139 case '\r': 1140 fputs("\\r", outfp); 1141 break; 1142 case '\t': 1143 fputs("\\t", outfp); 1144 break; 1145 case '\b': 1146 fputs("\\b", outfp); 1147 break; 1148 case '\f': 1149 fputs("\\f", outfp); 1150 break; 1151 default: 1152 if (str[i] < 040 || str[i] > 0176) 1153 fprintf(outfp, "\\%03o", str[i] & 0377); 1154 else 1155 putc(str[i], outfp); 1156 break; 1157 } 1158 putc(')', outfp); 1159} 1160 1161void resource_manager::print_extensions_comment(FILE *outfp) 1162{ 1163 if (extensions) { 1164 fputs("%%Extensions:", outfp); 1165 for (int i = 0; i < NEXTENSIONS; i++) 1166 if (extensions & (1 << i)) { 1167 putc(' ', outfp); 1168 fputs(extension_table[i], outfp); 1169 } 1170 putc('\n', outfp); 1171 } 1172} 1173 1174void resource_manager::print_language_level_comment(FILE *outfp) 1175{ 1176 if (language_level) 1177 fprintf(outfp, "%%%%LanguageLevel: %u\n", language_level); 1178}