home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume14 / mp-2.4.5 / part01 next >
Encoding:
Text File  |  1990-08-29  |  52.0 KB  |  1,676 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v14i067: Mp v2.4.5 - the mail/news pretty printer (Part 1 of 2).
  3. from: rburridge@Sun.COM (Rich Burridge)
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 14, Issue 67
  7. Submitted-by: rburridge@Sun.COM (Rich Burridge)
  8. Archive-name: mp-2.4.5/part01
  9.  
  10. [Hi Brandon. I think this has undergone enough changes since it
  11.  was last posted to the net to warrant a new posting. When you
  12.  get a moment, could you post to comp.sources.misc please? ]
  13.  
  14. ----------------------------------------------------------------
  15.  
  16. The mp program will pretty print various files for you. It can be used
  17. in conjunction with a mail reading utility for producing a pretty print
  18. of your mail items. It can be used with a news reading tool to pretty
  19. print news articles. Digests can also be printed, and this version can
  20. pretty print ordinary ASCII files as well. Support for personal organiser
  21. printing was added into the last released version.
  22.  
  23. This version introduces a landscape mode for mp, to allow you to print
  24. two "pages" per page. This should all help us save some trees.
  25.  
  26. see the README file for more details.
  27.  
  28. ------CUT HERE------mp.shar.part1------CUT HERE------
  29. #! /bin/sh
  30. # this is a shell archive, meaning:
  31. # 1. Remove everything above the #! /bin/sh line
  32. # 2. Save the resulting text in a file.
  33. # 3. Execute the file with /bin/sh to create the files:
  34. #    header.c
  35. #    io.c
  36. #    main.c
  37. #    misc.c
  38. #    print.c
  39. #    extern.h
  40. #    mp.h
  41. #    patchlevel.h
  42. #    README
  43. #    MANIFEST
  44. #    FILES
  45. #    CHANGES
  46. #    TODO
  47. # This archive created: Wed Aug 29 12:25:52 EST 1990
  48. #
  49. #
  50. export PATH; PATH=/bin:$PATH
  51. #
  52. if [ -f header.c ]
  53. then
  54. echo shar: will not over-write existing file header.c
  55. else
  56. echo shar: extracting 'header.c',     5850 characters
  57. cat > header.c <<'Funky_Stuff'
  58.  
  59. /*  @(#)header.c 1.4 90/08/17
  60.  *
  61.  *  Copyright (c) Steve Holden and Rich Burridge.
  62.  *                All rights reserved.
  63.  *
  64.  *  Permission is given to distribute these sources, as long as the
  65.  *  copyright messages are not removed, and no monies are exchanged.
  66.  *
  67.  *  No responsibility is taken for any errors inherent either
  68.  *  to the comments or the code of this program, but if reported
  69.  *  to me then an attempt will be made to fix them.
  70.  */
  71.  
  72. #include "mp.h"
  73. #include "extern.h"
  74.  
  75.  
  76. /*  If input line is header of type 'hdr', get the contents of the header
  77.  *  into 'dest' (dynamically allocated).
  78.  */
  79.  
  80. void
  81. get_header(hdr, dest)
  82. char *hdr ;
  83. char **dest ;
  84. {
  85.   if (EQUAL(hdr))
  86.     {
  87.       *dest = malloc((unsigned) (strlen(nextline) - strlen(hdr) + 1)) ;
  88.       STRCPY(*dest, nextline + strlen(hdr)) ;
  89.     }
  90. }
  91.  
  92.  
  93. /*  If input line is header of type 'hdr', get header into dest. The header
  94.  *  may have multiple lines. This skips input to next line.
  95.  */
  96.  
  97. void
  98. get_mult_hdr(hdr, dest)
  99. char *hdr ;
  100. char *dest[] ;
  101. { 
  102.   int i = 0 ;
  103.   
  104.   if (EQUAL(hdr))
  105.     {
  106.       get_header(hdr, dest) ;
  107.       i++ ;
  108.       readline() ;
  109.       while (i < MAXCONT && !emptyline(nextline) && isspace(nextline[0]))
  110.         {
  111.           dest[i] = malloc((unsigned) (strlen(nextline) + 1)) ;
  112.           STRCPY(dest[i], nextline) ;
  113.           i++ ;
  114.           readline() ;
  115.         }
  116.       dest[i] = NULL ;
  117.     }
  118. }
  119.  
  120.  
  121. /*  Parse_headers is a function which reads and parses the message headers,
  122.  *  extracting the bits which are of interest.
  123.  *
  124.  *  The document is on standard input; the document is read up to the end of
  125.  *  the header; the next line is read ahead into 'nextline'.
  126.  *
  127.  *  Parameter:
  128.  *  digest  indicates if parsing is of digest headers instead of message
  129.  *          headers
  130.  *
  131.  *  Implicit Input:
  132.  *  nextline  contains the next line from standard input
  133.  *
  134.  *  Side-effects:
  135.  *  The function fills in the global header variables with headers found.
  136.  *  The global variable doc_type is set to the document type
  137.  *  The global variable nextline is set
  138.  *  The document is read up to the line following the headers
  139.  */
  140.  
  141.  
  142. void
  143. parse_headers(digest)
  144. bool digest ;           /* Parsing digest headers */
  145. {
  146.   char *colon ;         /* Pointer to colon in line */
  147.   char *c ;             /* General character pointer */
  148.  
  149. /*  If not processing digest headers, determine if this article is an
  150.  *  ordinary text file.
  151.  */
  152.  
  153.   if (!digest)
  154.     {
  155.       if (!EQUAL(FROM_HDR))         /* UNIX From_ header? */
  156.         {
  157.           colon = index(nextline, ':') ;
  158.           if (colon == NULL)        /* No colon => not a header line */
  159.             {
  160.               doc_type = DO_TEXT ;
  161.               return ;
  162.             }
  163.           c = nextline ;
  164.           while (c < colon && (!isspace(*c))) c++ ;
  165.           if (c != colon)      /* Whitespace in header name => not header */
  166.             {
  167.               doc_type = DO_TEXT ;
  168.               return ;
  169.             }
  170.         }    
  171.     }    
  172.  
  173.   doc_type = DO_MAIL ;    /* Default to mail document */
  174.  
  175. /* Parse headers */
  176.  
  177.   while (TRUE)
  178.     {
  179.       if (emptyline(nextline)) break ;    /* End of headers */
  180.  
  181.       if (!digest)
  182.         {
  183.           get_header(FROM_HDR,      &from_) ;
  184.           get_header(APP_FROMHDR,   &apparently_from) ;
  185.           get_header(APP_TOHDR,     &apparently_to) ;
  186.           get_header(NEWSGROUPSHDR, &newsgroups) ;
  187.           get_header(REPLYHDR,      &reply_to) ;
  188.  
  189.           get_mult_hdr(TOHDR,       to) ;
  190.           if (emptyline(nextline)) break ;
  191.  
  192.           get_mult_hdr(CCHDR,       cc) ;
  193.           if (emptyline(nextline)) break ;
  194.  
  195.           if (doc_type != DO_NEWS && EQUAL(NEWSGROUPSHDR))
  196.             doc_type = DO_NEWS ;
  197.         }
  198.       get_header(FROMHDR, &from) ;
  199.       get_header(SUBJECTHDR, &subject) ;
  200.       get_header(DATEHDR, &date) ;
  201.  
  202.       if (!EQUAL(TOHDR) && !EQUAL(CCHDR))
  203.         {
  204.           while (!end_of_file && !end_of_line)
  205.             readline() ;                       /* Skip rest of long lines */
  206.           readline() ;
  207.         }
  208.     }    
  209. }
  210.  
  211.  
  212. void
  213. reset_headers()          /* Reset header values for next message. */
  214. {
  215.   int i ;
  216.  
  217.   if (from != NULL) free(from) ;
  218.   if (from_ != NULL) free(from_) ;
  219.   if (apparently_from != NULL) free(apparently_from) ;
  220.   if (apparently_to != NULL) free(apparently_to) ;
  221.   if (date != NULL) free(date) ;
  222.   if (newsgroups != NULL) free(newsgroups) ;
  223.   if (reply_to != NULL) free(reply_to) ;
  224.  
  225.   from = from_ = apparently_from = apparently_to = NULL ;
  226.   date = newsgroups = reply_to = subject = NULL ;
  227.  
  228.   for (i = 0; i < MAXCONT+1; i++)
  229.     {
  230.       if (to[i] != NULL) free(to[i]) ;
  231.       if (cc[i] != NULL) free(cc[i]) ;
  232.       to[i] = cc[i] = NULL ;
  233.     }
  234. }
  235.  
  236.  
  237. /*  Show_headers outputs the headers in PostScript. Different headers are
  238.  *  output depending 'digest'.
  239.  */
  240.  
  241. void
  242. show_headers(digest)
  243. bool digest ;
  244. {
  245.   if (digest)
  246.     {
  247.       if (from)       mixedshow(FROMHDR,    from) ;
  248.       if (subject)    mixedshow(SUBJECTHDR, subject) ;
  249.       if (date)       mixedshow(DATEHDR,    date) ;
  250.     }
  251.   else
  252.     {
  253.       if (from_)           boldshow(FROM_HDR,       from_) ;
  254.       if (from)            mixedshow(FROMHDR,       from) ;
  255.       if (apparently_from) mixedshow(APP_FROMHDR,   apparently_from) ;
  256.       if (to[0])           show_mult_hdr(TOHDR,     to) ;
  257.       if (apparently_to)   mixedshow(APP_TOHDR,     apparently_to) ;
  258.       if (cc[0])           show_mult_hdr(CCHDR,     cc) ;
  259.       if (reply_to)        mixedshow(REPLYHDR,      reply_to) ;
  260.       if (newsgroups)      mixedshow(NEWSGROUPSHDR, newsgroups) ;
  261.       if (subject[0])      mixedshow(SUBJECTHDR,    subject) ;
  262.       if (date)            mixedshow(DATEHDR,       date) ;
  263.     }
  264. }
  265.  
  266.  
  267. void
  268. show_mult_hdr(hdr, val)
  269. char *hdr ;              /* Name of header */
  270. char *val[] ;            /* Value of header */
  271. {
  272.   mixedshow(hdr, *val) ;
  273.   val++ ;
  274.   while (*val) romanshow(*val++) ;
  275. }
  276.  
  277. Funky_Stuff
  278. len=`wc -c < header.c`
  279. if [ $len !=     5850 ] ; then
  280. echo error: header.c was $len bytes long, should have been     5850
  281. fi
  282. fi # end of overwriting check
  283. if [ -f io.c ]
  284. then
  285. echo shar: will not over-write existing file io.c
  286. else
  287. echo shar: extracting 'io.c',     2329 characters
  288. cat > io.c <<'Funky_Stuff'
  289.  
  290. /*  @(#)io.c 1.3 89/10/18
  291.  *
  292.  *  Copyright (c) Steve Holden and Rich Burridge.
  293.  *                All rights reserved.
  294.  *
  295.  *  Permission is given to distribute these sources, as long as the
  296.  *  copyright messages are not removed, and no monies are exchanged.
  297.  *
  298.  *  No responsibility is taken for any errors inherent either
  299.  *  to the comments or the code of this program, but if reported
  300.  *  to me then an attempt will be made to fix them.
  301.  */
  302.  
  303. #include "mp.h"
  304. #include "extern.h"
  305.  
  306.  
  307. /* Emptyline returns true if its argument is empty or whitespace only */
  308.          
  309. bool
  310. emptyline(str)
  311. char *str ;
  312. {
  313.   while (*str)
  314.     {
  315.       if (!isspace(*str)) return(FALSE) ;
  316.       str++ ;
  317.     }
  318.   return(TRUE) ;
  319. }
  320.  
  321.  
  322. /*  Read an input line into nextline, setting end_of_file, end_of_page
  323.  *  and end_of_line appropriately.
  324.  */
  325.  
  326. void
  327. readline()
  328. {
  329.   int c ;
  330.   int i = 0 ;      /* Index into current line being read. */
  331.   int len = 0 ;    /* Length of the current line. */
  332.  
  333.   if (end_of_file) return ;
  334.   end_of_page = end_of_line = FALSE ;
  335.  
  336.   while (len < llen && (c = getc(fp)) != EOF && c != '\n' && c != '\f')
  337.     {
  338.       if (c == '\t')
  339.         {
  340.           do
  341.             {
  342.               nextline[i++] = ' ' ;
  343.               len++ ;
  344.             }
  345.           while (len % 8 != 0 && len <= llen) ;
  346.         }
  347.       else
  348.         { 
  349.           nextline[i++] = c ;
  350.           len++ ;
  351.         }
  352.       if (c == '\b') len -= 2 ;
  353.     }
  354.   nextline[i] = '\0' ;
  355.  
  356.   if (len == llen && c != EOF && c != '\n' && c != '\f')
  357.     {
  358.       c = getc(fp) ;
  359.       if (c != EOF && c != '\n' && c != '\f') UNGETC(c, fp) ;
  360.     }
  361.  
  362.   switch (c)
  363.     {
  364.       case EOF  : if (i == 0) end_of_file = TRUE ;
  365.                   else
  366.                     { 
  367.                       UNGETC(c, fp) ;
  368.                       end_of_line = TRUE ;
  369.                     }
  370.                   break ;
  371.       case '\n' : end_of_line = TRUE ;
  372.                   break ;
  373.  
  374. /*  /usr/ucb/mail for some unknown reason, appends a bogus formfeed at
  375.  *  the end of piped output. The next character is checked; if it's an
  376.  *  EOF, then end_of_file is set, else the character is put back.
  377.  */
  378.  
  379.       case '\f' : if ((c = getc(fp)) == EOF) end_of_file = TRUE ;
  380.                   else UNGETC(c, fp) ;
  381.  
  382.                   end_of_line = TRUE ;
  383.                   end_of_page = TRUE ;
  384.                   break ;
  385.     }
  386. }
  387. Funky_Stuff
  388. len=`wc -c < io.c`
  389. if [ $len !=     2329 ] ; then
  390. echo error: io.c was $len bytes long, should have been     2329
  391. fi
  392. fi # end of overwriting check
  393. if [ -f main.c ]
  394. then
  395. echo shar: will not over-write existing file main.c
  396. else
  397. echo shar: extracting 'main.c',     7418 characters
  398. cat > main.c <<'Funky_Stuff'
  399.  
  400. /*  @(#)main.c 1.6 90/08/17
  401.  *
  402.  *  Takes a mail file, a news article or an ordinary file
  403.  *  and pretty prints it on a Postscript printer.
  404.  *
  405.  *-----------------------------------------------------------------------
  406.  *
  407.  *  Credits:
  408.  *
  409.  *  Original written in the Icon language by Steve Holden.
  410.  *
  411.  *  Converted to C, modified and maintained
  412.  *  by Rich Burridge - Sun Microsystems Australia.
  413.  *
  414.  *  Further modifications to handle news articles and MH mail,
  415.  *  by Bruno Pillard  - Chorus Systemes, St Quentin en Yvelines, France
  416.  *
  417.  *  Addition of digest printing by Dave Glowacki of Public
  418.  *  Works Computer Services, St Paul, MN.
  419.  *
  420.  *  Ordinary text file pretty printing by Rich Burridge.
  421.  *
  422.  *  Substantial modifications to header parsing and command options
  423.  *  by Jeremy Webber, Computer Science Dept, University of Adelaide,
  424.  *  Australia.
  425.  *
  426.  *  Support for printing multiple files and subject line filename print
  427.  *  for ordinary files added by S. Manoharan, Edinburgh University.
  428.  *
  429.  *  Landscape mode added by Michael Tuciarone.
  430.  *
  431.  *----------------------------------------------------------------------
  432.  *
  433.  *  Copyright (c) Steve Holden and Rich Burridge.
  434.  *                All rights reserved.
  435.  *
  436.  *  Permission is given to distribute these sources, as long as the
  437.  *  copyright messages are not removed, and no monies are exchanged.
  438.  *
  439.  *  No responsibility is taken for any errors inherent either
  440.  *  to the comments or the code of this program, but if reported
  441.  *  to me then an attempt will be made to fix them.
  442.  */
  443.  
  444. #include "mp.h"
  445.  
  446. /* Command line option flags */
  447.  
  448. bool article  = FALSE ;       /* Set for news in "Article from " format. */
  449. bool digest   = FALSE ;       /* Are we are printing a mail digest (-d) */
  450. bool filofax  = FALSE ;       /* Set if we are printing a filofax file. */
  451. bool folder   = FALSE ;       /* Set if we are printing a mail folder. */
  452. bool text_doc = FALSE ;       /* Printing normal text (-o) */
  453. bool timeman  = FALSE ;       /* Set if we are printing a Time Manager file. */
  454.  
  455. /* Header definitions. */
  456.  
  457. char *FROMHDR       = "From:" ;
  458. char *FROM_HDR      = "From " ;            /* UNIX From header */
  459. char *APP_FROMHDR   = "Apparently_from:" ;
  460. char *TOHDR         = "To:" ;
  461. char *APP_TOHDR     = "Apparently_to:" ;
  462. char *CCHDR         = "Cc:" ;
  463. char *SUBJECTHDR    = "Subject:" ;
  464. char *DATEHDR       = "Date:" ;
  465. char *NEWSGROUPSHDR = "Newsgroups:" ;
  466. char *REPLYHDR      = "Reply_to:" ;
  467.  
  468. /* Header lines. */
  469.  
  470. char *from            = NULL ;    /* From: */
  471. char *from_           = NULL ;    /* From_ (UNIX from) */
  472. char *apparently_from = NULL ;    /* Apparently_from: */
  473. char *to[MAXCONT+1] ;             /* To: (can have multiple lines) */
  474. char *apparently_to   = NULL ;    /* Apparently_to: */
  475. char *cc[MAXCONT+1]   = NULL ;    /* Cc: (can have multiple lines) */
  476. char *subject         = NULL ;    /* Subject: (can be set from command line) */
  477. char *gsubject        = NULL ;    /* Global subject set from command line. */
  478. char *date            = NULL ;    /* Date: */
  479. char *newsgroups      = NULL ;    /* Newsgroups: (news articles only) */
  480. char *reply_to        = NULL ;    /* Reply-to: */
  481.  
  482. /* Strings used in page processing. */
  483.  
  484. char curfname[MAXPATHLEN] ;       /* Current file being printed. */
  485. char *message_for = "" ;          /* "[Mail,News,Listing] for " line */
  486. char *nameptr ;                   /* Used to getenv the NAME variable. */
  487. char *optarg ;                    /* Optional command line argument. */
  488. char *owner       = NULL ;        /* Name of owner (usually equal to 'to') */
  489. char *progname    = NULL ;        /* Name of this program. */
  490. char *prologue    = PROLOGUE ;    /* Name of PostScript prologue file. */
  491. char proname[MAXPATHLEN] ;        /* Full pathname of the prologue file. */
  492.  
  493. /* Other globals. */
  494.  
  495. document_type doc_type = DO_MAIL ;  /* Printing type - default mail */
  496.  
  497. int colct = 0;              /* Column count on current page. */
  498. int cmdfiles = 0 ;          /* Set if file to print given on command line. */
  499. int landscape = 0;          /* Set if in landscape (wide) mode. */
  500. int linect = 0 ;            /* Line count on current page. */
  501. int llen = LINELENGTH ;     /* Number of characters per line. */
  502. int optind ;                /* Optional command line argument indicator. */
  503. int pageno = 1 ;            /* Page number within message. */
  504. int plen = PAGELENGTH ;     /* Number of lines per page. */
  505. int tpn    = 0 ;            /* Total number of pages printed. */
  506.  
  507. /* Read-ahead variables. */
  508.  
  509. char nextline[MAXLINE] ;  /* Read-ahead of the mail message, minus nl */
  510.  
  511. bool end_of_file = FALSE ;     /* EOF indicator */
  512. bool end_of_line ;             /* Is a newline removed from this line */
  513. bool end_of_page = FALSE ;     /* end-of-page indicator - ^L on input */
  514.  
  515. FILE *fp ;                     /* File pointer for current file. */
  516.  
  517.  
  518. main(argc, argv)
  519. int argc ;
  520. char **argv ;
  521. {
  522.   to[0] = cc[0] = NULL ;
  523.  
  524.   progname = argv[0] ;        /* Save this program name. */
  525.  
  526. /*  Try to get location of the mp prologue file from an environment variable.
  527.  *  If it's not found, then use the default value.
  528.  */
  529.  
  530.   if ((prologue = getenv("MP_PROLOGUE")) == NULL)
  531.     prologue = PROLOGUE ;
  532.   SPRINTF(proname, "%s/mp.pro.ps", prologue) ;
  533.  
  534.   get_options(argc, argv) ;   /* Read and process command line options. */
  535.  
  536.   show_prologue(proname) ;    /* Send prologue file to output. */
  537.  
  538.   if (landscape) PRINTF("\nLandscape\n") ;
  539.  
  540.   FPUTS("%%EndProlog\n", stdout) ;
  541.  
  542.   if (argc - optind != 0) cmdfiles = 1 ;
  543.   if (!cmdfiles)
  544.     {
  545.       fp = stdin ;                 /* Get input from standard input. */
  546.       STRCPY(curfname, "stdin") ;
  547.       printfile() ;                /* Pretty print *just* standard input. */
  548.     }
  549.   else
  550.     for (; optind < argc; ++optind)
  551.       {
  552.         STRCPY(curfname, argv[optind]) ;    /* Current file to print. */
  553.         if ((fp = fopen(curfname, "r")) == NULL)
  554.           {
  555.             FPRINTF(stderr, "%s: cannot open %s\n", progname, curfname) ;
  556.             continue ;
  557.           }
  558.         pageno = 1 ;       /* Initialise current page number. */
  559.         end_of_file = 0 ;  /* Reset in case there's another file to print. */
  560.         printfile() ;      /* Pretty print current file. */
  561.       }
  562.  
  563.   show_trailer() ;         /* Send trailer file to output. */
  564.  
  565.   exit(0) ;
  566. /*NOTREACHED*/
  567. }
  568.  
  569.  
  570. printfile()    /* Create PostScript to pretty print the current file. */
  571. {
  572.   readline() ;
  573.   if (end_of_file)
  574.     {
  575.       FPRINTF(stderr, "mp: empty input file, nothing printed\n") ;
  576.       exit(1) ;
  577.     }
  578.  
  579.   if (!text_doc)
  580.     parse_headers(FALSE) ;    /* Parse headers of mail or news article */
  581.   init_setup() ;              /* Set values for remaining globals. */
  582.  
  583. /* Print the document */
  584.  
  585.   startpage() ;               /* Output initial definitions. */
  586.  
  587.   if (doc_type != DO_TEXT) show_headers(FALSE) ;
  588.   while (!end_of_file)
  589.     {
  590.       if (folder && EQUAL(FROM_HDR))
  591.         {
  592.           linect = plen ;
  593.           reset_headers() ;
  594.           parse_headers(FALSE) ;
  595.           show_headers(FALSE) ;
  596.         }
  597.       if (digest && (EQUAL(FROMHDR) || EQUAL(DATEHDR) || EQUAL(SUBJECTHDR)))
  598.         {
  599.           linect = plen ;
  600.           parse_headers(TRUE) ;
  601.           show_headers(TRUE) ;
  602.         }
  603.       textshow(nextline) ;
  604.       readline() ;
  605.     }    
  606.   if (filofax || timeman) endfile() ;
  607.   else endpage() ;
  608.   FCLOSE(fp) ;
  609. }
  610.  
  611.  
  612. show_trailer()
  613. {
  614.   FPUTS("%%Trailer\n", stdout) ;
  615.   PRINTF("%%%%Pages: %1d\n", tpn) ;
  616. }
  617. Funky_Stuff
  618. len=`wc -c < main.c`
  619. if [ $len !=     7418 ] ; then
  620. echo error: main.c was $len bytes long, should have been     7418
  621. fi
  622. fi # end of overwriting check
  623. if [ -f misc.c ]
  624. then
  625. echo shar: will not over-write existing file misc.c
  626. else
  627. echo shar: extracting 'misc.c',     6170 characters
  628. cat > misc.c <<'Funky_Stuff'
  629.  
  630. /*  @(#)misc.c 1.5 90/08/16
  631.  *
  632.  *  Copyright (c) Steve Holden and Rich Burridge.
  633.  *                All rights reserved.
  634.  *
  635.  *  Permission is given to distribute these sources, as long as the
  636.  *  copyright messages are not removed, and no monies are exchanged.
  637.  *
  638.  *  No responsibility is taken for any errors inherent either
  639.  *  to the comments or the code of this program, but if reported
  640.  *  to me then an attempt will be made to fix them.
  641.  */
  642.  
  643. #include "mp.h"
  644. #include "patchlevel.h"
  645. #include "extern.h"
  646.  
  647.  
  648. void
  649. do_date()        /* Output Postscript definition for the date and time. */
  650. {
  651.   long clock ;           /* Used by the localtime function call. */
  652.   struct tm *tm ;        /* Used by the localtime and asctime calls. */
  653.  
  654.   if (date == NULL)
  655.     {
  656.       clock = time((time_t *) 0) ;
  657.       tm = localtime(&clock) ;
  658.       psdef("TimeNow", asctime(tm)) ;
  659.     }
  660.   else psdef("TimeNow", date) ;
  661. }
  662.  
  663.  
  664. get_opt(argc, argv, options)
  665. int argc ;
  666. char **argv, *options ;
  667. {
  668.   char opch, *str, *ptr ;
  669.   static int flag = 0 ;
  670.   static int cur_argc ;
  671.   static char **cur_argv ;
  672.  
  673.   if (flag == 0)
  674.     {
  675.       cur_argc = argc ;
  676.       cur_argv = argv ;
  677.       flag = 1 ;
  678.       optind = 1 ;
  679.     }
  680.  
  681.   if (cur_argc <= 1) return -1 ;
  682.  
  683.   if (--cur_argc >= 1)
  684.     {
  685.       str = *++cur_argv ;
  686.       if (*str != '-') return -1 ;    /* Argument is not an option   */
  687.       else
  688.         {                             /* Argument is an option */
  689.           if ((ptr = index(options, opch = *++str)) != (char *) 0)
  690.             {
  691.               ++optind ;
  692.               optarg = ++str ;        /* Point to rest of argument if any  */
  693.               if ((*++ptr == ':') && (*optarg == '\0'))
  694.                 {
  695.                   if (--cur_argc <= 0) return '?' ;
  696.                   optarg = *++cur_argv ;
  697.                   ++optind ;
  698.                 }
  699.               return opch ;
  700.             }
  701.           else if (opch == '-')
  702.             {                         /* End of options */
  703.               ++optind ;
  704.               return -1 ;
  705.             }
  706.           else return '?' ;
  707.         }
  708.     } 
  709.   return 0 ;                          /* Should never be reached. */
  710. }
  711.  
  712.  
  713. get_options(argc, argv)      /* Read and process command line options. */
  714. int argc ;
  715. char *argv[] ;
  716. {
  717.   int opch ;
  718.  
  719.   while ((opch = get_opt(argc, argv, "adflmop:s:tv")) != -1)
  720.     switch (opch)
  721.       {
  722.         case 'a' : article = TRUE ;      /* "Article from" format. */
  723.                    break ;
  724.         case 'd' : digest = TRUE ;       /* Print digest. */
  725.                    break ;
  726.         case 'f' : filofax = TRUE ;      /* Print filofax file. */
  727.                    SPRINTF(proname, "%s/mp.pro.filofax.ps", prologue) ;
  728.                    break ;
  729.         case 'l' : landscape = TRUE ;    /* Print in landscape mode. */
  730.                    break ;
  731.         case 'm' : folder = TRUE ;       /* Print mail folder. */
  732.                    break ;
  733.         case 'o' : text_doc = TRUE ;     /* Print ordinary text file */
  734.                    break ;
  735.         case 'p' : if (strlen(optarg))
  736.                      STRCPY(proname, optarg) ;  /* New prologue file. */
  737.                    break ;
  738.         case 's' : if (strlen(optarg))
  739.                      gsubject = optarg ;        /* New subject line. */
  740.                    break ;
  741.         case 't' : timeman = TRUE ;     /* Print Time Manager file. */
  742.                    SPRINTF(proname, "%s/mp.pro.timeman.ps", prologue) ;
  743.                    break ;
  744.         case 'v' : FPRINTF(stderr,
  745.                            "%s version 2.4.%1d\n", progname, PATCHLEVEL) ;                         exit(1) ;
  746.         case '?' : usage() ;
  747.       }
  748. }
  749.  
  750.  
  751. void
  752. init_setup()            /* Set default values for various options. */
  753. {
  754.   char *c, *ptr ;
  755.   int amp_cnt = 0 ;     /* Number of ampersands in gecos field. */
  756.   int i, j, n, spaces ;
  757.   struct passwd *pp ;
  758.  
  759.   c = getlogin() ;      /* Pointer to users login name. */
  760.   if (c == NULL)        /* Get username from password file */
  761.     {
  762.       pp = getpwuid(geteuid()) ;
  763.       if (pp == NULL) c = "printing" ;
  764.       else c = pp->pw_name ;
  765.     }
  766.   owner = malloc((unsigned) (strlen(c) + 1)) ;
  767.   STRCPY(owner, c) ;
  768.  
  769. /*  Have a look for the users gecos (normally real name), so that its a bit
  770.  *  more recognisable. If this field is too long, then we need to truncate
  771.  *  sensibly. We also need to check a few things. If we've extracted
  772.  *  two "words" or have found a comma, then exit. If an ampersand is
  773.  *  found, this is expanded to the users name in capitals.
  774.  */    
  775.      
  776.   pp = getpwnam(owner) ;
  777.   if (pp != NULL && pp->pw_gecos && pp->pw_gecos[0] != '\0')
  778.     {  
  779.       for (i = 0; i < strlen(pp->pw_gecos); i++)
  780.         if (pp->pw_gecos[i] == '&') amp_cnt++ ;
  781.  
  782.       owner = malloc((unsigned) (strlen(pp->pw_gecos) +
  783.                                  amp_cnt * strlen(c) + 1)) ;
  784.  
  785.       n = spaces = 0 ;
  786.       ptr = pp->pw_gecos ;
  787.       for (i = 0; i < strlen(pp->pw_gecos); i++)
  788.         {
  789.                if (*ptr == ',') break ;
  790.           else if (*ptr == '&')
  791.             {
  792.               for (j = 0; j < strlen(c); j++)
  793.                 if (islower(c[j])) owner[n++] = toupper(c[j]) ;
  794.                 else owner[n++] = c[j] ;
  795.               *ptr++ ;
  796.             }
  797.           else if (*ptr == ' ')
  798.             {
  799.               if (++spaces == 2) break ;
  800.               else owner[n++] = *ptr++ ;
  801.             }
  802.           else owner[n++] = *ptr++ ;
  803.           if (n >= NAMELENGTH) break ;
  804.         }
  805.       if (n > NAMELENGTH) n = NAMELENGTH ;
  806.       owner[n] = '\0' ;
  807.     }
  808.   if ((nameptr = getenv("NAME")) != NULL)
  809.     STRCPY(owner, nameptr) ;
  810.  
  811.   if (text_doc) doc_type = DO_TEXT ;
  812.   switch (doc_type)
  813.     {
  814.       case DO_TEXT : message_for = "Listing for ";
  815.                      digest = FALSE ;
  816.                      break ;
  817.       case DO_MAIL : message_for = digest ? "Mail digest for " : "Mail for " ;
  818.                      break ;
  819.       case DO_NEWS : message_for = digest ? "News digest for " : "News for " ;
  820.                      break ;
  821.     }
  822. }
  823.  
  824.  
  825. usage()     /* Print usage message and exit. */
  826. {
  827.   FPRINTF(stderr,"Usage: %s [-a] [-d] [-f] [-l] [-m] ", progname) ;
  828.   FPRINTF(stderr, "[-o] [-p prologue] [-s subject] [-t] [-v] [-?]\n") ;
  829.   exit(1) ;
  830. }
  831.  
  832. Funky_Stuff
  833. len=`wc -c < misc.c`
  834. if [ $len !=     6170 ] ; then
  835. echo error: misc.c was $len bytes long, should have been     6170
  836. fi
  837. fi # end of overwriting check
  838. if [ -f print.c ]
  839. then
  840. echo shar: will not over-write existing file print.c
  841. else
  842. echo shar: extracting 'print.c',     4128 characters
  843. cat > print.c <<'Funky_Stuff'
  844.  
  845. /*  @(#)print.c 1.8 90/08/29
  846.  *
  847.  *  Copyright (c) Steve Holden and Rich Burridge.
  848.  *                All rights reserved.
  849.  *
  850.  *  Permission is given to distribute these sources, as long as the
  851.  *  copyright messages are not removed, and no monies are exchanged.
  852.  *
  853.  *  No responsibility is taken for any errors inherent either
  854.  *  to the comments or the code of this program, but if reported
  855.  *  to me then an attempt will be made to fix them.
  856.  */
  857.  
  858. #include "mp.h"
  859. #include "extern.h"
  860.  
  861.  
  862. boldshow(hdr, str)      /* Display a header all in bold. */
  863. char *hdr, *str ;
  864. {
  865.   useline() ;
  866.   FPUTS("BoldFont ", stdout) ;
  867.   startline() ;
  868.   expand(hdr) ;
  869.   expand(str) ;
  870.   endline() ;
  871. }
  872.  
  873.  
  874. endcol()
  875. {
  876.   linect = 0 ;
  877.   PRINTF("endcol\n") ;
  878. }
  879.  
  880.  
  881. endfile()
  882. {
  883.   linect = 0 ;
  884.   PRINTF("(%1d) endfile\n", pageno) ;
  885. }
  886.  
  887.  
  888. endline()
  889. {
  890.   PRINTF(") showline\n") ;
  891. }
  892.  
  893.  
  894. endpage()
  895. {
  896.   linect = 0 ;
  897.   PRINTF("(%1d) endpage\n", pageno++) ;
  898. }
  899.  
  900.  
  901. expand(s)   /* Display a string with PostScript-sensitive characters escaped */
  902. char *s ;
  903. {
  904.   for (; s && *s; s++)
  905.     {
  906.       switch (*s)
  907.         {
  908.           case '\\' : FPUTS("\\\\", stdout) ;
  909.                       break ;
  910.           case '('  : FPUTS("\\(", stdout) ;
  911.                       break ;
  912.           case ')'  : FPUTS("\\)", stdout) ;
  913.                       break ;
  914.           case '\b' : PUTC(*s, stdout) ;
  915.                       break ;
  916.           default   : if (isprint(*s)) PUTC(*s, stdout) ;
  917.         }
  918.     }
  919. }
  920.  
  921.  
  922. mixedshow(hdr, str)     /* Display a header in mixed bold/Roman. */
  923. char *hdr, *str ;
  924. {
  925.   useline() ;
  926.   FPUTS("BoldFont ", stdout) ;
  927.   startline() ;
  928.   expand(hdr) ;
  929.   FPUTS(") show pf (", stdout) ;
  930.   expand(str) ;
  931.   endline() ;
  932. }
  933.  
  934.  
  935. psdef(name, def)        /* Do a PostScript define. */
  936. char *name, *def ;
  937. {
  938.   PRINTF("/%s (", name) ;
  939.   expand(def) ;
  940.   PRINTF(") def\n") ;
  941. }
  942.  
  943.  
  944. romanshow(str)          /* Display a header all in Roman. */
  945. char *str ;
  946. {
  947.   useline() ;
  948.   FPUTS("pf ", stdout) ;
  949.   startline() ;
  950.   expand(str) ;
  951.   endline() ;
  952. }
  953.  
  954.  
  955. void
  956. set_defs()               /* Setup PostScript definitions. */
  957. {
  958.   int i ;
  959.  
  960.   if (article == TRUE)
  961.     STRCPY(message_for, "Article from") ;             /* MailFor. */
  962.   psdef("MailFor", message_for) ;
  963.  
  964.   if (article == TRUE && newsgroups != NULL)          /* User. */
  965.     {
  966.       for (i = 0; i < strlen(newsgroups); i++)
  967.         if (newsgroups[i] == ',' ||
  968.             newsgroups[i] == '\0') break ;
  969.       owner = (char *) realloc(owner, (unsigned int) i) ;
  970.       STRNCPY(owner, newsgroups, i) ;
  971.       owner[i] = '\0' ;
  972.     }
  973.   psdef("User", owner) ;
  974.  
  975.   do_date() ;                                         /* TimeNow. */
  976.  
  977.   if (text_doc && cmdfiles) subject = curfname ;
  978.   psdef("Subject",
  979.         (gsubject != NULL) ? gsubject : subject) ;    /* Subject. */
  980. }
  981.  
  982.  
  983. /* Display the PostScript prologue file for mp */
  984.                    
  985. show_prologue(pro)
  986. char *pro ;              /* Prologue file name */
  987. {
  988.   FILE *pf ;
  989.   char buf[MAXLINE], tmpstr[MAXLINE] ;
  990.   int t2 ;               /* Possible extract page or line length. */
  991.  
  992.   if ((pf = fopen(pro, "r")) == NULL)                                
  993.     {
  994.       FPRINTF(stderr,"%s: Prologue file %s not found.\n",progname, pro) ;
  995.       exit(1) ;
  996.     }
  997.   while (fgets(buf, MAXLINE, pf) != NULL)
  998.     {
  999.       FPUTS(buf, stdout) ;
  1000.  
  1001. /* Check for new line or page length. */
  1002.  
  1003.       SSCANF(buf, "%s %d", tmpstr, &t2) ;
  1004.       if (strcmp(tmpstr, "%%PageLength") == 0)
  1005.         plen = t2 ;               /* Change the page length. */
  1006.       else if (strcmp(tmpstr, "%%LineLength") == 0)
  1007.         llen = t2 ;               /* Change the line length. */
  1008.     }
  1009.   FCLOSE(pf) ;
  1010. }
  1011.  
  1012.  
  1013. startline()
  1014. {
  1015.   PRINTF("(") ;
  1016. }
  1017.  
  1018.  
  1019. startpage()
  1020. {
  1021.   PRINTF("%%%%Page: ? %1d\n", ++tpn) ;
  1022.   set_defs() ;
  1023. }
  1024.  
  1025.  
  1026. textshow(s)
  1027. char *s ;
  1028. {
  1029.   useline() ;
  1030.   FPUTS("sf ", stdout) ;
  1031.   startline() ;
  1032.   expand(s) ;
  1033.   endline() ;
  1034. }
  1035.  
  1036.  
  1037. useline()   /* Called in order to ready a line for printing. */
  1038. {
  1039.   if (++linect > plen || end_of_page == TRUE)
  1040.     {
  1041.       if (landscape && colct == 0)
  1042.         {
  1043.           colct++ ;
  1044.           endcol() ;
  1045.           return ;
  1046.         }
  1047.       colct = 0 ;
  1048.       endpage() ;
  1049.       linect = 0 ;
  1050.       startpage() ;
  1051.     }
  1052. }
  1053. Funky_Stuff
  1054. len=`wc -c < print.c`
  1055. if [ $len !=     4128 ] ; then
  1056. echo error: print.c was $len bytes long, should have been     4128
  1057. fi
  1058. fi # end of overwriting check
  1059. if [ -f extern.h ]
  1060. then
  1061. echo shar: will not over-write existing file extern.h
  1062. else
  1063. echo shar: extracting 'extern.h',     3458 characters
  1064. cat > extern.h <<'Funky_Stuff'
  1065.  
  1066. /*  @(#)extern.h 1.3 90/08/16
  1067.  *
  1068.  *  Contains all the external definitions used by mp.
  1069.  *
  1070.  *  Copyright (c) Steve Holden and Rich Burridge.
  1071.  *                All rights reserved.
  1072.  *
  1073.  *  Permission is given to distribute these sources, as long as the
  1074.  *  copyright messages are not removed, and no monies are exchanged.
  1075.  *
  1076.  *  No responsibility is taken for any errors or inaccuracies inherent
  1077.  *  either to the comments or the code of this program, but if
  1078.  *  reported to me then an attempt will be made to fix them.
  1079.  */
  1080.  
  1081. extern char *APP_FROMHDR ;
  1082. extern char *APP_TOHDR ;
  1083. extern char *CCHDR ;
  1084. extern char *DATEHDR ;
  1085. extern char *FROMHDR ;
  1086. extern char *FROM_HDR ;          /* UNIX From header */
  1087. extern char *NEWSGROUPSHDR ;
  1088. extern char *REPLYHDR ;
  1089. extern char *SUBJECTHDR ;
  1090. extern char *TOHDR ;
  1091.  
  1092. extern char *apparently_from ;   /* Apparently_from: */
  1093. extern char *apparently_to ;     /* Apparently_to: */
  1094. extern char *cc[] ;              /* Cc: (can have multiple lines) */
  1095. extern char *date ;              /* Date: */
  1096. extern char *from ;              /* From: */
  1097. extern char *from_ ;             /* From_ (UNIX from) */
  1098. extern char *gsubject ;          /* Global Subject set from command line. */
  1099. extern char *newsgroups ;        /* Newsgroups: (news articles only) */
  1100. extern char *reply_to ;          /* Reply-to: */
  1101. extern char *subject ;           /* Subject: (can be set from command line) */
  1102. extern char *to[] ;              /* To: (can have multiple lines) */
  1103.  
  1104. extern char curfname[] ;     /* Current file being printed. */
  1105. extern char *message_for ;   /* "[Mail,News,Listing] for " line */
  1106. extern char *nameptr ;       /* Used to getenv the NAME variable. */
  1107. extern char nextline[] ;     /* Read-ahead of the mail message, minus nl */
  1108. extern char *optarg ;        /* Optional command line argument. */
  1109. extern char *owner ;         /* Name of owner (usually equal to 'to') */
  1110. extern char *progname ;      /* Name of this program. */
  1111. extern char *prologue ;      /* Name of PostScript prologue file. */
  1112. extern char proname[] ;      /* Full pathname of the prologue file. */
  1113.  
  1114. extern int colct ;           /* Column count on current page. */
  1115. extern int cmdfiles ;        /* Set if file to print given on command line. */
  1116. extern int landscape ;       /* Set if in landscape (wide) mode. */
  1117. extern int linect ;          /* Line count on current page. */
  1118. extern int llen ;            /* Number of characters per line. */
  1119. extern int optind ;          /* Optional command line argument indicator. */
  1120. extern int pageno ;          /* Page number within message. */
  1121. extern int plen ;            /* Number of lines per page. */
  1122. extern int tpn ;             /* Total number of pages printed. */
  1123.  
  1124. extern bool article ;        /* Set for news in "Article from " format. */
  1125. extern bool digest ;         /* Are we are printing a mail digest (-d) */
  1126. extern bool filofax ;        /* Set if we are printing a filofax file. */
  1127. extern bool folder ;         /* Set if we are printing a mail folder. */
  1128. extern bool text_doc ;       /* Printing normal text (-o) */
  1129. extern bool timeman ;        /* Set if we are printing a Time Manager file. */
  1130.  
  1131. extern bool end_of_file ;    /* EOF indicator */
  1132. extern bool end_of_line ;    /* Is a newline removed from this line */
  1133. extern bool end_of_page ;    /* end-of-page indicator - ^L on input */
  1134.  
  1135. extern document_type doc_type ;  /* Printing type - default mail */
  1136.  
  1137. extern FILE *fp ;            /* File pointer for current file. */
  1138. Funky_Stuff
  1139. len=`wc -c < extern.h`
  1140. if [ $len !=     3458 ] ; then
  1141. echo error: extern.h was $len bytes long, should have been     3458
  1142. fi
  1143. fi # end of overwriting check
  1144. if [ -f mp.h ]
  1145. then
  1146. echo shar: will not over-write existing file mp.h
  1147. else
  1148. echo shar: extracting 'mp.h',     2437 characters
  1149. cat > mp.h <<'Funky_Stuff'
  1150.  
  1151. /*  @(#)mp.h 1.6 90/08/17
  1152.  *
  1153.  *  Contains all the global definitions used by mp.
  1154.  *
  1155.  *  Copyright (c) Steve Holden and Rich Burridge.
  1156.  *                All rights reserved.
  1157.  *
  1158.  *  Permission is given to distribute these sources, as long as the
  1159.  *  copyright messages are not removed, and no monies are exchanged.
  1160.  *
  1161.  *  No responsibility is taken for any errors or inaccuracies inherent
  1162.  *  either to the comments or the code of this program, but if
  1163.  *  reported to me then an attempt will be made to fix them.
  1164.  */
  1165.  
  1166. #include <stdio.h>
  1167. #include <sys/types.h>
  1168. #include <sys/file.h>
  1169. #include <sys/param.h>
  1170. #include <ctype.h>
  1171. #include <time.h>
  1172. #include <pwd.h>
  1173.  
  1174. #ifdef   SYSV
  1175. #include <sys/pathname.h>
  1176. #include <string.h>
  1177. #endif /*SYSV*/
  1178.  
  1179. #define  FCLOSE       (void) fclose
  1180. #define  FPRINTF      (void) fprintf
  1181. #define  FPUTS        (void) fputs
  1182. #define  PRINTF       (void) printf
  1183. #define  PUTC         (void) putc
  1184. #define  SPRINTF      (void) sprintf
  1185. #define  SSCANF       (void) sscanf
  1186. #define  STRCPY       (void) strcpy
  1187. #define  STRNCPY      (void) strncpy
  1188. #define  UNGETC       (void) ungetc
  1189.  
  1190. /* Configuration constants */
  1191.  
  1192. #ifndef  PROLOGUE            /* PostScript prologue file */
  1193. #define  PROLOGUE     "/usr/local/lib"
  1194. #endif /*PROLOGUE*/
  1195.  
  1196. #define  EQUAL(val)   (!strncmp(val, nextline, strlen(val)))
  1197. #define  INC          argc-- ; argv++ ;
  1198.  
  1199. #ifdef  NOINDEX
  1200. #define  index        strchr
  1201. #endif /*NOINDEX*/
  1202.  
  1203. #define  LINELENGTH   80     /* Number of characters per line. */
  1204.  
  1205. #ifndef  MAXPATHLEN
  1206. #define  MAXPATHLEN   1024
  1207. #endif /*MAXPATHLEN*/
  1208.  
  1209. #define  MAXSIZES     4      /* Maximum number of different sizes. */
  1210.  
  1211. #define  NAMELENGTH   18     /* Maximum allowable real user name. */
  1212. #define  PAGELENGTH   60     /* Number of lines per page. */
  1213. #define  MAXCONT      10     /* Maximum no of continuation header lines */
  1214. #define  MAXLINE      256    /* Maximum string length. */
  1215.  
  1216. #ifndef TRUE
  1217. #define TRUE          1
  1218. #define FALSE         0
  1219. #endif  /*TRUE*/
  1220.  
  1221. typedef enum {DO_MAIL, DO_NEWS, DO_TEXT} document_type ;
  1222. typedef char bool ;
  1223.  
  1224. time_t time() ;
  1225. struct tm *localtime() ;
  1226. bool emptyline() ;
  1227. FILE *fopen() ;
  1228. void exit() ;
  1229. char *asctime(), *getenv(), *getlogin(), *gets(), *index(), *malloc() ;
  1230. char *realloc(), *sprintf(), *strchr(), *strcpy(), *strncpy() ;
  1231.  
  1232. void do_date(), get_header(), get_mult_hdr(), init_setup() ;
  1233. void parse_headers(), readline(), reset_headers(), set_defs() ;
  1234. void show_headers(), show_mult_hdr() ;
  1235. Funky_Stuff
  1236. len=`wc -c < mp.h`
  1237. if [ $len !=     2437 ] ; then
  1238. echo error: mp.h was $len bytes long, should have been     2437
  1239. fi
  1240. fi # end of overwriting check
  1241. if [ -f patchlevel.h ]
  1242. then
  1243. echo shar: will not over-write existing file patchlevel.h
  1244. else
  1245. echo shar: extracting 'patchlevel.h',      558 characters
  1246. cat > patchlevel.h <<'Funky_Stuff'
  1247.  
  1248. /*  @(#)patchlevel.h 1.12 90/08/29
  1249.  *
  1250.  *  This is the current patch level for this version of mp.
  1251.  *
  1252.  *  Copyright (c) Steve Holden and Rich Burridge.
  1253.  *                All rights reserved.
  1254.  *
  1255.  *  Permission is given to distribute these sources, as long as the
  1256.  *  copyright messages are not removed, and no monies are exchanged.
  1257.  *
  1258.  *  No responsibility is taken for any errors or inaccuracies inherent
  1259.  *  either to the comments or the code of this program, but if
  1260.  *  reported to me then an attempt will be made to fix them.
  1261.  */
  1262.  
  1263. #define  PATCHLEVEL  5
  1264. Funky_Stuff
  1265. len=`wc -c < patchlevel.h`
  1266. if [ $len !=      558 ] ; then
  1267. echo error: patchlevel.h was $len bytes long, should have been      558
  1268. fi
  1269. fi # end of overwriting check
  1270. if [ -f README ]
  1271. then
  1272. echo shar: will not over-write existing file README
  1273. else
  1274. echo shar: extracting 'README',     4181 characters
  1275. cat > README <<'Funky_Stuff'
  1276.  
  1277. README for mp, the PostScript pretty printer.
  1278.  
  1279. Version 2.4 April 1990.
  1280.  
  1281. Permission is given to distribute these sources, as long as the
  1282. copyright messages are not removed, and no monies are exchanged.
  1283.  
  1284. --------------------------------------------------------------------------
  1285. CONTENTS:
  1286.  
  1287. 1. What is mp?
  1288. 2. Getting started.
  1289. 3. Acknowledgements.
  1290. --------------------------------------------------------------------------
  1291.  
  1292.  
  1293. 1. What is mp?
  1294. --------------
  1295.  
  1296. The mp program will pretty print various files for you. It can be used
  1297. in conjunction with a mail reading utility for producing a pretty print
  1298. of your mail items. It can be used with a news reading tool to pretty
  1299. print news articles. Digests can also be printed, and this version can
  1300. pretty print ordinary ASCII files as well. Support for personal organiser
  1301. printing was added into the last released version.
  1302.  
  1303. This version introduces a landscape mode for mp, to allow you to print
  1304. two "pages" per page. This should all help us save some trees.
  1305.  
  1306. It uses a PostScript prologue file which normally resides in
  1307. /usr/local/lib, but this can be overwritten by use of the -p option.
  1308.  
  1309. See the manual pages for more details on these various options.
  1310.  
  1311.  
  1312. 2. Getting started.
  1313. -------------------
  1314.  
  1315. Initially there is no Makefile file present in the mp source directory.
  1316. You will need to copy Makefile.dist to Makefile, then adjust accordingly.
  1317.  
  1318. The Makefile compilation details are setup to default to compiling on a Sun4
  1319. running SunOS v4.1. Note that there are various compilation definitions that
  1320. might need uncommenting if you are trying to compile and run it on other
  1321. machines or operating systems.
  1322.  
  1323. These are:
  1324.  
  1325. PROLOGUE - Location of the mp prologue file (default: /usr/local/lib)
  1326. NOINDEX  - uncomment if you don't have the index() function.
  1327.  
  1328. See the Makefile for a detailed description of each of these definitions.
  1329.  
  1330. Once you are happy with these settings, then you should do a "make" followed
  1331. by a "make install" which will compile the mp program and put the files in
  1332. their default locations. You will probably have to be super-user when you do
  1333. the "make install"
  1334.  
  1335.  
  1336. 3. Acknowledgements.
  1337. --------------------
  1338.  
  1339. The original version of mp was written by Steve Holden in the ICON language,
  1340. when Steve worked for Sun Microsystems UK. I converted it to the C language
  1341. and added a few features. Bruno Pillard of Chorus Systemes, France added
  1342. support for MH mail and news article printing, plus a shell script (mailp)
  1343. which tidies up the user interface to mp. Dave Glowacki of Public Works
  1344. Computer Services, St Paul, MN. added the ability to print digests and
  1345. tidied up some of the other options. Rick Rodgers, UCSF School of Pharmacy,
  1346. San Francicso revised the initial version of the mp manual page. Doug
  1347. Buchanan added support for printing in filofax and Time Manager format.
  1348. Many thanks go to Jerermy Webber, Computer Science Department of the
  1349. University of Adelaide who rewrote the message parsing and option code and
  1350. made substantial improvements to the programs user friendliness and
  1351. robustness. Sam Manogharan added support for printing multiple files
  1352. specified on the command line, and subject line filename print for ordinary
  1353. files. The landscape mode was written by Michael Tuchiarone.
  1354.  
  1355. Thanks go also to Bill Shannon, Roger De Salis, L. Jill Debord, Frederick
  1356. Avolio, Mark Prior, Stephen Frede, Craig Bishop, Jimmy Aitken, Hugues Leroy,
  1357. Bertrand Decouty, David Fiedler, Scott A. Jordahl, David Boone, Steve Cliffe,
  1358. Maureen Chew, Brian Kohn, Walter Underwood, Mike Khaw, Rick Gunderson, Johan
  1359. Vromans, Brachet, Pierre Mareschal, Roger Riggs, Larry Tsui and Mike
  1360. Bundschuh for bug reports and/or bug fixes plus enhancements.
  1361.  
  1362. My thanks also goes to Glenn Reid from Adobe Systems for the backspacefont.ps
  1363. code used in the prologue files. I'm grateful to all these people, plus
  1364. everybody who has suggested enhancements, and fixed bugs in the previous
  1365. versions.
  1366.  
  1367. ----------------------------------------------------------------------------
  1368.  
  1369. Suggestions for further improvement would be most welcome, plus bug reports
  1370. and comments.
  1371.  
  1372. Rich Burridge,          DOMAIN: richb@Aus.Sun.COM
  1373. PHONE: +61 2 413 2666   ACSnet: richb@sunaus.sun.oz.au
  1374. Funky_Stuff
  1375. len=`wc -c < README`
  1376. if [ $len !=     4181 ] ; then
  1377. echo error: README was $len bytes long, should have been     4181
  1378. fi
  1379. fi # end of overwriting check
  1380. if [ -f MANIFEST ]
  1381. then
  1382. echo shar: will not over-write existing file MANIFEST
  1383. else
  1384. echo shar: extracting 'MANIFEST',     1374 characters
  1385. cat > MANIFEST <<'Funky_Stuff'
  1386. This file tells you in which part of the mp distribution each
  1387. file appeared.
  1388.  
  1389. Filename.                              |  Part #
  1390. --------------------------------------------------
  1391. header.c                               |    1
  1392. io.c                                   |    1
  1393. main.c                                 |    1
  1394. misc.c                                 |    1
  1395. print.c                                |    1
  1396. extern.h                               |    1
  1397. mp.h                                   |    1
  1398. patchlevel.h                           |    1
  1399. README                                 |    1
  1400. Makefile.dist                          |    2
  1401. mailp                                  |    2
  1402. mp.1                                   |    2
  1403. MANIFEST                               |    1
  1404. FILES                                  |    1
  1405. CHANGES                                |    1
  1406. TODO                                   |    1
  1407. mp.el                                  |    2
  1408. mp.pro.ps                              |    2
  1409. mp.pro.alt.ps                          |    2
  1410. mp.pro.filofax.ps                      |    2
  1411. mp.pro.timeman.ps                      |    2
  1412. Data/Mail                              |    2
  1413. Data/MailFolder                        |    2
  1414. Data/NewsArticle1                      |    2
  1415. Data/NewsArticle2                      |    2
  1416. Data/NewsDigest                        |    2
  1417. Funky_Stuff
  1418. len=`wc -c < MANIFEST`
  1419. if [ $len !=     1374 ] ; then
  1420. echo error: MANIFEST was $len bytes long, should have been     1374
  1421. fi
  1422. fi # end of overwriting check
  1423. if [ -f FILES ]
  1424. then
  1425. echo shar: will not over-write existing file FILES
  1426. else
  1427. echo shar: extracting 'FILES',     1795 characters
  1428. cat > FILES <<'Funky_Stuff'
  1429. This file describes all the files that make up the mp distribution.
  1430.  
  1431. Directory mp: the pretty printer for mail, news articles and text files.
  1432. ------------------------------------------------------------------------
  1433.  
  1434. header.c            - mail and news header manipulation routines.
  1435. io.c                - input/output routines for mp.
  1436. main.c              - includes variable declarations and main().
  1437. misc.c              - miscelaneous routines used by mp.
  1438. print.c             - PostScript printing routines.
  1439.  
  1440. extern.h            - External declaractions.
  1441. mp.h                - Macro and constant definitions.
  1442. patchlevel.h        - Current patchlevel for this release of mp.
  1443.  
  1444. README              - describes what mp is, and how to get started.
  1445. Makefile.dist       - Master Makefile used to build mp on Unix systems.
  1446. mailp               - a shell script frontend for running mp.
  1447. mp.1                - the mp manual page (troff/nroff -man format).
  1448. MANIFEST            - tells you what archive part each file was posted in.
  1449. FILES               - what you're reading now.
  1450. CHANGES             - change history. Will be updated with each new patch.
  1451. TODO                - bugs and suggested enhancements. Volunteers?
  1452. mp.el               - emacs code to print with mp.
  1453. mp.pro.ps           - standard mp prologue file.
  1454. mp.pro.alt.ps       - alternative mp prologue file.
  1455. mp.pro.filofax.ps   - mp Filofax prologue file.
  1456. mp.pro.timeman.ps   - mp Time Manager prologue file.
  1457.  
  1458. Sub-directory Data: test data files for new versions of mp.
  1459. -----------------------------------------------------------
  1460. Data/Mail           - a mail article.
  1461. Data/MailFolder     - a simple mail folder.
  1462. Data/NewsArticle1   - a news article.
  1463. Data/NewsArticle2   - another news article.
  1464. Data/NewsDigest     - a digest of news articles.
  1465. Funky_Stuff
  1466. len=`wc -c < FILES`
  1467. if [ $len !=     1795 ] ; then
  1468. echo error: FILES was $len bytes long, should have been     1795
  1469. fi
  1470. fi # end of overwriting check
  1471. if [ -f CHANGES ]
  1472. then
  1473. echo shar: will not over-write existing file CHANGES
  1474. else
  1475. echo shar: extracting 'CHANGES',     5174 characters
  1476. cat > CHANGES <<'Funky_Stuff'
  1477.  
  1478. Mp change history.
  1479. ------------------
  1480.  
  1481. v2.3 - patchlevel 1. - Released to comp.sources.misc (January 1990).
  1482.  
  1483. v2.3 - patchlevel 2. - Posted to comp.sources.bugs (January 1990).
  1484.  
  1485.   Changes:
  1486.  
  1487.     *  From Steve Cliffe <steve@wolfen.cc.uow.oz> 
  1488.        The Makefile used a technique for generating the object files, 
  1489.        from the source files, that not every make has. 
  1490.   
  1491.     *  From Steve Cliffe <steve@wolfen.cc.uow.oz> 
  1492.        Mp used both the index and strchr library calls. It now uses 
  1493.        index by default, and if you don't have this, then you need 
  1494.        to uncomment a macro definition NOINDEX in the Makefile (which 
  1495.        has just been added). 
  1496.  
  1497.     *  From Brian Kohn <bicker@hoqax.att.com> 
  1498.        The variable MAXPATHLEN is not declared on all machines. An 
  1499.        appropriate definition has been added to the mp.h file. 
  1500.  
  1501. New files:
  1502.  
  1503.     *   CHANGES - documented history of the changes made with each new
  1504.                   mp patch.
  1505.  
  1506. v2.3 - patchlevel 3. - Posted to comp.sources.bugs (January 1990).
  1507.  
  1508.     *  The Makefile did not include the CHANGES file in the OTHERS
  1509.        macro definition.
  1510.  
  1511.     *  From Steve Cliffe <steve@wolfen.cc.uow.oz>
  1512.        The new Makefile definition NOINDEX, needs to be included in
  1513.        the CFLAGS definition.
  1514.  
  1515.     *  From Walter Underwood <wunder@hp-ses.sde.hp.com>
  1516.        Several tweaks to the mp man page to correct print on Sys V
  1517.        machines.
  1518.  
  1519. v2.3 - patchlevel 4. - Posted to comp.sources.bugs (January 1990).
  1520.  
  1521.     *  From Mike Khaw <khaw@parcplace.com>
  1522.        The definition for NOINDEX in mp.h should be embedded in an
  1523.        #ifdef not an #ifndef. Arrgghh!!
  1524.  
  1525.     *  The CHANGES file is now upto date.
  1526.  
  1527.     *  From Johan Vromans <jv@mh.nl> 
  1528.        An attempt to initialise the cc array in main.c when the variable
  1529.        is declared doesn't work with the GNU C compiler. This has been
  1530.        removed.
  1531.  
  1532. v2.3 - patchlevel 5. - Posted to comp.sources.bugs (February 1990).
  1533.  
  1534.     *  From Johan Vromans <jv@mh.nl>
  1535.        From Rick Gunderson <rickg@toshiba.tic.oz.au>
  1536.        Storage allocation for string constants is different with cc and
  1537.        the GNU C compiler (gcc). Two adjustments in print.c are needed.
  1538.  
  1539.  
  1540. v2.4 - patchlevel 0. - Started (april 1990).
  1541.  
  1542.     *  From Michael J. Tuciarone <tooch@plan9.Sun.COM>
  1543.        Support for landscape mode. This allows two pages printed per
  1544.        sheet of paper.
  1545.  
  1546.  
  1547. v2.4 - patchlevel 1. - 1st June 1990.
  1548.  
  1549.     *  From Brachet <brachet@imag.fr>
  1550.        Fix for segmentation violation core dump on a System V machine
  1551.        when trying to print multiple news articles.
  1552.  
  1553.     *  From Brachet <brachet@imag.fr>
  1554.        mp took only the first subject of a group of news articles
  1555.        because it didn't parse the subject line properly.
  1556.  
  1557. v2.4 - patchlevel 2. - 14th August 1990. 
  1558.  
  1559.     *  From Pierre Mareschal <pmaresch@hawk.ulowell.edu> 
  1560.  
  1561.        - Fix for multiple mail printing:
  1562.              % mp [-a] file1 file2 file3 ... > mp.out 
  1563.              * Outputs the Prolog only once at the beginning of the file. 
  1564.              * Gives a correct page count at the end of the PostScript file 
  1565.                in the Trailer 
  1566.              * Shorten PostScript output (by more than 10%): 
  1567.                       PrimaryFont -> pf 
  1568.                       SecondaryFont -> sf 
  1569.              * Correct global subject line with -s "Subject" flag. 
  1570.              * Correct current subject line when multiple articles. 
  1571.  
  1572.        - Added another style for mp.pro.ps with the page number in lower
  1573.          right corner. This file has been called mp.pro.alt.ps.
  1574.  
  1575.        - Added Example directory (called Data) with the mp distribution. This
  1576.          contains examples for Mail, Mail Folders, News Articles, News Digests
  1577.          and a plain listing.
  1578.  
  1579.     *  Added a TODO file, with a list of the outstanding problems and
  1580.        suggested enhancements.
  1581.  
  1582.     *  Added MANIFEST and FILES files, to provide a manifest of the
  1583.        distributed files, plus a description of what each file does.
  1584.  
  1585.     *  From Roger Riggs <riggs@suneast.East.Sun.COM>
  1586.        Created emacs functions for printing with mp. A new file (mp.el) has
  1587.        been created.
  1588.  
  1589. v2.4 - patchlevel 3. - 17th August 1990.
  1590.  
  1591.     *  From Larry Tsui <larryt@Canada.Sun.COM>
  1592.        With mp -o filename | lpr, the filename printed on the bottom bar
  1593.        is missing the first character. The subject string setup at the end
  1594.        of set_defs was incorrect.
  1595.  
  1596.     *  Gave mp a though linting (Sun 4/65 - SunOS v4.1).
  1597.  
  1598. v2.4 - patchlevel 4. - 27th August 1990.
  1599.  
  1600.     *  From Mike Bundschuh <mjb@Eng.Sun.COM>
  1601.        Added quick fix to expand() in print.c to check if pointer == NULL
  1602.  
  1603. v2.4 - patchlevel 5. - 29th August 1990.
  1604.  
  1605.     *  From Larry W. Virden <lwv27%cas.BITNET@CUNYVM.CUNY.Edu>
  1606.        Include a Makefile.dist with the mp distribution. This file will
  1607.        need to be copied to Makefile and adjusted accordingly, but it does
  1608.        mean that future changes via patches don't clash with custom user
  1609.        changes. The README file has been updated to mention this.
  1610.  
  1611.     *  From Lupe Christoph <lupe@alanya.Germany.Sun.COM>
  1612.        mp.pro.filofax.ps and mp.pro.timeman.ps still contained definitions
  1613.        for PrimaryFont and SecondaryFont.
  1614. Funky_Stuff
  1615. len=`wc -c < CHANGES`
  1616. if [ $len !=     5174 ] ; then
  1617. echo error: CHANGES was $len bytes long, should have been     5174
  1618. fi
  1619. fi # end of overwriting check
  1620. if [ -f TODO ]
  1621. then
  1622. echo shar: will not over-write existing file TODO
  1623. else
  1624. echo shar: extracting 'TODO',     2508 characters
  1625. cat > TODO <<'Funky_Stuff'
  1626. 1/ From Larry W. Virden <lwv27%cas.BITNET@CUNYVM.CUNY.Edu>
  1627.    Is there any thought of adding support within mp's newsp program to
  1628.    print more of the news article header?  My dream would be to be able
  1629.    to tell newsp (via a .newsprc perhaps?) a set of headers to print using
  1630.    the same syntax as rn - or even having newsp USE my .rnrc file .
  1631.  
  1632. 2/ From Michael J. Tuciarone <tooch@plan9.Sun.COM>
  1633.    The ability to better handle different page sizes depending perhaps on a
  1634.    command line options, or an environment variable, or a LOCALE setting or ...
  1635.  
  1636. 3/ From Michael J. Tuciarone <tooch@plan9.Sun.COM>
  1637.    NeWS/OpenWindows does not implement the CharStrings dictionary.
  1638.    Therefore /backspacefont doesn't work correctly. Need to generate a
  1639.    NeWS/OW compatible version of CourierBack.
  1640.  
  1641. 4/ From Andy Hall <andyh@ncduk.com>
  1642.    Running on a Sparcstation 1+ and with a Canon LBP8 mark 3 printer with
  1643.    PS-1 Scriptcard. This is a true version 51.4 Adobe Interpreter. If I print
  1644.    Unix manual pages using standard Nroff output and the mp.pro.ps v1.2
  1645.    prologue the job gets aborted after a few pages with a stackoverflow
  1646.    message on the serial output (I am using serial interface).  After a bit
  1647.    of investigation using a small C program to produce lines consisting only
  1648.    of a printed line number, a printable character, a backspace, an underscore
  1649.    and a newline, it appears that the job gets aborted on the page where the
  1650.    500th backspace is. I am not a PostScript expert but I am wondering whether
  1651.    the problem lies with the embedded piece of code backspacefont.ps or the way
  1652.    it is used. It is rather too convoluted for me to understand fully but my
  1653.    suspicions are aroused in that the default operand stack size mentioned by
  1654.    Adobe in their red book is 500.
  1655.  
  1656. 5/ From Larry W. Virden <lwv27%cas.BITNET@CUNYVM.CUNY.Edu>
  1657.    Instead of having the lpr going to -Plw in the shell script, have it
  1658.    go to -P$(PRINTER:lw} ... so folks who use the PRINTER variable get it.
  1659.  
  1660. 6/ From Lupe Christoph <lupe@alanya.Germany.Sun.COM>
  1661.    There are so many personal organisers all over the world that you need a
  1662.    more general scheme. What about a flag that takes the name of the personal
  1663.    organisers and sticks it in the mp.pro.%s.ps string ?
  1664.  
  1665.    Of course you need at least a short writeup on how to create these.
  1666.    Better, a short program that takes a general mp.pro.organiser.ps and
  1667.    substitutes a few variables. Or you can use short PostScript fragments,
  1668.    one for each personal organisers.
  1669. Funky_Stuff
  1670. len=`wc -c < TODO`
  1671. if [ $len !=     2508 ] ; then
  1672. echo error: TODO was $len bytes long, should have been     2508
  1673. fi
  1674. fi # end of overwriting check
  1675.  
  1676.