Return to vacate.c CVS log

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

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

1.1     ! root        1: static char ID[] = "@(#) vacate.c: 1.1 3/16/82";
        !             2: #include <stdio.h>
        !             3: #include "sdp.h"
        !             4: #include "define3.h"
        !             5: 
        !             6: #ifdef SHORT
        !             7: #define VA01   "VA01 "
        !             8: #define VA02   "VA02 "
        !             9: #define VAAU   "VAAU "
        !            10: #else
        !            11: #define VA01   "VA01 -- attempt to vacate a connected environment\n%o\n",environ
        !            12: #define VA02   "VA02 -- attempt to vacate unhoused environment\n%o\n",environ
        !            13: #define VAAU   "%s","VAAU -- audit failed in sdp_vacate\n"
        !            14: #endif
        !            15: 
        !            16: #ifdef SWEET
        !            17: #define PROLOG
        !            18: #define EPILOG
        !            19: #else
        !            20: #define PROLOG         if( (aud_flag == AUDITON) && (aud_check() == ERROR) )\
        !            21:                                ERR_RET(VAAU,ERROR)
        !            22: #define EPILOG         if(aud_flag == AUDITON)\
        !            23:                                aud_set() ;\
        !            24:                        if(hist_fp != NULL)\
        !            25:                                fprintf(hist_fp,"VA\t%o\n",environ) ;
        !            26: #endif
        !            27: 
        !            28: extern int aud_flag ;
        !            29: extern struct ENVIRON *first_environ ;
        !            30: extern struct LIBFILE *Glib_file ;
        !            31: extern struct LIBMEM *Glib_mem ;
        !            32: extern FILE *hist_fp ;
        !            33: 
        !            34: extern int aud_check() ;
        !            35: extern aud_set() ;
        !            36: extern FATAL() ;
        !            37: 
        !            38: int                                    /* SUCCESS or ERROR */
        !            39: sdp_vacate(environ)
        !            40: struct ENVIRON *environ ;
        !            41: {
        !            42:        register struct MANAGER *manager ;
        !            43:        register int            j ;
        !            44:        register struct ENVIRON *curr ;
        !            45:        register struct ENVIRON *next ;
        !            46:        register struct ENVIRON *prev ;
        !            47: 
        !            48:        PROLOG
        !            49: 
        !            50:        prev = NULL ;
        !            51:        for(curr=first_environ; curr!=NULL; curr=next)
        !            52:        {
        !            53:                next = curr->next_environ ;
        !            54:                if( (curr==environ) || (environ==NULL) )
        !            55:                {
        !            56:                        if(curr->cnct_count != 0)
        !            57:                                ERR_RET(VA01,ERROR)
        !            58: 
        !            59:                        Glib_mem = curr->lib_mem ;
        !            60: 
        !            61:                        if(prev == NULL)
        !            62:                                first_environ = next ;
        !            63:                        else
        !            64:                                prev->next_environ = next ;
        !            65: 
        !            66:                        manager = curr->manp ;
        !            67:                        for(j=0; j<curr->num_frames; j++)
        !            68:                        {
        !            69:                                MFREE(manager[j].frame_pntr) ;
        !            70:                                manager[j].frame_pntr = NULL ;
        !            71:                        }
        !            72:                        MFREE(curr->manp) ;
        !            73:                        curr->manp = NULL ;
        !            74:                        MFREE(curr) ;
        !            75:                        if(environ == curr)
        !            76:                                break ;
        !            77:                }
        !            78:                else
        !            79:                        prev = curr ;
        !            80:        }
        !            81: 
        !            82:        if( (curr==NULL) && (environ!=NULL) )
        !            83:                ERR_RET(VA02,ERROR)
        !            84: 
        !            85:        EPILOG
        !            86:        return(SUCCESS) ;
        !            87: }

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