Return to iscope.c CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / pi / pil

Annotation of researchv10dc/cmd/icon/pi/pil/iscope.c, revision 1.1

1.1     ! root        1: /*
        !             2:  *     ISCOPE
        !             3:  *
        !             4:  *     Inspect Icon internals.
        !             5:  *
        !             6:  *     Ralph E. Griswold
        !             7:  *
        !             8:  *     Last modified  6/8/86
        !             9:  *
        !            10:  */
        !            11: 
        !            12: #include "../h/rt.h"
        !            13: 
        !            14: /*
        !            15:  * Vword(x) - return second word of descriptor as integer
        !            16:  */
        !            17: 
        !            18: FncDcl(Vword,1)
        !            19:    {
        !            20:    Arg0.dword = D_Integer;
        !            21:    Arg0.vword.integr = Arg1.vword.integr;
        !            22:    Return;
        !            23:    }
        !            24: 
        !            25: 
        !            26: /*
        !            27:  * Dword(x) - return first word of descriptor as integer.
        !            28:  */
        !            29: 
        !            30: FncDcl(Dword,1)
        !            31:    {
        !            32:    Arg0.dword = D_Integer;
        !            33:    Arg0.vword.integr = Arg1.dword;
        !            34:    Return;
        !            35:    }
        !            36: 
        !            37: /*
        !            38:  * Descr(x,y) - construct descriptor from integer values of x and y
        !            39:  */
        !            40: 
        !            41: FncDcl(Descr,2)
        !            42:    {
        !            43:    defshort(&Arg1, 0);
        !            44:    defshort(&Arg2, 0);
        !            45:    Arg0.dword = Arg1.vword.integr;
        !            46:    Arg0.vword.integr = Arg2.vword.integr;
        !            47:    Return;
        !            48:    }
        !            49: 
        !            50: /*
        !            51:  * Indir(x) - return integer to where x points.
        !            52:  */
        !            53: 
        !            54: FncDcl(Indir,1)
        !            55:    {
        !            56:    Arg0.dword = D_Integer;
        !            57:    Arg0.vword.integr = *((int *) Arg1.vword.integr);
        !            58:    Return;
        !            59:    }
        !            60: 
        !            61: /*
        !            62:  * Symbol(x) - get address of Icon symbol.
        !            63:  */
        !            64: 
        !            65: FncDcl(Symbol,1)
        !            66:    {
        !            67:    extern globals, eglobals, gnames;
        !            68:    char sbuf[MaxCvtLen];
        !            69:    if (cvstr(&Arg1, sbuf) == NULL)
        !            70:       runerr(103, &Arg1);
        !            71:    qtos(&Arg1, sbuf);
        !            72:    ((Arg0).dword) = D_Integer;
        !            73:    if (strcmp(sbuf, "globals") == 0)
        !            74:       IntVal(Arg0) = (int) &globals;
        !            75:    else if (strcmp(sbuf, "eglobals") == 0)
        !            76:       IntVal(Arg0) = (int) &eglobals;
        !            77:    else if (strcmp(sbuf, "gnames") == 0)
        !            78:       IntVal(Arg0) = (int) &gnames;
        !            79:    else if (strcmp(sbuf, "strbase") == 0)
        !            80:       IntVal(Arg0) = (int) strbase;
        !            81:    else if (strcmp(sbuf, "strfree") == 0)
        !            82:       IntVal(Arg0) = (int) strfree;
        !            83:    else if (strcmp(sbuf, "blkbase") == 0)
        !            84:       IntVal(Arg0) = (int) blkbase;
        !            85:    else if (strcmp(sbuf, "blkfree") == 0)
        !            86:       IntVal(Arg0) = (int) blkfree;
        !            87:    else runerr(205, &Arg1);
        !            88:    Return;
        !            89:    }
        !            90: /*
        !            91:  * Ivar(x) - get value of interpreter state variable
        !            92:  */
        !            93: 
        !            94: FncDcl(Ivar,1)
        !            95:    {
        !            96:    char sbuf[MaxCvtLen];
        !            97:    if (cvstr(&Arg1, sbuf) == NULL)
        !            98:       runerr(103, &Arg1);
        !            99:    qtos(&Arg1, sbuf);
        !           100:    ((Arg0).dword) = D_Integer;
        !           101:    if (strcmp(sbuf, "sp") == 0)
        !           102:       IntVal(Arg0) = (int)sp;
        !           103:    else if (strcmp(sbuf, "efp") == 0)
        !           104:       IntVal(Arg0) = (int)efp;
        !           105:    else if (strcmp(sbuf, "gfp") == 0)
        !           106:       IntVal(Arg0) = (int)gfp;
        !           107:    else if (strcmp(sbuf, "argp") == 0)
        !           108:       IntVal(Arg0) = (int)argp;
        !           109:    else if (strcmp(sbuf, "pfp") == 0)
        !           110:       IntVal(Arg0) = (int)pfp;
        !           111:    else if (strcmp(sbuf, "ilevel") == 0)
        !           112:       IntVal(Arg0) = (int)ilevel;
        !           113:    else runerr(205, &Arg1);
        !           114:    Return;
        !           115:    }

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