home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume6 / fmtr.patch / diffs next >
Encoding:
Text File  |  1986-11-30  |  10.7 KB  |  535 lines
  1. *** fmtr.c    Thu Jun 19 10:22:09 1986
  2. --- fmtr.new.c    Thu Jun 19 10:21:12 1986
  3. ***************
  4. *** 35,41
  5.                   /* null or not */
  6.       sarray = earray = (char *) 0;
  7.   
  8. !     while ((c = getopt(argc, argv, "zw:s:e:")) != EOF)
  9.       switch (c) {
  10.           case 'z':
  11.           z_flag = 1;
  12.  
  13. --- 35,41 -----
  14.                   /* null or not */
  15.       sarray = earray = (char *) 0;
  16.   
  17. !     while ((c = getopt(argc, argv, "bzw:s:e:")) != EOF)
  18.       switch (c) {
  19.           case 'b':
  20.           b_flag = 1;
  21. ***************
  22. *** 37,42
  23.   
  24.       while ((c = getopt(argc, argv, "zw:s:e:")) != EOF)
  25.       switch (c) {
  26.           case 'z':
  27.           z_flag = 1;
  28.           break;
  29.  
  30. --- 37,45 -----
  31.   
  32.       while ((c = getopt(argc, argv, "bzw:s:e:")) != EOF)
  33.       switch (c) {
  34. +         case 'b':
  35. +         b_flag = 1;
  36. +         break;
  37.           case 'z':
  38.           z_flag = 1;
  39.           break;
  40. *** fmtr.h    Thu Jun 19 10:22:16 1986
  41. --- fmtr.new.h    Thu Jun 19 10:21:14 1986
  42. ***************
  43. *** 1,6
  44.   #include <stdio.h>
  45.   #include <ctype.h>
  46.   
  47.   int z_flag;        /* look behind zero width spaces? */
  48.   int nf_val;        /* no fill on or off? */
  49.   int ul_val;        /* number of lines to underline */
  50.  
  51. --- 1,7 -----
  52.   #include <stdio.h>
  53.   #include <ctype.h>
  54.   
  55. + int b_flag;        /* begin each sentence on a new line */
  56.   int z_flag;        /* look behind zero width spaces? */
  57.   
  58.   int nf_val;        /* no fill on or off? */
  59. ***************
  60. *** 2,7
  61.   #include <ctype.h>
  62.   
  63.   int z_flag;        /* look behind zero width spaces? */
  64.   int nf_val;        /* no fill on or off? */
  65.   int ul_val;        /* number of lines to underline */
  66.   int ce_val;        /* number of lines to center */
  67.  
  68. --- 3,9 -----
  69.   
  70.   int b_flag;        /* begin each sentence on a new line */
  71.   int z_flag;        /* look behind zero width spaces? */
  72. + 
  73.   int nf_val;        /* no fill on or off? */
  74.   int ul_val;        /* number of lines to underline */
  75.   int ce_val;        /* number of lines to center */
  76. ***************
  77. *** 5,10
  78.   int nf_val;        /* no fill on or off? */
  79.   int ul_val;        /* number of lines to underline */
  80.   int ce_val;        /* number of lines to center */
  81.   int llength;
  82.   
  83.   char outbuf[BUFSIZ];    /* output buffer, ridiculously large */
  84.  
  85. --- 7,15 -----
  86.   int nf_val;        /* no fill on or off? */
  87.   int ul_val;        /* number of lines to underline */
  88.   int ce_val;        /* number of lines to center */
  89. + 
  90. + int in_display;        /* are we inside a display? */
  91. + int in_preproc;        /* are we inside preprocessor commands? */
  92.   int llength;
  93.   
  94.   char outbuf[BUFSIZ];    /* output buffer, ridiculously large */
  95. *** fmtr.1    Thu Jun 19 10:21:57 1986
  96. --- fmtr.new.1    Thu Jun 19 10:21:09 1986
  97. ***************
  98. *** 1,4
  99. ! .TH FMTR 1H LOCAL "4th Berkeley Distribution"
  100.   .SH NAME
  101.   fmtr \- simple formatter for
  102.   .I roff
  103.  
  104. --- 1,4 -----
  105. ! .TH FMTR 1H LOCAL "Harvard"
  106.   .SH NAME
  107.   fmtr \- simple formatter for
  108.   .I roff
  109. ***************
  110. *** 5,11
  111.   source files
  112.   .SH SYNOPSIS
  113.   .B fmtr
  114. ! [ \-w
  115.   .I width
  116.   ] [ \-z ] [ \-s
  117.   .I .s1.s2.s3 ... .sn
  118.  
  119. --- 5,11 -----
  120.   source files
  121.   .SH SYNOPSIS
  122.   .B fmtr
  123. ! [ \-b ] [ -z ] [ \-w
  124.   .I width
  125.   ] [ \-s
  126.   .I .s1.s2.s3 ... .sn
  127. ***************
  128. *** 7,13
  129.   .B fmtr
  130.   [ \-w
  131.   .I width
  132. ! ] [ \-z ] [ \-s
  133.   .I .s1.s2.s3 ... .sn
  134.   ] [ \-e
  135.   .I .e1.e2.e3 ... .en
  136.  
  137. --- 7,13 -----
  138.   .B fmtr
  139.   [ \-b ] [ -z ] [ \-w
  140.   .I width
  141. ! ] [ \-s
  142.   .I .s1.s2.s3 ... .sn
  143.   ] [ \-e
  144.   .I .e1.e2.e3 ... .en
  145. ***************
  146. *** 84,89
  147.   .I \-z
  148.   flag it will peek under a zero width character at the start of a line
  149.   seeking a command.
  150.   .I Fmtr
  151.   knows about the
  152.   .IR ms (7)
  153.  
  154. --- 84,92 -----
  155.   .I \-z
  156.   flag it will peek under a zero width character at the start of a line
  157.   seeking a command.
  158. + If you specify the
  159. + .I \-b
  160. + flag each sentence will begin on a new line.
  161.   .I Fmtr
  162.   knows about the
  163.   .IR ms (7)
  164. *** lowtext.c    Thu Jun 19 10:22:24 1986
  165. --- lowtext.new.c    Thu Jun 19 10:21:18 1986
  166. ***************
  167. *** 5,10
  168.   #include "fmtr.h"
  169.   
  170.   int ti_val;
  171.   
  172.   /*  leadbl() deals with leading blanks, causes break, then sets
  173.    *  ti_val to number of blanks, unless line is blank.  Then pulls
  174.  
  175. --- 5,11 -----
  176.   #include "fmtr.h"
  177.   
  178.   int ti_val;
  179. + int e_of_sen;
  180.   
  181.   /*  leadbl() deals with leading blanks, causes break, then sets
  182.    *  ti_val to number of blanks, unless line is blank.  Then pulls
  183. ***************
  184. *** 58,64
  185.       }
  186.   
  187.       while (*pline != ' ' && *pline != '\0') {
  188. !     if (*pline == '\\' && isspace(pline[1])) /* get escaped space in word */
  189.           *word++ = *pline++;
  190.           *word++ = *pline++;
  191.       }
  192.  
  193. --- 59,65 -----
  194.       }
  195.   
  196.       while (*pline != ' ' && *pline != '\0') {
  197. !     if (*pline == '\\' && isspace(pline[1])) /* get escaped space */
  198.           *word++ = *pline++;
  199.           *word++ = *pline++;
  200.       }
  201. ***************
  202. *** 63,71
  203.           *word++ = *pline++;
  204.       }
  205.   
  206. !     /*  get trailing spaces, and guarantee spaces at end of line;
  207. !      *  normally one but two at end of sentence.
  208. !      */
  209.   
  210.       if (*pline == '\0') {
  211.       char *cptmp = pline;
  212.  
  213. --- 64,70 -----
  214.           *word++ = *pline++;
  215.       }
  216.   
  217. !     /* are we at end of sentence? */
  218.   
  219.       if (*pline == '\0' || (*pline == ' ' && *(pline + 1) == ' ')) {
  220.       char *cptmp = pline;
  221. ***************
  222. *** 67,73
  223.        *  normally one but two at end of sentence.
  224.        */
  225.   
  226. !     if (*pline == '\0') {
  227.       char *cptmp = pline;
  228.   
  229.       *word++ = ' ';
  230.  
  231. --- 66,72 -----
  232.   
  233.       /* are we at end of sentence? */
  234.   
  235. !     if (*pline == '\0' || (*pline == ' ' && *(pline + 1) == ' ')) {
  236.       char *cptmp = pline;
  237.   
  238.       while (any(*--cptmp, "\"']})"))
  239. ***************
  240. *** 70,76
  241.       if (*pline == '\0') {
  242.       char *cptmp = pline;
  243.   
  244. -     *word++ = ' ';
  245.       while (any(*--cptmp, "\"']})"))
  246.           ;
  247.       if (any(*cptmp, ".:!?"))
  248.  
  249. --- 69,74 -----
  250.       if (*pline == '\0' || (*pline == ' ' && *(pline + 1) == ' ')) {
  251.       char *cptmp = pline;
  252.   
  253.       while (any(*--cptmp, "\"']})"))
  254.           ;
  255.       if (any(*cptmp, ".:!?"))
  256. ***************
  257. *** 74,79
  258.       while (any(*--cptmp, "\"']})"))
  259.           ;
  260.       if (any(*cptmp, ".:!?"))
  261.           *word++ = ' ';
  262.       }
  263.       while (*pline == ' ')
  264.  
  265. --- 72,89 -----
  266.       while (any(*--cptmp, "\"']})"))
  267.           ;
  268.       if (any(*cptmp, ".:!?"))
  269. +         e_of_sen = 1;
  270. +     else
  271. +         e_of_sen = 0;
  272. +     }
  273. + 
  274. +     /*  if at end of line, add one space (two if end of sentence.
  275. +      *  otherwise  get trailing spaces.
  276. +      */
  277. + 
  278. +     if (*pline == '\0') {
  279. +     *word++ = ' ';
  280. +     if (e_of_sen)
  281.           *word++ = ' ';
  282.       }
  283.   
  284. ***************
  285. *** 76,81
  286.       if (any(*cptmp, ".:!?"))
  287.           *word++ = ' ';
  288.       }
  289.       while (*pline == ' ')
  290.       *word++ = *pline++;
  291.       *word = '\0';
  292.  
  293. --- 86,92 -----
  294.       if (e_of_sen)
  295.           *word++ = ' ';
  296.       }
  297. + 
  298.       while (*pline == ' ')
  299.       *word++ = *pline++;
  300.   
  301. ***************
  302. *** 78,83
  303.       }
  304.       while (*pline == ' ')
  305.       *word++ = *pline++;
  306.       *word = '\0';
  307.       return(pline);
  308.   }
  309.  
  310. --- 89,95 -----
  311.   
  312.       while (*pline == ' ')
  313.       *word++ = *pline++;
  314. + 
  315.       *word = '\0';
  316.       return(pline);
  317.   }
  318. ***************
  319. *** 92,98
  320.       if (s + t <= llength - ti_val) {
  321.       for (; *word; *outp++ = *word++)
  322.           ;
  323. -     return;
  324.       }
  325.       n_brk();
  326.       for (; *word; *outp++ = *word++)
  327.  
  328. --- 104,109 -----
  329.       if (s + t <= llength - ti_val) {
  330.       for (; *word; *outp++ = *word++)
  331.           ;
  332.       }
  333.       else {
  334.       n_brk();
  335. ***************
  336. *** 94,102
  337.           ;
  338.       return;
  339.       }
  340. !     n_brk();
  341. !     for (; *word; *outp++ = *word++)
  342. !     ;
  343.   }
  344.   
  345.   put(line)    /* output routine, separate as is more complex in original */
  346.  
  347. --- 105,120 -----
  348.       for (; *word; *outp++ = *word++)
  349.           ;
  350.       }
  351. !     else {
  352. !     n_brk();
  353. !     for (; *word; *outp++ = *word++)
  354. !         ;
  355. !     }
  356. ! 
  357. !     if (e_of_sen && b_flag) {
  358. !     n_brk();
  359. !     e_of_sen = 0;
  360. !     }
  361.   }
  362.   
  363.   put(line)    /* output routine, separate as is more complex in original */
  364. *** command.c    Thu Jun 19 10:21:39 1986
  365. --- command.new.c    Thu Jun 19 10:21:16 1986
  366. ***************
  367. *** 22,28
  368.   
  369.   enum cmdtype
  370.       {
  371. !     CE, UL, FI, NF, OTHER
  372.       } cmd, getcmd();
  373.   
  374.   int len;
  375.  
  376. --- 22,39 -----
  377.   
  378.   enum cmdtype
  379.       {
  380. !     CE,        /* center */
  381. !     UL,        /* underline */
  382. !     FI,        /* fill mode */
  383. !     NF,        /* no fill mode */
  384. !     PPS,        /* start preprocessor statements */
  385. !     PPE,        /* end preprocessor statements */
  386. !     PS,        /* start pic statements, special case .PS < file */
  387. !     ME_DS,        /* start display in me macros */
  388. !     MM_DS,        /* start display in mm macros */
  389. !     MS_DS,        /* start display in ms macros */
  390. !     DE,        /* end display (me or mm) */
  391. !     OTHER
  392.       } cmd, getcmd();
  393.   
  394.   int len;
  395. ***************
  396. *** 30,36
  397.   struct cmd {
  398.       char *name;
  399.       enum cmdtype type;
  400. ! } cmd_table[50] = { "ce", CE,    /* basic nroff requests */
  401.               "ul", UL,
  402.               "nf", NF,
  403.               "fi", FI,
  404.  
  405. --- 41,47 -----
  406.   struct cmd {
  407.       char *name;
  408.       enum cmdtype type;
  409. ! } cmd_table[50] = { "ce", CE,        /* basic nroff requests */
  410.               "ul", UL,
  411.               "nf", NF,
  412.               "fi", FI,
  413. ***************
  414. *** 34,60
  415.               "ul", UL,
  416.               "nf", NF,
  417.               "fi", FI,
  418. !             "TS", NF,    /* universal macros */
  419. !             "TE", FI,
  420. !             "EQ", NF,
  421. !             "EN", FI,
  422. !             "PS", NF,
  423. !             "PE", FI,
  424. !             "IS", NF,
  425. !             "IE", FI,
  426. !             "DS", NF,    /* ms macros */
  427. !             "ID", NF,
  428. !             "CD", NF,
  429. !             "LD", NF,
  430. !             "DE", FI,
  431. !             "(b", NF,    /* me macros */
  432. !             ")b", FI,
  433. !             "(c", NF,
  434. !             ")c", FI,
  435. !             "(l", NF,
  436. !             ")l", FI,
  437. !             "(z", NF,
  438. !             ")z", FI,
  439.               (char *) NULL, OTHER
  440.           };
  441.   
  442.  
  443. --- 45,73 -----
  444.               "ul", UL,
  445.               "nf", NF,
  446.               "fi", FI,
  447. !             "TS", PPS,        /* preprocessor start and end */
  448. !             "TE", PPE,
  449. !             "EQ", PPS,
  450. !             "EN", PPE,
  451. !             "PS", PS,        /* special because of .PS < file */
  452. !             "PE", PPE,
  453. !             "IS", PPS,        /* ideal, if you have it! */
  454. !             "IE", PPE,
  455. !             "G1", PPS,        /* grap */
  456. !             "G2", PPE,
  457. !             "DS", MM_DS,    /* ms macros */
  458. !             "ID", MM_DS,
  459. !             "CD", MM_DS,
  460. !             "LD", MM_DS,
  461. !             "DE", DE,
  462. !             "(b", ME_DS,    /* me macros of the display variety */
  463. !             ")b", DE,
  464. !             "(c", ME_DS,
  465. !             ")c", DE,
  466. !             "(l", ME_DS,
  467. !             ")l", DE,
  468. !             "(z", ME_DS,
  469. !             ")z", DE,
  470.               (char *) NULL, OTHER
  471.           };
  472.   
  473. ***************
  474. *** 88,93
  475.           nf_val = 1;
  476.           break;
  477.       case FI:
  478.           nf_val = 0;
  479.           break;
  480.       }
  481.  
  482. --- 101,118 -----
  483.           nf_val = 1;
  484.           break;
  485.       case FI:
  486. +         if (in_preproc == 0 && in_display == 0)
  487. +         nf_val = 0;
  488. +         break;
  489. +     case ME_DS:
  490. +     case MM_DS:
  491. +         if (index(line, 'F') == NULL) {
  492. +         in_display = 1;
  493. +         nf_val = 1;
  494. +         }
  495. +         break;
  496. +     case DE:
  497. +         in_display = 0;
  498.           nf_val = 0;
  499.           break;
  500.       case PPS:
  501. ***************
  502. *** 89,94
  503.           break;
  504.       case FI:
  505.           nf_val = 0;
  506.           break;
  507.       }
  508.   
  509.  
  510. --- 114,137 -----
  511.       case DE:
  512.           in_display = 0;
  513.           nf_val = 0;
  514. +         break;
  515. +     case PPS:
  516. +         in_preproc = 1;
  517. +         nf_val = 1;
  518. +         break;
  519. +     case PPE:
  520. +         in_preproc = 0;
  521. +         if (in_display == 0)
  522. +         nf_val = 0;
  523. +         break;
  524. +     case PS:
  525. +         if (index(line, '<') == NULL) {    /* not .PS < file */
  526. +         in_preproc = 1;
  527. +         nf_val = 1;
  528. +         }
  529. +         break;
  530. +     default:
  531. +         fprintf(stderr, "program bug: got cmd = %d\n", cmd);
  532.           break;
  533.       }
  534.   
  535.