Source file encode.ml

open Decoders

module Bencode_encodeable = struct
  type value = Bencode.t

  let to_string value = Bencode.encode_to_string value

  let of_string x = Bencode.String x

  let of_int x = Bencode.Integer (Int64.of_int x)

  let of_float x = Bencode.String (string_of_float x)

  let of_bool x = Bencode.Integer (if x then 1L else 0L)

  let null = Bencode.Integer 0L

  let of_list xs = Bencode.List xs

  let of_key_value_pairs xs =
    let xs =
      Decoders_util.My_list.filter_map
        (function Bencode.String s, v -> Some (s, v) | _ -> None)
        xs
    in
    Bencode.Dict xs
end

include Decoders.Encode.Make (Bencode_encodeable)

let int64 i = Bencode.Integer i