Return to wrtaout.c CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol / cint

Annotation of researchv10no/cmd/spitbol/cint/wrtaout.c, revision 1.1

1.1     ! root        1: 
        !             2: /*
        !             3:        wrtaout( headerp,memsize ) writes an executable a.out file containing
        !             4:        the currently executing spitbol program. headerp is a pointer to
        !             5:        the a.out header. memsize is the actual memory size of the executing
        !             6:        program.
        !             7: */
        !             8: 
        !             9: int    wrtaout( headerp,memsize )
        !            10: 
        !            11: char   *headerp;
        !            12: int    memsize;
        !            13: 
        !            14: {
        !            15:        register int    excess, fd;
        !            16:        long    lseek();
        !            17: 
        !            18: 
        !            19:        unlink( "a.out" );
        !            20: 
        !            21:        if ( (fd = creat( "a.out",0777 )) < 0 )
        !            22:                return  -1;
        !            23: 
        !            24:        /*
        !            25:         *      write a.out header
        !            26:         */
        !            27: 
        !            28:        if ( write( fd,headerp,32 ) != 32 )
        !            29:                return  -2;
        !            30: 
        !            31:        /*
        !            32:         *      lseek out to 1024 byte boundary (full page).
        !            33:         */
        !            34: 
        !            35:        if ( lseek( fd,1024L,0 ) != 1024 )
        !            36:                return -3;
        !            37: 
        !            38:        /*
        !            39:         *      write all of memory
        !            40:         */
        !            41: 
        !            42:        if ( write( fd,0,memsize ) != memsize )
        !            43:                return  -4;
        !            44: 
        !            45:        /*
        !            46:         *      if memsize not multiple of 1024, force file size up to
        !            47:         *      this multiple.
        !            48:         */
        !            49: 
        !            50:        if ( (excess = memsize % 1024) != 0 ) {
        !            51:                excess  = 1024 - excess;
        !            52:                if ( lseek( fd,(long) excess - 1,1 ) < 0 )
        !            53:                        return  -5;
        !            54:                if ( write( fd,"",1 ) != 1 )
        !            55:                        return  -6;
        !            56:        }
        !            57: 
        !            58:        close( fd );
        !            59: 
        !            60:        return  0;
        !            61: 
        !            62: }

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