Return to t2print.c CVS log

Up to [Research Unix] / researchv10no / cmd / ccom / common

Annotation of researchv10no/cmd/ccom/common/t2print.c, revision 1.1

1.1     ! root        1: # include "mfile2.h"
        !             2: 
        !             3: char *cnames[] = 
        !             4: {
        !             5:        "CEFF",
        !             6:        "NRGS",
        !             7:        "CCC",
        !             8:        0,
        !             9: };
        !            10: 
        !            11: prgoal( goal ) 
        !            12: register goal;
        !            13: {
        !            14:        /* print a nice-looking description of goal */
        !            15: 
        !            16:        register i, flag;
        !            17: 
        !            18:        flag = 0;
        !            19:        for( i=0; cnames[i]; ++i )
        !            20:        {
        !            21:                if( goal & (1<<i) )
        !            22:                {
        !            23:                        if( flag ) printf( "|" );
        !            24:                        ++flag;
        !            25:                        printf( cnames[i] );
        !            26:                }
        !            27:        }
        !            28:        if( !flag ) printf( "?%o", goal );
        !            29: 
        !            30: }
        !            31: 
        !            32: #ifndef NODBG
        !            33: e2print( p )
        !            34: register NODE *p; 
        !            35: {
        !            36:        printf( "\n********* costs=(0,...,NRGS;EFF;TEMP;CC)\n" );
        !            37:        e22print( p ,"T");
        !            38:        printf("=========\n");
        !            39: }
        !            40: 
        !            41: e22print( p ,s)
        !            42: register NODE *p; 
        !            43: char *s;
        !            44: {
        !            45:        static down=0;
        !            46:        register ty;
        !            47: 
        !            48:        ty = optype( p->tn.op );
        !            49:        if( ty == BITYPE )
        !            50:        {
        !            51:                ++down;
        !            52:                e22print( p->in.right ,"R");
        !            53:                --down;
        !            54:        }
        !            55:        e222print( down, p, s );
        !            56: 
        !            57:        if( ty != LTYPE )
        !            58:        {
        !            59:                ++down;
        !            60:                e22print( p->in.left, "L" );
        !            61:                --down;
        !            62:        }
        !            63: }
        !            64: 
        !            65: t2print( t )
        !            66: TWORD t;
        !            67: {
        !            68:        int i;
        !            69:        static struct {
        !            70:                TWORD mask;
        !            71:                char * string;
        !            72:                } t2tab[] = {
        !            73:                        TANY, "ANY",
        !            74:                        TINT, "INT",
        !            75:                        TUNSIGNED, "UNSIGNED",
        !            76:                        TCHAR, "CHAR",
        !            77:                        TUCHAR, "UCHAR",
        !            78:                        TSHORT, "SHORT",
        !            79:                        TUSHORT, "USHORT",
        !            80:                        TLONG, "LONG",
        !            81:                        TULONG, "ULONG",
        !            82:                        TFLOAT, "FLOAT",
        !            83:                        TDOUBLE, "DOUBLE",
        !            84:                        TPOINT, "POINTER",
        !            85:                        TPOINT2, "POINTER2",
        !            86:                        TSTRUCT, "STRUCT",
        !            87:                        TVOID, "VOID",
        !            88:                        0, 0
        !            89:                        };
        !            90: 
        !            91:        for( i=0; t && t2tab[i].mask; ++i ) {
        !            92:                if( (t&t2tab[i].mask) == t2tab[i].mask ) {
        !            93:                        printf( " %s", t2tab[i].string );
        !            94:                        t ^= t2tab[i].mask;
        !            95:                        }
        !            96:                }
        !            97:        }
        !            98: 
        !            99: # else
        !           100: e2print( p )
        !           101: NODE *p; 
        !           102: {
        !           103:        werror( "e2print not compiled" );
        !           104: }
        !           105: e222print( p, s )
        !           106: NODE *p; 
        !           107: char *s;
        !           108: {
        !           109:        werror( "e222print not compiled" );
        !           110: }
        !           111: # endif
        !           112: cprt( c, s )
        !           113: register char *s; 
        !           114: register c;
        !           115: {
        !           116:        if( c >= INFINITY ) printf( "*%s", s );
        !           117:        else printf( "%d%s", c, s );
        !           118: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.