home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource3 / 143_01 / cb.c < prev    next >
Text File  |  1985-11-15  |  12KB  |  548 lines
  1. /*
  2. %CC1 $1.C -X -e5000
  3. %CLINK $1 DIO -S
  4. %DELETE    $1.CRL
  5. */
  6. /*******************************************************************
  7. *                 CB                       *
  8. ********************************************************************
  9. *          COPYRIGHT 1983 EUGENE    H. MALLORY           *
  10. *******************************************************************/
  11.  
  12. #include <bdscio.h>
  13. #include <dio.h>
  14.  
  15. #define    flush /**/
  16. #define    AND &&
  17. #define    OR ||
  18. #define    EQUAL ==
  19. #define    NOTEQUAL !=
  20. #define    NOT !
  21.  
  22. #define    LOOPTYPE 1
  23. #define    IFTYPE 2
  24. FUNCTION char *do_comment();
  25. FUNCTION char *do_begin();
  26. FUNCTION char *do_end();
  27. FUNCTION char *do_case();
  28. FUNCTION char *do_default();
  29. FUNCTION char *do_semi();
  30. FUNCTION char *do_paren();
  31. FUNCTION char *do_quote();
  32. FUNCTION char *do_string();
  33. FUNCTION char *do_next_word();
  34. FUNCTION char inline[MAXLINE];
  35. int indent,nlflag,step;
  36. int verb, verbx, verbstk[20];
  37.  
  38. main(argc,argv)
  39. char **argv;
  40. int argc;
  41.  
  42.   BEGIN
  43.     char c;
  44.     int    ii,jj,optionerr;
  45.     char *ss;
  46.     char *stgptr;
  47.     dioinit(&argc,argv);
  48.  
  49. /*********************************************************************
  50. *           ARGUMENT PROCESSING                     *
  51. *********************************************************************/
  52.  
  53.     step = 2;
  54.     optionerr =    FALSE;
  55.     for    (ii=argc-1;ii>0;ii--)
  56.     if (argv[ii][0] == '-')
  57.       THEN
  58.     for (ss    = &argv[ii][1];    *ss != '\0';)
  59.       LOOP
  60.         switch (toupper(*ss++))
  61.           BEGIN
  62.           case 'I':
  63.         step = atoi(ss);
  64.         break;
  65.           case 'H':
  66.         optionerr = TRUE;
  67.         break;
  68.           default:
  69.         fprintf(STDERR,"CB: Illegal option %c.\n",*--ss);
  70.         ss++;
  71.         optionerr = TRUE;
  72.         break;
  73.           END
  74.         while (isdigit(*ss)) 
  75.           LOOP
  76.         ss++;
  77.           ENDLOOP
  78.       ENDLOOP
  79.     for (jj=ii;jj<(argc-1);jj++) argv[jj] =    argv[jj+1];
  80.     argc--;
  81.       ENDIF
  82.  
  83.     if (optionerr) 
  84.       THEN
  85.     fprintf(STDERR,"CB: Formats a C    Program    with structured    indentation\n");
  86.     fprintf(STDERR,"CB: -In     n is indent step, default is 2\n");
  87.     fprintf(STDERR,"Ex. A:CB <T-UNFORM.C >T-FORMAT.C\n");
  88.     exit(0);
  89.       ENDIF
  90. /********************************************************************
  91. *              END OF ARGUMENT PROCESSING            *
  92. ********************************************************************/
  93.  
  94.     indent = 0;         /* start indent at 0 */
  95.     nlflag = 0;         /* set    to bol */
  96.     verbx = 0;        /* set verb stack empty    */
  97.     while (!getstring(inline))
  98.       LOOP
  99.     stgptr = inline;
  100.     while (*stgptr EQUAL ' ' OR *stgptr EQUAL '\t')    
  101.       LOOP
  102.         stgptr++;
  103.       ENDLOOP
  104.  
  105.     if (*stgptr EQUAL '\n')    
  106.       THEN
  107.         nlflag = -1;
  108.       ENDIF
  109.  
  110.  
  111.     if (is_begin(stgptr)) ;
  112.     else if    (is_loop(stgptr)) verb = LOOPTYPE;
  113.     else if    (is_if(stgptr))    verb = IFTYPE;
  114.     else verb = 0;
  115.     while (*stgptr NOTEQUAL    '\n')
  116.       LOOP
  117.         if (*stgptr    EQUAL ';') stgptr = do_semi(stgptr);
  118.         else if (is_comment(stgptr)) stgptr    = do_comment(stgptr);
  119.         else if (is_begin(stgptr)) stgptr =    do_begin(stgptr);
  120.         else if (is_default(stgptr)) stgptr    = do_default(stgptr);
  121.         else if (is_case(stgptr)) stgptr = do_case(stgptr);
  122.         else if (is_end(stgptr)) stgptr = do_end(stgptr);
  123.         else if (is_paren(stgptr)) stgptr =    do_paren(stgptr);
  124.         else if (is_quote(stgptr)) stgptr =    do_quote(stgptr);
  125.         else if (is_string(stgptr))    stgptr = do_string(stgptr);
  126.         else stgptr    = do_next_word(stgptr);
  127.       ENDLOOP
  128.     newline();
  129.       ENDLOOP
  130.     if (verbx NOTEQUAL 0) error("CB: Too few ENDs.");
  131.     dioflush();
  132.   END
  133.  
  134. FUNCTION is_comment(string)
  135. char string[];
  136.   BEGIN
  137.     if ((string[0] EQUAL '/') AND (string[1] EQUAL '*')) return    TRUE;
  138.     return FALSE;
  139.   END
  140.  
  141. FUNCTION is_quote(string)
  142. char string[];
  143.   BEGIN
  144.     if (string[0] EQUAL    '\'') return TRUE;
  145.     return FALSE;
  146.   END
  147.  
  148. FUNCTION is_paren(string)
  149. char string[];
  150.   BEGIN
  151.     if (string[0] EQUAL    '(') return TRUE;
  152.     return FALSE;
  153.   END
  154.  
  155. FUNCTION is_string(string)
  156. char string[];
  157.   BEGIN
  158.     if (string[0] EQUAL    '"') return TRUE;
  159.     return FALSE;
  160.   END
  161.  
  162. FUNCTION is_begin(string)
  163. char string[];
  164.   BEGIN
  165.     if (string[0] EQUAL    '{') return TRUE;
  166.     if (strmatch(string,"BEGIN")) return TRUE;
  167.     if (strmatch(string,"LOOP")) return    TRUE;
  168.     if (strmatch(string,"THEN")) return    TRUE;
  169.     return FALSE;
  170.   END
  171.  
  172. FUNCTION is_end(string)
  173. char string[];
  174.   BEGIN
  175.     if (string[0] EQUAL    '}') return TRUE;
  176.     if (strmatch(string,"ENDLOOP")) return TRUE;
  177.     if (strmatch(string,"ENDIF")) return TRUE;
  178.     if (strmatch(string,"END"))    return TRUE;
  179.     return FALSE;
  180.   END
  181.  
  182. FUNCTION is_case(string)
  183. char string[];
  184.   BEGIN
  185.     if (strmatch(string,"CASE")) return    TRUE;
  186.     return FALSE;
  187.   END
  188.  
  189. FUNCTION is_default(string)
  190. char string[];
  191.   BEGIN
  192.     if (strmatch(string,"default:")) return TRUE;
  193.     return FALSE;
  194.   END
  195.  
  196. FUNCTION is_if(string)
  197. char string[];
  198.   BEGIN
  199.     if (strmatch(string,"IF")) return TRUE;
  200.     if (strmatch(string,"else")) return    TRUE;
  201.     return FALSE;
  202.   END
  203.  
  204. FUNCTION is_loop(string)
  205. char string[];
  206.   BEGIN
  207.     if (strmatch(string,"WHILE")) return TRUE;
  208.     if (strmatch(string,"DO")) return TRUE;
  209.     if (strmatch(string,"FOR"))    return TRUE;
  210.     return FALSE;
  211.   END
  212.  
  213. FUNCTION pushv()
  214.   BEGIN
  215.     verbstk[verbx++] = verb;
  216.   END
  217.  
  218. FUNCTION pullv()
  219.   BEGIN
  220.     verb = verbstk[--verbx];
  221.     if (verbx <    0) error("CB: Too many ENDs.");
  222.     return verb;
  223.   END
  224.  
  225.  
  226. FUNCTION strmatch(s1,s2)
  227. char *s1, *s2;
  228.   BEGIN
  229.     while (*s2)    
  230.       LOOP
  231.     if (toupper(*s1++) NOTEQUAL *s2++) 
  232.       THEN
  233.         return FALSE;
  234.       ENDIF
  235.       ENDLOOP
  236.     if (isalpha(*s1)) return FALSE;
  237.     if (isdigit(*s1)) return FALSE;
  238.     if (*s1 EQUAL '_') return FALSE;
  239.     if (*s1 EQUAL ':') return FALSE;
  240.     if (*s1 EQUAL ';') return FALSE;
  241.     return TRUE;
  242.   END
  243.  
  244. FUNCTION newline()
  245.   BEGIN
  246.     if (nlflag < 0)
  247.       THEN
  248.     putchar('\n');
  249.     nlflag = 0;
  250.       ENDIF
  251.   END
  252.  
  253. FUNCTION char *do_comment(string)
  254. char *string;
  255.   BEGIN
  256.     if (string NOTEQUAL    inline)    tabin();
  257.     putchar(*string++);
  258.     putchar(*string++);
  259.     nlflag = -1;
  260.     while (TRUE)
  261.       LOOP
  262.     if (*string EQUAL '\n')    
  263.       THEN
  264.         if (getstring(inline))
  265.           THEN
  266.         error("CB: EOF encountered in comment.");
  267.           ENDIF
  268.         putchar('\n');
  269.         string = inline;
  270.         continue;
  271.       ENDIF
  272.     if (*string NOTEQUAL '*') 
  273.       THEN
  274.         if (is_comment(string)) 
  275.           THEN
  276.         string = do_comment(string);
  277.           ENDIF
  278.         else 
  279.           THEN
  280.         putchar(*string++);
  281.           ENDIF
  282.         continue;
  283.       ENDIF
  284.     else 
  285.       THEN
  286.         if (string[1] EQUAL    '/') /*    comment    end */
  287.           THEN
  288.         putchar(*string++);
  289.         putchar(*string++);
  290.         return string;
  291.           ENDIF
  292.         else 
  293.         putchar(*string++);
  294.       ENDIF
  295.       ENDLOOP
  296.   END
  297.  
  298. FUNCTION char *do_string(string)
  299. char *string;
  300.   BEGIN
  301.     tabin();
  302.     nlflag = -1;
  303.     putchar(*string++);
  304.     while (*string NOTEQUAL '"')
  305.       LOOP
  306.     putchar(*string);
  307.     if (*string EQUAL '\n')    error("CB: Double quote    unmatched at EOL.");
  308.     if (*string++ EQUAL '\\')
  309.     putchar(*string++);
  310.       ENDLOOP
  311.     putchar(*string++);
  312.     return string;
  313.   END
  314.  
  315. FUNCTION char *do_quote(string)
  316. char *string;
  317.   BEGIN
  318.     tabin();
  319.     nlflag = -1;
  320.     putchar(*string++);
  321.     while (*string NOTEQUAL '\'') 
  322.       LOOP
  323.     putchar(*string);
  324.     if (*string EQUAL '\n')    error("CB: Single quote    unmatched at EOL.");
  325.     if (*string++ EQUAL '\\') putchar(*string++);
  326.       ENDLOOP
  327.     putchar(*string++);
  328.     return string;
  329.   END
  330.  
  331. FUNCTION char *do_paren(string)
  332. char *string;
  333.   BEGIN
  334.     int    isave;
  335.     indent += step;
  336.     tabin();
  337.     nlflag = -1;
  338.     putchar(*string++);
  339.     while (*string NOTEQUAL ')') 
  340.       LOOP
  341.     if (*string EQUAL '\n')    
  342.       THEN
  343.         if (getstring(inline))
  344.           THEN
  345.         error("CB: EOF encountered in parens.");
  346.           ENDIF
  347.         nlflag = -1;
  348.         newline();
  349.         tabin();
  350.         nlflag = -1;
  351.         string = inline;
  352.         while (*string EQUAL ' ' OR    *string    EQUAL '\t') 
  353.           LOOP
  354.         string++;
  355.           ENDLOOP
  356.         continue;
  357.       ENDIF
  358.     if (*string EQUAL '(') string =    do_paren(string);
  359.     else if    (*string EQUAL '\'') string = do_quote(string);
  360.     else if    (*string EQUAL '"') string = do_string(string);
  361.     e