Return to pic.pco.c CVS log

Up to [Research Unix] / researchv10no / libpicfile

Annotation of researchv10no/libpicfile/pic.pco.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * Type-specific code for TYPE=pico
        !             3:  * Not a standard type, but supported for Gerard.
        !             4:  * Doesn't work on pipes because it calls lseek.
        !             5:  */
        !             6: #include <picfile.h>
        !             7: #include <libc.h>
        !             8: int PRD_pco(f, buf)
        !             9: PICFILE *f;
        !            10: char *buf;
        !            11: {
        !            12:        register char *bufp, *ein, *inp;
        !            13:        int i, n;
        !            14:        long offs;
        !            15:        if(f->line==0){
        !            16:                f->buf=malloc(f->width);
        !            17:                if(f->buf==0){
        !            18:                        PIC_error="Can't allocate buffer";
        !            19:                        return 0;
        !            20:                }
        !            21:        }
        !            22:        if(f->line==f->height){
        !            23:                PIC_error="Read past end of picture";
        !            24:                return 0;
        !            25:        }
        !            26:        offs=lseek(f->fd, 0L, 1);
        !            27:        ein=f->buf+f->width;
        !            28:        for(i=0;i!=f->nchan;i++){
        !            29:                n=read(f->fd, f->buf, f->width);
        !            30:                if(n!=f->width){
        !            31:                        if(n==0) PIC_error="End of file reading picture";
        !            32:                        return 0;
        !            33:                }
        !            34:                inp=f->buf;
        !            35:                for(bufp=buf+i;inp!=ein;bufp+=f->nchan)
        !            36:                        *bufp=*inp++;
        !            37:                lseek(f->fd, (long)f->width*(f->height-1), 1);
        !            38:        }
        !            39:        lseek(f->fd, offs+f->width, 0);
        !            40:        f->line++;
        !            41:        return 1;
        !            42: }
        !            43: int PWR_pco(f, buf)
        !            44: PICFILE *f;
        !            45: char *buf;
        !            46: {
        !            47:        register char *bufp, *eout, *outp;
        !            48:        int i, n;
        !            49:        long offs;
        !            50:        if(f->line==0){
        !            51:                f->buf=malloc(f->width);
        !            52:                if(f->buf==0){
        !            53:                        PIC_error="Can't allocate buffer";
        !            54:                        return 0;
        !            55:                }
        !            56:                PWR_header(f);
        !            57:        }
        !            58:        if(f->line==f->height){
        !            59:                PIC_error="Write past end of picture";
        !            60:                return 0;
        !            61:        }
        !            62:        offs=lseek(f->fd, 0L, 1);
        !            63:        eout=f->buf+f->width;
        !            64:        for(i=0;i!=f->nchan;i++){
        !            65:                outp=f->buf;
        !            66:                for(bufp=buf+i;outp!=eout;bufp+=f->nchan)
        !            67:                        *outp++=*bufp;
        !            68:                n=write(f->fd, f->buf, f->width);
        !            69:                if(n!=f->width) return 0;
        !            70:                lseek(f->fd, (long)f->width*(f->height-1), 1);
        !            71:        }
        !            72:        lseek(f->fd, offs+f->width, 0);
        !            73:        f->line++;
        !            74:        return 1;
        !            75: }
        !            76: int PCL_pco(f)
        !            77: PICFILE *f;
        !            78: {
        !            79:        free(f->buf);
        !            80: }

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