X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Fpxp%2Fnetstring%2Fnetstring_top.ml;fp=helm%2FDEVEL%2Fpxp%2Fnetstring%2Fnetstring_top.ml;h=0000000000000000000000000000000000000000;hb=e108abe5c0b4eb841c4ad332229a6c0e57e70079;hp=d25505cfe3bbd2c88980756f5d95bb6201a23027;hpb=1456c337a60f6677ee742ff7891d43fc382359a9;p=helm.git diff --git a/helm/DEVEL/pxp/netstring/netstring_top.ml b/helm/DEVEL/pxp/netstring/netstring_top.ml deleted file mode 100644 index d25505cfe..000000000 --- a/helm/DEVEL/pxp/netstring/netstring_top.ml +++ /dev/null @@ -1,34 +0,0 @@ -(* $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. - * - * - *)