(* $Id$
 * ----------------------------------------------------------------------
 *
 *)


let exec s =
  let l = Lexing.from_string s in
  let ph = !Toploop.parse_toplevel_phrase l in
  assert(Toploop.execute_phrase false Format.err_formatter ph)
;;

(* Install the printers: *)

exec "#install_printer Neturl.print_url;;";;
exec "#install_printer Netbuffer.print_buffer;;";;
exec "#install_printer Netstream.print_stream;;";;
exec "#install_printer Cgi.print_argument;;";;

(* ======================================================================
 * History:
 * 
 * $Log$
 * Revision 1.1  2000/11/17 09:57:28  lpadovan
 * Initial revision
 *
 * Revision 1.2  2000/06/25 22:34:43  gerd
 * 	Added labels to arguments.
 *
 * Revision 1.1  2000/06/24 20:20:58  gerd
 * 	Initial revision.
 *
 * 
 *)