+
+/* Open a form or components file */
+int
+open_form(char **form, char *def)
+{
+ int in;
+ if (*form) {
+ if ((in = open (etcpath (*form), O_RDONLY)) == NOTOK)
+ adios (*form, "unable to open form file");
+ } else {
+ if ((in = open (etcpath (def), O_RDONLY)) == NOTOK)
+ adios (def, "unable to open default components file");
+ *form = def;
+ }
+ return in;
+}