Packages

gleam_stdlib

0.38.0
1.0.3 1.0.2 1.0.1 1.0.0 0.71.0 0.70.0 0.69.0 0.68.1 0.68.0 0.67.1 0.67.0 0.65.0 0.64.0 0.63.2 0.63.1 0.63.0 0.62.1 0.62.0 0.61.0 0.60.0 0.59.0 0.58.0 0.57.0 0.56.0 0.55.0 0.54.0 0.53.0 0.52.0 0.51.0 0.50.0 0.49.0 0.48.0 0.47.0 0.46.0 0.45.0 0.44.0 0.43.0 0.42.0 0.41.0 0.40.0 0.39.0 0.38.0 0.37.0 0.36.0 0.35.1 0.35.0 0.34.0 0.33.1 0.33.0 0.32.1 0.32.0 0.31.0 0.30.2 0.30.1 0.30.0 0.29.2 0.29.1 0.29.0 0.28.2 0.28.1 0.28.0 0.27.0 0.26.1 0.26.0 0.25.0 0.24.0 0.23.0 0.22.3 0.22.2 0.22.1 0.22.0 0.21.0 0.20.0 0.19.3 0.19.2 0.19.1 0.19.0 0.18.1 0.18.0 0.18.0-rc1 0.17.1 0.17.0 0.16.0 0.15.0 0.14.0 0.13.0 0.12.0 0.11.0 0.10.1 0.10.0 0.9.0 0.8.0 0.7.0 0.6.0 0.5.0 0.4.0 0.4.0-rc1 0.3.1 0.3.0 0.2.0 retired

A standard library for the Gleam programming language

HexDocs

Current section

Files

Jump to
Readme
100 Versions
0 Dependencies
1565 Dependants
Files
Activity
gleam_stdlib src gleam@bit_array.erl
Raw

src/gleam@bit_array.erl 

-module(gleam@bit_array).

-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).



-export([from_string/1, byte_size/1, slice/3, is_utf8/1, to_string/1, concat/1, append/2, base64_encode/2, base64_decode/1, base64_url_encode/2, base64_url_decode/1, base16_encode/1, base16_decode/1, inspect/1]).



-spec from_string(binary()) -> bitstring().

from_string(X) ->

    gleam_stdlib:identity(X).



-spec byte_size(bitstring()) -> integer().

byte_size(X) ->

    erlang:byte_size(X).



-spec slice(bitstring(), integer(), integer()) -> {ok, bitstring()} |

    {error, nil}.

slice(String, Position, Length) ->

    gleam_stdlib:bit_array_slice(String, Position, Length).



-spec do_is_utf8(bitstring()) -> boolean().

do_is_utf8(Bits) ->

    case Bits of

        <<>> ->

            true;



        <<_/utf8, Rest/binary>> ->

            do_is_utf8(Rest);



        _ ->

            false

    end.



-spec is_utf8(bitstring()) -> boolean().

is_utf8(Bits) ->

    do_is_utf8(Bits).



-spec do_to_string(bitstring()) -> {ok, binary()} | {error, nil}.

do_to_string(Bits) ->

    case is_utf8(Bits) of

        true ->

            {ok, gleam_stdlib:identity(Bits)};



        false ->

            {error, nil}

    end.



-spec to_string(bitstring()) -> {ok, binary()} | {error, nil}.

to_string(Bits) ->

    do_to_string(Bits).



-spec concat(list(bitstring())) -> bitstring().

concat(Bit_arrays) ->

    gleam_stdlib:bit_array_concat(Bit_arrays).



-spec append(bitstring(), bitstring()) -> bitstring().

append(First, Second) ->

    gleam_stdlib:bit_array_concat([First, Second]).



-spec base64_encode(bitstring(), boolean()) -> binary().

base64_encode(Input, Padding) ->

    Encoded = base64:encode(Input),

    case Padding of

        true ->

            Encoded;



        false ->

            gleam@string:replace(Encoded, <<"="/utf8>>, <<""/utf8>>)

    end.



-spec base64_decode(binary()) -> {ok, bitstring()} | {error, nil}.

base64_decode(Encoded) ->

    Padded = case erlang:byte_size(gleam_stdlib:identity(Encoded)) rem 4 of

        0 ->

            Encoded;



        N ->

            gleam@string:append(

                Encoded,

                gleam@string:repeat(<<"="/utf8>>, 4 - N)

            )

    end,

    gleam_stdlib:base_decode64(Padded).



-spec base64_url_encode(bitstring(), boolean()) -> binary().

base64_url_encode(Input, Padding) ->

    _pipe = base64_encode(Input, Padding),

    _pipe@1 = gleam@string:replace(_pipe, <<"+"/utf8>>, <<"-"/utf8>>),

    gleam@string:replace(_pipe@1, <<"/"/utf8>>, <<"_"/utf8>>).



-spec base64_url_decode(binary()) -> {ok, bitstring()} | {error, nil}.

base64_url_decode(Encoded) ->

    _pipe = Encoded,

    _pipe@1 = gleam@string:replace(_pipe, <<"-"/utf8>>, <<"+"/utf8>>),

    _pipe@2 = gleam@string:replace(_pipe@1, <<"_"/utf8>>, <<"/"/utf8>>),

    base64_decode(_pipe@2).



-spec base16_encode(bitstring()) -> binary().

base16_encode(Input) ->

    binary:encode_hex(Input).



-spec base16_decode(binary()) -> {ok, bitstring()} | {error, nil}.

base16_decode(Input) ->

    gleam_stdlib:base16_decode(Input).



-spec do_inspect(bitstring(), binary()) -> binary().

do_inspect(Input, Accumulator) ->

    case Input of

        <<>> ->

            Accumulator;



        <<X:1>> ->

            <<<<Accumulator/binary, (gleam@int:to_string(X))/binary>>/binary,

                ":size(1)"/utf8>>;



        <<X@1:2>> ->

            <<<<Accumulator/binary, (gleam@int:to_string(X@1))/binary>>/binary,

                ":size(2)"/utf8>>;



        <<X@2:3>> ->

            <<<<Accumulator/binary, (gleam@int:to_string(X@2))/binary>>/binary,

                ":size(3)"/utf8>>;



        <<X@3:4>> ->

            <<<<Accumulator/binary, (gleam@int:to_string(X@3))/binary>>/binary,

                ":size(4)"/utf8>>;



        <<X@4:5>> ->

            <<<<Accumulator/binary, (gleam@int:to_string(X@4))/binary>>/binary,

                ":size(5)"/utf8>>;



        <<X@5:6>> ->

            <<<<Accumulator/binary, (gleam@int:to_string(X@5))/binary>>/binary,

                ":size(6)"/utf8>>;



        <<X@6:7>> ->

            <<<<Accumulator/binary, (gleam@int:to_string(X@6))/binary>>/binary,

                ":size(7)"/utf8>>;



        <<X@7, Rest/bitstring>> ->

            Suffix = case Rest of

                <<>> ->

                    <<""/utf8>>;



                _ ->

                    <<", "/utf8>>

            end,

            Accumulator@1 = <<<<Accumulator/binary,

                    (gleam@int:to_string(X@7))/binary>>/binary,

                Suffix/binary>>,

            do_inspect(Rest, Accumulator@1);



        _ ->

            Accumulator

    end.



-spec inspect(bitstring()) -> binary().

inspect(Input) ->

    <<(do_inspect(Input, <<"<<"/utf8>>))/binary, ">>"/utf8>>.