8 |
|
*/ |
9 |
|
|
10 |
|
#include <stdlib.h> |
11 |
+ |
#include "platform.h" |
12 |
|
#include "rtio.h" |
13 |
|
#include "rtmath.h" |
14 |
|
#include "random.h" |
709 |
|
fputs("'\n", stderr); |
710 |
|
return(1); |
711 |
|
} |
712 |
+ |
/* check version (warning) */ |
713 |
+ |
if ((pptr = idf_getobject(our_idf, "Version")) != NULL && |
714 |
+ |
pptr->flist != NULL && atoi(pptr->flist->val) != 7) { |
715 |
+ |
fputs(progname, stderr); |
716 |
+ |
fputs(": warning - written for IDF version 7.x, not ", |
717 |
+ |
stderr); |
718 |
+ |
fputs(pptr->flist->val, stderr); |
719 |
+ |
fputc('\n', stderr); |
720 |
+ |
} |
721 |
|
/* remove existing UVFs */ |
722 |
|
if ((pptr = idf_getobject(our_idf, UVF_PNAME)) != NULL) { |
723 |
|
IDF_OBJECT *pnext; |
726 |
|
do { |
727 |
|
pnext = pptr->pnext; |
728 |
|
idf_delobject(our_idf, pptr); |
729 |
< |
} while (pnext != NULL); |
729 |
> |
} while ((pptr = pnext) != NULL); |
730 |
|
} |
731 |
|
/* add to header */ |
732 |
|
if (our_idf->hrem == NULL || |