glemcached

-module(glemcached@flag).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([bitarray_to_uint16/1, uint16_to_bitarray/1]).

-file("/home/user/Documents/code/learn/gleam/memcached/src/glemcached/flag.gleam", 3).
-spec bitarray_to_uint16(bitstring()) -> integer().
bitarray_to_uint16(Ba) ->
    case Ba of
        <<>> ->
            0;

        <<A>> ->
            A;

        <<A@1, B, _/bitstring>> ->
            erlang:'bsl'(A@1, 8) + B;

        _ ->
            0
    end.

-file("/home/user/Documents/code/learn/gleam/memcached/src/glemcached/flag.gleam", 14).
-spec uint16_to_bitarray(integer()) -> bitstring().
uint16_to_bitarray(Num) ->
    <<(gleam@int:clamp(Num, 0, 65535)):16>>.