(do_sexp_print): Deleted function.

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

Rev: src/sexp_commands.c:1.24

src/sexp_commands.c

@@ -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: