1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
-module(gleam@bytes_builder).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function]).
-export([append_builder/2, prepend_builder/2, concat/1, new/0, from_string/1, prepend_string/2, append_string/2, from_string_builder/1, from_bit_array/1, prepend/2, append/2, concat_bit_arrays/1, to_bit_array/1, byte_size/1]).
-export_type([bytes_builder/0]).
-opaque bytes_builder() :: {bytes, bitstring()} |
{text, gleam@string_builder:string_builder()} |
{many, list(bytes_builder())}.
-spec append_builder(bytes_builder(), bytes_builder()) -> bytes_builder().
append_builder(First, Second) ->
gleam_stdlib:iodata_append(First, Second).
-spec prepend_builder(bytes_builder(), bytes_builder()) -> bytes_builder().
prepend_builder(Second, First) ->
gleam_stdlib:iodata_append(First, Second).
-spec concat(list(bytes_builder())) -> bytes_builder().
concat(Builders) ->
gleam_stdlib:identity(Builders).
-spec new() -> bytes_builder().
new() ->
gleam_stdlib:identity([]).
-spec from_string(binary()) -> bytes_builder().
from_string(String) ->
gleam_stdlib:wrap_list(String).
-spec prepend_string(bytes_builder(), binary()) -> bytes_builder().
prepend_string(Second, First) ->
gleam_stdlib:iodata_append(gleam_stdlib:wrap_list(First), Second).
-spec append_string(bytes_builder(), binary()) -> bytes_builder().
append_string(First, Second) ->
gleam_stdlib:iodata_append(First, gleam_stdlib:wrap_list(Second)).
-spec from_string_builder(gleam@string_builder:string_builder()) -> bytes_builder().
from_string_builder(Builder) ->
gleam_stdlib:wrap_list(Builder).
-spec from_bit_array(bitstring()) -> bytes_builder().
from_bit_array(Bits) ->
gleam_stdlib:wrap_list(Bits).
-spec prepend(bytes_builder(), bitstring()) -> bytes_builder().
prepend(Second, First) ->
gleam_stdlib:iodata_append(gleam_stdlib:wrap_list(First), Second).
-spec append(bytes_builder(), bitstring()) -> bytes_builder().
append(First, Second) ->
gleam_stdlib:iodata_append(First, gleam_stdlib:wrap_list(Second)).
-spec concat_bit_arrays(list(bitstring())) -> bytes_builder().
concat_bit_arrays(Bits) ->
gleam_stdlib:identity(Bits).
-spec to_list(list(list(bytes_builder())), list(bitstring())) -> list(bitstring()).
to_list(Stack, Acc) ->
case Stack of
[] ->
Acc;
[[] | Remaining_stack] ->
to_list(Remaining_stack, Acc);
[[{bytes, Bits} | Rest] | Remaining_stack@1] ->
to_list([Rest | Remaining_stack@1], [Bits | Acc]);
[[{text, Builder} | Rest@1] | Remaining_stack@2] ->
Bits@1 = gleam_stdlib:identity(
gleam@string_builder:to_string(Builder)
),
to_list([Rest@1 | Remaining_stack@2], [Bits@1 | Acc]);
[[{many, Builders} | Rest@2] | Remaining_stack@3] ->
to_list([Builders, Rest@2 | Remaining_stack@3], Acc)
end.
-spec to_bit_array(bytes_builder()) -> bitstring().
to_bit_array(Builder) ->
erlang:list_to_bitstring(Builder).
-spec byte_size(bytes_builder()) -> integer().
byte_size(Builder) ->
erlang:iolist_size(Builder).
|
