Subversion Repositories DevTools

/*
        CPP V5 -- printing routines for debugging.

        source:  pr.c
        started: May 19, 1986
        version: May 31, 1988

        Written by Edward K. Ream.
        This software is in the public domain.

        See the read.me file for disclaimer and other information.
*/

#include "cpp.h"


#ifdef SHERLOCK

/*
        WARNING!!  This table must change if enum.h changes.
*/
static char * tok_tab [] = {
        "<NULL>", "<ERROR>",

        "auto", "char", "const", "double", "extern",
        "float", "int", "long", "register", "short",
        "static", "typedef", "signed", "struct", "union",
        "unsigned", "void", "volatile",

        "break", "case",
        "continue", "default", "do", "else", "enum", "for",
        "goto", "if", "return", "switch", "while",

        "entry", "sizeof",

        ",", "<newline>", ";", "[", "{", "(", "]", "}", ")",

        ":", "?",

        "ARRAY", "->", ".", "&&", "||", ",",

        "=",
        "&=", "/=", "<<=", "-=", "%=",
        "|=", "+=", ">>=", "*=", "^=",

        "&", "|", "+", "*", "^",
        "/", "<<", "-", "%", ">>",

        "==", ">=", ">", "<=", "<", "!=",

        "--", "++", "!", "~",

        "(cast)", "post--", "post++", "pre--", "pre++",
        "&", "-", "+", "*", "call",
        
        "character", "EOP",
        "identifier", "integer", "float", "long integer",
        "string",
        "...", "label"
};

/*
        Return the print string of a bool.
*/
char *
pr_bool(flag)
bool flag;
{
        return flag ? "TRUE" : "FALSE";
}

/*
        Return the print string of a character.
*/
static char pdefault[] = "@";

char *
pr_ch(c)
int c;
{
        switch (c) {
        case ARG_FLAG:          return "ARG:";
        case POUND_FLAG:        return "POUND:";
        case CONCAT_FLAG:       return "<CONCAT_FLAG>";
        case EORT:              return "<EORT>";
        case EXPAND_OFF:        return "<EXPAND_OFF>";
        case '\0':              return "<\\0>";
        case '\t':              return "<TAB>";
        case '\n':              return "<NL>";
        case '\r':              return "<CR>";
        case '\a':              return "<ALERT>";
        case ' ':               return "< >";
        case END_FILE:          return "<END_FILE>";
        default:
                pdefault[0] = c;
                pdefault[1] = '\0';
                return &pdefault[0];
        }
}

/*
        Return the print string of tok.
        Do not assume that t_symbol[] refers to tok.
*/
char *
pr_op(tok)
en_tokens tok;
{
        if ((int)tok >= 0 && (int)tok <= LABEL_TOK) {
                return tok_tab [(int)tok];
        }
        else {
                return "BAD TOKEN";
        }
}

/*
        Return the print string of a string.
*/
static char pr_buf [1000];

char *
pr_str(s)
char *s;
{
        strcpy(pr_buf, "");
        while (*s) {
                strcat(pr_buf, pr_ch(*s));
                s++;
        }
        return &pr_buf[0];
}

/*
        Return the print string of the current token.
        Assume the t_symbol refers to the global token.
*/
static char buffer [200];
static char buffer2 [100];

char *
pr_tok()
{
        if (is(ID_TOK)) {
                if (t_length >= 200-5) {
                        printf("pr_tok:  bad id: %s\n", t_symbol);
                        exit(1);
                        return "";
                }
                else {
                        strcpy(buffer, "id: ");
                        strcat(buffer, t_symbol);
                        return buffer;
                }
        }
        else if (is(STRING_TOK)) {
                if (t_length >= 200-5) {
                        printf("pr_tok:  bad string: %s\n", t_symbol);
                        exit(1);
                        return "";
                }
                else {
                        strcpy(buffer, "string: ");
                        strcat(buffer, t_symbol);
                        return buffer;
                }
        }
        else if (is(INT_TOK)) {         
                        strcpy(buffer, "integer: ");
                        ltoa(t_value, buffer2, 10);
                        strcat(buffer, buffer2);
                        return buffer;
        }
        else if (token < LABEL_TOK) {
                return  tok_tab [(int)token];
        }
        else {
                return "BAD TOKEN";
        }
}

#endif /* SHERLOCK */