Return to prvect.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / ctlmod

Annotation of 42BSD/ingres/source/ctlmod/prvect.c, revision 1.1

1.1     ! root        1: # include      "ctlmod.h"
        !             2: # include      <tree.h>
        !             3: # include      <pv.h>
        !             4: # include      <sccs.h>
        !             5: 
        !             6: SCCSID(@(#)prvect.c    7.1     2/5/81)
        !             7: 
        !             8: /*
        !             9: **  PRVECT -- prints parameter vector
        !            10: **
        !            11: **     Prvect merely prints all of the entries in a PARM.  If
        !            12: **     a tree is included in the PARM, then the tree is printed.
        !            13: **
        !            14: **     Parameters:
        !            15: **             pc -- parameter count
        !            16: **                     if 0 then pv must be PV_EOF terminated.
        !            17: **             pv -- parameter vector (PARM style).
        !            18: **                     if NULL, the current pv is printed.
        !            19: **             routine -- header to be printed with pv.
        !            20: **
        !            21: **     Returns:
        !            22: **             nothing
        !            23: */
        !            24: 
        !            25: prvect(pc, pv)
        !            26: int                    pc;
        !            27: register PARM          *pv;
        !            28: {
        !            29:        register int    pno;
        !            30: 
        !            31:        if (pv == NULL)
        !            32:        {
        !            33:                pc = Ctx.ctx_pc;
        !            34:                pv = Ctx.ctx_pv;
        !            35:        }
        !            36: 
        !            37:        for (pno = 0; pv->pv_type != PV_EOF && pno < pc; pv++, pno++)
        !            38:        {
        !            39:                printf("   %3d ", pno);
        !            40:                pr_parm(pv);
        !            41:        }
        !            42: }
        !            43: /*
        !            44: **  PR_PARM -- print a single parameter
        !            45: **
        !            46: **     Parameters:
        !            47: **             pv -- ptr to the parameter to print.
        !            48: **
        !            49: **     Returns:
        !            50: **             none.
        !            51: **
        !            52: **     Side Effects:
        !            53: **             none.
        !            54: */
        !            55: 
        !            56: pr_parm(pv)
        !            57: register PARM  *pv;
        !            58: {
        !            59:        register int    i;
        !            60:        register char   *p;
        !            61: 
        !            62:        printf("(len=%3d): ", pv->pv_len);
        !            63:        switch (pv->pv_type)
        !            64:        {
        !            65:          case PV_INT:
        !            66:                printf("%d\n", pv->pv_val.pv_int);
        !            67:                break;
        !            68: 
        !            69:          case PV_STR:
        !            70:                printf("\"");
        !            71:                for (p = pv->pv_val.pv_str; *p != '\0'; p++)
        !            72:                        xputchar(*p);
        !            73:                printf("\"\n");
        !            74:                break;
        !            75: 
        !            76:          case PV_TUPLE:
        !            77:                p = pv->pv_val.pv_tuple;
        !            78:                for (i = pv->pv_len; i > 0; i--)
        !            79:                        printf("\%o", *p++);
        !            80:                printf("\n");
        !            81:                break;
        !            82: 
        !            83:          case PV_QTREE:
        !            84:                treepr(pv->pv_val.pv_qtree);
        !            85:                break;
        !            86:        
        !            87:          default:
        !            88:                printf("Unknown type %d\n", pv->pv_type);
        !            89:                break;
        !            90:        }
        !            91: }

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