src/main.c

   1 /*
   2  * Source file:
   3  *      main.c
   4  *
   5  * Contains the main program body for trueprint.  The structure of the code
   6  * is very simple - main() initialises various things, using handle_options()
   7  * to read options and set up defaults.  Then it calls print_page() until
   8  * the end of input without printing anything (first pass) to get page numbers
   9  * & etc. for the indices.  The two indices are then printed, followed by
  10  * the second pass when the text is printed out by once again calling
  11  * print_page() until end of input.
  12  *
  13  * Exit codes:
  14  *      0       Normal exit
  15  *      1       Bad parameters
  16  *      2       Internal error or resource problem
  17  */
  18
  19 #include "config.h"
  20
  21 #ifdef MSWIN
  22 #include <sys/types.h>
  23 #include <sys/stat.h>
  24 #include <io.h>
  25 #endif
  26
  27 #include <ctype.h>
  28 #include <errno.h>
  29 #include <fcntl.h>
  30 #include <stdio.h>
  31 #include <stdlib.h>
  32 #include <string.h>
  33
  34 #if HAVE_FCNTL_H
  35 # include <fcntl.h>
  36 #endif
  37 #ifndef O_RDONLY
  38 # define O_RDONLY 0
  39 #endif
  40
  41 #include <time.h>
  42
  43 #if HAVE_UNISTD_H
  44 # include <unistd.h>
  45 #else
  46 int close(int fildes);
  47 int dup(int fildes);
  48 #endif
  49
  50 #include "trueprint.h"
  51 #include "options.h"
  52 #include "debug.h"
  53 #include "diffs.h"
  54 #include "index.h"
  55 #include "language.h"
  56 #include "postscript.h"
  57 #include "output.h"
  58 #include "openpipe.h"
  59 #include "printers_fl.h"
  60 #include "print_prompt.h"
  61 #include "input.h"
  62 #include "headers.h"
  63 #include "utils.h"
  64
  65 #include "main.h"
  66
  67 #define VERSION "5.4"
  68
  69 /******************************************************************************
  70  * Public part
  71  */
  72
  73 unsigned int    no_of_files;
  74 char            *current_filename;
  75 short           pass;
  76 unsigned int    file_number;
  77 long            total_pages;
  78 int             page_width;
  79 int             page_length;
  80 boolean         use_environment;
  81
  82 /*
  83  * Private variables
  84  */
  85 static boolean  no_print_body;
  86 static boolean  no_print_file_index;
  87 static boolean  no_print_function_index;
  88 static char     *destination;
  89 static char     *printer_destination;
  90 static short    no_of_copies;
  91 static char     **file_names;
  92 static char     *output_filename;
  93 static boolean  redirect_output;
  94
  95 /*
  96  * Functions
  97  */
  98 int     main(int, char**);
  99 static void setup_main(void);
 100 static void print_files(void);
 101 static void set_dest(const char *p, const char *o, char *value);
 102 static void set_dest_default(char *value);
 103 static void print_help(const char *p, const char *o, char *value);
 104 static void print_version(const char *p, const char *o);
 105
 106 #ifdef LOGTOOL
 107 static void write_log(void);
 108 #else
 109 #define write_log()
 110 #endif
 111
 112 /******************************************************************************
 113  * Function:
 114  *      main
 115  *
 116  * Analyse parameters,
 117  * Sort out font and page size,
 118  * perform first pass to sort out function names, etc.,
 119  * sort out output stream (either stdout or x9700|opr)
 120  * print the index pages,
 121  * perform second pass, printing out pages.
 122  */
 123 int main(int argc, char **argv)
 124
 125 {
 126   unsigned int          last_param_used;
 127   int                   pipe_handle = -1;
 128 #ifdef MSWIN
 129   FILE                  *pipe_fhandle = NULL;
 130 #endif
 131
 132   /*
 133    * Need to set this here as it is used by setup_printers_fl()
 134    */
 135   use_environment = TRUE;
 136
 137   /*
 138    * Set up various modules, including option declaration.
 139    * setup_options() must come first.
 140    */
 141   setup_options();
 142   setup_debug();
 143   setup_input();
 144   setup_diffs();
 145   setup_headers();
 146   setup_index();
 147   setup_language();
 148   setup_output();
 149   setup_postscript();
 150   setup_printers_fl();
 151   setup_print_prompter();
 152   setup_main();
 153
 154   /*
 155    * Handle command line options.
 156    */
 157   /*
 158    * use_environment is itself used when setting options, so
 159    * initialize it here.  The default is to use environment stuff,
 160    * so set it to 1 (true).
 161    */
 162   use_environment = 1;
 163
 164   /*
 165    * Note that the debug option will not be set before this line - the dm
 166    * function should not be called before this function call.
 167    */
 168   last_param_used = handle_options(argc, argv);
 169
 170   /*
 171    * Next check $TP_OPTS to see if the user has customised anything...
 172    */
 173   dm('o',1,"Looking at TP_OPTS options\n");
 174   handle_string_options(getenv("TP_OPTS"));
 175
 176   /*
 177    * Write the log file - this doesn't do anything if LOGTOOL
 178    * is not defined
 179    */
 180   write_log();
 181
 182   /*
 183    * Set file_names to the first unused parameter - all remaining
 184    * parameters are source file names.
 185    */
 186   dm('P',1,"Checking parameters\n");
 187   if (last_param_used < (unsigned int)argc)
 188     {
 189       file_names = &(argv[last_param_used]);
 190       no_of_files = (unsigned int)argc - last_param_used;
 191       dm('P',1,"Got %d file names\n", no_of_files);
 192     }
 193   else
 194     {
 195       /*
 196        * No file names - use a list with just "-" for stdin
 197        */
 198       static char *stdin_filenames[] =
 199       { "-", 0 };
 200       file_names = stdin_filenames;
 201       no_of_files = 1;
 202       dm('P',1,"No filenames - reading stdin\n");
 203     }
 204
 205   /*
 206    * End of the user options, so set the default options for
 207    * the language.
 208    * If language has been set then this will use it instead of filename.
 209    */
 210   dm('l',1,"Setting language for filename %s\n", file_names[0]);
 211   handle_string_options(language_defaults(file_names[0]));
 212
 213   /*
 214    * Now set up the other defaults that haven't been overridden yet.
 215    * DEFAULT_OPTS used to be the mechanism for setting defaults -
 216    * now (v3.7) it has been replaced by set_option_defaults(),
 217    * but DEFAULT_OPTS is kept in case somebody wants to override
 218    * the default defaults in trueprint.h.  Note that if --ignore-environment
 219    * is set then the defaults from DEFAULT_OPTS are ignored; otherwise
 220    * make check would fail if DEFAULT_OPTS is not empty.
 221    */
 222   dm('o',1,"Setting default options\n");
 223   if (use_environment)
 224     handle_string_options(DEFAULT_OPTS);
 225   set_option_defaults();
 226
 227   /*
 228    * And finally calculate the page dimensions.
 229    */
 230   PS_pagesize(destination, &page_width, &page_length);
 231   dm('O',1,"Page width is  %d, page length is %d\n", page_width, page_length);
 232
 233   /*
 234    * If redirect_output is set then calculate the output filename.
 235    * Do it now so we can catch the error condition that redirect-output
 236    * is being used with stdin.
 237    */
 238    if (redirect_output)
 239    {
 240       if (strcmp(file_names[0],"-") == 0)
 241         {
 242           fprintf(stderr, gettext(CMD_NAME ": cannot use redirect-output option with stdin\n"));
 243           exit(1);
 244         }
 245
 246       /* Grab a buffer long enough for filename plus .ps plus NULL */
 247       output_filename = xmalloc(strlen(file_names[0])+4);
 248       strcpy(output_filename,file_names[0]);
 249
 250       /* Add .ps to the filename */
 251       {
 252         char *suffix;
 253
 254         /* point suffix to the dot, if any, in the filename */
 255         suffix = strrchr(output_filename,'.');
 256
 257         /* If there is no . in filename then point suffix to the string end */
 258         if (suffix == NULL)
 259           {
 260             suffix = output_filename+strlen(output_filename);
 261           }
 262
 263         /* Now write .ps to the end of the string */
 264         *(suffix++) = '.';
 265         *(suffix++) = 'p';
 266         *(suffix++) = 's';
 267         *(suffix++) = '\0';
 268       }
 269
 270       dm('O',1,"main.c:main() Redirecting output to %s\n",output_filename);
 271     }
 272
 273   /*
 274    * Perform first pass to get function names and locations.
 275    */
 276   dm('p', 1, "Starting first pass\n");
 277
 278   pass = 0;
 279
 280   init_postscript();
 281
 282   print_files();
 283
 284   total_pages = page_number;
 285
 286   if (!got_some_input)
 287     {
 288       fprintf(stderr, gettext(CMD_NAME ": empty input, not submitting print job\n"));
 289       exit(1);
 290     }
 291
 292   dm('p', 1, "Starting second pass\n");
 293
 294   pass = 1;
 295
 296   init_postscript();
 297
 298   /*
 299    * Now set up output stream to print command.  Put the filehandle into
 300    * pipe_handle.
 301    */
 302
 303   if ((strlen(output_filename) > 0) && (strcmp(output_filename,"-") != 0))
 304     {
 305 #ifdef MSWIN
 306       pipe_handle = _creat(output_filename, _S_IREAD | _S_IWRITE );
 307 #else
 308       pipe_handle = creat(output_filename, 0666);
 309 #endif
 310       if (pipe_handle == -1)
 311         {
 312           fprintf(stderr, gettext(CMD_NAME ": cannot open %s for writing, %s\n"),
 313                   output_filename, strerror(errno));
 314           exit(1);
 315         }
 316
 317       /* now dup the pipe_handle into stdout so all stdout goes to the pipe */
 318 #ifdef MSWIN
 319       if (!((close(1) == 0) && (_dup(pipe_handle) == 1)))
 320         abort();
 321 #else
 322       if (!((close(1) == 0) && (dup(pipe_handle) == 1)))
 323         abort();
 324 #endif
 325
 326       dm('O',1,"Sending output to %s\n",output_filename);
 327     }
 328 #if defined(PRINT_CMD)
 329   else if (strcmp(output_filename,"-") == 0)
 330 #else
 331   else
 332 #endif
 333     {
 334       /*
 335        * In the case that the output filename is "-" or there isn't a print
 336        * command, leave stdout alone so that all output goes simply to stdout.
 337        */
 338     }
 339 #if defined(PRINT_CMD)
 340   else
 341     {
 342       char print_cmd_line[200];
 343       char *tp_print_cmd = getenv("TP_PRINT_CMD");
 344
 345       dm('P',1,"Setting up pipe for printer\n");
 346
 347       if ((tp_print_cmd != NULL) && (*tp_print_cmd != '\0'))
 348         {
 349           sprintf(print_cmd_line,"%s", getenv("TP_PRINT_CMD"));
 350         }
 351       else
 352         {
 353           sprintf(print_cmd_line,"%s %s %s%d", PRINT_CMD, printer_destination, PRINT_CMD_COUNT_FLAG, no_of_copies);
 354         }
 355
 356       dm('P',1,"Printer command is %s\n", print_cmd_line);
 357
 358 #ifdef MSWIN
 359       pipe_fhandle = _popen(print_cmd_line, "w");
 360       if (pipe_fhandle == NULL) abort();
 361
 362       /* now dup the pipe_handle into stdout so all stdout goes to the pipe */
 363       if (!((close(1) == 0) && (dup(_fileno(pipe_fhandle)) == 1)))
 364         abort();
 365 #else
 366       /* openpipe exits on failure, so don't bother to check return code */
 367       pipe_handle = openpipe(print_cmd_line, "w");
 368
 369       /* now dup the pipe_handle into stdout so all stdout goes to the pipe */
 370       if (!((close(1) == 0) && (dup(pipe_handle) == 1)))
 371         abort();
 372 #endif
 373     }
 374 #endif /* defined(PRINT_CMD) */
 375
 376   /*
 377    * Print out the Postscript header
 378    * If use_environment is not set, use an old version id
 379    */
 380   dm('P',1,"Print out postscript header\n");
 381   PS_header(use_environment?VERSION:"3.6.5", !no_print_body);
 382
 383   /*
 384    * These function calls do precisely what you think they do...
 385    */
 386   dm('i',1,"sort function names & print indices if necessary\n");
 387   sort_function_names();
 388
 389   if ((no_print_function_index == FALSE)
 390       && (print_prompt(PAGE_SPECIAL, 0, "function index") == TRUE))
 391     print_index();
 392
 393   if ((no_of_files > 1)
 394       && (no_print_file_index == FALSE)
 395       && (print_prompt(PAGE_SPECIAL, 0, "file index") == TRUE))
 396     print_out_file_index();
 397
 398   /*
 399    * Now perform second pass to print out listings.
 400    */
 401   if (no_print_body == FALSE)
 402     {
 403
 404       print_files();
 405     }
 406
 407   /*
 408    * Finish up the postscript output
 409    */
 410   PS_end_output();
 411
 412   fflush(stdout);
 413   close(1);
 414
 415 #ifdef MSWIN
 416   if (pipe_fhandle != NULL)
 417     _pclose(pipe_fhandle);
 418 #else
 419   if (pipe_handle != -1)
 420     closepipe(pipe_handle);
 421 #endif
 422
 423   return(0);
 424 }
 425
 426 /******************************************************************************
 427  * Function:
 428  *      print_files
 429  * Print files one at a time, opening the file and setting the stream
 430  * for the input routines.  Sets global variables current_filename
 431  * and file_number.
 432  */
 433 void
 434 print_files(void)
 435
 436 {
 437   int stream;
 438   static int stdin_stream = -1;
 439
 440   init_input();
 441   init_output();
 442
 443   for (file_number = 0; file_names[file_number]; file_number++)
 444     {
 445
 446       current_filename = file_names[file_number];
 447
 448       dm('p', 3, "Looking at file %s\n", current_filename);
 449
 450       if (strcmp(current_filename, "-") == 0)
 451         {
 452           if (pass == 0)
 453             {
 454               /*
 455                * Create a temporary file and copy stdin to it, then use it.
 456                * Note that we can only use stdin once.
 457                */
 458               char input_buffer[BUFFER_SIZE];
 459               int buffer_size;
 460
 461               if (stdin_stream != -1)
 462                 {
 463                   fprintf(stderr, gettext(CMD_NAME ": cannot specify stdin twice on command line\n"));
 464                   exit(1);
 465                 }
 466
 467               stdin_stream = fileno(tmpfile());
 468
 469               while ((buffer_size = read(fileno(stdin),input_buffer,BUFFER_SIZE)) > 0)
 470                 {
 471                   if (write (stdin_stream, input_buffer, buffer_size) <= 0)
 472                     {
 473                       perror(CMD_NAME ": cannot write to tmp file");
 474                       exit(1);
 475                     }
 476                 }
 477             }
 478
 479           if (lseek(stdin_stream,0,SEEK_SET) == (off_t)-1)
 480             perror(CMD_NAME ": cannot seek to start of tmp file");
 481
 482           stream = stdin_stream;
 483
 484         }
 485       else if ((stream =
 486                 open(file_names[file_number], O_RDONLY)) == -1)
 487         {
 488           fprintf(stderr, gettext(CMD_NAME ": cannot open file %s, %s\n"),
 489                         current_filename, strerror(errno));
 490           exit(1);
 491         }
 492
 493       dm('f',3,"Opened stream %d to read file %s\n",stream,file_names[file_number]);
 494       if (pass==0)
 495         {
 496           dm('i',3,"Pass file %s to index module\n",current_filename);
 497           add_file(current_filename, file_number, page_number+1);
 498         }
 499
 500       /*
 501        * set_input_stream will return FALSE if there is something wrong
 502        * with the file, e.g. if it is empty.
 503        */
 504       if (set_input_stream(stream))
 505         {
 506
 507           dm('d',3,"Init diffs for pass %d, file %s\n", pass, current_filename);
 508           init_diffs(current_filename);
 509
 510           print_file();
 511
 512           dm('d',3,"Ending diffs for pass %d, file %s\n", pass, current_filename);
 513           end_diffs();
 514         }
 515       else
 516         {
 517           fprintf(stderr, gettext(CMD_NAME ": cannot read %s - possibly an empty file\n"), current_filename);
 518         }
 519
 520       /* Close file unless it was tmp file storing stdin */
 521       if (strcmp(file_names[file_number],"-") != 0)
 522         {
 523
 524           if (close(stream) == -1)
 525             {
 526               fprintf(stderr, gettext(CMD_NAME ": cannot close %s, %s\n"),
 527                             file_names[file_number],strerror(errno));
 528               exit(1);
 529             }
 530         }
 531
 532       if (pass==0)
 533         {
 534           dm('i',3,"End file for index module\n");
 535           end_file(file_number, page_number);
 536         }
 537
 538     }
 539
 540   if (pass==1)
 541     {
 542       /*
 543        * Print blank pages until the end of the current (last) physical page.
 544        * The global file_number was left as one more than the last file number
 545        * by the for loop, so we need to decrement it.
 546        */
 547       file_number--;
 548       fill_sheet_with_blank_pages();
 549     }
 550
 551 }
 552
 553 /******************************************************************************
 554  * Function:
 555  *      setup_main
 556  * Simply declare options and initialize global variables
 557  */
 558
 559 void
 560 setup_main(void)
 561 {
 562   page_width = -1;
 563   page_length = -1;
 564   destination=NULL;
 565   printer_destination = "";
 566   no_of_copies = -1;
 567
 568   /*
 569    * -d and -P have the same meaning - one is from SYSV and the other
 570    * is from Berkeley
 571    */
 572   string_option("d", "printer", "", NULL, &set_dest, &set_dest_default,
 573                 OPT_OUTPUT,
 574                 "use printer <string>");
 575
 576   string_option("P", "printer", "", NULL, &set_dest, &set_dest_default,
 577                 OPT_OUTPUT,
 578                 "use printer <string>");
 579
 580   string_option("s", "output", "", &output_filename, NULL, NULL,
 581                 OPT_OUTPUT,
 582                 "send output to filename <string>; use - for stdout");
 583
 584   boolean_option("r", "redirect-output", "no-redirect-output",
 585                  FALSE,
 586                  &redirect_output,
 587                  NULL, NULL,
 588                  OPT_OUTPUT,
 589                  "redirect output to .ps file named after first filename",
 590                  "don't redirect output");
 591
 592   short_option("c", "copies", 1,
 593                NULL, 0,
 594                1, 200, &no_of_copies, NULL, NULL,
 595                 OPT_OUTPUT,
 596                "specify number of copies to be printed", NULL);
 597
 598   boolean_option("F", "no-file-index", "file-index", FALSE, &no_print_file_index, NULL, NULL,
 599                 OPT_PRINT,
 600                  "don't print file index", "print file index");
 601
 602   boolean_option("f", "no-function-index", "function-index", FALSE, &no_print_function_index, NULL, NULL,
 603                 OPT_PRINT,
 604                  "don't print function index", "print function index");
 605
 606   optional_string_option("H", "help", &print_help,
 607                          OPT_MISC,
 608                          "Type help information\n"
 609                          "    --help=all-options - list all options\n"
 610                          "    --help=misc-options - list miscellaneous options\n"
 611                          "    --help=page-furniture-options - list page furniture options\n"
 612                          "    --help=text-format-options - list text formatting options\n"
 613                          "    --help=print-options - list options that select what to print\n"
 614                          "    --help=page-format-options - list page format options\n"
 615                          "    --help=output-options - list options that affect where output goes\n"
 616                          "    --help=language - list languages\n"
 617                          "    --help=prompt - format for --print-pages string\n"
 618                          "    --help=debug - format for --debug string\n"
 619                          "    --help=header - format for header & footer strings\n"
 620                          "    --help=report - file format for --language=report input\n"
 621                          "    --help=environment - list environment vars used"
 622                          );
 623
 624   noparm_option("V", "version", FALSE, &print_version, NULL,
 625                 OPT_MISC,
 626                 "Type version information");
 627
 628   boolean_option("B", "no-print-body", "print-body", FALSE, &no_print_body, NULL, NULL,
 629                  OPT_PRINT,
 630                  "don't print body of text", "print body of text");
 631
 632   boolean_option("N", "use-environment", "ignore-environment", TRUE, &use_environment, NULL, NULL,
 633                  OPT_MISC,
 634                  "use environment variables",
 635                  "don't use values from environment, such as time,\n"
 636                  "    $USER, etc.  This is for test purposes, to make test results\n"
 637                  "    more reproducible");
 638
 639   int_option("w", "line-wrap", -1,
 640              "no-line-wrap", 0,
 641              -1, 200, &page_width, NULL, NULL,
 642              OPT_TEXT_FORMAT,
 643              "specify the line-wrap column.",
 644              "turn off line-wrap");
 645
 646   int_option("l", "page-length", -1,
 647              NULL, 0,
 648              5, 200, &page_length, NULL, NULL,
 649              OPT_TEXT_FORMAT,
 650              "specify number of lines on a page, point size is\n"
 651              "    calculated appropriately",
 652              NULL);
 653 }
 654
 655 /******************************************************************************
 656  * Function:
 657  *      set_dest_default
 658  * Handler for -d option to set default
 659  */
 660 void set_dest_default(char *value)
 661 {
 662   set_dest(NULL,NULL,value);
 663 }
 664
 665 /******************************************************************************
 666  * Function:
 667  *      set_dest
 668  * Handler for -d option
 669  */
 670 void set_dest(const char *p, const char *o, char *value)
 671 {
 672 #ifdef PRINT_CMD
 673   if (destination) return;
 674   if (*value == '\0')
 675     {
 676       destination = getenv("PRINTER");
 677     }
 678   else
 679     {
 680       destination = strdup(value);
 681     }
 682
 683   dm('O',1,"Setting destination to %s\n",destination);
 684
 685   if (destination && (*destination != '\0'))
 686     {
 687       printer_destination = xmalloc(strlen(destination)+strlen(PRINT_CMD_DEST_FLAG)+2);
 688       sprintf(printer_destination, "%s %s", PRINT_CMD_DEST_FLAG, destination);
 689     }
 690   else
 691     {
 692       printer_destination = "";
 693     }
 694 #else
 695   return;
 696 #endif
 697 }
 698
 699 /******************************************************************************
 700  * Function:
 701  *      print_help
 702  * Handler for -H option
 703  */
 704 void print_help(const char *p, const char *o, char *value)
 705 {
 706   if (value)
 707     {
 708       printf(gettext("Help for %s:\n"),value);
 709       if (strcmp(value,"all-options") == 0)
 710         {
 711           print_usage_msgs(OPT_MISC);
 712           print_usage_msgs(OPT_PAGE_FURNITURE);
 713           print_usage_msgs(OPT_TEXT_FORMAT);
 714           print_usage_msgs(OPT_PRINT);
 715           print_usage_msgs(OPT_PAGE_FORMAT);
 716           print_usage_msgs(OPT_OUTPUT);
 717         }
 718       else if (strcmp(value,"misc-options") == 0)
 719         {
 720           print_usage_msgs(OPT_MISC);
 721         }
 722       else if (strcmp(value,"page-furniture-options") == 0)
 723         {
 724           print_usage_msgs(OPT_PAGE_FURNITURE);
 725         }
 726       else if (strcmp(value,"text-format-options") == 0)
 727         {
 728           print_usage_msgs(OPT_TEXT_FORMAT);
 729         }
 730       else if (strcmp(value,"print-options") == 0)
 731         {
 732           print_usage_msgs(OPT_PRINT);
 733         }
 734       else if (strcmp(value,"page-format-options") == 0)
 735         {
 736           print_usage_msgs(OPT_PAGE_FORMAT);
 737         }
 738       else if (strcmp(value,"output-options") == 0)
 739         {
 740           print_usage_msgs(OPT_OUTPUT);
 741         }
 742       else if (strcmp(value,"language") == 0)
 743         {
 744           printf("%s",gettext(language_list));
 745         }
 746       else if (strcmp(value,"environment") == 0)
 747         {
 748           printf("%s",
 749                  gettext(
 750                          "  Environment variables used by trueprint:\n"
 751                          "    TP_DIFF_CMD:  command used to generate diffs, devault is diff\n"
 752                          "    USER:         username for headers, footers, coversheet, etc.\n"
 753                          "    TP_OPTS:      default trueprint options, overridden by command line opts\n"
 754                          "    TP_PRINT_CMD: command used to print output, default is lp or lpr\n"
 755                          "    PRINTER:      name of printer to send output to\n"
 756                          ));
 757         }
 758       else if (strcmp(value,"prompt") == 0)
 759         {
 760           printf("%s",
 761                  gettext(
 762                          "--print-pages <pagelist>\n"
 763                          " Format for <pagelist>:\n"
 764                          "      <pagelist> is a comma separated list of specifiers.  A specifier can be\n"
 765                          "      a single page number, a range of page numbers, a function name, or a\n"
 766                          "      special letter:\n"
 767                          "      A range of pages is specified by the lower number, then a dash, then the\n"
 768                          "      upper number\n"
 769                          "      A special letter can be d, D, f, F or c for\n"
 770                          "      changed pages, changed functions, function index, file index or cross\n"
 771                          "      reference information respectively - note that the page will only be printed\n"
 772                          "      if it would have been printed without the -A option\n"
 773                          "      For example: trueprint --print-pages 1-5,main,f main.c\n"
 774                          "           will print out pages 1-5, all pages for function main, and the function index\n"));
 775         }
 776       else if (strcmp(value,"header") == 0)
 777         {
 778           printf("%s",
 779                  gettext(
 780                          " Format for <string>:\n"
 781                          "      <string> is used to specify header and footer contents, and can contain the\n"
 782                          "      following sequences:\n"
 783                          "      %% a percent character\n"
 784                          "      %m month of year\n"
 785                          "      %d day of month\n"
 786                          "      %y year e.g. 1993\n"
 787                          "      %D date mm/dd/yy\n"
 788                          "      %L long date e.g. Fri Oct 8 11:49:51 1993\n"
 789                          "      %c file modification date mm/dd/yy\n"
 790                          "      %C file modification date in long format\n"
 791                          "      %H hour\n"
 792                          "      %M minute\n"
 793                          "      %S second\n"
 794                          "      %T time HH:MM:SS\n"
 795                          "      %j day of year ddd\n"
 796                          "      %w day of week (Sunday = 0)\n"
 797                          "      %a abbreviated weekday\n"
 798                          "      %h abbreviated month\n"
 799                          "      %r time in am/pm notation\n"
 800                          "      %p page number in current file\n"
 801                          "      %P overall page number\n"
 802                          "      %f number of pages in current file\n"
 803                          "      %F final overall page number\n"
 804                          "      %n current filename\n"
 805                          "      %N current functionname\n"
 806                          "      %l login name\n"));
 807         }
 808       else if (strcmp(value,"debug") == 0)
 809         {
 810           printf("%s",
 811                  gettext(
 812                          " Format for <debug-string>:   series of char/digit pairs where char\n"
 813                          "      specifies information, digit specifies level of detail, in\n"
 814                          "      general 1=stuff that happens once, 2=per-pass, 3=per-file,\n"
 815                          "      4=per-page, 8=per-line - but this is not fully implemented...\n"
 816                          "      Current chars are: o=options, i=index, O=output, P=parameters\n"
 817                          "      l=language, p=pass, h=headers/footers, I=input,\n"
 818                          "      d=diffs, f=file/stream handling, D=destination/printer\n"
 819                          "      @=all of the above\n"));
 820         }
 821       else if (strcmp(value,"report") == 0)
 822         {
 823           printf("%s",
 824                  gettext(
 825                          " Format for files when using --language=report:\n"
 826                          "   Strings between ^B amd ^E are printed in bold and\n"
 827                          "   are indexed as function names.\n"
 828                          "   Strings between ^C and ^C are printed in italics\n"
 829                  ));
 830         }
 831       else
 832         {
 833           printf(gettext(CMD_NAME ": Unrecognized help option:%s\nUse --help for valid options\n"),value);
 834         }
 835     }
 836   else
 837     {
 838       printf("%s",
 839              gettext(
 840                      "Usage: trueprint <options> <filenames>\n"
 841                      "For details see:\n"
 842                      "    --help=all-options - list all options\n"
 843                      "    --help=misc-options - list miscellaneous options\n"
 844                      "    --help=page-furniture-options - list page furniture options\n"
 845                      "    --help=text-format-options - list text formatting options\n"
 846                      "    --help=print-options - list options that select what to print\n"
 847                      "    --help=page-format-options - list page format options\n"
 848                      "    --help=output-options - list options that affect where output goes\n"
 849                      "    --help=language - list languages\n"
 850                      "    --help=prompt - format for --print-pages string\n"
 851                      "    --help=debug - format for --debug string\n"
 852                      "    --help=header - format for header & footer strings\n"
 853                      "    --help=report - file format for --language=report input\n"
 854                      "    --help=environment - list environment vars used\n"
 855                      ));
 856     }
 857
 858   printf(gettext("Report bugs to bug-trueprint@gnu.org\n"));
 859   exit(0);
 860 }
 861
 862 /******************************************************************************
 863  * Function:
 864  *      print_version
 865  * Handler for -V option
 866  */
 867 void print_version(const char *p, const char *o)
 868 {
 869   printf("GNU Trueprint %s\n", VERSION);
 870   printf(gettext(
 871                  "Copyright (C) 2013 Free Software Foundation, Inc.\n"
 872                  "GNU Trueprint comes with NO WARRANTY,\n"
 873                  "to the extent permitted by law.\n"
 874                  "You may redistribute copies of GNU Trueprint\n"
 875                  "under the terms of the GNU General Public License.\n"
 876                  "For more information about these matters,\n"
 877                  "see the file named COPYING.\n"
 878                  ));
 879   printf("%s\n","http://www.gnu.org/licenses/gpl.html");
 880
 881   exit(0);
 882 }
 883
 884 #ifdef LOGTOOL
 885 /******************************************************************************
 886  * Function:
 887  *      write_log
 888  */
 889
 890 void
 891 write_log(void)
 892
 893 {
 894   char *log_cmd;
 895   size_t log_cmd_length=COMMAND_LEN;
 896   char *tp_opts;
 897   int i;
 898
 899   if (use_environment != TRUE) return;
 900
 901   log_cmd = xmalloc(log_cmd_length);
 902
 903   log_cmd[0] = '\0';
 904   tp_opts = getenv("TP_OPTS");
 905
 906   sprintf(log_cmd,"%s %s", LOGTOOL, "trueprint");
 907   if (tp_opts != NULL)
 908     sprintf(log_cmd, "%s %s%s%s", log_cmd, "TPOPTS=\"<",tp_opts,">\"");
 909
 910   for (i=1; i<argc; i++)
 911     {
 912       if ( (strlen(log_cmd) + 6 + strlen(argv[i])) > log_cmd_length )
 913         {
 914           log_cmd_length += COMMAND_LEN;
 915           log_cmd = xmalloc(log_cmd_length)
 916         }
 917
 918       sprintf(log_cmd, "%s \" <%s>\"", log_cmd, argv[i]);
 919     }
 920   system(log_cmd);
 921 }
 922 #endif