Return to util.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libsI77

Annotation of cci/usr/src/usr.lib/libsI77/util.c, revision 1.1.1.1

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

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