Return to tstsk.c CVS log

Up to [Research Unix] / researchv10no / libc / fio

Annotation of researchv10no/libc/fio/tstsk.c, revision 1.1.1.1

1.1       root        1: #include       <fio.h>
                      2: #include       <libc.h>
                      3: 
                      4: #define        TMP     "/tmp/tstsk"
                      5: #define        FN(x)   (unsigned char)((x&0xFF)^(x/251))
                      6: 
                      7: main(argc, argv)
                      8:        char **argv;
                      9: {
                     10:        register n, c, k;
                     11:        int len, fd, cd;
                     12:        char *b1, *b2, *p;
                     13: 
                     14:        if(argc != 1){
                     15:                Fprint(2, "Usage: tstsk\n");
                     16:                exit(1);
                     17:        }
                     18:        len = 1000000;
                     19:        if(sizeof(int) == 2)
                     20:                len &= 0x7FFF;
                     21:        if((fd = creat(TMP, 0666)) < 0){
                     22:                perror(TMP);    
                     23:                exit(1);
                     24:        }
                     25:        close(fd);
                     26:        if((fd = open(TMP, 2)) < 0){
                     27:                perror(TMP);    
                     28:                exit(1);
                     29:        }
                     30:        unlink(TMP);
                     31:        if((b2 = malloc(len)) == 0){
                     32:                Fprint(2, "malloc(%d) failed\n", len);
                     33:                exit(1);
                     34:        }
                     35:        for(n = 0, p = b2; n < len; n++)
                     36:                *p++ = FN(n);
                     37:        if(write(fd, b2, len) != len){
                     38:                perror("write");
                     39:                exit(1);
                     40:        }
                     41:        lseek(fd, 0L, 0);
                     42:        Finit(fd, (char *)0);
                     43:        for(n = 0; n < 500; n++){
                     44:                k = nrand(len);
                     45:                c = nrand(sizeof(Fbuffer))+100;
                     46:                if(k+c > len) c = len-k;
                     47:                test(fd, k, c, n);
                     48:        }
                     49: done:
                     50:        Fprint(2, "tstsk: %d bytes, %d seeks, succeeded\n", len, n);
                     51:        exit(0);
                     52: }
                     53: 
                     54: test(fd, off, n, count)
                     55: {
                     56:        long offset;
                     57:        int c;
                     58: 
                     59:        offset = off;
                     60:        if(Fseek(fd, offset, 0) != offset){
                     61:                fprint(2, "fseek(%ld) != %ld!!\n", offset, offset);
                     62:                exit(1);
                     63:        }
                     64:        while(n-- > 0){
                     65:                if((c = Fgetc(fd)) != FN(offset)){
                     66:                        fprint(2, "tst %d: char mismatch; %ld: %x, expected %x\n",
                     67:                                count, offset, c, FN(offset));
                     68:                        dumpfb(fd);
                     69:                        exit(1);
                     70:                }
                     71:                offset++;
                     72:        }
                     73: }
                     74: 
                     75: dumpfb(fd)
                     76: {
                     77:        register Fbuffer *f = Ffb[fd];
                     78:        register unsigned char *c;
                     79:        register long off;
                     80:        int i;
                     81: 
                     82:        fprint(2, "buf@%ld: next=%ld end=%ld lnext=%ld buf=%ld offset=%ld\n",
                     83:                f, f->next, f->end, f->lnext, f->buf, f->offset);
                     84:        off = f->offset - (f->end - f->buf);
                     85:        for(c = f->buf; c < &f->buf[64]; ){
                     86:                fprint(2, "%7ld:", off);
                     87:                for(i = 0; i < 16; i++, off++)
                     88:                        fprint(2, " %2x", *c++);
                     89:                fprint(2, "\n");
                     90:        }
                     91: }

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