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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
-module(iodata).
-compile(no_auto_import).
-include_lib("eunit/include/eunit.hrl").
-export([prepend/2, append/2, prepend_iodata/2, append_iodata/2, from_strings/1, concat/1, new/1, to_string/1, byte_size/1, from_float/1, lowercase/1, uppercase/1, reverse/1, split/2, replace/3, is_equal/2, is_empty/1]).
prepend(A, B) ->
gleam__stdlib:iodata_prepend(A, B).
append(A, B) ->
gleam__stdlib:iodata_append(A, B).
prepend_iodata(A, B) ->
gleam__stdlib:iodata_prepend(A, B).
append_iodata(A, B) ->
gleam__stdlib:iodata_append(A, B).
from_strings(A) ->
gleam__stdlib:identity(A).
concat(A) ->
gleam__stdlib:identity(A).
new(A) ->
gleam__stdlib:identity(A).
to_string(A) ->
erlang:iolist_to_binary(A).
byte_size(A) ->
erlang:iolist_size(A).
from_float(A) ->
io_lib_format:fwrite_g(A).
-ifdef(TEST).
iodata_test() ->
Iodata = prepend(append(append(new(<<"ello">>), <<",">>), <<" world!">>),
<<"H">>),
expect:equal(to_string(Iodata), <<"Hello, world!">>),
expect:equal(byte_size(Iodata), 13),
Iodata1 = prepend_iodata(append_iodata(append_iodata(new(<<"ello">>),
new(<<",">>)),
concat([new(<<" wo">>),
new(<<"rld!">>)])),
new(<<"H">>)),
expect:equal(to_string(Iodata1), <<"Hello, world!">>),
expect:equal(byte_size(Iodata1), 13).
-endif.
lowercase(A) ->
string:lowercase(A).
-ifdef(TEST).
lowercase_test() ->
expect:equal(to_string(lowercase(from_strings([<<"Gleam">>, <<"Gleam">>]))),
<<"gleamgleam">>).
-endif.
uppercase(A) ->
string:uppercase(A).
-ifdef(TEST).
uppercase_test() ->
expect:equal(to_string(uppercase(from_strings([<<"Gleam">>, <<"Gleam">>]))),
<<"GLEAMGLEAM">>).
-endif.
reverse(A) ->
string:reverse(A).
erl_split(A, B, C) ->
string:split(A, B, C).
split(Iodata, On) ->
erl_split(Iodata, On, all).
-ifdef(TEST).
split_test() ->
expect:equal(split(new(<<"Gleam,Erlang,Elixir">>), <<",">>),
[new(<<"Gleam">>), new(<<"Erlang">>), new(<<"Elixir">>)]),
expect:equal(split(from_strings([<<"Gleam, Erl">>, <<"ang,Elixir">>]),
<<", ">>),
[new(<<"Gleam">>),
from_strings([<<"Erl">>, <<"ang,Elixir">>])]).
-endif.
erl_replace(A, B, C, D) ->
string:replace(A, B, C, D).
replace(Iodata, Pattern, Replacement) ->
erl_replace(Iodata, Pattern, Replacement, all).
is_equal(A, B) ->
string:equal(A, B).
-ifdef(TEST).
is_equal_test() ->
expect:true(is_equal(new(<<"12">>), from_strings([<<"1">>, <<"2">>]))),
expect:true(is_equal(new(<<"12">>), new(<<"12">>))),
expect:false(is_equal(new(<<"12">>), new(<<"2">>))).
-endif.
is_empty(A) ->
string:is_empty(A).
-ifdef(TEST).
is_empty_test() ->
expect:true(is_empty(new(<<"">>))),
expect:false(is_empty(new(<<"12">>))),
expect:true(is_empty(from_strings([]))),
expect:true(is_empty(from_strings([<<"">>, <<"">>]))).
-endif.
|
