7 |
|
* 7/14/88 Greg Ward |
8 |
|
*/ |
9 |
|
|
10 |
– |
#include <stdlib.h> |
11 |
– |
#include <string.h> |
12 |
– |
#include <stdio.h> |
10 |
|
#include <ctype.h> |
11 |
|
|
15 |
– |
#include "platform.h" |
16 |
– |
#include "rtprocess.h" |
12 |
|
#include "rtio.h" |
13 |
+ |
#include "platform.h" |
14 |
+ |
#include "paths.h" |
15 |
|
|
16 |
|
#define MAXFILE 512 /* maximum number of files */ |
17 |
|
|
20 |
|
FILE *input[MAXFILE]; |
21 |
|
int bytsiz[MAXFILE]; |
22 |
|
char *tabc[MAXFILE]; |
23 |
< |
int nfiles; |
23 |
> |
int nfiles = 0; |
24 |
|
|
25 |
|
char buf[MAXLINE]; |
26 |
|
|
27 |
|
int |
28 |
< |
main(argc, argv) |
32 |
< |
int argc; |
33 |
< |
char *argv[]; |
28 |
> |
main(int argc, char *argv[]) |
29 |
|
{ |
30 |
|
long incnt = 0; |
31 |
|
int unbuff = 0; |
35 |
|
int puteol; |
36 |
|
int i; |
37 |
|
|
43 |
– |
nfiles = 0; |
38 |
|
for (i = 1; i < argc; i++) { |
39 |
|
if (argv[i][0] == '-') { |
40 |
|
switch (argv[i][1]) { |
41 |
|
case 't': |
42 |
|
curtab = argv[i]+2; |
43 |
+ |
if (!*curtab) curtab = "\n"; |
44 |
|
break; |
45 |
|
case 'u': |
46 |
|
unbuff = !unbuff; |
51 |
|
incnt = atol(argv[++i]); |
52 |
|
break; |
53 |
|
case 'f': |
54 |
+ |
case 'F': |
55 |
|
curbytes = sizeof(float); |
56 |
|
break; |
57 |
|
case 'd': |
58 |
+ |
case 'D': |
59 |
|
curbytes = sizeof(double); |
60 |
|
break; |
61 |
|
case 'i': |
62 |
+ |
case 'I': |
63 |
|
curbytes = sizeof(int); |
64 |
|
break; |
65 |
|
case 'w': |
66 |
+ |
case 'W': |
67 |
|
curbytes = 2; |
68 |
|
break; |
69 |
|
case 'b': |
148 |
|
if (bytsiz[i] > 0) { /* binary input */ |
149 |
|
if (getbinary(buf, bytsiz[i], 1, input[i]) < 1) |
150 |
|
break; |
151 |
< |
if (i) |
152 |
< |
fputs(tabc[i], stdout); |
154 |
< |
putbinary(buf, bytsiz[i], 1, stdout); |
151 |
> |
if (putbinary(buf, bytsiz[i], 1, stdout) != 1) |
152 |
> |
break; |
153 |
|
} else if (bytsiz[i] < 0) { /* multi-line input */ |
154 |
|
int n = -bytsiz[i]; |
155 |
|
while (n--) { |
158 |
|
if ((i > 0) | (n < -bytsiz[i]-1)) |
159 |
|
fputs(tabc[i], stdout); |
160 |
|
buf[strlen(buf)-1] = '\0'; |
161 |
< |
fputs(buf, stdout); |
161 |
> |
if (fputs(buf, stdout) == EOF) |
162 |
> |
break; |
163 |
|
} |
164 |
|
if (n >= 0) /* fell short? */ |
165 |
|
break; |
169 |
|
if (i) |
170 |
|
fputs(tabc[i], stdout); |
171 |
|
buf[strlen(buf)-1] = '\0'; |
172 |
< |
fputs(buf, stdout); |
172 |
> |
if (fputs(buf, stdout) == EOF) |
173 |
> |
break; |
174 |
|
} |
175 |
|
} |
176 |
|
if (i < nfiles) |
180 |
|
if (unbuff) |
181 |
|
fflush(stdout); |
182 |
|
} while (--incnt); |
183 |
+ |
/* check ending */ |
184 |
+ |
if (fflush(stdout) == EOF) { |
185 |
+ |
fputs(argv[0], stderr); |
186 |
+ |
fputs(": write error on standard output\n", stderr); |
187 |
+ |
return(1); |
188 |
+ |
} |
189 |
+ |
if (incnt > 0) { |
190 |
+ |
fputs(argv[0], stderr); |
191 |
+ |
fputs(": warning: premature EOD\n", stderr); |
192 |
+ |
} |
193 |
|
return(0); |
194 |
|
} |