create-mendix-widget-gleam 2.0.14 → 2.0.15

package/tui/build/dev/javascript/gleam_stdlib/gleam.mjs

@@ -0,0 +1 @@
+export * from "../prelude.mjs";

package/tui/build/dev/javascript/gleam_stdlib/gleam@bit_array.erl

@@ -0,0 +1,347 @@
+-module(gleam@bit_array).
+-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
+-define(FILEPATH, "src/gleam/bit_array.gleam").
+-export([from_string/1, bit_size/1, byte_size/1, pad_to_bytes/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, compare/2, starts_with/2]).
+
+-if(?OTP_RELEASE >= 27).
+-define(MODULEDOC(Str), -moduledoc(Str)).
+-define(DOC(Str), -doc(Str)).
+-else.
+-define(MODULEDOC(Str), -compile([])).
+-define(DOC(Str), -compile([])).
+-endif.
+
+?MODULEDOC(" BitArrays are a sequence of binary data of any length.\n").
+
+-file("src/gleam/bit_array.gleam", 11).
+?DOC(" Converts a UTF-8 `String` type into a `BitArray`.\n").
+-spec from_string(binary()) -> bitstring().
+from_string(X) ->
+    gleam_stdlib:identity(X).
+
+-file("src/gleam/bit_array.gleam", 17).
+?DOC(" Returns an integer which is the number of bits in the bit array.\n").
+-spec bit_size(bitstring()) -> integer().
+bit_size(X) ->
+    erlang:bit_size(X).
+
+-file("src/gleam/bit_array.gleam", 23).
+?DOC(" Returns an integer which is the number of bytes in the bit array.\n").
+-spec byte_size(bitstring()) -> integer().
+byte_size(X) ->
+    erlang:byte_size(X).
+
+-file("src/gleam/bit_array.gleam", 29).
+?DOC(" Pads a bit array with zeros so that it is a whole number of bytes.\n").
+-spec pad_to_bytes(bitstring()) -> bitstring().
+pad_to_bytes(X) ->
+    gleam_stdlib:bit_array_pad_to_bytes(X).
+
+-file("src/gleam/bit_array.gleam", 54).
+?DOC(
+    " Extracts a sub-section of a bit array.\n"
+    "\n"
+    " The slice will start at given position and continue up to specified\n"
+    " length.\n"
+    " A negative length can be used to extract bytes at the end of a bit array.\n"
+    "\n"
+    " This function runs in constant time.\n"
+).
+-spec slice(bitstring(), integer(), integer()) -> {ok, bitstring()} |
+    {error, nil}.
+slice(String, Position, Length) ->
+    gleam_stdlib:bit_array_slice(String, Position, Length).
+
+-file("src/gleam/bit_array.gleam", 67).
+-spec is_utf8_loop(bitstring()) -> boolean().
+is_utf8_loop(Bits) ->
+    case Bits of
+        <<>> ->
+            true;
+
+        <<_/utf8, Rest/binary>> ->
+            is_utf8_loop(Rest);
+
+        _ ->
+            false
+    end.
+
+-file("src/gleam/bit_array.gleam", 62).
+?DOC(" Tests to see whether a bit array is valid UTF-8.\n").
+-spec is_utf8(bitstring()) -> boolean().
+is_utf8(Bits) ->
+    is_utf8_loop(Bits).
+
+-file("src/gleam/bit_array.gleam", 88).
+?DOC(
+    " Converts a bit array to a string.\n"
+    "\n"
+    " Returns an error if the bit array is invalid UTF-8 data.\n"
+).
+-spec to_string(bitstring()) -> {ok, binary()} | {error, nil}.
+to_string(Bits) ->
+    case is_utf8(Bits) of
+        true ->
+            {ok, gleam_stdlib:identity(Bits)};
+
+        false ->
+            {error, nil}
+    end.
+
+-file("src/gleam/bit_array.gleam", 109).
+?DOC(
+    " Creates a new bit array by joining multiple binaries.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert concat([from_string(\"butter\"), from_string(\"fly\")])\n"
+    "   == from_string(\"butterfly\")\n"
+    " ```\n"
+).
+-spec concat(list(bitstring())) -> bitstring().
+concat(Bit_arrays) ->
+    gleam_stdlib:bit_array_concat(Bit_arrays).
+
+-file("src/gleam/bit_array.gleam", 40).
+?DOC(
+    " Creates a new bit array by joining two bit arrays.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert append(to: from_string(\"butter\"), suffix: from_string(\"fly\"))\n"
+    "   == from_string(\"butterfly\")\n"
+    " ```\n"
+).
+-spec append(bitstring(), bitstring()) -> bitstring().
+append(First, Second) ->
+    gleam_stdlib:bit_array_concat([First, Second]).
+
+-file("src/gleam/bit_array.gleam", 118).
+?DOC(
+    " Encodes a BitArray into a base 64 encoded string.\n"
+    "\n"
+    " If the bit array does not contain a whole number of bytes then it is padded\n"
+    " with zero bits prior to being encoded.\n"
+).
+-spec base64_encode(bitstring(), boolean()) -> binary().
+base64_encode(Input, Padding) ->
+    gleam_stdlib:base64_encode(Input, Padding).
+
+-file("src/gleam/bit_array.gleam", 122).
+?DOC(" Decodes a base 64 encoded string into a `BitArray`.\n").
+-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:base64_decode(Padded).
+
+-file("src/gleam/bit_array.gleam", 140).
+?DOC(
+    " Encodes a `BitArray` into a base 64 encoded string with URL and filename\n"
+    " safe alphabet.\n"
+    "\n"
+    " If the bit array does not contain a whole number of bytes then it is padded\n"
+    " with zero bits prior to being encoded.\n"
+).
+-spec base64_url_encode(bitstring(), boolean()) -> binary().
+base64_url_encode(Input, Padding) ->
+    _pipe = Input,
+    _pipe@1 = gleam_stdlib:base64_encode(_pipe, Padding),
+    _pipe@2 = gleam@string:replace(_pipe@1, <<"+"/utf8>>, <<"-"/utf8>>),
+    gleam@string:replace(_pipe@2, <<"/"/utf8>>, <<"_"/utf8>>).
+
+-file("src/gleam/bit_array.gleam", 150).
+?DOC(
+    " Decodes a base 64 encoded string with URL and filename safe alphabet into a\n"
+    " `BitArray`.\n"
+).
+-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).
+
+-file("src/gleam/bit_array.gleam", 164).
+?DOC(
+    " Encodes a `BitArray` into a base 16 encoded string.\n"
+    "\n"
+    " If the bit array does not contain a whole number of bytes then it is padded\n"
+    " with zero bits prior to being encoded.\n"
+).
+-spec base16_encode(bitstring()) -> binary().
+base16_encode(Input) ->
+    gleam_stdlib:base16_encode(Input).
+
+-file("src/gleam/bit_array.gleam", 170).
+?DOC(" Decodes a base 16 encoded string into a `BitArray`.\n").
+-spec base16_decode(binary()) -> {ok, bitstring()} | {error, nil}.
+base16_decode(Input) ->
+    gleam_stdlib:base16_decode(Input).
+
+-file("src/gleam/bit_array.gleam", 191).
+-spec inspect_loop(bitstring(), binary()) -> binary().
+inspect_loop(Input, Accumulator) ->
+    case Input of
+        <<>> ->
+            Accumulator;
+
+        <<X:1>> ->
+            <<<<Accumulator/binary, (erlang:integer_to_binary(X))/binary>>/binary,
+                ":size(1)"/utf8>>;
+
+        <<X@1:2>> ->
+            <<<<Accumulator/binary, (erlang:integer_to_binary(X@1))/binary>>/binary,
+                ":size(2)"/utf8>>;
+
+        <<X@2:3>> ->
+            <<<<Accumulator/binary, (erlang:integer_to_binary(X@2))/binary>>/binary,
+                ":size(3)"/utf8>>;
+
+        <<X@3:4>> ->
+            <<<<Accumulator/binary, (erlang:integer_to_binary(X@3))/binary>>/binary,
+                ":size(4)"/utf8>>;
+
+        <<X@4:5>> ->
+            <<<<Accumulator/binary, (erlang:integer_to_binary(X@4))/binary>>/binary,
+                ":size(5)"/utf8>>;
+
+        <<X@5:6>> ->
+            <<<<Accumulator/binary, (erlang:integer_to_binary(X@5))/binary>>/binary,
+                ":size(6)"/utf8>>;
+
+        <<X@6:7>> ->
+            <<<<Accumulator/binary, (erlang:integer_to_binary(X@6))/binary>>/binary,
+                ":size(7)"/utf8>>;
+
+        <<X@7, Rest/bitstring>> ->
+            Suffix = case Rest of
+                <<>> ->
+                    <<""/utf8>>;
+
+                _ ->
+                    <<", "/utf8>>
+            end,
+            Accumulator@1 = <<<<Accumulator/binary,
+                    (erlang:integer_to_binary(X@7))/binary>>/binary,
+                Suffix/binary>>,
+            inspect_loop(Rest, Accumulator@1);
+
+        _ ->
+            Accumulator
+    end.
+
+-file("src/gleam/bit_array.gleam", 187).
+?DOC(
+    " Converts a bit array to a string containing the decimal value of each byte.\n"
+    "\n"
+    " Use this over `string.inspect` when you have a bit array you want printed\n"
+    " in the array syntax even if it is valid UTF-8.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert inspect(<<0, 20, 0x20, 255>>) == \"<<0, 20, 32, 255>>\"\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert inspect(<<100, 5:3>>) == \"<<100, 5:size(3)>>\"\n"
+    " ```\n"
+).
+-spec inspect(bitstring()) -> binary().
+inspect(Input) ->
+    <<(inspect_loop(Input, <<"<<"/utf8>>))/binary, ">>"/utf8>>.
+
+-file("src/gleam/bit_array.gleam", 233).
+?DOC(
+    " Compare two bit arrays as sequences of bytes.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert compare(<<1>>, <<2>>) == Lt\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert compare(<<\"AB\":utf8>>, <<\"AA\":utf8>>) == Gt\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert compare(<<1, 2:size(2)>>, with: <<1, 2:size(2)>>) == Eq\n"
+    " ```\n"
+).
+-spec compare(bitstring(), bitstring()) -> gleam@order:order().
+compare(A, B) ->
+    case {A, B} of
+        {<<First_byte, First_rest/bitstring>>,
+            <<Second_byte, Second_rest/bitstring>>} ->
+            case {First_byte, Second_byte} of
+                {F, S} when F > S ->
+                    gt;
+
+                {F@1, S@1} when F@1 < S@1 ->
+                    lt;
+
+                {_, _} ->
+                    compare(First_rest, Second_rest)
+            end;
+
+        {<<>>, <<>>} ->
+            eq;
+
+        {_, <<>>} ->
+            gt;
+
+        {<<>>, _} ->
+            lt;
+
+        {First, Second} ->
+            case {gleam_stdlib:bit_array_to_int_and_size(First),
+                gleam_stdlib:bit_array_to_int_and_size(Second)} of
+                {{A@1, _}, {B@1, _}} when A@1 > B@1 ->
+                    gt;
+
+                {{A@2, _}, {B@2, _}} when A@2 < B@2 ->
+                    lt;
+
+                {{_, Size_a}, {_, Size_b}} when Size_a > Size_b ->
+                    gt;
+
+                {{_, Size_a@1}, {_, Size_b@1}} when Size_a@1 < Size_b@1 ->
+                    lt;
+
+                {_, _} ->
+                    eq
+            end
+    end.
+
+-file("src/gleam/bit_array.gleam", 273).
+?DOC(
+    " Checks whether the first `BitArray` starts with the second one.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert starts_with(<<1, 2, 3, 4>>, <<1, 2>>)\n"
+    " ```\n"
+).
+-spec starts_with(bitstring(), bitstring()) -> boolean().
+starts_with(Bits, Prefix) ->
+    Prefix_size = erlang:bit_size(Prefix),
+    case Bits of
+        <<Pref:Prefix_size/bitstring, _/bitstring>> when Pref =:= Prefix ->
+            true;
+
+        _ ->
+            false
+    end.

