Return to sojourn.c CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / inc / sdpsrc / lo

Annotation of researchv9/jerq/sgs/inc/sdpsrc/lo/sojourn.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * static char ID_sjrnc[] = "@(#) sojourn.c: 1.1 1/8/82";
                      3:  */
                      4: 
                      5: sojourn(itemid, partnbr, readaction)
                      6: long itemid;
                      7: int partnbr, readaction;
                      8: {
                      9: 
                     10:        register int   index1;
                     11:        register char *index2;
                     12:        int framenbr;
                     13: 
                     14: /*
                     15:  * Search the page frame contents, to see if the desired item is
                     16:  * already present
                     17:  */
                     18: 
                     19:        for( index1 = 0; index1 < NUMBERFRAMES; index1++ )
                     20:                if( itemid == manager[index1].page_id )
                     21:                        return( index1 );
                     22: 
                     23:        if( (partnbr < 0)  ||  (partnbr > num_partitions) )
                     24:                return( fatal("illegal frame partition supplied") );
                     25: 
                     26: /*
                     27:  * A frame must be selected for a item not currently in memory
                     28:  */
                     29: 
                     30:        if( (framenbr = lru[partnbr]) == NOFRAMES )
                     31:                return( fatal("no unlocked frames available") );
                     32: 
                     33:        if( manager[framenbr].ref_chng == WRTN )
                     34:                if( writeframe(framenbr) != PAGESIZE )
                     35:                        return( fatal("page write failed to output entire page") );
                     36: 
                     37:        if( readaction == YES ) {
                     38:                if( readpage(itemid, framenbr) != PAGESIZE )
                     39:                        return( fatal("page read failed to input entire page") );
                     40:                }
                     41:        else
                     42:                for( index2 = manager[framenbr].frame_pntr; index2 < manager[framenbr].frame_pntr+PAGESIZE; *index2++ = 0 )
                     43:                        ;
                     44: 
                     45:        manager[framenbr].page_id = itemid;
                     46:        manager[framenbr].ref_chng = RNLY;
                     47: 
                     48:        return( framenbr );
                     49: }

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