home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / 128c.arc / FORMAT2.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-04  |  4.3 KB  |  205 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 ╬├═─╙   17
  34.  
  35. #DEFINE MAX(X,Y)  ( (X) > (Y) ? (X) : (Y) )
  36. #DEFINE MIN(X,Y)  ( (X) > (Y) ? (Y) : (X) )
  37.  
  38. EXTERN INT
  39.      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. EXTERN CHAR HEADL[], HEADC[], HEADR[];  /* TOP OF PAGE TITLE */
  56. EXTERN CHAR FOOTL[], FOOTC[], FOOTR[];  /* END OF PAGE TITLE */
  57.  
  58. EXTERN CHAR OUTBUF[];   /* OUTPUT BUFFER */
  59. EXTERN INT
  60.      OUTP,             /* LAST CHAR POSITION IN OUTBUF */
  61.      OUTW,         /* WIDTH OF TEXT CURRENTLY IN OUTBUF */
  62.      OUTWDS;       /* NUMBER OF WORDS IN OUTBUF */
  63.  
  64.  
  65. TEXT (INBUF)  /* PROCESS TEXT LINES */
  66. CHAR *INBUF;
  67. █
  68.    STATIC CHAR WRDBUF[╔╬╙╔┌┼];
  69.    STATIC CHAR *I;
  70.  
  71.    IF (*INBUF == ' ' ▀▀ *INBUF == '\N')
  72.       LEADBL (INBUF);
  73.    IF (CEVAL > 0) █
  74.       CENTER (INBUF);
  75.       PUT (INBUF);
  76.       CEVAL--;
  77.    ▌ ELSE IF (*INBUF == '\N')
  78.       PUT (INBUF);
  79.    ELSE IF (FILL == ╬╧)
  80.       PUT (INBUF);
  81.    ELSE
  82.       FOR (I = INBUF; GETWRD (&I,WRDBUF) > 0;)
  83.          PUTWRD (WRDBUF);
  84. ▌
  85.  
  86. LEADBL (BUF)  /* DELETE LEADING BLANKS, SET TIVAL */
  87. CHAR *BUF;
  88. █
  89.    CHAR *I, *J;
  90.  
  91.    BRK();
  92.    FOR (I = BUF; *I == ' '; I++)
  93.       ;
  94.    IF (*I != '\N')
  95.       TIVAL += (I - BUF);
  96.    FOR (J = BUF; *I; J++) █
  97.       *J = *I;
  98.       I++;
  99.    ▌
  100.    *J = '\0';
  101. ▌
  102.  
  103. PUTWRD (WRDBUF)  /* PUT A WORD IN OUTBUF */
  104. CHAR *WRDBUF;
  105. █
  106.    INT LLVAL, NEXTRA, W, LAST;
  107.  
  108.    W = WIDTH (WRDBUF);
  109.    LAST = STRLEN (WRDBUF) + OUTP + 2;
  110.    LLVAL = RMVAL - TIVAL;
  111.    IF (OUTP >= 0 && (OUTW+W > LLVAL ▀▀ LAST >= ═┴╪╧╒╘)) █
  112.       LAST -= OUTP + 1;
  113.       NEXTRA = LLVAL - OUTW + 1;
  114.       SPREAD (OUTBUF, OUTP, NEXTRA, OUTWDS);
  115.       IF (NEXTRA > 0 && OUTWDS > 1)
  116.          OUTP += NEXTRA;
  117.       BRK();
  118.    ▌
  119.    STRCPY (OUTBUF+OUTP+1, WRDBUF);
  120.    OUTP = LAST - 1;
  121.    OUTBUF[OUTP] = ' ';
  122.    OUTW += W + 1;
  123.    OUTWDS++;
  124. ▌
  125.  
  126. WIDTH (BUF)  /* COMPUTE WIDTH OF CHARACTER STRING */
  127. CHAR *BUF;
  128. █
  129.    UNSIGNED WDTH;
  130.  
  131.    FOR (WDTH=0; *BUF; BUF++)
  132.       IF (*BUF != '\N')
  133.          WDTH++;
  134.    RETURN WDTH;
  135. ▌
  136.  
  137. BRK()  /* END CURRENT FILLED LINE */
  138. █
  139.    IF (OUTP >= 0) █
  140.       OUTBUF[OUTP] = '\N';
  141.       OUTBUF[OUTP+1] = '\0';
  142.       PUT (OUTBUF);
  143.    ▌
  144.    OUTP = -1;
  145.    OUTW = 0;
  146.    OUTWDS = 0;
  147. ▌
  148.  
  149. SPREAD (BUF, OUTP, NEXTRA, OUTWDS)
  150. CHAR *BUF;
  151. █
  152.    STATIC DIR = 0;
  153.    UNSIGNED I, J, NB, NE, NHOLES;
  154.  
  155.    IF (NEXTRA <= 0 ▀▀ OUTWDS <= 1)
  156.       RETURN;
  157.    DIR = 1 - DIR;
  158.    NE = NEXTRA;
  159.    NHOLES = OUTWDS - 1;
  160.    I = OUTP - 1;
  161.    J = MIN (═┴╪╧╒╘-3, I+NE);
  162.    WHILE (I < J) █
  163.       BUF[J] = BUF[I];
  164.       IF (BUF[I] == ' ') █
  165.          IF (DIR == 0)
  166.             NB = (NE-1)/NHOLES + 1;
  167.          ELSE
  168.             NB = NE / NHOLES;
  169.          NE -= NB;
  170.          NHOLES--;
  171.          FOR (; NB > 0; NB--) █
  172.             J--;
  173.             BUF[J] = ' ';
  174.          ▌
  175.       ▌
  176.       I--;
  177.       J--;
  178.    ▌
  179. ▌
  180.  
  181. CENTER (BUF)  /* CENTER A LINE BY SETTING TIVAL */
  182. CHAR *BUF;
  183. █
  184.    UNSIGNED TMP;
  185.  
  186.    TMP = (RMVAL + TIVAL - WIDTH(BUF)) >> 1;
  187.    TIVAL = MAX (TMP, 0);
  188. ▌
  189.  
  190. GETWRD (IN, OUT)
  191. CHAR **IN, *OUT;
  192. █
  193.    CHAR *I, *J;
  194.  
  195.    I = *IN;
  196.    WHILE (*I == ' ')
  197.       I++;
  198.    J = OUT;
  199.    WHILE (*I && *I != ' ' && *I != '\N')
  200.       *J++ = *I++;
  201.    *J = '\0';
  202.    *IN = I;
  203.    RETURN (J - OUT);
  204. ▌
  205.