package/tui/build/dev/javascript/gleam_stdlib/gleam@bool.erl

@@ -0,0 +1,334 @@
+-module(gleam@bool).
+-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
+-define(FILEPATH, "src/gleam/bool.gleam").
+-export(['and'/2, 'or'/2, negate/1, nor/2, nand/2, exclusive_or/2, exclusive_nor/2, to_string/1, guard/3, lazy_guard/3]).
+
+-if(?OTP_RELEASE >= 27).
+-define(MODULEDOC(Str), -moduledoc(Str)).
+-define(DOC(Str), -doc(Str)).
+-else.
+-define(MODULEDOC(Str), -compile([])).
+-define(DOC(Str), -compile([])).
+-endif.
+
+?MODULEDOC(
+    " A type with two possible values, `True` and `False`. Used to indicate whether\n"
+    " things are... true or false!\n"
+    "\n"
+    " It is often clearer and offers more type safety to define a custom type\n"
+    " than to use `Bool`. For example, rather than having a `is_teacher: Bool`\n"
+    " field consider having a `role: SchoolRole` field where `SchoolRole` is a custom\n"
+    " type that can be either `Student` or `Teacher`.\n"
+).
+
+-file("src/gleam/bool.gleam", 32).
+?DOC(
+    " Returns the and of two bools, but it evaluates both arguments.\n"
+    "\n"
+    " It's the function equivalent of the `&&` operator.\n"
+    " This function is useful in higher order functions or pipes.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert and(True, True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !and(False, True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !and(False, True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !and(False, False)\n"
+    " ```\n"
+).
+-spec 'and'(boolean(), boolean()) -> boolean().
+'and'(A, B) ->
+    A andalso B.
+
+-file("src/gleam/bool.gleam", 59).
+?DOC(
+    " Returns the or of two bools, but it evaluates both arguments.\n"
+    "\n"
+    " It's the function equivalent of the `||` operator.\n"
+    " This function is useful in higher order functions or pipes.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert or(True, True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert or(False, True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert or(True, False)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !or(False, False)\n"
+    " ```\n"
+).
+-spec 'or'(boolean(), boolean()) -> boolean().
+'or'(A, B) ->
+    A orelse B.
+
+-file("src/gleam/bool.gleam", 77).
+?DOC(
+    " Returns the opposite bool value.\n"
+    "\n"
+    " This is the same as the `!` or `not` operators in some other languages.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert !negate(True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert negate(False)\n"
+    " ```\n"
+).
+-spec negate(boolean()) -> boolean().
+negate(Bool) ->
+    not Bool.
+
+-file("src/gleam/bool.gleam", 101).
+?DOC(
+    " Returns the nor of two bools.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert nor(False, False)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !nor(False, True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !nor(True, False)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !nor(True, True)\n"
+    " ```\n"
+).
+-spec nor(boolean(), boolean()) -> boolean().
+nor(A, B) ->
+    not (A orelse B).
+
+-file("src/gleam/bool.gleam", 125).
+?DOC(
+    " Returns the nand of two bools.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert nand(False, False)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert nand(False, True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert nand(True, False)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !nand(True, True)\n"
+    " ```\n"
+).
+-spec nand(boolean(), boolean()) -> boolean().
+nand(A, B) ->
+    not (A andalso B).
+
+-file("src/gleam/bool.gleam", 149).
+?DOC(
+    " Returns the exclusive or of two bools.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert !exclusive_or(False, False)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert exclusive_or(False, True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert exclusive_or(True, False)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !exclusive_or(True, True)\n"
+    " ```\n"
+).
+-spec exclusive_or(boolean(), boolean()) -> boolean().
+exclusive_or(A, B) ->
+    A /= B.
+
+-file("src/gleam/bool.gleam", 173).
+?DOC(
+    " Returns the exclusive nor of two bools.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert exclusive_nor(False, False)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !exclusive_nor(False, True)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert !exclusive_nor(True, False)\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert exclusive_nor(True, True)\n"
+    " ```\n"
+).
+-spec exclusive_nor(boolean(), boolean()) -> boolean().
+exclusive_nor(A, B) ->
+    A =:= B.
+
+-file("src/gleam/bool.gleam", 189).
+?DOC(
+    " Returns a string representation of the given bool.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " assert to_string(True) == \"True\"\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " assert to_string(False) == \"False\"\n"
+    " ```\n"
+).
+-spec to_string(boolean()) -> binary().
+to_string(Bool) ->
+    case Bool of
+        false ->
+            <<"False"/utf8>>;
+
+        true ->
+            <<"True"/utf8>>
+    end.
+
+-file("src/gleam/bool.gleam", 248).
+?DOC(
+    " Run a callback function if the given bool is `False`, otherwise return a\n"
+    " default value.\n"
+    "\n"
+    " With a `use` expression this function can simulate the early-return pattern\n"
+    " found in some other programming languages.\n"
+    "\n"
+    " In a procedural language:\n"
+    "\n"
+    " ```js\n"
+    " if (predicate) return value;\n"
+    " // ...\n"
+    " ```\n"
+    "\n"
+    " In Gleam with a `use` expression:\n"
+    "\n"
+    " ```gleam\n"
+    " use <- guard(when: predicate, return: value)\n"
+    " // ...\n"
+    " ```\n"
+    "\n"
+    " Like everything in Gleam `use` is an expression, so it short circuits the\n"
+    " current block, not the entire function. As a result you can assign the value\n"
+    " to a variable:\n"
+    "\n"
+    " ```gleam\n"
+    " let x = {\n"
+    "   use <- guard(when: predicate, return: value)\n"
+    "   // ...\n"
+    " }\n"
+    " ```\n"
+    "\n"
+    " Note that unlike in procedural languages the `return` value is evaluated\n"
+    " even when the predicate is `False`, so it is advisable not to perform\n"
+    " expensive computation nor side-effects there.\n"
+    "\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " let name = \"\"\n"
+    " use <- guard(when: name == \"\", return: \"Welcome!\")\n"
+    " \"Hello, \" <> name\n"
+    " // -> \"Welcome!\"\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " let name = \"Kamaka\"\n"
+    " use <- guard(when: name == \"\", return: \"Welcome!\")\n"
+    " \"Hello, \" <> name\n"
+    " // -> \"Hello, Kamaka\"\n"
+    " ```\n"
+).
+-spec guard(boolean(), BTX, fun(() -> BTX)) -> BTX.
+guard(Requirement, Consequence, Alternative) ->
+    case Requirement of
+        true ->
+            Consequence;
+
+        false ->
+            Alternative()
+    end.
+
+-file("src/gleam/bool.gleam", 289).
+?DOC(
+    " Runs a callback function if the given bool is `True`, otherwise runs an\n"
+    " alternative callback function.\n"
+    "\n"
+    " Useful when further computation should be delayed regardless of the given\n"
+    " bool's value.\n"
+    "\n"
+    " See [`guard`](#guard) for more info.\n"
+    "\n"
+    " ## Examples\n"
+    "\n"
+    " ```gleam\n"
+    " let name = \"Kamaka\"\n"
+    " let inquiry = fn() { \"How may we address you?\" }\n"
+    " use <- lazy_guard(when: name == \"\", return: inquiry)\n"
+    " \"Hello, \" <> name\n"
+    " // -> \"Hello, Kamaka\"\n"
+    " ```\n"
+    "\n"
+    " ```gleam\n"
+    " import gleam/int\n"
+    "\n"
+    " let name = \"\"\n"
+    " let greeting = fn() { \"Hello, \" <> name }\n"
+    " use <- lazy_guard(when: name == \"\", otherwise: greeting)\n"
+    " let number = int.random(99)\n"
+    " let name = \"User \" <> int.to_string(number)\n"
+    " \"Welcome, \" <> name\n"
+    " // -> \"Welcome, User 54\"\n"
+    " ```\n"
+).
+-spec lazy_guard(boolean(), fun(() -> BTY), fun(() -> BTY)) -> BTY.
+lazy_guard(Requirement, Consequence, Alternative) ->
+    case Requirement of
+        true ->
+            Consequence();
+
+        false ->
+            Alternative()
+    end.