1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License (the "License"). 6 * You may not use this file except in compliance with the License. 7 * 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 * or http://www.opensolaris.org/os/licensing. 10 * See the License for the specific language governing permissions 11 * and limitations under the License. 12 * 13 * When distributing Covered Code, include this CDDL HEADER in each 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 * If applicable, add the following below this CDDL HEADER, with the 16 * fields enclosed by brackets "[]" replaced with your own identifying 17 * information: Portions Copyright [yyyy] [name of copyright owner] 18 * 19 * CDDL HEADER END 20 */ 21 /* 22 * Copyright 2008 Sun Microsystems, Inc. All rights reserved. 23 * Use is subject to license terms. 24 */ 25 26 /* 27 * lwlp - Convert ASCII text to PostScript 28 * 29 * Usage: 30 * lwlp [-{2|4|8}] [-p] [-L] [-r] [-n#] [-l#|-w#] [-c#] [-t#] 31 * [-hstring] [-Bstring] [-Istring] [-Xstring] [-Pfile] [file ...] 32 * 33 * Options: 34 * -{1|2|4|8} print multiple logical pages per page 35 * -d debug, don't remove temporary file 36 * -L specify Landscape instead of Portrait 37 * -p filter input through pr 38 * -r toggle page reversal flag (default is off) 39 * -e elide unchanged functions 40 * -n# number with numberwidth digits 41 * -l# specify number of lines/logical page, default 66 42 * -w# specify number of columns 43 * -c# specify number of copies 44 * -t# specify tab spacing 45 * -htext specify header text 46 * -Btext specify bold font selector 47 * -Itext specify italic font selector 48 * -Xtext specify bold-italic font selector 49 * -Gtext specify graying selector 50 * -Pfile specify different Postscript prologue file 51 * 52 * If no files are specified, stdin is used. 53 * Form feeds handled 54 * Backspacing with underlining (or overprinting) works 55 * The output conforms to Adobe 2.0 56 * 57 * Problems: 58 * - assumes fixed-width (non-proportional) font in some places 59 * - can't back up (using backspaces) over tabs 60 * - assumes 8.5 x 11.0 paper 61 * - uses logical page with aspect ratio of 3 * 4 62 * 63 */ 64 65 #define USAGE1 "[-{1|2|4|8}] [-p] [-L] [-r] [-n<numberwidth]" 66 #define USAGE2 "[-l<lines>|-w<columns>] [-c<count>] [-t<tabs>]" 67 #define USAGE3 "[-hstring] [-Bstring] [-Istring] [-Xstring] [-Gstring]" 68 #define USAGE4 "[-Pfile] [file ...]" 69 #define USAGE6 "[-hstring] [-e] [-y comment] oldfile newfile" 70 71 #include <stdio.h> 72 #include <string.h> 73 #include <stdlib.h> 74 #include <sys/file.h> 75 #include <ctype.h> 76 #include <pwd.h> 77 #include <sys/utsname.h> 78 #include <sys/stat.h> 79 #include <unistd.h> 80 #include <sys/types.h> 81 #include <time.h> 82 #include <stdarg.h> 83 84 /* 85 * Configurable... 86 * BUFOUT should be fairly large 87 */ 88 #define BUFIN 1024 /* maximum length of an input line */ 89 #define BUFOUT (BUFIN * 5) 90 #define MAXPAGES 10000 91 #define REVERSE_OFF 0 92 93 #define DEFAULT_PAPER_HEIGHT 11.0 94 #define DEFAULT_PAPER_WIDTH 8.50 95 #define DEFAULT_PAGE_HEIGHT 10.0 96 #define DEFAULT_PAGE_WIDTH 7.50 97 #define DEFAULT_LINES_PER_PAGE 66 98 #define DEFAULT_TAB_SIZE 8 99 static char *default_font = "Courier"; 100 static char *default_font_bold = "Courier-Bold"; 101 static char *default_font_italic = "Courier-Oblique"; 102 static char *default_font_bold_italic = "Courier-BoldOblique"; 103 static char *select_default_font = "FRN"; 104 static char *select_default_font_bold = "FRB"; 105 static char *select_default_font_italic = "FIN"; 106 static char *select_default_font_bold_italic = "FIB"; 107 #define DEFAULT_FONT select_default_font 108 #define DEFAULT_FONT_BOLD select_default_font_bold 109 #define DEFAULT_FONT_ITALIC select_default_font_italic 110 #define DEFAULT_FONT_BOLD_ITALIC select_default_font_bold_italic 111 #define DEFAULT_CHAR_WIDTH (.6) 112 #define DEFAULT_SPACES_AFTER_NUMBER 1 113 #define DEFAULT_DESCENDER_FRACTION 0.3 114 #define LWLP "lwlp" 115 #define CODEREVIEW "codereview" 116 #define END_C_FUNCTION '}' 117 #define END_ASM_FUNCTION "SET_SIZE(" 118 static char *banner = 119 "**********************************************************"; 120 121 /* 122 * PostScript command strings 123 */ 124 #define LINETO "lineto" 125 #define NEWPATH "newpath" 126 #define SETLINEWIDTH "setlinewidth" 127 #define STROKE "stroke" 128 /* 129 * PostScript command strings defined in the prologue file 130 */ 131 #define BACKSPACE "B" 132 #define MOVETO "M" /* x y */ 133 #define SHOW "S" /* string */ 134 #define TAB "T" /* spaces */ 135 #define ZEROMOVETO "Z" /* y */ 136 #define SELECT_FONT "SFT" /* size font */ 137 #define SET_WIDTHS "SWT" 138 #define START_PAGE "SPG" /* angle scale x y */ 139 #define END_PAGE "EPG" 140 #define FLUSH_PAGE "FPG" /* ncopies */ 141 #define SHADE "SHD" /* x0 y0 x1 y1 */ 142 143 /* 144 * Conformance requires that no PostScript line exceed 256 characters 145 */ 146 #define POINTS_PER_INCH 72 147 #define MAX_OUTPUT_LINE_LENGTH 256 148 149 #define START_X 0 /* position of start of each line */ 150 #define THREE_HOLE_X 1.0 /* portrait x offset (inches) 3 hole */ 151 #define THREE_HOLE_Y 0.5 /* landscape y offset (inches) 3 hole */ 152 #define RULE_WIDTH 0.25 /* width in units of paging rules */ 153 154 static struct print_state { 155 int page_count; 156 int logical_page_count; 157 int lineno; 158 long offset; 159 float row; 160 char *font; 161 } current, saved; 162 163 struct format_state { 164 int numberwidth, linenumber, altlinenumber; 165 int makegray; 166 char *font; 167 }; 168 169 static int change_seen, dots_inserted, in_change, old_stuff, makegray; 170 static int lines_per_page; 171 static int columns; 172 static float point_size; 173 static int start_x, start_y, end_x; 174 static int landscape, rot_text; 175 176 static int ncopies; 177 static int tabstop; 178 static int reverse; 179 static int elide; 180 static int usetmp; 181 static int dflag, lflag, pflag, vflag, wflag; 182 static int numberwidth, linenumber, altlinenumber; 183 static int boldlength, itlclength, bitclength, graylength; 184 static char *boldstring, *itlcstring, *bitcstring, *graystring; 185 #define HEADER_EXPLICIT 1 186 #define HEADER_IMPLICIT 2 187 static int header = HEADER_IMPLICIT; 188 static char *headerstring; 189 static char *bannerfile; 190 191 static char bufin[BUFIN]; /* input buffer */ 192 static char bufout[BUFOUT]; /* output buffer */ 193 static long *page_map; /* offset of first byte of each page */ 194 195 static char *username, *hostname, *currentdate; 196 static char *comment; 197 198 static void preamble(void); 199 static void postamble(void); 200 static void setcurrentfont(char *, FILE *); 201 static void savestate(FILE *); 202 static void restorestate(FILE *); 203 static void save_format_state(struct format_state *); 204 static void printfile(FILE *); 205 static int printpage(FILE *, FILE *); 206 static int startpage(FILE *); 207 static void endpage(FILE *); 208 static void copypage(FILE *, long, long); 209 static void process_elide(FILE *); 210 static void setheaderfile(char *); 211 static void restore_format_state(struct format_state *, FILE *); 212 static void flushpage(FILE *); 213 static void setuppage(FILE *); 214 static void reversepages(FILE *); 215 static void proc(char *, FILE *); 216 static void setup(void); 217 static int printbanner(char *, FILE *); 218 static char *fgetline(char *, int, FILE *); 219 static void fatal(char *fmt, ...); 220 221 static char *prologue; 222 static char *progname; 223 static int iscodereview; 224 225 static char *default_prologue[] = { 226 "%%EndComments\n", 227 "%\n", 228 "% PostScript Prologue for lwlp LaserWriter Line Printer\n", 229 "%\n", 230 "/SFT {findfont exch scalefont setfont}bind def\n", 231 "/SWT {( ) stringwidth pop dup /W exch def neg /NW exch def}bind def\n", 232 "/SPG {/SV save def translate dup scale rotate}bind def\n", 233 "/EPG {SV restore}bind def\n", 234 "/FPG {/#copies exch def showpage}bind def\n", 235 "/B {NW 0 rmoveto}def\n", 236 "/M /moveto load def\n", 237 "/T {W mul 0 rmoveto}def\n", 238 "/S /show load def\n", 239 "/Z {0 exch moveto}bind def\n", 240 "/SHD {save 5 1 roll % S x1 y1 x0 y0\n", 241 " 2 copy moveto % S x1 y1 x0 y0\n", 242 " 3 index exch lineto % S x1 y1 x0\n", 243 " 3 -1 roll 2 index lineto % S y1 x0\n", 244 " exch lineto % S\n", 245 " 0.95 setgray fill % S\n", 246 " restore}def\n", 247 "%%EndProlog\n", 248 NULL 249 }; 250 251 struct layout { 252 float scale; 253 int pages, page_rows, page_cols; 254 int rotation; 255 }; 256 static struct layout *layoutp; 257 static struct layout layout1 = { 1.000000, 1, 1, 1, 0 }; 258 static struct layout layout2 = { 0.666666, 2, 2, 1, 90 }; 259 static struct layout layout4 = { 0.500000, 4, 2, 2, 0 }; 260 static struct layout layout8 = { 0.333333, 8, 4, 2, 90 }; 261 262 static int box_width, box_height; 263 static int gap_width, gap_height; 264 static int margin_x, margin_y; 265 266 static struct position { 267 int base_x; 268 int base_y; 269 } positions[8]; 270 271 int 272 main(int argc, char **argv) 273 { 274 int ch, i, j, first_file; 275 char *pc; 276 FILE *infile; 277 278 if ((pc = strrchr(argv[0], '/')) != NULL) 279 progname = pc + 1; 280 else 281 progname = argv[0]; 282 283 lines_per_page = DEFAULT_LINES_PER_PAGE; 284 layoutp = &layout1; 285 tabstop = DEFAULT_TAB_SIZE; 286 current.page_count = 0; 287 ncopies = 1; 288 reverse = REVERSE_OFF; 289 290 /*LINTED*/ 291 if (iscodereview = strncmp(progname, CODEREVIEW, 292 sizeof (CODEREVIEW) - 1) == 0) { 293 layoutp = &layout2; 294 numberwidth = 4; 295 columns = 85; /* extra space for numbering */ 296 wflag = -1; 297 } 298 299 while ((ch = getopt(argc, argv, 300 "1248B:c:deG:h:I:l:Ln:P:prt:vw:X:y:")) != -1) { 301 switch (ch) { 302 case '1': 303 layoutp = &layout1; 304 break; 305 case '2': 306 layoutp = &layout2; 307 break; 308 case '4': 309 layoutp = &layout4; 310 break; 311 case '8': 312 layoutp = &layout8; 313 break; 314 case 'B': 315 boldlength = strlen(optarg); 316 boldstring = malloc((size_t)(boldlength + 1)); 317 (void) strcpy(boldstring, optarg); 318 break; 319 case 'c': 320 ncopies = atof(optarg); 321 if (ncopies <= 0) { 322 fatal("number of copies must be > 0"); 323 /*NOTREACHED*/ 324 } 325 break; 326 case 'd': 327 dflag = 1; 328 break; 329 case 'e': 330 elide = 1; 331 break; 332 case 'G': 333 graylength = strlen(optarg); 334 graystring = malloc((size_t)(graylength + 1)); 335 (void) strcpy(graystring, optarg); 336 break; 337 case 'h': 338 header = HEADER_EXPLICIT; 339 i = strlen(optarg); 340 headerstring = malloc((size_t)(i + 1)); 341 (void) strcpy(headerstring, optarg); 342 if (strcmp(headerstring, "-") == 0) 343 header = HEADER_IMPLICIT; 344 break; 345 case 'I': 346 itlclength = strlen(optarg); 347 itlcstring = malloc((size_t)(itlclength + 1)); 348 (void) strcpy(itlcstring, optarg); 349 break; 350 case 'l': 351 lines_per_page = atoi(optarg); 352 if (lines_per_page < 1) { 353 fatal("invalid number of lines/page"); 354 /*NOTREACHED*/ 355 } 356 lflag = 1; 357 if (wflag > 0) { 358 fatal("can't have both -l and -w"); 359 /*NOTREACHED*/ 360 } 361 wflag = 0; 362 break; 363 case 'L': 364 landscape = 1; 365 break; 366 case 'm': 367 break; 368 case 'n': 369 numberwidth = atoi(optarg); 370 if (numberwidth < 2) { 371 fatal("invalid numbering width"); 372 /*NOTREACHED*/ 373 } 374 break; 375 case 'P': 376 prologue = optarg; 377 break; 378 case 'p': 379 pflag = 1; 380 break; 381 case 'r': 382 reverse = !reverse; 383 break; 384 case 't': 385 tabstop = atoi(optarg); 386 if (tabstop < 1) { 387 fatal("negative tabstop"); 388 /*NOTREACHED*/ 389 } 390 break; 391 case 'v': 392 vflag = 1; 393 break; 394 case 'w': 395 columns = atoi(optarg); 396 if (columns < 1) { 397 fatal("invalid number of columns"); 398 /*NOTREACHED*/ 399 } 400 wflag = 1; 401 if (lflag) { 402 fatal("can't have both -l and -w"); 403 /*NOTREACHED*/ 404 } 405 break; 406 case 'X': 407 bitclength = strlen(optarg); 408 bitcstring = malloc((size_t)(bitclength + 1)); 409 (void) strcpy(bitcstring, optarg); 410 break; 411 case 'y': 412 comment = optarg; 413 break; 414 default: 415 (void) fprintf(stderr, 416 "usage: %s %s\n\t%s\n\t%s\n\t%s\n", 417 iscodereview ? LWLP : progname, 418 USAGE1, USAGE2, USAGE3, USAGE4); 419 if (iscodereview) 420 (void) fprintf(stderr, "\t%s [%s flags] %s\n", 421 CODEREVIEW, LWLP, USAGE6); 422 exit(1); 423 } 424 } 425 426 if (elide && !iscodereview) { 427 fatal("-e option valid only with codereview"); 428 /*NOTREACHED*/ 429 } 430 usetmp = reverse || elide; 431 /* allocate page_map if we need one */ 432 if (reverse) { 433 page_map = malloc((size_t)(MAXPAGES * sizeof (long *))); 434 if (page_map == NULL) { 435 fatal("unable to allocate memory for page reversal"); 436 /*NOTREACHED*/ 437 } 438 } 439 440 /* 441 * Check that all files are readable 442 * This is so that no output at all is produced if any file is not 443 * readable in case the output is being piped to a printer 444 */ 445 first_file = optind; 446 for (j = first_file; j < argc; j++) { 447 if (access(argv[j], R_OK) == -1 && !(iscodereview && 448 strcmp(argv[j], "-") == 0)) { 449 fatal("cannot access %s", argv[j]); 450 /*NOTREACHED*/ 451 } 452 } 453 if (iscodereview && (first_file + 2) != argc) { 454 fatal("codereview: need old and new file"); 455 /*NOTREACHED*/ 456 } 457 458 /* compute logical point size, logical dimensions */ 459 if (!landscape) { 460 rot_text = layoutp->rotation; 461 start_y = DEFAULT_PAGE_HEIGHT * POINTS_PER_INCH; 462 start_x = START_X; 463 end_x = DEFAULT_PAGE_WIDTH * POINTS_PER_INCH; 464 if (wflag) { 465 point_size = DEFAULT_PAGE_WIDTH * POINTS_PER_INCH / 466 ((columns + 0.5) * DEFAULT_CHAR_WIDTH); 467 lines_per_page = DEFAULT_PAGE_HEIGHT * POINTS_PER_INCH / 468 point_size; 469 } else { 470 point_size = DEFAULT_PAGE_HEIGHT * POINTS_PER_INCH / 471 (lines_per_page + 0.5); 472 columns = DEFAULT_PAGE_WIDTH * POINTS_PER_INCH / 473 (point_size * DEFAULT_CHAR_WIDTH); 474 } 475 } else { 476 rot_text = 90 - layoutp->rotation; 477 start_y = DEFAULT_PAGE_WIDTH * POINTS_PER_INCH; 478 start_x = START_X; 479 end_x = DEFAULT_PAGE_HEIGHT * POINTS_PER_INCH; 480 if (wflag) { 481 point_size = DEFAULT_PAGE_HEIGHT * POINTS_PER_INCH / 482 ((columns + 0.5) * DEFAULT_CHAR_WIDTH); 483 lines_per_page = DEFAULT_PAGE_WIDTH * POINTS_PER_INCH / 484 point_size; 485 } else { 486 point_size = DEFAULT_PAGE_WIDTH * POINTS_PER_INCH / 487 (lines_per_page + 0.5); 488 columns = DEFAULT_PAGE_HEIGHT * POINTS_PER_INCH / 489 (point_size * DEFAULT_CHAR_WIDTH); 490 } 491 } 492 493 box_height = DEFAULT_PAGE_HEIGHT * POINTS_PER_INCH / layoutp->page_rows; 494 if (layoutp->rotation == 0) 495 box_width = box_height / 496 DEFAULT_PAGE_HEIGHT * DEFAULT_PAGE_WIDTH; 497 else 498 box_width = box_height * 499 DEFAULT_PAGE_HEIGHT / DEFAULT_PAGE_WIDTH; 500 gap_width = DEFAULT_PAPER_WIDTH * POINTS_PER_INCH / 501 layoutp->page_cols - box_width; 502 gap_height = DEFAULT_PAPER_HEIGHT * POINTS_PER_INCH / 503 layoutp->page_rows - box_height; 504 margin_x = gap_width/2; 505 margin_y = gap_height/2; 506 507 columns -= numberwidth + DEFAULT_SPACES_AFTER_NUMBER; 508 if (columns <= 0) { 509 fatal("numbering width exceeds number of columns"); 510 /* NOT REACHED */ 511 } 512 /* compute physical "lower left corner" of each logical page */ 513 for (j = 0; j < layoutp->pages; j++) { 514 int phys_row; /* 0 is bottom row */ 515 int phys_col; /* 0 is left column */ 516 517 if (landscape == (rot_text == 0)) { 518 /* logical pages run physically up and down */ 519 phys_row = j % layoutp->page_rows; 520 phys_col = j / layoutp->page_rows; 521 } else { 522 /* logical pages run physically left to right */ 523 phys_row = j / layoutp->page_cols; 524 phys_col = j % layoutp->page_cols; 525 } 526 if (rot_text == 0) { 527 /* top physical row is logically first */ 528 phys_row = layoutp->page_rows - 1 - phys_row; 529 } 530 531 positions[j].base_x = margin_x + 532 phys_col * (box_width + gap_width); 533 positions[j].base_y = margin_y + 534 phys_row * (box_height + gap_height); 535 if (rot_text != 0) { 536 positions[j].base_x += box_width; 537 } 538 } 539 540 if (vflag) { 541 (void) fprintf(stderr, "%s:\n\n", progname); 542 (void) fprintf(stderr, "Lines/page = %d\n", lines_per_page); 543 (void) fprintf(stderr, "Columns = %d\n", columns); 544 for (j = 0; j < layoutp->pages; j++) { 545 (void) fprintf(stderr, "\tx=%3d, y=%3d\n", 546 positions[j].base_x, positions[j].base_y); 547 } 548 (void) fprintf(stderr, "box_width=%3d, box_height=%3d\n", 549 box_width, box_height); 550 (void) fprintf(stderr, "gap_width=%3d, gap_height=%3d\n", 551 gap_width, gap_height); 552 } 553 554 setup(); 555 preamble(); 556 557 if (iscodereview) { 558 char command[BUFSIZ]; 559 560 (void) snprintf(command, BUFSIZ, "diff -b -D %s %s %s", 561 CODEREVIEW, argv[first_file+1], argv[first_file]); 562 infile = popen(command, "r"); 563 bannerfile = argv[first_file+1]; 564 if (ungetc(getc(infile), infile) == EOF) { 565 (void) pclose(infile); 566 (void) sprintf(command, 567 "echo No differences encountered"); 568 infile = popen(command, "r"); 569 } 570 setheaderfile(bannerfile); 571 printfile(infile); 572 (void) pclose(infile); 573 } else if (first_file == argc) { /* no files on command line */ 574 if (vflag) 575 (void) fprintf(stderr, "\tprinting stdin\n"); 576 setheaderfile("stdin"); 577 printfile(stdin); 578 } else { 579 for (i = first_file; i < argc; i++) { 580 if ((infile = fopen(argv[i], "r")) == (FILE *)NULL) { 581 fatal("can't open %s for reading", argv[i]); 582 /*NOTREACHED*/ 583 } 584 if (pflag) { 585 char cmdbuf[BUFSIZ]; 586 (void) snprintf(cmdbuf, BUFSIZ, "pr %s", 587 argv[i]); 588 (void) fclose(infile); 589 infile = popen(cmdbuf, "r"); 590 } 591 if (vflag) 592 (void) fprintf(stderr, "\tprinting %s\n", 593 argv[i]); 594 setheaderfile(argv[i]); 595 printfile(infile); 596 if (pflag) 597 (void) pclose(infile); 598 else 599 (void) fclose(infile); 600 } 601 } 602 603 postamble(); 604 605 if (fflush(stdout) == EOF) { 606 fatal("write error on stdout"); 607 /*NOTREACHED*/ 608 } 609 exit(0); 610 /*NOTREACHED*/ 611 /*LINTED*/ 612 } 613 614 /* 615 * Initial lines sent to the LaserWriter 616 * Generates the PostScript header and includes the prologue file 617 * There is limited checking for I/O errors here 618 */ 619 void 620 preamble(void) 621 { 622 (void) printf("%%!PS-Adobe-2.0\n"); 623 (void) printf("%%%%Creator: %s on %s\n", progname, hostname); 624 (void) printf("%%%%CreationDate: %s\n", currentdate); 625 (void) printf("%%%%For: %s\n", username); 626 (void) printf("%%%%DocumentFonts: %s %s %s %s\n", 627 default_font, default_font_bold, 628 default_font_italic, default_font_bold_italic); 629 (void) printf("%%%%Pages: (atend)\n"); 630 631 if (prologue == NULL) { 632 char **cpp; 633 for (cpp = default_prologue; *cpp; cpp++) { 634 (void) fputs(*cpp, stdout); 635 } 636 } else { 637 FILE *fp; 638 if ((fp = fopen(prologue, "r")) == NULL) { 639 fatal("can't open prologue file %s", prologue); 640 /*NOTREACHED*/ 641 } 642 while (fgets(bufin, sizeof (bufin), fp) != NULL) 643 (void) fputs(bufin, stdout); 644 (void) fclose(fp); 645 } 646 if (ferror(stdout) || fflush(stdout) == EOF) { 647 fatal("write error on stdout"); 648 /*NOTREACHED*/ 649 } 650 651 (void) printf("/%s {%f /%s %s}bind def\n", DEFAULT_FONT, 652 point_size, default_font, SELECT_FONT); 653 (void) printf("/%s {%f /%s %s}bind def\n", DEFAULT_FONT_BOLD, 654 point_size, default_font_bold, SELECT_FONT); 655 (void) printf("/%s {%f /%s %s}bind def\n", DEFAULT_FONT_ITALIC, 656 point_size, default_font_italic, SELECT_FONT); 657 (void) printf("/%s {%f /%s %s}bind def\n", DEFAULT_FONT_BOLD_ITALIC, 658 point_size, default_font_bold_italic, SELECT_FONT); 659 } 660 661 void 662 postamble(void) 663 { 664 (void) printf("%%%%Trailer\n"); 665 (void) printf("%%%%Pages: %d\n", current.page_count); 666 } 667 668 int 669 printbanner(char *filename, FILE *outfile) 670 { 671 char buffer[BUFSIZ]; 672 struct stat statbuf; 673 struct format_state format_state; 674 int nlines = 0; 675 676 /* we've already verified readability */ 677 (void) stat(filename, &statbuf); 678 679 save_format_state(&format_state); 680 numberwidth = 0; 681 682 setcurrentfont(DEFAULT_FONT_BOLD_ITALIC, outfile); 683 684 current.row -= point_size; 685 (void) fprintf(outfile, "%d %.2f %s\n", start_x, current.row, MOVETO); 686 proc(banner, outfile); 687 nlines++; 688 689 current.row -= point_size; 690 (void) fprintf(outfile, "%d %.2f %s\n", start_x, current.row, MOVETO); 691 (void) snprintf(buffer, BUFSIZ, "%8ld %.24s", statbuf.st_size, 692 ctime(&statbuf.st_mtime)); 693 proc(buffer, outfile); 694 nlines++; 695 696 do { 697 current.row -= point_size; 698 (void) fprintf(outfile, "%d %.2f %s\n", start_x, current.row, 699 MOVETO); 700 filename += sprintf(buffer, "%.*s", columns, filename); 701 proc(buffer, outfile); 702 nlines++; 703 } while (strlen(filename) != 0); 704 705 if (comment != NULL && comment[0] != 0) { 706 const char *cur = comment; 707 const char *endl; 708 int len; 709 710 while (*cur != 0) { 711 current.row -= point_size; 712 (void) fprintf(outfile, "%d %.2f %s\n", start_x, 713 current.row, MOVETO); 714 715 endl = strchr(cur, '\n'); 716 if (endl == NULL) 717 endl = cur + strlen(cur); 718 719 /* truncate to columns */ 720 len = endl - cur; 721 if (len > columns) 722 len = columns; 723 (void) sprintf(buffer, "%.*s", len, cur); 724 proc(buffer, outfile); 725 nlines++; 726 727 if (*endl == 0) 728 break; 729 cur = endl + 1; 730 } 731 } 732 733 current.row -= point_size; 734 (void) fprintf(outfile, "%d %.2f %s\n", start_x, current.row, MOVETO); 735 proc(banner, outfile); 736 nlines++; 737 738 restore_format_state(&format_state, outfile); 739 return (nlines); 740 } 741 742 void 743 setcurrentfont(char *newfont, FILE *outfile) 744 { 745 if (current.font != newfont) { 746 if (newfont) 747 current.font = newfont; 748 (void) fprintf(outfile, "%s\n", current.font); 749 } 750 } 751 752 void 753 savestate(FILE *f) 754 { 755 current.offset = ftell(f); 756 saved = current; 757 } 758 759 void 760 restorestate(FILE *f) 761 { 762 char *font; 763 764 font = current.font; 765 (void) fseek(f, saved.offset, 0); 766 current = saved; 767 setcurrentfont(font, f); 768 } 769 770 void 771 save_format_state(struct format_state *fs) 772 { 773 fs->numberwidth = numberwidth; 774 fs->linenumber = linenumber; 775 fs->altlinenumber = altlinenumber; 776 fs->makegray = makegray; 777 fs->font = current.font; 778 } 779 780 void 781 restore_format_state(struct format_state *fs, FILE *outfile) 782 { 783 numberwidth = fs->numberwidth; 784 linenumber = fs->linenumber; 785 altlinenumber = fs->altlinenumber; 786 makegray = fs->makegray; 787 setcurrentfont(fs->font, outfile); 788 } 789 790 /* 791 * Print a file 792 * 793 * The input stream may be stdin, a file, or a pipe 794 */ 795 void 796 printfile(FILE *infile) 797 { 798 int eof; 799 char *p; 800 FILE *outfile; 801 802 if (reverse) 803 page_map[0] = 0L; 804 if (usetmp) { 805 (void) snprintf(bufin, BUFIN, "/tmp/%sXXXXXX", progname); 806 p = mktemp(bufin); 807 if ((outfile = fopen(p, "w+")) == NULL) { 808 fatal("can't open temporary file %s", p); 809 /* NOTREACHED */ 810 } 811 if (!dflag) 812 (void) unlink(p); 813 else 814 (void) fprintf(stderr, "will not unlink %s\n", p); 815 } 816 else 817 outfile = stdout; 818 819 setcurrentfont(DEFAULT_FONT, outfile); 820 change_seen = 0; 821 dots_inserted = 0; 822 in_change = 0; 823 makegray = 0; 824 linenumber = 0; 825 altlinenumber = 0; 826 current.logical_page_count = 0; 827 do { 828 current.row = start_y; 829 eof = printpage(infile, outfile); 830 } while (!eof); 831 832 if (((int)current.row) != start_y) 833 endpage(outfile); 834 if ((current.logical_page_count % layoutp->pages) != 0) 835 flushpage(outfile); 836 if (vflag) 837 (void) fprintf(stderr, "\n"); 838 if (fflush(outfile) == EOF) { 839 fatal("write error while flushing output"); 840 /*NOTREACHED*/ 841 } 842 if (usetmp) { 843 if (reverse) 844 reversepages(outfile); 845 else 846 copypage(outfile, 0L, current.offset); 847 (void) fclose(outfile); 848 } 849 } 850 851 void 852 process_elide(FILE *outfile) 853 { 854 if (!change_seen && !in_change) { 855 /* don't include function in output */ 856 restorestate(outfile); 857 if (!dots_inserted) { 858 struct format_state format_state; 859 860 save_format_state(&format_state); 861 numberwidth = 0; 862 current.lineno++; 863 current.row -= point_size; 864 setcurrentfont(DEFAULT_FONT_BOLD_ITALIC, outfile); 865 proc("______unchanged_portion_omitted_", outfile); 866 restore_format_state(&format_state, outfile); 867 savestate(outfile); 868 dots_inserted = 1; 869 } 870 } else { 871 savestate(outfile); 872 change_seen = in_change; 873 dots_inserted = 0; 874 } 875 } 876 877 /* 878 * Process the next page 879 * Return 1 on EOF, 0 otherwise 880 */ 881 int 882 printpage(FILE *infile, FILE *outfile) 883 { 884 int tmplinenumber; 885 char command[BUFSIZ], flag[BUFSIZ]; 886 887 if (ungetc(getc(infile), infile) == EOF) 888 return (1); 889 890 current.lineno = 0; 891 current.lineno += startpage(outfile); 892 if (bannerfile) { 893 current.lineno += printbanner(bannerfile, outfile); 894 bannerfile = NULL; 895 savestate(outfile); 896 } 897 for (; current.lineno < lines_per_page; ) { 898 if (fgetline(bufin, sizeof (bufin), infile) == (char *)NULL) { 899 if (elide) 900 process_elide(outfile); 901 return (1); 902 } 903 /* 904 * Allow C comment delimiters around flag; only really applies 905 * to #else and #endif, but we don't expect to see C comments 906 * around flag for #if. Also accept flag with no C comment 907 * delimiters. 908 */ 909 if (iscodereview && 910 (sscanf(bufin, "#%32s /* %80s */", command, flag) == 2 || 911 sscanf(bufin, "#%32s %80s", command, flag) == 2) && 912 strcmp(flag, CODEREVIEW) == 0) { 913 if (strcmp(command, "ifdef") == 0) { 914 change_seen = 1; 915 in_change = 1; 916 makegray = 1; 917 old_stuff = 1; 918 tmplinenumber = linenumber; 919 linenumber = altlinenumber; 920 altlinenumber = tmplinenumber; 921 setcurrentfont(DEFAULT_FONT_ITALIC, outfile); 922 } else if (strcmp(command, "ifndef") == 0) { 923 change_seen = 1; 924 in_change = 1; 925 makegray = 1; 926 old_stuff = 0; 927 setcurrentfont(DEFAULT_FONT_BOLD, outfile); 928 } else if (strcmp(command, "else") == 0) { 929 makegray = 1; 930 old_stuff = !old_stuff; 931 tmplinenumber = linenumber; 932 linenumber = altlinenumber; 933 altlinenumber = tmplinenumber; 934 if (!old_stuff) 935 setcurrentfont(DEFAULT_FONT_BOLD, 936 outfile); 937 else 938 setcurrentfont(DEFAULT_FONT_ITALIC, 939 outfile); 940 } else /* if (strcmp(command, "endif") == 0) */ { 941 in_change = 0; 942 makegray = 0; 943 savestate(outfile); 944 setcurrentfont(DEFAULT_FONT, outfile); 945 if (old_stuff) { 946 tmplinenumber = linenumber; 947 linenumber = altlinenumber; 948 altlinenumber = tmplinenumber; 949 } 950 } 951 continue; 952 } 953 current.lineno++; 954 current.row -= point_size; 955 if (bufin[0] == '\f') 956 break; 957 proc(bufin, outfile); 958 if (elide && (bufin[0] == END_C_FUNCTION || 959 (strstr(bufin, END_ASM_FUNCTION) != NULL))) 960 process_elide(outfile); 961 } 962 endpage(outfile); 963 return (0); 964 } 965 966 /* 967 * Start a new page 968 */ 969 int 970 startpage(FILE *outfile) 971 { 972 int logical_page, lines, buflen; 973 struct format_state format_state; 974 char buf[8]; 975 976 logical_page = current.logical_page_count % layoutp->pages; 977 978 if (logical_page == 0) 979 setuppage(outfile); 980 else 981 setcurrentfont((char *)NULL, outfile); 982 (void) fprintf(outfile, "%s ", SET_WIDTHS); 983 (void) fprintf(outfile, "%d %f %d %d %s\n", 984 rot_text, layoutp->scale, positions[logical_page].base_x, 985 positions[logical_page].base_y, START_PAGE); 986 lines = 0; 987 if (header) { 988 save_format_state(&format_state); 989 setcurrentfont(DEFAULT_FONT_BOLD, outfile); 990 numberwidth = 0; 991 makegray = 0; 992 993 current.row -= point_size; 994 (void) fprintf(outfile, "%d %.2f %s\n", start_x, current.row, 995 MOVETO); 996 proc(headerstring, outfile); 997 (void) snprintf(buf, 8, "%d", current.logical_page_count + 1); 998 buflen = strlen(buf); 999 (void) fprintf(outfile, "%d %.2f %s (%s)%s\n", 1000 (int)(end_x - (buflen + 0.5) * 1001 DEFAULT_CHAR_WIDTH * point_size), 1002 current.row, MOVETO, buf, SHOW); 1003 current.row -= point_size; 1004 restore_format_state(&format_state, outfile); 1005 lines = 2; 1006 } 1007 return (lines); 1008 } 1009 1010 void 1011 setheaderfile(char *filename) 1012 { 1013 if (header == HEADER_IMPLICIT) 1014 headerstring = filename; 1015 } 1016 1017 /* 1018 * Setup page 1019 */ 1020 void 1021 setuppage(FILE *outfile) 1022 { 1023 int i, ilimit; 1024 int begin, end, place; 1025 1026 (void) fprintf(outfile, "%%%%Page: ? %d\n", current.page_count + 1); 1027 setcurrentfont((char *)NULL, outfile); 1028 if (layoutp->pages == 1) 1029 return; 1030 1031 (void) fprintf(outfile, "%f %s %s\n", RULE_WIDTH, SETLINEWIDTH, 1032 NEWPATH); 1033 begin = 0; end = DEFAULT_PAPER_WIDTH * POINTS_PER_INCH; 1034 for (i = 1, ilimit = layoutp->page_rows; i < ilimit; i++) { 1035 place = margin_y - gap_height/2 + i * (box_height+gap_height); 1036 (void) fprintf(outfile, "%d %d %s ", begin, place, MOVETO); 1037 (void) fprintf(outfile, "%d %d %s\n", end, place, LINETO); 1038 } 1039 begin = 0; end = DEFAULT_PAPER_HEIGHT * POINTS_PER_INCH; 1040 for (i = 1, ilimit = layoutp->page_cols; i < ilimit; i++) { 1041 place = margin_x - gap_width/2 + i * (box_width+gap_width); 1042 (void) fprintf(outfile, "%d %d %s ", place, begin, MOVETO); 1043 (void) fprintf(outfile, "%d %d %s\n", place, end, LINETO); 1044 } 1045 (void) fprintf(outfile, "%s\n", STROKE); 1046 } 1047 1048 /* 1049 * Terminate the logical page and indicate the start of the next 1050 */ 1051 void 1052 endpage(FILE *outfile) 1053 { 1054 (void) fprintf(outfile, "%s\n", END_PAGE); 1055 current.logical_page_count++; 1056 if (vflag) 1057 (void) fprintf(stderr, "x"); 1058 if ((current.logical_page_count % layoutp->pages) == 0) 1059 flushpage(outfile); 1060 } 1061 1062 /* 1063 * Flush the physical page 1064 * Record the start of the next page 1065 */ 1066 void 1067 flushpage(FILE *outfile) 1068 { 1069 (void) fprintf(outfile, "%d %s\n", ncopies, FLUSH_PAGE); 1070 current.page_count++; 1071 current.offset = ftell(outfile); 1072 if (reverse) { 1073 if (current.page_count >= MAXPAGES) { 1074 fatal("page reversal limit (%d) reached", MAXPAGES); 1075 /* NOTREACHED */ 1076 } 1077 page_map[current.page_count] = current.offset; 1078 } 1079 if (vflag) 1080 (void) fprintf(stderr, "|"); 1081 } 1082 1083 /* 1084 * reverse the order of pages 1085 */ 1086 void 1087 reversepages(FILE *outfile) 1088 { 1089 int i; 1090 1091 if (vflag) 1092 (void) fprintf(stderr, "\nreversing %d page%s\n", 1093 current.page_count, current.page_count > 1 ? "s" : ""); 1094 for (i = current.page_count - 1; i >= 0; i--) { 1095 copypage(outfile, page_map[i], page_map[i+1]); 1096 } 1097 } 1098 1099 /* 1100 * copy a page (or more) from tempfile to stdout 1101 */ 1102 void 1103 copypage(FILE *outfile, long off_beg, long off_end) 1104 { 1105 int bytecount, nbytes; 1106 1107 if (fseek(outfile, off_beg, 0) == -1L) { 1108 fatal("temporary file seek error"); 1109 /* NOTREACHED */ 1110 } 1111 nbytes = off_end - off_beg; 1112 while (nbytes > 0) { 1113 bytecount = nbytes; 1114 if (bytecount > sizeof (bufout)) 1115 bytecount = sizeof (bufout); 1116 bytecount = fread(bufout, 1, bytecount, outfile); 1117 if (bytecount <= 0) { 1118 fatal("temporary file read error"); 1119 /* NOTREACHED */ 1120 } 1121 if (fwrite(bufout, 1, bytecount, stdout) != bytecount) { 1122 fatal("write error during page copy"); 1123 /* NOTREACHED */ 1124 } 1125 nbytes -= bytecount; 1126 } 1127 } 1128 1129 /* 1130 * Process a line of input, escaping characters when necessary and handling 1131 * tabs 1132 * 1133 * The output is improved somewhat by coalescing consecutive tabs and 1134 * backspaces and eliminating tabs at the end of a line 1135 * 1136 * Overprinting (presumably most often used in underlining) can be far from 1137 * optimal; in particular the way nroff underlines by sequences like 1138 * "_\ba_\bb_\bc" creates a large volume of PostScript. This isn't too 1139 * serious since a lot of nroff underlining is unlikely. 1140 * 1141 * Since a newline is generated for each call there will be more 1142 * newlines in the output than is necessary 1143 */ 1144 void 1145 proc(char *in, FILE *outfile) 1146 { 1147 int i; 1148 char *last, *p, *q; 1149 int currentp, instr, tabc, tabto, grayed; 1150 char *altfont; 1151 1152 currentp = 0; 1153 instr = 0; 1154 tabto = 0; 1155 if (iscodereview) { 1156 grayed = makegray; 1157 altfont = current.font; 1158 } else { 1159 grayed = 0; 1160 altfont = DEFAULT_FONT; 1161 } 1162 /* subtract slop factor */ 1163 last = bufout + MAX_OUTPUT_LINE_LENGTH - 20; 1164 for (;;) { /* check for any special line treatment */ 1165 if (graylength && strncmp(in, graystring, graylength) == 0) { 1166 grayed++; 1167 in += graylength; 1168 } else if (boldlength && 1169 strncmp(in, boldstring, boldlength) == 0) { 1170 altfont = DEFAULT_FONT_BOLD; 1171 in += boldlength; 1172 } else if (itlclength && 1173 strncmp(in, itlcstring, itlclength) == 0) { 1174 altfont = DEFAULT_FONT_ITALIC; 1175 in += itlclength; 1176 } else if (bitclength && 1177 strncmp(in, bitcstring, bitclength) == 0) { 1178 altfont = DEFAULT_FONT_BOLD_ITALIC; 1179 in += bitclength; 1180 } else 1181 break; 1182 } 1183 if (grayed) { 1184 (void) fprintf(outfile, "%d %.2f %d %.2f %s\n", 1185 start_x, 1186 current.row - DEFAULT_DESCENDER_FRACTION * point_size, 1187 end_x, 1188 current.row + 1189 (1.0 - DEFAULT_DESCENDER_FRACTION) * point_size, 1190 SHADE); 1191 } 1192 1193 linenumber++; 1194 if (!in_change) 1195 altlinenumber++; 1196 if (*in == '\0') 1197 return; 1198 1199 if (start_x != 0) { 1200 (void) fprintf(outfile, "%d %.2f %s\n", 1201 start_x, current.row, MOVETO); 1202 } 1203 else 1204 (void) fprintf(outfile, "%.2f %s\n", 1205 current.row, ZEROMOVETO); 1206 if (numberwidth) { 1207 setcurrentfont(DEFAULT_FONT, outfile); 1208 (void) sprintf(bufout, "%*d", numberwidth, linenumber); 1209 for (q = bufout, i = 0; *q == ' '; q++, i++) 1210 ; 1211 (void) fprintf(outfile, "%d %s (%s)%s %d %s ", 1212 i, TAB, q, SHOW, DEFAULT_SPACES_AFTER_NUMBER, TAB); 1213 } 1214 setcurrentfont(altfont, outfile); 1215 1216 q = bufout; 1217 *q = '\0'; 1218 for (p = in; *p != '\0'; p++) { 1219 switch (*p) { 1220 case '\t': 1221 /* 1222 * Count the number of tabs that immediately follow 1223 * the one we're looking at 1224 */ 1225 tabc = 0; 1226 while (*(p + 1) == '\t') { 1227 p++; 1228 tabc++; 1229 } 1230 if (currentp > 0) { /* not beginning of line */ 1231 i = tabstop - (currentp % tabstop) + 1232 tabc * tabstop; 1233 if (instr) { 1234 (void) snprintf(q, 1235 BUFOUT - (q - bufout), ")%s ", 1236 SHOW); 1237 q += strlen(q); 1238 instr = 0; 1239 } 1240 } 1241 else 1242 i = (tabc + 1) * tabstop; 1243 tabto += i; 1244 currentp += i; 1245 break; 1246 case '\b': 1247 /* backspacing over tabs doesn't work... */ 1248 if (tabto != 0) { 1249 fatal("attempt to backspace over a tab"); 1250 /*NOTREACHED*/ 1251 } 1252 p++; 1253 for (i = 1; *p == '\b'; p++) 1254 i++; 1255 p--; 1256 if (currentp - i < 0) { 1257 fatal("too many backspaces"); 1258 /*NOTREACHED*/ 1259 } 1260 if (instr) { 1261 *q = '\0'; 1262 (void) fprintf(outfile, "%s)%s\n", 1263 bufout, SHOW); 1264 } 1265 instr = 0; 1266 if (currentp >= columns) 1267 i -= currentp-columns; 1268 if (i <= 0) { 1269 /* backspace in truncated line */ 1270 bufout[0] = '\0'; 1271 } else if (i == 1) { 1272 /* frequent case gets special attention */ 1273 (void) snprintf(bufout, BUFOUT, "%s ", 1274 BACKSPACE); 1275 } else 1276 (void) snprintf(bufout, BUFOUT, "-%d %s ", i, 1277 TAB); 1278 q = bufout + strlen(bufout); 1279 currentp -= i; 1280 break; 1281 case '\f': 1282 tabto = 0; /* optimizes */ 1283 *q = '\0'; 1284 if (instr) 1285 (void) fprintf(outfile, "%s)%s\n", 1286 bufout, SHOW); 1287 else 1288 (void) fprintf(outfile, "%s\n", bufout); 1289 endpage(outfile); 1290 (void) startpage(outfile); 1291 current.row = start_y; 1292 (void) fprintf(outfile, "%d %.2f %s\n", 1293 start_x, current.row, MOVETO); 1294 if (numberwidth) 1295 (void) fprintf(outfile, "%d %s\n", numberwidth + 1296 DEFAULT_SPACES_AFTER_NUMBER, TAB); 1297 q = bufout; 1298 currentp = 0; 1299 instr = 0; 1300 break; 1301 case '\r': 1302 tabto = 0; /* optimizes */ 1303 if (instr) { 1304 *q = '\0'; 1305 (void) fprintf(outfile, "%s)%s\n", 1306 bufout, SHOW); 1307 instr = 0; 1308 q = bufout; 1309 } 1310 (void) fprintf(outfile, "%d %.2f %s\n", 1311 start_x, current.row, MOVETO); 1312 if (numberwidth) 1313 (void) fprintf(outfile, "%d %s\n", numberwidth + 1314 DEFAULT_SPACES_AFTER_NUMBER, TAB); 1315 currentp = 0; 1316 break; 1317 case '\\': 1318 case '(': 1319 case ')': 1320 if (currentp < columns) { 1321 if (!instr) { 1322 if (tabto) { 1323 (void) snprintf(q, 1324 BUFOUT - (q - bufout), 1325 "%d %s ", tabto, TAB); 1326 q += strlen(q); 1327 tabto = 0; 1328 } 1329 *q++ = '('; 1330 instr = 1; 1331 } 1332 *q++ = '\\'; 1333 *q++ = *p; 1334 } 1335 currentp++; 1336 break; 1337 default: { 1338 /* 1339 * According to the PostScript Language Manual, 1340 * PostScript files can contain only "the printable 1341 * subset of the ASCII character set (plus the 1342 * newline marker)". 1343 */ 1344 char pchar; 1345 1346 pchar = *p; 1347 if (currentp < columns) { 1348 if (!instr) { 1349 if (tabto) { 1350 (void) snprintf(q, 1351 BUFOUT - (q - bufout), 1352 "%d %s ", tabto, TAB); 1353 q += strlen(q); 1354 tabto = 0; 1355 } 1356 *q++ = '('; 1357 instr = 1; 1358 } 1359 if (!isascii(pchar) || !isprint(pchar)) { 1360 if (iscntrl(pchar)) { 1361 if (pchar == '\177') 1362 pchar = '_'; 1363 else 1364 pchar += '@'; 1365 *q++ = '^'; 1366 } else { 1367 *q++ = '\\'; 1368 *q++ = '0' + ((pchar>>6) & 7); 1369 *q++ = '0' + ((pchar>>3) & 7); 1370 pchar = '0' + (pchar & 7); 1371 } 1372 } 1373 *q++ = pchar; 1374 } 1375 currentp++; 1376 break; 1377 } 1378 } 1379 if (q >= last) { 1380 *q = '\0'; 1381 if (instr) 1382 (void) fprintf(outfile, "%s)%s\n", bufout, 1383 SHOW); 1384 else 1385 (void) fprintf(outfile, "%s\n", bufout); 1386 q = bufout; 1387 instr = 0; 1388 } 1389 } 1390 if (instr) { 1391 (void) snprintf(q, BUFOUT - (q - bufout), ")%s", SHOW); 1392 q += strlen(q); 1393 } 1394 else 1395 *q = '\0'; 1396 if (q >= last) { 1397 fatal("bufout overflow"); 1398 /*NOTREACHED*/ 1399 } 1400 if (bufout[0] != '\0') 1401 (void) fprintf(outfile, "%s\n", bufout); 1402 } 1403 1404 /* 1405 * Initialize globals: 1406 * username - login name of user 1407 * hostname - name of machine on which lwlp is run 1408 * currentdate - what it says 1409 * Possible system dependencies here... 1410 */ 1411 void 1412 setup(void) 1413 { 1414 int len; 1415 char *p; 1416 long t; 1417 struct utsname utsname; 1418 struct passwd *pw; 1419 1420 if ((p = getlogin()) == (char *)NULL) { 1421 if ((pw = getpwuid(getuid())) == (struct passwd *)NULL) 1422 p = "Whoknows"; 1423 else 1424 p = pw->pw_name; 1425 endpwent(); 1426 } 1427 username = strdup(p); 1428 1429 (void) uname(&utsname); 1430 hostname = strdup(utsname.nodename); 1431 1432 t = time((long *)0); 1433 p = ctime(&t); 1434 len = strlen(p); 1435 *(p + len - 1) = '\0'; /* zap the newline character */ 1436 currentdate = strdup(p); 1437 current.font = DEFAULT_FONT; 1438 } 1439 1440 /* 1441 * Special version of fgets 1442 * Read until a formfeed, newline, or overflow 1443 * If a formfeed is the first character, return it immediately 1444 * If a formfeed is found after the first character, replace it by a newline 1445 * and push the formfeed back onto the input stream 1446 * A special case is a formfeed followed by a newline in which case the 1447 * newline is ignored 1448 * The input buffer will be null-terminated and will *not* end with a newline 1449 * The buffer size n includes the null 1450 */ 1451 char * 1452 fgetline(char *s, int n, FILE *iop) 1453 { 1454 int ch; 1455 char *cs; 1456 1457 if (n < 2) { 1458 fatal("fgetline called with bad buffer size!?"); 1459 /*NOTREACHED*/ 1460 } 1461 1462 cs = s; 1463 n--; /* the null */ 1464 1465 /* 1466 * Check out the special cases 1467 */ 1468 if ((ch = getc(iop)) == EOF) 1469 return ((char *)NULL); 1470 if (ch == '\f') { 1471 if ((ch = getc(iop)) != '\n') { 1472 /* 1473 * If EOF was just read it will be noticed 1474 * next time through 1475 */ 1476 if (ungetc(ch, iop) == EOF && !feof(iop)) { 1477 /* 1478 * Shouldn't happen since a getc() 1479 * was just done 1480 */ 1481 fatal("fgetline - ungetc failed"); 1482 /*NOTREACHED*/ 1483 } 1484 } 1485 *cs++ = '\f'; 1486 *cs = '\0'; 1487 return (s); 1488 } 1489 1490 /* 1491 * Check for "weird" input characters is made in proc() 1492 */ 1493 while (n-- > 0) { 1494 if (ch == '\f' || ch == '\n') 1495 break; 1496 *cs++ = ch; 1497 if ((ch = getc(iop)) == EOF) 1498 break; 1499 } 1500 1501 if (ch == EOF && cs == s) /* Nothing was read */ 1502 return ((char *)NULL); 1503 if (ch == '\f') { 1504 if (ungetc(ch, iop) == EOF) 1505 (void) fprintf(stderr, "fgetline - can't ungetc??\n"); 1506 } else if (ch != '\n' && ch != EOF) { 1507 fatal("fgetline - input line too long"); 1508 /*NOTREACHED*/ 1509 } 1510 *cs = '\0'; 1511 return (s); 1512 } 1513 1514 /*PRINTFLIKE1*/ 1515 void 1516 fatal(char *fmt, ...) 1517 { 1518 va_list ap; 1519 1520 (void) fprintf(stderr, "%s: ", progname); 1521 va_start(ap, fmt); 1522 (void) vfprintf(stderr, fmt, ap); 1523 va_end(ap); 1524 (void) fprintf(stderr, "\n"); 1525 exit(1); 1526 /*NOTREACHED*/ 1527 } 1528