home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 319_01 / pr.c < prev    next >
C/C++ Source or Header  |  1990-06-18  |  3KB  |  183 lines
  1. /*
  2.     CPP V5 -- printing routines for debugging.
  3.  
  4.     source:  pr.c
  5.     started: May 19, 1986
  6.     version: May 31, 1988
  7.  
  8.     Written by Edward K. Ream.
  9.     This software is in the public domain.
  10.  
  11.     See the read.me file for disclaimer and other information.
  12. */
  13.  
  14. #include "cpp.h"
  15.  
  16.  
  17. #ifdef SHERLOCK
  18.  
  19. /*
  20.     WARNING!!  This table must change if enum.h changes.
  21. */
  22. static char * tok_tab [] = {
  23.     "<NULL>", "<ERROR>",
  24.  
  25.     "auto", "char", "const", "double", "extern",
  26.     "float", "int", "long", "register", "short",
  27.     "static", "typedef", "signed", "struct", "union",
  28.     "unsigned", "void", "volatile",
  29.  
  30.     "break", "case",
  31.     "continue", "default", "do", "else", "enum", "for",
  32.     "goto",    "if", "return", "switch", "while",
  33.  
  34.     "entry", "sizeof",
  35.  
  36.     ",", "<newline>", ";", "[", "{", "(", "]", "}", ")",
  37.  
  38.     ":", "?",
  39.  
  40.     "ARRAY", "->", ".", "&&", "||", ",",
  41.  
  42.     "=",
  43.     "&=", "/=", "<<=", "-=", "%=",
  44.     "|=", "+=", ">>=", "*=", "^=",
  45.  
  46.     "&", "|", "+", "*", "^",
  47.     "/", "<<", "-", "%", ">>",
  48.  
  49.     "==", ">=", ">", "<=", "<", "!=",
  50.  
  51.     "--", "++", "!", "~",
  52.  
  53.     "(cast)", "post--", "post++", "pre--", "pre++",
  54.     "&", "-", "+", "*", "call",
  55.     
  56.     "character", "EOP",
  57.     "identifier", "integer", "float", "long integer",
  58.     "string",
  59.     "...", "label"
  60. };
  61.  
  62. /*
  63.     Return the print string of a bool.
  64. */
  65. char *
  66. pr_bool(flag)
  67. bool flag;
  68. {
  69.     return flag ? "TRUE" : "FALSE";
  70. }
  71.  
  72. /*
  73.     Return the print string of a character.
  74. */
  75. static char pdefault[] = "@";
  76.  
  77. char *
  78. pr_ch(c)
  79. int c;
  80. {
  81.     switch (c) {
  82.     case ARG_FLAG:        return "ARG:";
  83.     case POUND_FLAG:    return "POUND:";
  84.     case CONCAT_FLAG:    return "<CONCAT_FLAG>";
  85.     case EORT:        return "<EORT>";
  86.     case EXPAND_OFF:    return "<EXPAND_OFF>";
  87.     case '\0':        return "<\\0>";
  88.     case '\t':        return "<TAB>";
  89.     case '\n':        return "<NL>";
  90.     case '\r':        return "<CR>";
  91.     case '\a':        return "<ALERT>";
  92.     case ' ':        return "< >";
  93.     case END_FILE:        return "<END_FILE>";
  94.     default:
  95.         pdefault[0] = c;
  96.         pdefault[1] = '\0';
  97.         return &pdefault[0];
  98.     }
  99. }
  100.  
  101. /*
  102.     Return the print string of tok.
  103.     Do not assume that t_symbol[] refers to tok.
  104. */
  105. char *
  106. pr_op(tok)
  107. en_tokens tok;
  108. {
  109.     if ((int)tok >= 0 && (int)tok <= LABEL_TOK) {
  110.         return tok_tab [(int)tok];
  111.     }
  112.     else {
  113.         return "BAD TOKEN";
  114.     }
  115. }
  116.  
  117. /*
  118.     Return the print string of a string.
  119. */
  120. static char pr_buf [1000];
  121.  
  122. char *
  123. pr_str(s)
  124. char *s;
  125. {
  126.     strcpy(pr_buf, "");
  127.     while (*s) {
  128.         strcat(pr_buf, pr_ch(*s));
  129.         s++;
  130.     }
  131.     return &pr_buf[0];
  132. }
  133.  
  134. /*
  135.     Return the print string of the current token.
  136.     Assume the t_symbol refers to the global token.
  137. */
  138. static char buffer [200];
  139. static char buffer2 [100];
  140.  
  141. char *
  142. pr_tok()
  143. {
  144.     if (is(ID_TOK)) {
  145.         if (t_length >= 200-5) {
  146.             printf("pr_tok:  bad id: %s\n", t_symbol);
  147.             exit(1);
  148.             return "";
  149.         }
  150.         else {
  151.             strcpy(buffer, "id: ");
  152.             strcat(buffer, t_symbol);
  153.             return buffer;
  154.         }
  155.     }
  156.     else if (is(STRING_TOK)) {
  157.         if (t_length >= 200-5) {
  158.             printf("pr_tok:  bad string: %s\n", t_symbol);
  159.             exit(1);
  160.             return "";
  161.         }
  162.         else {
  163.             strcpy(buffer, "string: ");
  164.             strcat(buffer, t_symbol);
  165.             return buffer;
  166.         }
  167.     }
  168.     else if (is(INT_TOK)) {        
  169.             strcpy(buffer, "integer: ");
  170.             ltoa(t_value, buffer2, 10);
  171.             strcat(buffer, buffer2);
  172.             return buffer;
  173.     }
  174.     else if (token < LABEL_TOK) {
  175.         return  tok_tab [(int)token];
  176.     }
  177.     else {
  178.         return "BAD TOKEN";
  179.     }
  180. }
  181.  
  182. #endif /* SHERLOCK */
  183.