home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / 128c.arc / FORMAT.C < prev    next >
Text File  |  1993-03-04  |  8KB  |  381 lines
  1. #INCLUDE <STDIO.H>
  2.  
  3. #DEFINE ╔╬╙╔┌┼      100
  4. #DEFINE ═┴╪╠╔╬┼     100
  5. #DEFINE ═┴╪╧╒╘      200
  6. #DEFINE ├╧══┴╬─     '.'
  7. #DEFINE ╨┴╟┼╬╒═     '#'
  8. #DEFINE ╚╒╟┼       1000
  9. #DEFINE ╨┴╟┼╠┼╬      66
  10. #DEFINE ╨┴╟┼╫╔─╘╚    60
  11. #DEFINE ┘┼╙           1
  12. #DEFINE ╬╧            0
  13. #DEFINE ═┴╥╟╔╬        3
  14.  
  15. #DEFINE ╒╬╦╬╧╫╬  0
  16. #DEFINE ╞╔       1
  17. #DEFINE ╬╞       2
  18. #DEFINE ┬╥       3
  19. #DEFINE ╠╙       4
  20. #DEFINE ┬╨       5
  21. #DEFINE ╙╨       6
  22. #DEFINE ╔╬       7
  23. #DEFINE ╥═       8
  24. #DEFINE ╘╔       9
  25. #DEFINE ├┼      10
  26. #DEFINE ╚┼      11
  27. #DEFINE ╞╧      12
  28. #DEFINE ╨╠      13
  29. #DEFINE ═1      14
  30. #DEFINE ═2      15
  31. #DEFINE ═3      16
  32. #DEFINE ═4      17
  33. #DEFINE ╬┼      18
  34. #DEFINE ╬├═─╙   18
  35.  
  36. #DEFINE MAX(X,Y)  ( (X) > (Y) ? (X) : (Y) )
  37. #DEFINE MIN(X,Y)  ( (X) > (Y) ? (Y) : (X) )
  38.  
  39. INT  FILL,         /* FILL IS ┘┼╙ */
  40.      LSVAL,        /* CURRENT LINE SPACING */
  41.      INVAL,        /* CURRENT INDENT */
  42.      RMVAL,        /* CURRENT RIGHT MARGIN */
  43.      TIVAL,        /* CURRENT TEMPORARY INDENT */
  44.      CEVAL,        /* NUMBER OF LINES TO CENTER */
  45.      CURPAG,       /* CURRENT OUTPUT PAGE NUMBER */
  46.      NEWPAG,       /* NEXT OUTPUT PAGE NUMBER */
  47.      LINENO,       /* NEXT LINE TO BE PRINTED */
  48.      PLVAL,        /* PAGE LENGTH IN LINES */
  49.      M1VAL,        /* MARGIN BEFORE AND INCLUDING HEADER */ 
  50.      M2VAL,        /* MARGIN AFTER HEADER */
  51.      M3VAL,        /* MARGIN AFTER LAST LINE */
  52.      M4VAL,        /* BOTTOM MARGIN, INCLUDING FOOTER */
  53.      BOTTOM;       /* LAST LIVE LINE ON PAGE, = PLVAL - M3VAL - M4VAL */
  54.  
  55. CHAR HEADL[═┴╪╠╔╬┼], HEADC[═┴╪╠╔╬┼], HEADR[═┴╪╠╔╬┼];  /* TOP OF PAGE TITLE */
  56. CHAR FOOTL[═┴╪╠╔╬┼], FOOTC[═┴╪╠╔╬┼], FOOTR[═┴╪╠╔╬┼];  /* END OF PAGE TITLE */
  57.  
  58. CHAR OUTBUF[═┴╪╧╒╘];   /* OUTPUT BUFFER */
  59. INT  OUTP,            /* LAST CHAR POSITION IN OUTBUF */
  60.      OUTW,         /* WIDTH OF TEXT CURRENTLY IN OUTBUF */
  61.      OUTWDS;       /* NUMBER OF WORDS IN OUTBUF */
  62.  
  63.  
  64. MAIN (ARGC, ARGV) /* TEXT FORMATTER */
  65. UNSIGNED ARGC;
  66. CHAR **ARGV;
  67. █
  68.    ╞╔╠┼ FIN;
  69.  
  70.    INIT();
  71.    IF (ARGC == 1)
  72.       FORMAT (STDIN);
  73.    ELSE
  74.       WHILE (--ARGC) █
  75.          IF ((FIN = FOPEN (*++ARGV, "R")) == ╬╒╠╠ ▀▀ FERROR()) █
  76.             PRINTF ("CAN'T OPEN %S\N", *ARGV);
  77.             EXIT();
  78.          ▌
  79.          FORMAT (FIN);
  80.          FCLOSE (FIN);
  81.       ▌
  82.    IF (LINENO > 0)
  83.       SPACE (╚╒╟┼);
  84. ▌
  85.  
  86. FORMAT (FIN)
  87. ╞╔╠┼ FIN;
  88. █
  89.    STATIC CHAR INBUF[╔╬╙╔┌┼];
  90.  
  91.    WHILE (FGETS (INBUF, ╔╬╙╔┌┼, FIN) != ╬╒╠╠)
  92.       IF (*INBUF == ├╧══┴╬─)
  93.          COMMAND (INBUF);
  94.       ELSE
  95.          TEXT (INBUF);
  96. ▌
  97.  
  98. INIT() /* INITIALIZE VARIABLES */
  99. █
  100.    CURPAG = 0;
  101.    NEWPAG = 1;
  102.    LINENO = 0;
  103.    PLVAL  = ╨┴╟┼╠┼╬;
  104.    *HEADL = '\0';
  105.    *HEADC = '\0';
  106.    *HEADR = '\0';
  107.    *FOOTL = '\0';
  108.    *FOOTC = '\0';
  109.    *FOOTR = '\0';
  110.    FILL = ┘┼╙;
  111.    LSVAL = 1;
  112.    INVAL = 0;
  113.    RMVAL = ╨┴╟┼╫╔─╘╚;
  114.    TIVAL = 0;
  115.    CEVAL = 0;
  116.    OUTP = -1;
  117.    OUTW = 0;
  118.    OUTWDS = 0;
  119.    M1VAL = ═┴╥╟╔╬;
  120.    M2VAL = ═┴╥╟╔╬;
  121.    M3VAL = ═┴╥╟╔╬;
  122.    M4VAL = ═┴╥╟╔╬;
  123.    BOTTOM = PLVAL - M3VAL - M4VAL;
  124. ▌
  125.  
  126. COMMAND (BUF) /* PERFORM FORMATTING COMMAND */
  127. CHAR *BUF;
  128. █
  129.    INT CT;
  130.    INT VAL;
  131.    STATIC CHAR ARGTYP;
  132.    STATIC SPVAL;
  133.  
  134.    IF ((CT = COMTYP(BUF)) == ╒╬╦╬╧╫╬)
  135.       RETURN;
  136.    VAL = GETVAL (BUF, &ARGTYP);
  137.    SWITCH (CT) █
  138.       CASE ╞╔:
  139.          BRK();
  140.          FILL = ┘┼╙;
  141.          BREAK;
  142.       CASE ╬╞:
  143.          BRK();
  144.          FILL = ╬╧;
  145.          BREAK;
  146.       CASE ┬╥:
  147.          BRK();
  148.          BREAK;
  149.       CASE ╠╙:
  150.          SET (&LSVAL, VAL, ARGTYP, 1, 1, ╚╒╟┼);
  151.          BREAK;
  152.       CASE ╙╨:
  153.          SET (&SPVAL, VAL, ARGTYP, 1, 0, ╚╒╟┼);
  154.          SPACE (SPVAL);
  155.          BREAK;
  156.       CASE ┬╨:
  157.          IF (LINENO > 0)
  158.             SPACE (╚╒╟┼);
  159.          SET (&CURPAG, VAL, ARGTYP, CURPAG+1, -╚╒╟┼, ╚╒╟┼);
  160.          NEWPAG = CURPAG;
  161.          BREAK;
  162.       CASE ╨╠:
  163.          SET (&PLVAL, VAL, ARGTYP, ╨┴╟┼╠┼╬, M1VAL+M2VAL+M3VAL+M4VAL+1, ╚╒╟┼);
  164.          BOTTOM = PLVAL - M3VAL - M4VAL;
  165.          BREAK;
  166.       CASE ╔╬:
  167.          SET (&INVAL, VAL, ARGTYP, 0, 0, RMVAL - 1);
  168.          TIVAL = INVAL;
  169.          BREAK;
  170.       CASE ╥═:
  171.          SET (&RMVAL, VAL, ARGTYP, ╨┴╟┼╫╔─╘╚, TIVAL+1, ╚╒╟┼);
  172.          BREAK;
  173.       CASE ╘╔:
  174.          SET (&TIVAL, VAL, ARGTYP, 0, 0, RMVAL);
  175.          BREAK;
  176.       CASE ├┼:
  177.          BRK();
  178.          SET (&CEVAL, VAL, ARGTYP, 1, 0, ╚╒╟┼);
  179.          BREAK;
  180.       CASE ╚┼:
  181.          GETTL (BUF, HEADL, HEADC, HEADR);
  182.          BREAK;
  183.       CASE ╞╧:
  184.          GETTL (BUF, FOOTL, FOOTC, FOOTR);
  185.          BREAK;
  186.       CASE ═1:
  187.          SET (&M1VAL, VAL, ARGTYP, ═┴╥╟╔╬, 0, PLVAL-M2VAL-M3VAL-M4VAL-1);
  188.          BREAK;
  189.       CASE ═2:
  190.          SET (&M2VAL, VAL, ARGTYP, ═┴╥╟╔╬, 0, PLVAL-M1VAL-M3VAL-M4VAL-1);
  191.          BREAK;
  192.       CASE ═3:
  193.          SET (&M3VAL, VAL, ARGTYP, ═┴╥╟╔╬, 0, PLVAL-M1VAL-M2VAL-M4VAL-1);
  194.          BOTTOM = PLVAL - M3VAL - M4VAL;
  195.          BREAK;
  196.       CASE ═4:
  197.          SET (&M4VAL, VAL, ARGTYP, ═┴╥╟╔╬, 0, PLVAL-M1VAL-M2VAL-M3VAL-1);
  198.          BOTTOM = PLVAL - M3VAL - M4VAL;
  199.          BREAK;
  200.       CASE ╬┼:
  201.          BRK();
  202.          IF (VAL > BOTTOM - LINENO + 1)
  203.             SPACE (╚╒╟┼);
  204.          BREAK;
  205.    ▌
  206. ▌
  207.  
  208. COMTYP (BUF)
  209. CHAR *BUF;
  210. █
  211.    STATIC CHAR COMMANDS[][3] = █
  212.                   "FI", "NF", "BR", "LS", "BP",
  213.                   "SP", "IN", "RM", "TI", "CE",
  214.                   "HE", "FO", "PL", "M1", "M2",
  215.                   "M3", "M4", "NE"
  216.                ▌;
  217.    CHAR *P;
  218.    UNSIGNED I;
  219.  
  220.    FOR (P=COMMANDS, I=1; I <= ╬├═─╙; I++, P+=3)
  221.       IF (BUF[1] == *P && BUF[2] == *(P+1))
  222.          RETURN (I);
  223.    RETURN ╒╬╦╬╧╫╬;
  224. ▌
  225.  
  226. GETVAL (BUF, ARGTYP)  /* EVALUATE OPTIONAL NUMERIC ARGUMENT */
  227. CHAR *BUF, *ARGTYP;
  228. █
  229.    CHAR *SKIPB();
  230.  
  231.    BUF = SKIPB (BUF + 3);
  232.    *ARGTYP = *BUF;
  233.    IF (*ARGTYP == '+' ▀▀ *ARGTYP == '-')
  234.       BUF++;
  235.    RETURN (ATOI(BUF));
  236. ▌
  237.  
  238. SET (PARAM, VAL, ARGTYP, DEFVAL, MINVAL, MAXVAL)
  239. INT *PARAM;
  240. █
  241.    SWITCH (ARGTYP) █
  242.       CASE '\N':
  243.          *PARAM = DEFVAL;
  244.          BREAK;
  245.       CASE '+':
  246.          *PARAM += VAL;
  247.          BREAK;
  248.       CASE '-':
  249.          *PARAM -= VAL;
  250.          BREAK;
  251.       DEFAULT:
  252.          *PARAM = VAL;
  253.    ▌
  254.    *PARAM = MIN (*PARAM, MAXVAL);
  255.    *PARAM = MAX (*PARAM, MINVAL);
  256. ▌
  257.  
  258. PUT (BUF) /* PUT OUT LINE WITH PROPER SPACING AND INDENTING */
  259. CHAR *BUF;
  260. █
  261.    UNSIGNED I;
  262.  
  263.    IF (LINENO == 0 ▀▀ LINENO > BOTTOM)
  264.       PHEAD();
  265.    FOR (I = TIVAL; I--;)
  266.       PUTCHAR (' ');
  267.    TIVAL = INVAL;
  268.    FPUTS (BUF, STDOUT);
  269.    SKIP (MIN(LSVAL-1, BOTTOM-LINENO));
  270.    LINENO += LSVAL;
  271.    IF (LINENO > BOTTOM)
  272.       PFOOT();
  273. ▌
  274.  
  275. PHEAD()  /* PUT OUT PAGE HEADER */
  276. █
  277.    CURPAG = NEWPAG++;
  278.    IF (M1VAL > 0) █
  279.       SKIP (M1VAL - 1);
  280.       PUTTL (HEADL, HEADC, HEADR, CURPAG);
  281.    ▌
  282.    SKIP (M2VAL);
  283.    LINENO = M1VAL + M2VAL + 1;
  284. ▌
  285.  
  286. PFOOT()  /* PUT OUT PAGE FOOTER */
  287. █
  288.    SKIP (M3VAL);
  289.    IF (M4VAL > 0) █
  290.       PUTTL (FOOTL, FOOTC, FOOTR, CURPAG);
  291.       SKIP (M4VAL - 1);
  292.    ▌
  293. ▌
  294.  
  295. PUTTL (TTLL, TTLC, TTLR, PAGENO) /* PUT OUT TITLE LINE WITH OPTIONAL PAGE NUMBER */
  296. CHAR *TTLL, *TTLC, *TTLR;
  297. █
  298.    STATIC CHAR TTLOUT[═┴╪╠╔╬┼];
  299.    INT LEN, NCHARS, SHIFT;
  300.  
  301.    NCHARS = EXPAND (TTLOUT, TTLL, PAGENO) + TIVAL;
  302.    PRINTF ("%*S", NCHARS, TTLOUT);
  303.    LEN = EXPAND (TTLOUT, TTLC, PAGENO);
  304.    SHIFT = ((RMVAL + TIVAL - LEN) >> 1) - NCHARS;
  305.    PRINTF ("%*S", SHIFT+LEN, TTLOUT);
  306.    NCHARS += SHIFT + LEN;
  307.    EXPAND (TTLOUT, TTLR, PAGENO);
  308.    PRINTF ("%*S\N", MAX(RMVAL-NCHARS,0), TTLOUT);
  309. ▌
  310.  
  311. EXPAND (OUT, IN, PAGENO)
  312. CHAR *OUT, *IN;
  313. █
  314.    CHAR *I;
  315.  
  316.    FOR (I = OUT; *IN; IN++)
  317.       IF (*IN == ╨┴╟┼╬╒═) █
  318.          SPRINTF (I, "%D", PAGENO);
  319.          FOR (; *I; I++)
  320.             ;
  321.       ▌ ELSE
  322.          *I++ = *IN;
  323.    *I = '\0';
  324.    RETURN (STRLEN(OUT));
  325. ▌
  326.  
  327. GETTL (BUF, TTLL, TTLC, TTLR)  /* COPY TITLE FROM BUF TO TTL */
  328. CHAR *BUF, *TTLL, *TTLC, *TTLR;
  329. █
  330.    IF ((BUF = GETTL2 (BUF, TTLL)) == ╬╒╠╠)
  331.       RETURN;
  332.    IF ((BUF = GETTL2 (BUF, TTLL)) == ╬╒╠╠)
  333.       RETURN;
  334.    IF ((BUF = GETTL2 (BUF, TTLC)) == ╬╒╠╠)
  335.       RETURN;
  336.    GETTL2 (BUF, TTLR);
  337. ▌
  338.  
  339. GETTL2 (BUF, TTL)
  340. CHAR *BUF, *TTL;
  341. █
  342.    FOR (BUF++; *BUF != '/'; BUF++) █
  343.       IF (*BUF == '\N') █
  344.          *TTL = '\0';
  345.          RETURN ╬╒╠╠;
  346.       ▌
  347.       *TTL++ = *BUF;
  348.    ▌
  349.    *TTL = '\0';
  350.    RETURN BUF;
  351. ▌
  352.  
  353. SPACE (N)  /* SPACE N LINES OR TO BOTTOM OF PAGE */
  354. █
  355.    BRK();
  356.    IF (LINENO > BOTTOM)
  357.       RETURN;
  358.    IF (LINENO == 0)
  359.       PHEAD();
  360.    SKIP (MIN(N, BOTTOM+1-LINENO));
  361.    LINENO += N;
  362.    IF (LINENO > BOTTOM)
  363.       PFOOT();
  364. ▌
  365.  
  366. SKIP (N)  /* OUTPUT N BLANK LINES */
  367. █
  368.    INT I;
  369.  
  370.    FOR (I = 1; I <= N; I++)
  371.       PUTCHAR ('\N');
  372. ▌
  373.  
  374. CHAR *SKIPB (P)
  375. CHAR *P;
  376. █
  377.    FOR (; *P == ' '; P++)
  378.       ;
  379.    RETURN P;
  380. ▌
  381.