Return to writeframe.c CVS log

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

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

1.1     ! root        1: static char ID[] = "@(#) writeframe.c: 1.1 3/16/82";
        !             2: #include <stdio.h>
        !             3: #include "sdp.h"
        !             4: #include "define3.h"
        !             5: 
        !             6: #ifdef SHORT
        !             7: #define WF01   "WF01 "
        !             8: #define WF02   "WF02 "
        !             9: #define WF03   "WF03 "
        !            10: #define WF04   "WF04 "
        !            11: #define WF05   "WF05 "
        !            12: #define WF06   "WF06 "
        !            13: #define WF07   "WF07 "
        !            14: #else
        !            15: #define WF01   "WF01 -- found id beyond file limit\n%lo\t%d\t%d\n",id,i,sp->numbfile
        !            16: #define WF02   "WF02 -- fail to build file name for creation\n%s%d\n",sp->head_name,i
        !            17: #define WF03   "WF03 -- fail to create file\n%s\n",file_name
        !            18: #define WF04   "WF04 -- fail to build file name for opening\n%s%d\n",sp->head_name,i
        !            19: #define WF05   "WF05 -- fail to open file\n%s\n",file_name
        !            20: #define WF06   "WF06 -- fail to position file\n%d\n",fd
        !            21: #define WF07   "WF07 -- fail to write\n%d\n",fd
        !            22: #endif
        !            23: 
        !            24: extern struct LIBFILE *Glib_file ;
        !            25: extern char *BUILDNAME() ;
        !            26: extern FATAL() ;
        !            27: extern FREE() ;
        !            28: 
        !            29: int                                    /* SUCCESS or ERROR */
        !            30: writeframe(sp,frame)
        !            31: register struct SPACE  *sp ;
        !            32: int                    frame;
        !            33: {
        !            34:        long                    offset ;
        !            35:        register long           floor ;
        !            36:        register struct MANAGER *manager ;
        !            37:        register int            i ;
        !            38:        int                     bytewt ;
        !            39:        ITEMID                  id ;
        !            40:        register FD             fd ;
        !            41:        char                    *file_name ;
        !            42: 
        !            43:        manager = (sp->environ)->manp ;
        !            44:        id = manager[frame].page_id ;
        !            45: 
        !            46:        for(floor=i=0; id >= (floor += sp->fileinfo[i].leng); )
        !            47:                if(++i == sp->numbfile)
        !            48:                        ERR_RET(WF01,ERROR)
        !            49:        offset = id - (floor - sp->fileinfo[i].leng) ;
        !            50: 
        !            51:        switch(sp->fileinfo[i].desc)
        !            52:        {
        !            53:                case NOTMADE:
        !            54:                        if( (file_name = MBUILDNAME(sp->head_name,i)) == NULL )
        !            55:                                ERR_RET(WF02,ERROR)
        !            56:                        if(MCREATE(file_name,sp->mode) == ERROR)
        !            57:                                ERR_RET(WF03,ERROR)
        !            58:                        FREE(file_name) ;
        !            59: 
        !            60:                case CLOSED:
        !            61:                        if( (file_name = MBUILDNAME(sp->head_name,i)) == NULL )
        !            62:                                ERR_RET(WF04,ERROR)
        !            63:                        if( (fd = sp->fileinfo[i].desc = MOPEN(file_name,sp->perms)) == ERROR )
        !            64:                                ERR_RET(WF05,ERROR)
        !            65:                        FREE(file_name) ;
        !            66:                        break ;
        !            67: 
        !            68:                default:
        !            69:                        fd = sp->fileinfo[i].desc ;
        !            70:                        break ;
        !            71:        }
        !            72:        if(MSEEK(fd,offset) == ERROR)
        !            73:                ERR_RET(WF06,ERROR)
        !            74: 
        !            75:        if(sp->maxpage-id < sp->environ->frame_size)
        !            76:                bytewt = sp->maxpage-id ;
        !            77:        else
        !            78:                bytewt = sp->environ->frame_size ;
        !            79: 
        !            80:        if(MWRITE(fd,manager[frame].frame_pntr,bytewt) == ERROR )
        !            81:                ERR_RET(WF07,ERROR)
        !            82:        manager[frame].ref_chng = RNLY ;
        !            83:        (sp->environ)->stats.writes++ ;
        !            84: 
        !            85:        return(SUCCESS) ;
        !            86: }

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