Return to change.c CVS log

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

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

1.1     ! root        1: static char ID[] = "@(#) change.c: 1.1 3/16/82";
        !             2: #include <stdio.h>
        !             3: #include "sdp.h"
        !             4: #include "define3.h"
        !             5: 
        !             6: #ifdef SHORT
        !             7: #define CH01   "CH01 "
        !             8: #define CH02   "CH02 "
        !             9: #define CHAU   "CHAU "
        !            10: #else
        !            11: #define CH01   "CH01 -- no permission to change\n%o\n",i->manp[j].space
        !            12: #define CH02   "CH02 -- frame not found\n%o\n",ptr
        !            13: #define CHAU   "%s","CHAU -- audit failed in sdp_change\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(CHAU,ERROR)
        !            22: #define EPILOG         if(aud_flag == AUDITON)\
        !            23:                                aud_set() ;\
        !            24:                        if(hist_fp != NULL)\
        !            25:                                fprintf(hist_fp,"CH\t%o\t%ld\t%o\n",(i->manp)[j].space,(i->manp)[j].page_id,ptr) ;
        !            26: #endif
        !            27: 
        !            28: extern int aud_flag ;
        !            29: extern FILE *hist_fp ;
        !            30: extern struct ENVIRON *first_environ ;
        !            31: extern struct LIBFILE *Glib_file ;
        !            32: 
        !            33: extern aud_set() ;
        !            34: extern int aud_check() ;
        !            35: extern fatal() ;
        !            36: 
        !            37: int                                    /* SUCCESS or ERROR */
        !            38: sdp_change(ptr)
        !            39: char   *ptr ;
        !            40: {
        !            41:        register struct ENVIRON *i ;
        !            42:        register int            j ;
        !            43:        register unsigned       f ;
        !            44:        register unsigned       p ;
        !            45:        register int            status ;
        !            46: 
        !            47:        PROLOG
        !            48: 
        !            49:        p = (unsigned)ptr ;
        !            50:        status = 0 ;
        !            51:        for(i=first_environ; i!=NULL; i=i->next_environ)
        !            52:        {
        !            53:                for(j=0; j<i->num_frames; j++)
        !            54:                {
        !            55:                        f = (unsigned)(i->manp)[j].frame_pntr ;
        !            56:                        if ( f <= p  &&  p < f + (unsigned)i->frame_size )
        !            57:                        {
        !            58:                                if(i->manp[j].space->perms != WRTN)
        !            59:                                        ERR_RET(CH01,ERROR)
        !            60:                                i->manp[j].ref_chng = WRTN ;
        !            61:                                status = 1 ;
        !            62:                                break ;
        !            63:                        }
        !            64:                }
        !            65:                if(status == 1)
        !            66:                        break ;
        !            67:        }
        !            68: 
        !            69:        if(status == 0)
        !            70:                ERR_RET(CH02,ERROR)
        !            71: 
        !            72:        EPILOG
        !            73:        return(SUCCESS) ;
        !            74: }

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