(*
  OCaml HTTP - do it yourself (fully OCaml) HTTP daemon

  Copyright (C) <2002> Stefano Zacchiroli <zack@cs.unibo.it>

  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;;

  (** OO representation of an HTTP message
  @param entity body included in the message
  @param headers message headers shipped with the message *)
class virtual message:
  body: string -> headers: (string * string) list -> version: version option ->
  clisockaddr: Unix.sockaddr -> srvsockaddr: Unix.sockaddr ->
    object

      method version: version option
      method setVersion: version -> unit

      method body: string
      method setBody: string -> unit
      method bodyBuf: Buffer.t
      method setBodyBuf: Buffer.t -> unit
      method addBody: string -> unit
      method addBodyBuf: Buffer.t -> unit

      method addHeader: name:string -> value:string -> unit
      method addHeaders: (string * string) list -> unit
      method replaceHeader: name:string -> value:string -> unit
      method replaceHeaders: (string * string) list -> unit
      method removeHeader: name:string -> unit
      method hasHeader: name:string -> bool
      method header: name:string -> string
      method headers: (string * string) list

      method clientSockaddr: Unix.sockaddr
      method clientAddr: string
      method clientPort: int

      method serverSockaddr: Unix.sockaddr
      method serverAddr: string
      method serverPort: int

      method private virtual fstLineToString: string
      method toString: string
      method serialize: out_channel -> unit

    end