BSD 4_4 release

[unix-history] / usr / src / usr.bin / f77 / libI77 / util.c

/*-
* Copyright (c) 1980 The Regents of the University of California.
* All rights reserved.
*
* This module is believed to contain source code proprietary to AT&T.
* Use and redistribution is subject to the Berkeley Software License
* Agreement and your Software Agreement with AT&T (Western Electric).
*/

#ifndef lint
static char sccsid[] = "@(#)util.c      5.2 (Berkeley) 4/12/91";
#endif /* not lint */

/*
* utility routines
*/

#include "fio.h"

extern short    ccntrl_, blzero_;

nowreading(x) unit *x;
{
       return(now_acc(x,"r"));
}

nowwriting(x) unit *x;
{
       return(now_acc(x,"a"));
}

LOCAL now_acc(x,mode)
unit *x; char *mode;
{
       long loc;

       if (!x->ufnm)
       {
               errno = EBADF;
               return(NO);
       }
       if (x->useek)
               loc=ftell(x->ufd);
       if (freopen(x->ufnm,mode,x->ufd))
       {
               if (x->useek)
                       fseek(x->ufd,loc,0);
               x->uwrt = (*mode=='a');
               return(YES);
       }
       if (x->ufd = fopen(x->ufnm, (*mode=='a')? "r":"a"))
               if (x->useek)
                       fseek(x->ufd,loc,0);
       return(NO);
}

g_char(a,alen,b) char *a,*b; ftnlen alen;
{       char *x=a+alen-1, *y=b+alen-1;
       while (x >= a  &&  *x == ' ') {x--; y--;}
       *(y+1) = '\0';
       while (x >= a) *y-- = *x--;
}

b_char(from, to, tolen) char *from, *to; ftnlen tolen;
{       int i=0;
       while (*from && i < tolen) {
               *to++ = *from++;
               i++;
       }
       while (i++ < tolen)
               *to++ = ' ';
}

char
last_char(f) FILE *f;
{
       fseek(f,-2L,1);
       if(ftell(f)) return(getc(f));
       else return('\n');
}