Return to copyd.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / lib / misc

Annotation of coherent/g/usr/lib/misc/copyd.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copy data from one file to another for a length.
                      3:  * Returns 1 on success, 0 on failure.
                      4:  */
                      5: #include <stdio.h>
                      6: 
                      7: copyd(ofp, ifp, len)
                      8: FILE *ofp, *ifp;
                      9: unsigned long len;
                     10: {
                     11:        register n, r;
                     12:        char buf[BUFSIZ];
                     13: 
                     14:        for (n = ftell(ifp) % BUFSIZ; len; (len -= n), (n = 0)) {
                     15:                if ((n = BUFSIZ - n) > len)
                     16:                        n = len;
                     17:                if (!(r = fread(buf, 1, n, ifp))  ||
                     18:                    (r != fwrite(buf, 1, r, ofp)) ||
                     19:                    (r != n))
                     20:                        return (0);
                     21:        }
                     22:        return (1);
                     23: }
                     24: 
                     25: #ifdef TEST
                     26: #include <misc.h>
                     27: 
                     28: main(argc, argv)
                     29: char *argv[];
                     30: {
                     31:        extern long atol();
                     32: 
                     33:        if (argc != 4)
                     34:                fatal("test to from length");   
                     35: 
                     36:        if (!copyd(xopen(argv[1], "w"), xopen(argv[2], "r"), atol(argv[3])))
                     37:                fatal("Error in copy");
                     38: }
                     39: #endif

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