Return to util.c CVS log

Up to [CSRG BSD Unix] / 41BSD / lib / libI77uc

Annotation of 41BSD/lib/libI77uc/util.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * utility routines
        !             3:  */
        !             4: 
        !             5: #include <sys/types.h>
        !             6: #include <sys/stat.h>
        !             7: #include "fio.h"
        !             8: 
        !             9: 
        !            10: ini_std(u,F,w) FILE *F;
        !            11: {      unit *p;
        !            12:        p = &units[u];
        !            13:        p->ufd = F;
        !            14:        p->ufnm = NULL;
        !            15:        p->useek = canseek(F);
        !            16:        p->ufmt = YES;
        !            17:        p->uwrt = (w==WRITE)? YES : NO;
        !            18:        p->ublnk = p->uscrtch = p->uprnt = p->uend = NO;
        !            19:        p->url = 0;
        !            20:        p->uinode = finode(F);
        !            21: }
        !            22: 
        !            23: canseek(f) FILE *f; /*SYSDEP*/
        !            24: {      struct stat x;
        !            25:        return( (fstat(fileno(f),&x)==0) &&
        !            26:        (x.st_nlink > 0 /*!pipe*/) && !isatty(fileno(f)) );
        !            27: }
        !            28: 
        !            29: nowreading(x) unit *x;
        !            30: {
        !            31:        long loc;
        !            32:        x->uwrt = NO;
        !            33:        loc=ftell(x->ufd);
        !            34:        freopen(x->ufnm,"r",x->ufd);
        !            35:        fseek(x->ufd,loc,0);
        !            36: }
        !            37: 
        !            38: nowwriting(x) unit *x;
        !            39: {
        !            40:        long loc;
        !            41:        x->uwrt = YES;
        !            42:        loc=ftell(x->ufd);
        !            43:        freopen(x->ufnm,"a",x->ufd);
        !            44:        fseek(x->ufd,loc,0);
        !            45: }
        !            46: 
        !            47: g_char(a,alen,b) char *a,*b; ftnlen alen;
        !            48: {      char *x=a+alen-1, *y=b+alen-1;
        !            49:        while (x >= a  &&  *x == ' ') {x--; y--;}
        !            50:        *(y+1) = '\0';
        !            51:        while (x >= a) *y-- = *x--;
        !            52: }
        !            53: 
        !            54: b_char(from, to, tolen) char *from, *to; ftnlen tolen;
        !            55: {      int i=0;
        !            56:        while (*from && i < tolen) {
        !            57:                *to++ = *from++;
        !            58:                i++;
        !            59:        }
        !            60:        while (i++ < tolen)
        !            61:                *to++ = ' ';
        !            62: }
        !            63: 
        !            64: inode(a) char *a;
        !            65: {      struct stat x;
        !            66:        if(stat(a,&x)==0) return(x.st_ino);
        !            67:        else return(-1);
        !            68: }
        !            69: 
        !            70: finode(f) FILE *f;
        !            71: {      struct stat x;
        !            72:        if(fstat(fileno(f),&x)==0) return(x.st_ino);
        !            73:        else return(-1);
        !            74: }
        !            75: 
        !            76: char
        !            77: last_char(f) FILE *f;
        !            78: {
        !            79:        fseek(f,-2L,1);
        !            80:        if(ftell(f)) return(getc(f));
        !            81:        else return('\n');
        !            82: }

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