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