2.9BSD - /usr/src/lib/libI77/util.c

   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: }

Defined functions