bison

BSON encoder and decoder for Gleam

Quick start

gleam test  # Run the tests
gleam shell # Run an Erlang shell

Installation

gleam add bison

Roadmap

• support encoding and decoding basic bson types (null, string, int32, int64, double, boolean, objectId, array, document).
• support encoding and decoding min, max, timestamp, datetime, javascript and regex bson types.
• support encoding and decoding the generic, md5, uuid and user-defined binary subtypes.
• support generating new object-ids
• support encoding and decoding decimal128 bson type.
• support encoding and decoding encrypted binary subtype.
• support encoding and decoding relaxed EJSON.

Usage

Encoding

import gleam/map
import gleam/list
import gleam/result
import bison
import bison/md5
import bison/bson
import bison/object_id

fn calf_to_bson(calf: Calf) -> Result(BitArray, Nil) {
 use id <- result.then(object_id.from_string(calf.id))
 use checksum <- result.then(md5.from_string(calf.checksum))

 [
   #("id", bson.ObjectId(id)),
   #("age", bson.Int32(calf.age)),
   #("name", bson.String(calf.name)),
   #("weight", bson.Double(calf.weight)),
   #("birthdate", bson.DateTime(calf.birthdate)),
   #("is_healthy", bson.Boolean(calf.is_healthy)),
   #("checksum", bson.Binary(bson.MD5(checksum))),
   #("nicknames", bson.Array(list.map(calf.nicknames, bson.String))),
 ]
 |> map.from_list
 |> bison.encode
 |> Ok
}

Decoding

import gleam/map
import gleam/list
import gleam/result
import bison
import bison/md5
import bison/bson
import bison/object_id

fn calf_from_bson(binary: BitArray) -> Result(Calf, Nil) {
 use doc <- result.then(bison.decode(binary))

 case
   [
     map.get(doc, "id"),
     map.get(doc, "age"),
     map.get(doc, "name"),
     map.get(doc, "weight"),
     map.get(doc, "nicknames"),
     map.get(doc, "birthdate"),
     map.get(doc, "is_healthy"),
     map.get(doc, "checksum"),
   ]
 {
   [
     Ok(bson.ObjectId(id)),
     Ok(bson.Int32(age)),
     Ok(bson.String(name)),
     Ok(bson.Double(weight)),
     Ok(bson.Array(nicknames)),
     Ok(bson.DateTime(birthdate)),
     Ok(bson.Boolean(is_healthy)),
     Ok(bson.Binary(bson.MD5(checksum))),
   ] ->
     Ok(Calf(
       id: object_id.to_string(id),
       age: age,
       name: name,
       weight: weight,
       nicknames: list.map(
         nicknames,
         fn(n) {
           let assert bson.String(n) = n
           n
         },
       ),
       birthdate: birthdate,
       is_healthy: is_healthy,
       checksum: md5.to_string(checksum),
     ))

   _ -> Error(Nil)
 }
}