Return to sync.c CVS log

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

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

1.1     ! root        1: static char ID[] = "@(#) sync.c: 1.1 3/16/82";
        !             2: #include <stdio.h>
        !             3: #include "sdp.h"
        !             4: #include "define3.h"
        !             5: 
        !             6: #ifdef SHORT
        !             7: #define SY01   "SY01 "
        !             8: #define SY02   "SY02 "
        !             9: #define SY03   "SY03 "
        !            10: #define SY04   "SY04 "
        !            11: #define SY05   "SY05 "
        !            12: #define SYAU   "SYAU "
        !            13: #else
        !            14: #define SY01   "SY01 -- error return from readpage\n%o\n",sp
        !            15: #define SY02   "SY02 -- error return from writeframe\n%o\n",sp
        !            16: #define SY03   "SY03 -- unknown ref/chng flag\n%o\t%d\n",sp,manager[i].ref_chng
        !            17: #define SY04   "SY04 -- error return from wtSPACE\n%o\n",sp
        !            18: #define SY05   "SY05 -- space not connected\n%o\n",sp
        !            19: #define SYAU   "%s","SYAU -- audit failed in sdp_sync\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(SYAU,ERROR)
        !            28: #define EPILOG         if(aud_flag == AUDITON)\
        !            29:                                aud_set() ;\
        !            30:                        if(hist_fp != NULL)\
        !            31:                                fprintf(hist_fp,"SY\t%o\n",sp) ;
        !            32: #endif
        !            33: 
        !            34: extern int aud_flag ;
        !            35: extern struct SPACE *first_space ;
        !            36: extern struct LIBFILE *Glib_file ;
        !            37: extern FILE *hist_fp ;
        !            38: 
        !            39: extern int aud_check() ;
        !            40: extern aud_set() ;
        !            41: extern FATAL() ;
        !            42: extern int     readpage() ;
        !            43: extern int     wtSPACE() ;
        !            44: 
        !            45: int                                    /* SUCCESS or ERROR */
        !            46: sdp_sync(sp)
        !            47: struct SPACE   *sp ;
        !            48: {
        !            49:        register int             i ;
        !            50:        register struct SPACE   *curr ;
        !            51:        register struct MANAGER *manager ;
        !            52: 
        !            53:        PROLOG
        !            54:        for(curr=first_space; curr!=NULL; curr=curr->next_space)
        !            55:        {
        !            56:                if( (curr==sp) || (sp==NULL) )
        !            57:                {
        !            58:                        Glib_file = curr->lib_file ;
        !            59: 
        !            60:                        manager = (curr->environ)->manp ;
        !            61: 
        !            62:                        for(i=0; i<(curr->environ)->num_frames; i++)
        !            63:                                switch(manager[i].ref_chng)
        !            64:                                {
        !            65:                                        case RNLY:
        !            66:                                                if(readpage(curr,manager[i].page_id,i) == ERROR)
        !            67:                                                        ERR_RET(SY01,ERROR)
        !            68:                                                break ;
        !            69: 
        !            70:                                        case WRTN:
        !            71:                                                if( (curr->perms != WRTN)  ||  (writeframe(curr,i) == ERROR) )
        !            72:                                                        ERR_RET(SY02,ERROR)
        !            73:                                                manager[i].ref_chng = RNLY ;
        !            74:                                                break ;
        !            75: 
        !            76:                                        case RCNULL:
        !            77:                                                break ;
        !            78: 
        !            79:                                        default:
        !            80:                                                ERR_RET(SY03,ERROR)
        !            81:                                                break ;
        !            82: 
        !            83:                                }
        !            84:                        if ((curr->perms == WRTN) && (wtSPACE(curr) == ERROR))
        !            85:                                ERR_RET(SY04,ERROR)
        !            86:                        if(sp == curr)
        !            87:                                break ;
        !            88:                }
        !            89:        }
        !            90:        if( (curr==NULL) && (sp!=NULL) )
        !            91:                ERR_RET(SY04,ERROR)
        !            92:        EPILOG
        !            93:        return(SUCCESS) ;
        !            94: }

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