Return to mkrec.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / lib

Annotation of 43BSD/contrib/icon/lib/mkrec.c, revision 1.1

1.1     ! root        1: #include "../h/rt.h"
        !             2: #include "../h/record.h"
        !             3: 
        !             4: /*
        !             5:  * mkrec - create a record.
        !             6:  */
        !             7: 
        !             8: mkrec(nargs)
        !             9: int nargs;
        !            10:    {
        !            11:    register int i;
        !            12:    register struct b_proc *bp;
        !            13:    register struct b_record *rp;
        !            14:    extern struct b_record *alcrecd();
        !            15: 
        !            16:    SetBound;
        !            17:    /*
        !            18:     * Be sure that call is from a procedure.
        !            19:     */
        !            20:    if (QUAL(ARG(0)) || TYPE(ARG(0)) != T_PROC)
        !            21:       syserr("mkrec: procedure block not on stack");
        !            22: 
        !            23:    /*
        !            24:     * Ensure space for the record to be created.
        !            25:     */
        !            26:    hneed(sizeof(struct b_record) +
        !            27:          BLKLOC(ARG(0))->proc.nfields*sizeof(struct descrip));
        !            28: 
        !            29:    /*
        !            30:     * Get a pointer to the record constructor procedure and allocate
        !            31:     *  a record with the appropriate number of fields.
        !            32:     */
        !            33:    bp = (struct b_proc *) BLKLOC(ARG(0));
        !            34:    rp = alcrecd(bp->nfields, bp);
        !            35: 
        !            36:    /*
        !            37:     * Set all fields in the new record to null value.
        !            38:     */
        !            39:    for (i = bp->nfields; i > nargs; i--)
        !            40:       rp->fields[i-1] = nulldesc;
        !            41: 
        !            42:    /*
        !            43:     * Assign each argument value to a record element and dereference it.
        !            44:     */
        !            45:    for ( ; i > 0; i--) {
        !            46:       rp->fields[i-1] = ARG(i);
        !            47:       DeRef(rp->fields[i-1])
        !            48:       }
        !            49: 
        !            50:    ARGTYPE(0) = D_RECORD;
        !            51:    ARGVAL(0) = (int) rp;
        !            52:    ClearBound;
        !            53:    }

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