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

(do_sexp_print): Deleted function.

(make_sexp_print_command): Deleted function.
(make_sexp_print_to): Deleted function.

Rev: src/sexp_commands.c:1.24
parent 2d990e2b
......@@ -49,48 +49,6 @@ static struct read_sexp_command read_sexp;
#include "sexp_commands.c.x"
/* (write out sexp)
*
* Prints the sexp to tha abstract_write OUT. Returns the sexp. */
static void
do_sexp_print(struct command_2 *s,
struct lsh_object *a1,
struct lsh_object *a2,
struct command_continuation *c,
struct exception_handler *e UNUSED)
{
CAST(sexp_print_command, self, s);
CAST_SUBTYPE(abstract_write, dest, a1);
CAST_SUBTYPE(sexp, o, a2);
A_WRITE(dest, sexp_format(o, self->format, 0));
if (self->format != SEXP_CANONICAL)
A_WRITE(dest, ssh_format("\n"));
COMMAND_RETURN(c, o);
}
struct command_2 *
make_sexp_print_command(int format)
{
NEW(sexp_print_command, self);
self->super.super.call = do_command_2;
self->super.invoke = do_sexp_print;
self->format = format;
return &self->super;
}
struct command *
make_sexp_print_to(int format, struct abstract_write *dest)
{
return
make_command_2_invoke(make_sexp_print_command(format),
&dest->super);
}
/* FIXME: Should be obsoleted; used by spki_commands.c */
/* GABA:
......
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