| 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 || |