Commit | Line | Data |
---|---|---|
3443cb26 | 1 | /* |
5e0ed952 | 2 | char id_util[] = "@(#)util.c 1.7"; |
3443cb26 DW |
3 | * |
4 | * utility routines | |
5 | */ | |
6 | ||
7 | #include <sys/types.h> | |
8 | #include <sys/stat.h> | |
9 | #include "fio.h" | |
10 | ||
fe1e75aa | 11 | extern short ccntrl_, blzero_; |
3443cb26 | 12 | |
fe1e75aa | 13 | ini_std(u,F,w) FILE *F; |
3443cb26 DW |
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; | |
656fbd79 | 21 | p->uscrtch = p->uend = NO; |
5e0ed952 DW |
22 | p->ublnk = blzero; |
23 | p->uprnt = ccntrl; | |
3443cb26 DW |
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 | { | |
ff26b80a | 36 | return(now_acc(x,"r")); |
3443cb26 DW |
37 | } |
38 | ||
39 | nowwriting(x) unit *x; | |
ff26b80a DW |
40 | { |
41 | return(now_acc(x,"a")); | |
42 | } | |
43 | ||
44 | now_acc(x,mode) | |
45 | unit *x; char *mode; | |
3443cb26 DW |
46 | { |
47 | long loc; | |
ff26b80a DW |
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); | |
3443cb26 DW |
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 | } |