Commit 19ebeb88 authored by Niels Möller's avatar Niels Möller
Browse files

* src/spki_commands.c (make_spki_read_acls): Deleted function.

(spki_read_acl): Deleted expression.

Rev: src/spki_commands.c:1.27
parent 765f8c34
......@@ -190,7 +190,8 @@ DEFINE_COMMAND2(spki_sexp2keypair_command)
/* Reading of ACL:s
* ****************/
#if 0
/* Adds an ACL s-expression to an SPKI-context. Returns the context. */
static void
......@@ -224,6 +225,7 @@ DEFINE_COMMAND(spki_add_acl_command)
COMMAND_RETURN(c, self);
}
#endif
DEFINE_COMMAND(spki_make_context_command)
(struct command *s UNUSED,
......@@ -237,36 +239,6 @@ DEFINE_COMMAND(spki_make_context_command)
COMMAND_RETURN(c, make_spki_context(algorithms));
}
/* Reads a file of ACL:s, and returns an spki_context. */
/* GABA:
(expr
(name spki_read_acl)
(params
(algorithms object alist))
(expr
(lambda (file)
(let ((ctx (spki_make_context
;; Delay call, so that we really
;; create one context for each file.
(prog1 algorithms file))))
(for_sexp
(lambda (e) ctx) ; Return ctx
;; Keep on reading until an SEXP_EOF or
;; SEXP_SYNTAX exception is raised.
(spki_add_acl ctx)
file)))))
*/
struct command *
make_spki_read_acls(struct alist *algorithms)
{
CAST_SUBTYPE(command, res, spki_read_acl(algorithms));
trace("make_spki_read_acl\n");
return res;
}
/* Reading of host-keys
* ********************/
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment