Return to chstack.c CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / libsdp

Annotation of researchv9/jerq/sgs/libsdp/chstack.c, revision 1.1

1.1     ! root        1: static char ID[] = "@(#) chstack.c: 1.1 3/16/82";
        !             2: #include <stdio.h>
        !             3: #include "sdp.h"
        !             4: #include "define2.h"
        !             5: #include "define3.h"
        !             6: 
        !             7: #define CS01   "CS01 "
        !             8: #define CS02   "CS02 "
        !             9: #define CS03   "CS03 "
        !            10: #define CS04   "CS04 "
        !            11: #define CS05   "CS05 "
        !            12: #define CS06   "CS06 "
        !            13: 
        !            14: 
        !            15: int
        !            16: sdp_chstack(sp,c,v)
        !            17: struct SPACE   *sp ;
        !            18: unsigned       c ;
        !            19: int            v[] ;
        !            20: {
        !            21:        ITEMID                  id ;
        !            22:        struct  STAXINFO        *ptr ;
        !            23:        struct  SPACE           tmp_sp ;
        !            24:        int                     i ;
        !            25: 
        !            26:        if ( c > 1 )
        !            27:                for ( i=1 ; i<c ; i++ )
        !            28:                        if ( v[i] - v[i-1] < sizeof(ITEMID) )
        !            29:                                ERR_RET(CS01,ERROR)
        !            30: 
        !            31:        tmp_sp = *sp ;
        !            32:        sp->staxinfo = (struct STAXINFO *)ALLOC((c+1)*sizeof(struct STAXINFO)) ;
        !            33:        if ( sp->staxinfo == NULL )
        !            34:                ERR_RET(CS02,ERROR)
        !            35:        sp->numbstax = c+1 ;
        !            36: 
        !            37:        sp->staxinfo[0].top     = IDNULL ;
        !            38:        sp->staxinfo[0].size    = 0 ;
        !            39:        sp->staxinfo[0].depth = 0 ;
        !            40:        for ( i=1 ; i<c+1 ; i++ )
        !            41:        {
        !            42:                sp->staxinfo[i].top   = IDNULL ;
        !            43:                sp->staxinfo[i].size  = v[i-1] ;
        !            44:                sp->staxinfo[i].depth = 0 ;
        !            45:        }
        !            46: 
        !            47:        for ( i=0 ; i<tmp_sp.numbstax ; i++ )
        !            48:                while ( (id=pop_id(&tmp_sp,tmp_sp.staxinfo[i].size)) != IDNOTFOUND )
        !            49:                        if ( id == IDNULL )
        !            50:                                ERR_RET(CS03,ERROR)
        !            51:                        else
        !            52:                        {
        !            53:                                ptr = (struct STAXINFO *)sdp_use(sp,id,RNLY) ;
        !            54:                                if ( ptr == NULL )
        !            55:                                        ERR_RET(CS04,ERROR)
        !            56:                                if ( push_id(sp,id,ptr->size) == NULL )
        !            57:                                        ERR_RET(CS05,ERROR)
        !            58:                                if ( sdp_unuse(sp,id,RNLY) == NULL )
        !            59:                                        ERR_RET(CS06,ERROR)
        !            60:                        }
        !            61:        return(SUCCESS) ;
        !            62: }

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