Structure Coding

signature Coding =
sig

  type 'a reader = (string * int, 'a) optmonad.optmonad
  val getc : char reader
  val literal : string -> string reader
  val takeP : (char -> bool) -> string reader
  val || : 'a reader * 'a reader -> 'a reader
  val >- : 'a reader * ('a -> 'b reader) -> 'b reader
  val >> : 'a reader * 'b reader -> 'b reader
  val >* : 'a reader * 'b reader -> ('a * 'b) reader
  val >-> : 'a reader * 'b reader -> 'a reader
  val fail : 'a reader
  val return : 'a -> 'a reader
  val eof : unit reader
  val chop : int -> string reader
  val length_encoded : (string -> 'a option) -> 'a reader
  val lift : 'a reader -> string -> 'a option
  val map : ('a -> 'b) -> 'a reader -> 'b reader
  val many : 'a reader -> 'a list reader

  structure StringData : sig
    val encode : string -> string
    val decode : string -> string option
    val reader : string reader

    val encodel : string list -> string
    val decodel : string -> string list option
  end

  structure IntData : sig
    val encode : int -> string
    val decode : string -> int option
    val reader : int reader
  end

  structure CharData : sig
    val encode : char -> string
    val decode : string -> char option
    val reader : char reader
  end

  structure BoolData : sig
    val encode : bool -> string
    val decode : string -> bool option
    val reader : bool reader
  end

  structure OptionData : sig
    val encode : ('a -> string) -> 'a option -> string
    val decode : 'a reader -> string -> 'a option option
    val reader : 'a reader -> 'a option reader
  end

  structure PairData : sig
    val encode : ('a -> string) * ('b -> string) -> 'a * 'b -> string
    val decode : 'a reader * 'b reader-> string -> ('a * 'b) option
    val reader : 'a reader * 'b reader -> ('a * 'b) reader
  end

  structure KernelNameData : sig
    val encode : KernelSig.kernelname -> string
    val decode : string -> KernelSig.kernelname option
    val reader : KernelSig.kernelname reader
  end


end

HOL 4, Kananaskis-13