X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=helm%2FDEVEL%2Focaml-http%2Fhttp_common.mli;fp=helm%2FDEVEL%2Focaml-http%2Fhttp_common.mli;h=0000000000000000000000000000000000000000;hp=aceeb284288639286a5b1dcd7978e07d2af8615f;hb=869549224eef6278a48c16ae27dd786376082b38;hpb=89262281b6e83bd2321150f81f1a0583645eb0c8 diff --git a/helm/DEVEL/ocaml-http/http_common.mli b/helm/DEVEL/ocaml-http/http_common.mli deleted file mode 100644 index aceeb2842..000000000 --- a/helm/DEVEL/ocaml-http/http_common.mli +++ /dev/null @@ -1,50 +0,0 @@ - -(* - OCaml HTTP - do it yourself (fully OCaml) HTTP daemon - - Copyright (C) <2002> 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 -*) - -(** Common functionalities *) - -open Http_types;; - - (** whether debugging messages are enabled or not, can be changed at runtime - *) -val debug: bool ref - (** print a string on stderr only if debugging is enabled *) -val debug_print: string -> unit - -val http_version: version -val server_string: string - -val string_of_version: version -> string -val version_of_string: string -> version - -val string_of_method: meth -> string -val method_of_string: string -> meth - -val status_of_code: int -> status -val code_of_status: [< status] -> int - -val is_informational: int -> bool -val is_success: int -> bool -val is_redirection: int -> bool -val is_client_error: int -> bool -val is_server_error: int -> bool -val is_error: int -> bool -