Advertising.re

module Advertising = {
  type byte = int;

  type systemType =
    | LEGO_WeDo_2_0
    | LEGO_Duplo
    | LEGO_System_1
    | LEGO_System_2
    | UNKNOWN(byte);

  let toByte: systemType => byte =
    sysType =>
      switch (sysType) {
      | LEGO_WeDo_2_0 => 0
      | LEGO_Duplo => 1
      | LEGO_System_1 => 2
      | LEGO_System_2 => 3
      | UNKNOWN(byte) => byte
      };

  let fromByte: byte => systemType =
    typeAndNumber =>
      typeAndNumber
      ->(land)(int_of_string("1110_0000b"))
      ->(lsr)(5)
      ->(
          masked =>
            switch (masked) {
            | 0 => LEGO_WeDo_2_0
            | 1 => LEGO_Duplo
            | 2 => LEGO_System_1
            | 3 => LEGO_System_2
            | byte => UNKNOWN(byte)
            }
        );

};