Return to redeem.c CVS log

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

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

1.1     ! root        1: static char ID[] = "@(#) redeem.c: 1.1 3/16/82";
        !             2: #include <stdio.h>
        !             3: #include "sdp.h"
        !             4: #include "define3.h"
        !             5: 
        !             6: #ifdef SHORT
        !             7: #define RE01   "RE01 "
        !             8: #define RE02   "RE02 "
        !             9: #define RE03   "RE03 "
        !            10: #define RE04   "RE04 "
        !            11: #define RE05   "RE05 "
        !            12: #define REAU   "REAU "
        !            13: #else
        !            14: #define RE01   "RE01 -- space not connected\n%o\n",sp
        !            15: #define RE02   "RE02 -- no permission to redeem\n%o\n",sp
        !            16: #define RE03   "RE03 -- id out of range\n%lo\t%lo\n",id,sp->maxpage
        !            17: #define RE04   "RE04 -- id not aligned\n%o\t%lo\n",sp,id
        !            18: #define RE05   "RE05 -- fail to push\n%o\t%lo\n",sp,id
        !            19: #define REAU   "%s","REAU -- audit failed in sdp_redeem\n"
        !            20: #endif
        !            21: 
        !            22: #ifdef SWEET
        !            23: #define PROLOG
        !            24: #define EPILOG
        !            25: #else
        !            26: #define PROLOG         if( (aud_flag == AUDITON) && (aud_check() == ERROR) )\
        !            27:                                ERR_RET(REAU,ERROR)
        !            28: #define EPILOG         if(aud_flag == AUDITON)\
        !            29:                                aud_set() ;\
        !            30:                        if(hist_fp != NULL)\
        !            31:                                fprintf(hist_fp,"RE\t%o\t%ld\t%u\n",sp,id,howmuch) ;
        !            32: #endif
        !            33: 
        !            34: extern int aud_flag ;
        !            35: extern struct LIBFILE *Glib_file ;
        !            36: extern FILE *hist_fp ;
        !            37: 
        !            38: extern int aud_check() ;
        !            39: extern aud_set() ;
        !            40: extern FATAL() ;
        !            41: extern push_id() ;
        !            42: extern spsearch() ;
        !            43: 
        !            44: int                                    /* SUCCESS or ERROR */
        !            45: sdp_redeem(sp,id,howmuch)
        !            46: struct SPACE   *sp ;
        !            47: ITEMID         id ;
        !            48: unsigned       howmuch ;
        !            49: {
        !            50: 
        !            51:        PROLOG
        !            52: 
        !            53:        if(spsearch(sp) == NOTFOUND)
        !            54:                ERR_RET(RE01,ERROR)
        !            55: 
        !            56:        if(sp->perms != WRTN)
        !            57:                ERR_RET(RE02,ERROR)
        !            58: 
        !            59:        if(INVALID(sp,id))
        !            60:                ERR_RET(RE03,ERROR)
        !            61: 
        !            62:        howmuch = (unsigned)ALIGNID((ITEMID)howmuch) ;
        !            63:        if(id != ALIGNID(id))
        !            64:                ERR_RET(RE04,ERROR)
        !            65: 
        !            66:        Glib_file = sp->lib_file ;
        !            67: 
        !            68:        if(push_id(sp,id,howmuch) == ERROR)
        !            69:                ERR_RET(RE05,ERROR)
        !            70: 
        !            71:        EPILOG
        !            72:        return(SUCCESS) ;
        !            73: }

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