1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(* $Id: netstring_top.ml,v 1.2 2000/06/25 22:34:43 gerd Exp $
* ----------------------------------------------------------------------
*
*)
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: netstring_top.ml,v $
* 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.
*
*
*)
|
