/* -*-c-*-
*
- * $Id: key-io.c,v 1.6 2004/04/08 01:36:15 mdw Exp $
+ * $Id$
*
* Adding new keys to a key file
*
if (err == KERR_DUPTAG) {
if (rep)
rep(file, line, "duplicate key tag stripped", arg);
- free(k->tag);
+ xfree(k->tag);
k->tag = 0;
goto again;
}
skip_3:
if (k->tag)
- free(k->tag);
- free(k->type);
+ xfree(k->tag);
+ xfree(k->type);
skip_2:
key_destroy(&k->k);
skip_1:
return (0);
}
-/* --- @key_close@ --- *
+/* --- @key_discard@ --- *
*
* Arguments: @key_file *f@ = pointer to key file block
*
- * Returns: A @KWRITE_@ code indicating how it went.
+ * Returns: ---
*
- * Use: Frees all the key data, writes any changes. Make sure that
- * all hell breaks loose if this returns @KWRITE_BROKEN@.
+ * Use: Frees all the key data, without writing changes.
*/
-int key_close(key_file *f)
+int key_discard(key_file *f)
{
- int e;
hash_base *b;
hash_iter i;
- if (f->fp && (e = key_save(f)) != KWRITE_OK)
- return (e);
-
/* --- Free all the individual keys --- */
for (hash_mkiter(&i, &f->byid); (b = hash_next(&i)) != 0; ) {
key *k = (key *)b;
key_destroy(&k->k);
- free(k->type);
- free(k->tag);
+ xfree(k->type);
+ xfree(k->tag);
if (k->c)
- free(k->c);
+ xfree(k->c);
for (sym_mkiter(&j, &k->a); (a = sym_next(&j)) != 0; )
- free(a->p);
+ xfree(a->p);
sym_destroy(&k->a);
DESTROY(k);
}
if (f->fp)
fclose(f->fp);
- free(f->name);
+ xfree(f->name);
+}
+
+/* --- @key_close@ --- *
+ *
+ * Arguments: @key_file *f@ = pointer to key file block
+ *
+ * Returns: A @KWRITE_@ code indicating how it went.
+ *
+ * Use: Frees all the key data, writes any changes. Make sure that
+ * all hell breaks loose if this returns @KWRITE_BROKEN@.
+ */
+
+int key_close(key_file *f)
+{
+ int e;
+
+ if (f->fp && (e = key_save(f)) != KWRITE_OK)
+ return (e);
+ key_discard(f);
return (KWRITE_OK);
}
if ((e = insert(f, k)) == 0)
f->f |= KF_MODIFIED;
else {
- free(k->type);
+ xfree(k->type);
DESTROY(k);
k = 0;
}