Return to util.c CVS log

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

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

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

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