/*
    Copyright 1982
    Alcyon Corporation
    8716 Production Ave.
    San Diego, Ca.  92121
*/

#ifdef  DEBUG
#include "parser.h"
#include <ctype.h>

char invalid[] = "INVALID";

char *opname[] = {
    invalid,                        /*0*/
    "+",                            /*1*/
    "-",                            /*2*/
    "*",                            /*3*/
    "/",                            /*4*/
    "%",                            /*5*/
    ">>",                           /*6*/
    "<<",                           /*7*/
    "&",                            /*8*/
    "|",                            /*9*/
    "^",                            /*10*/
    "!",                            /*11*/
    "U-",                           /*12*/
    "~",                            /*13*/
    "--p",                          /*14*/
    "++p",                          /*15*/
    "p--",                          /*16*/
    "p++",                          /*17*/
    "=",                            /*18*/
    "+=",                           /*19*/
    "-=",                           /*20*/
    "*=",                           /*21*/
    "/=",                           /*22*/
    "%=",                           /*23*/
    ">>=",                          /*24*/
    "<<=",                          /*25*/
    "&=",                           /*26*/
    "|=",                           /*27*/
    "^=",                           /*28*/
    "jsr",                          /*29*/
    "==",                           /*30*/
    "!=",                           /*31*/
    ">",                            /*32*/
    ">=",                           /*33*/
    "<",                            /*34*/
    "<=",                           /*35*/
    "int->long",                    /*36*/
    "long->int",                    /*37*/
    "btst",                         /*38*/
    "load",                         /*39*/
    "long*",                        /*40*/
    "long/",                        /*41*/
    "long%",                        /*42*/
    "long*=",                       /*43*/
    "long/=",                       /*44*/
    "long%=",                       /*45*/
    "=addr",                        /*46*/
    "=not",                         /*47*/
    "=neg",                         /*48*/
    "docast",                       /*49*/
    "st=",                          /*50*/
    "ltof",                         /*51*/
    "ftol",                         /*52*/
    "itof",                         /*53*/
    "ftoi",                         /*54*/
    "tochar",                       /*55*/
    invalid,                        /*56*/
    invalid,                        /*57*/
    invalid,                        /*58*/
    invalid,                        /*59*/
    "U&",                           /*60*/
    "U*",                           /*61*/
    "&&",                           /*62*/
    "||",                           /*63*/
    "?",                            /*64*/
    ":",                            /*65*/
    ",",                            /*66*/
    "cint",                         /*67*/
    "clong",                        /*68*/
    "symbol",                       /*69*/
    "++a",                          /*70*/
    "a--",                          /*71*/
    "call",                         /*72*/
    "call()",                       /*73*/
    "bitfield",                     /*74*/
    "if",                           /*75*/
    "init",                         /*76*/
    "loadR0",                       /*77*/
    "divlong",                      /*78*/
};

char *types[] = {
    "typeless",                     /*0=TYPELESS*/
    "char",                         /*1=CHAR*/
    "short",                        /*2=SHORT*/
    "int",                          /*3=INT*/
    "long",                         /*4=LONG*/
    "uchar",                        /*5=UCHAR*/
    "ushort",                       /*6=USHORT*/
    "uint",                         /*7=UINT*/
    "ulong",                        /*8=ULONG*/
    "float",                        /*9=FLOAT*/
    "double",                       /*10=DOUBLE*/
    "struct",                       /*11=STRUCT*/
    invalid,                        /*12=undefined*/
    invalid,                        /*13=undefined*/
    invalid,                        /*14=undefined*/
    invalid,                        /*15=undefined*/
};

char *suvals[] = {
    "zero",
    "one",
    "quick",
    "small",
    "constant",
    "Areg",
    "Dreg",
    "addressable",
    "loadable",
    "easy",
    "hard",
    "veryhard",
};

short level;

putexpr(name,tp)
char *name;
struct tnode *tp;
{
    printf("%s\n",name);
    if (tp != 0)
        putsexpr(tp);
}

putsexpr(tp)
struct tnode *tp;
{
    register struct tnode *ltp;
	register short op;
	char ch;

    level++;
    ltp = tp->t_left;
	op = tp->t_op;
    outlevel();
    if (op < 0 || op > 78) {
        printf("INVALID op\n");
        return;
    }
	printf("%s ",opname[op]);
    puttsu(tp);
    switch( op ) {

    case DCLONG:
    case CLONG:
    case CFLOAT:    /*[vlh] 3.4 */
        printf(" %x.%x\n",((struct lconode *)tp)->t_lvalue.hiword,
				 ((struct lconode *)tp)->t_lvalue.loword);
        break;

    case CINT:
        printf(" %d [0x%x]\n",tp->t_value,tp->t_value);
        break;

    case AUTODEC:
    case AUTOINC:
        printf("Autodec or Autoinc");
        break;

    case SYMBOL:
        switch( ((struct symnode *)tp)->t_sc ) {

        case REGISTER:
            printf(" Register");
            break;

        case CINDR:
            printf(" %d\n",((struct symnode *)tp)->t_offset);
            break;

        case CLINDR:
        case CFINDR:    /* [vlh] 3.4 */
            printf(" %x.%x\n",((struct symnode *)tp)->t_offset,tp->t_ssp);
            break;

        case REGOFF:
            printf(" Regoffset");
            break;

        case EXTERNAL:
        case EXTOFF:
            printf(" %s+%d",((struct symnode *)tp)->t_symbol,
					 ((struct symnode *)tp)->t_offset);
            if( tp->t_sc == EXTOFF )
                printf("Ext offset");
            break;

        case STATIC:
        case STATOFF:
            printf(" STATIC or STATOFF");
            if( ((struct symnode *)tp)->t_sc == STATOFF )
                printf("STATOFF");
            break;

        case INDEXED:
            printf(" %d indexed",((struct symnode *)tp)->t_offset);
            break;
        }
        putchar('\n');
        break;

    case IFGOTO:
        putsexpr(tp->t_left);
        break;

    default:
        putchar('\n');
        putsexpr(tp->t_left);
        if( BINOP(tp->t_op) )
            putsexpr(tp->t_right);
        break;
    }
    level--;
}

outlevel()
{
    register short i;

    for( i = 0; i < level; i++ )
        printf("     ");
}

puttsu(tp)
struct tnode *tp;
{
    register short i;

    switch( SUPTYPE(tp->t_type) ) {

    case FUNCTION:
        printf("()");
        break;

    case ARRAY:
        printf("[]");
        break;

    case POINTER:
        printf("*");
        break;
    }
    printf("%s ",types[BTYPE(tp->t_type)]);
}
#endif
f("*");
        break;
    }
    printf("%s ",types[BTYPE(tp->t_type)]);
}
#endif
f("*");
        break;
    }
    printf("%s ",types[BTYPE(tp->t_type)]);
}
#endif
f("*");
        break;
    }
    printf("%s ",types[BTYPE(tp->t_type)]);
}
#endif
f("*");
        break;
    }
    printf("%s ",types[BTYPE(tp->t_type)]);
}
#endif
