Return to endfile.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libI77

Annotation of 42BSD/usr.lib/libI77/endfile.c, revision 1.1.1.1

1.1       root        1: /*
                      2: char id_endfile[] = "@(#)endfile.c     1.7";
                      3:  *
                      4:  * endfile
                      5:  */
                      6: 
                      7: #include "fio.h"
                      8: 
                      9: static char    endf[]  = "endfile";
                     10: 
                     11: f_end (a)
                     12: alist  *a;
                     13: {
                     14:        unit    *b;
                     15: 
                     16:        lfname = NULL;
                     17:        elist = NO;
                     18:        errflag = a->aerr;
                     19:        lunit = a->aunit;
                     20:        if (not_legal(lunit))
                     21:                err (errflag, F_ERUNIT, endf)
                     22:        b = &units[lunit];
                     23:        if (!b->ufd)
                     24:                err (errflag, F_ERNOPEN, endf)
                     25:        if (b->uend)
                     26:                return(0);
                     27:        lfname = b->ufnm;
                     28:        b->uend = YES;
                     29:        return ( t_runc (b, errflag, endf) );
                     30: }
                     31: 
                     32: t_runc (b, flag, str)
                     33: unit   *b;
                     34: ioflag flag;
                     35: char   *str;
                     36: {
                     37:        long    loc;
                     38: 
                     39:        if (b->uwrt)
                     40:                fflush (b->ufd);
                     41:        if (b->url || !b->useek || !b->ufnm)
                     42:                return (OK);    /* don't truncate direct access files, etc. */
                     43:        loc = ftell (b->ufd);
                     44:        if (truncate (b->ufnm, loc) != 0)
                     45:                err (flag, errno, str)
                     46:        if (b->uwrt && ! nowreading(b))
                     47:                err (flag, errno, str)
                     48:        return (OK);
                     49: }

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