fir/util/fir_marshal.mli

   1 (*
   2  * FIR marshaler.
   3  *
   4  * ----------------------------------------------------------------
   5  *
   6  * @begin[license]
   7  * Copyright (C) 2001 Jason Hickey, Caltech
   8  *
   9  * This program is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU General Public License
  11  * as published by the Free Software Foundation; either version 2
  12  * of the License, or (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License
  20  * along with this program; if not, write to the Free Software
  21  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22  *
  23  * Author: Jason Hickey
  24  * @email{jyh@cs.caltech.edu}
  25  * @end[license]
  26  *)
  27 open Fir
  28 open Fir_mprog
  29
  30 (*
  31  * Define the marshal program type
  32  *)
  33 module type MarshalSig =
  34 sig
  35    type in_channel
  36    type out_channel
  37
  38    val marshal_prog : out_channel -> mprog -> unit
  39    val unmarshal_prog : in_channel -> mprog
  40 end
  41
  42 module ChannelMarshal
  43 : MarshalSig
  44   with type in_channel = Pervasives.in_channel
  45   with type out_channel = Pervasives.out_channel
  46
  47 module BufferMarshal
  48 : MarshalSig
  49   with type in_channel = Pervasives.in_channel
  50   with type out_channel = Buffer.t
  51
  52 (*!
  53  * @docoff
  54  *
  55  * -*-
  56  * Local Variables:
  57  * Caml-master: "compile"
  58  * End:
  59  * -*-
  60  *)