Return to lrec.c CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / src / iconx

Annotation of researchv10dc/cmd/icon/src/iconx/lrec.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * File: lrec.c
        !             3:  *  Contents: field, mkrec
        !             4:  */
        !             5: 
        !             6: #include "../h/rt.h"
        !             7: 
        !             8: /*
        !             9:  * x.y - access field y of record x.
        !            10:  */
        !            11: 
        !            12: LibDcl(field,2,".")
        !            13:    {
        !            14:    register word fnum;
        !            15:    register struct b_record *rp;
        !            16:    register struct descrip *dp;
        !            17:    extern word *ftab, *records;
        !            18: 
        !            19:    DeRef(Arg1);
        !            20:    /*
        !            21:     * x must be a record and y must be a field number.
        !            22:     */
        !            23:    if (Qual(Arg1) || Arg1.dword != D_Record)
        !            24:       runerr(107, &Arg1);
        !            25: 
        !            26:    /*
        !            27:     * Map the field number into a field number for the record x.
        !            28:     */
        !            29:    rp = (struct b_record *) BlkLoc(Arg1);
        !            30:    fnum = ftab[IntVal(Arg2) * *records + BlkLoc(rp->recdesc)->proc.recnum - 1];
        !            31:    /*
        !            32:     * If fnum < 0, x doesn't contain the specified field.
        !            33:     */
        !            34:    if (fnum < 0)
        !            35:       runerr(207, &Arg1);
        !            36: 
        !            37:    /*
        !            38:     * Return a pointer to the descriptor for the appropriate field.
        !            39:     */
        !            40:    dp = &rp->fields[fnum];
        !            41:    Arg0.dword = D_Var + ((word *)dp - (word *)rp);
        !            42:    BlkLoc(Arg0) = (union block *) dp;
        !            43:    Return;
        !            44:    }
        !            45: 
        !            46: 
        !            47: /*
        !            48:  * mkrec - create a record.
        !            49:  */
        !            50: 
        !            51: LibDcl(mkrec,-1,"mkrec")
        !            52:    {
        !            53:    register int i;
        !            54:    register struct b_proc *bp;
        !            55:    register struct b_record *rp;
        !            56:    extern struct b_record *alcrecd();
        !            57: 
        !            58:    /*
        !            59:     * Be sure that call is from a procedure.
        !            60:     */
        !            61: 
        !            62:    /*
        !            63:     * Ensure space for the record to be created.
        !            64:     */
        !            65:    blkreq((uword)sizeof(struct b_record) +
        !            66:          BlkLoc(Arg(0))->proc.nfields*sizeof(struct descrip));
        !            67: 
        !            68:    /*
        !            69:     * Get a pointer to the record constructor procedure and allocate
        !            70:     *  a record with the appropriate number of fields.
        !            71:     */
        !            72:    bp = (struct b_proc *) BlkLoc(Arg(0));
        !            73:    rp = alcrecd((int)bp->nfields, (struct descrip *)bp);
        !            74: 
        !            75:    /*
        !            76:     * Set all fields in the new record to null value.
        !            77:     */
        !            78:    for (i = bp->nfields; i > nargs; i--)
        !            79:       rp->fields[i-1] = nulldesc;
        !            80: 
        !            81:    /*
        !            82:     * Assign each argument value to a record element and dereference it.
        !            83:     */
        !            84:    for ( ; i > 0; i--) {
        !            85:       rp->fields[i-1] = Arg(i);
        !            86:       DeRef(rp->fields[i-1]);
        !            87:       }
        !            88: 
        !            89:    ArgType(0) = D_Record;
        !            90:    Arg(0).vword.bptr = (union block *)rp;
        !            91:    Return;
        !            92:    }

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