From 105812573a76f6bc3a6f55e91e54bf540450fc07 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Thu, 3 Feb 2005 22:12:53 +0000 Subject: [PATCH] removed useless dont_fork and obj_foo examples --- helm/DEVEL/ocaml-http/examples/Makefile | 2 -- helm/DEVEL/ocaml-http/examples/dont_fork.ml | 25 ------------------- helm/DEVEL/ocaml-http/examples/obj_foo.ml | 27 --------------------- 3 files changed, 54 deletions(-) delete mode 100644 helm/DEVEL/ocaml-http/examples/dont_fork.ml delete mode 100644 helm/DEVEL/ocaml-http/examples/obj_foo.ml diff --git a/helm/DEVEL/ocaml-http/examples/Makefile b/helm/DEVEL/ocaml-http/examples/Makefile index 453776c61..9209563f6 100644 --- a/helm/DEVEL/ocaml-http/examples/Makefile +++ b/helm/DEVEL/ocaml-http/examples/Makefile @@ -11,10 +11,8 @@ EXAMPLES := \ chdir.ml \ client_address.ml \ damned_recursion.ml \ - dont_fork.ml \ dump_args.ml \ highlander.ml \ - obj_foo.ml \ oo_daemon.ml \ threads.ml \ timeout.ml \ diff --git a/helm/DEVEL/ocaml-http/examples/dont_fork.ml b/helm/DEVEL/ocaml-http/examples/dont_fork.ml deleted file mode 100644 index f05355496..000000000 --- a/helm/DEVEL/ocaml-http/examples/dont_fork.ml +++ /dev/null @@ -1,25 +0,0 @@ - -(* - OCaml HTTP - do it yourself (fully OCaml) HTTP daemon - - Copyright (C) <2002-2004> Stefano Zacchiroli - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -*) - -let callback req outchan = - Http_daemon.respond_error ~body:"AH AH AH :-P\n" outchan -in -Http_daemon.start' ~port:9999 ~mode:`Single ~timeout:(Some 5) callback diff --git a/helm/DEVEL/ocaml-http/examples/obj_foo.ml b/helm/DEVEL/ocaml-http/examples/obj_foo.ml deleted file mode 100644 index 3a6911019..000000000 --- a/helm/DEVEL/ocaml-http/examples/obj_foo.ml +++ /dev/null @@ -1,27 +0,0 @@ - -(* - OCaml HTTP - do it yourself (fully OCaml) HTTP daemon - - Copyright (C) <2002-2004> Stefano Zacchiroli - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -*) - -open Http_types;; - -let callback (req: request) outchan = - Http_daemon.respond_error ~body:(req#param "foo") outchan -in -Http_daemon.start' ~port:9999 callback -- 2.39.2