1 |
< |
/* Copyright (c) 1992 Regents of the University of California */ |
1 |
> |
/* Copyright (c) 1994 Regents of the University of California */ |
2 |
|
|
3 |
|
#ifndef lint |
4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
173 |
|
char *name; |
174 |
|
register FILE *fin; |
175 |
|
{ |
176 |
+ |
int nobjs = 0; |
177 |
|
register int c; |
178 |
|
|
179 |
|
while ((c = getc(fin)) != EOF) { |
189 |
|
} else if (c == '!') { /* command */ |
190 |
|
ungetc(c, fin); |
191 |
|
xfcomm(name, fin); |
192 |
+ |
nobjs++; |
193 |
|
} else { /* object */ |
194 |
|
ungetc(c, fin); |
195 |
|
xfobject(name, fin); |
196 |
+ |
nobjs++; |
197 |
|
} |
198 |
|
} |
199 |
+ |
if (nobjs == 0) |
200 |
+ |
fprintf(stderr, "%s: (%s): warning - empty file\n", |
201 |
+ |
progname, name); |
202 |
|
} |
203 |
|
|
204 |
|
|