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