forked from oscarh/vimerl
-
Notifications
You must be signed in to change notification settings - Fork 0
/
test.erl
109 lines (98 loc) · 1.56 KB
/
test.erl
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
-module(foo).
-export([foo/1]).
-export([
bar/1,
baz/2
]).
-export([start/0,stop/0, foo/2]).
-compile(export_all).
-copyright("foobar").
-vsn("$Rev: ").
-behaviour(foo).
-define(AO(Aeu), ok).
-ifdef(AO).
-endif(AO).
-ifndef(FOO).
-define(FOO, true).
-else.
-define(FOO, false).
-endif.
start() -> foo(), bar().
foo(#foo{bar = Bar, test = Test}) ->
foo([1,2,3]).
foo(Nay) ->
1,
2,
3;
bar(Yay) ->
hey_this_works.
% aoeunth\aoeunth
foo([H | List]) when not is_list(List) ->
List-List andalso (not X or Y) orelse Bar,
23.23,
1 bsl 2,
foo:bar(),
foo_bar(23), % and me?
case foo(23) of
bar -> Yay;
foo -> case lol(bar) of
oe -> OK;
noy -> Fjo
end
end,
receive
Foo -> ok
after
2000 -> error
end,
case catch bar(foo) of
aonue -> aoe;
aoeu -> if
Foo -> Yay;
aoue -> ok
end
end,
1 = 2,
([1,2] ++ [3,4]) -- [5],
1 * 2/23+23-23,
(((1 < 2) =:= (2 >= 2)) =/= (2 /= 2)) == true,
yes,
case catch foo(bar) of
X or Y -> fun bar/2;
foo -> exit(normal)
end,
foo:put(),
ferlang:put()
erlang:make_tuple(...),
erlang:put(),
put(),
2#23 - 1.34e-2 + 2.23e2 div 1.5,
"{\"foobar~10.5c",
Pid ! foo,
?aeo,
1234
$a,
true,
$A,
$\",
"Yes this is \" true",
<<Variable:16, 23:8/binary>>,
[$\ , $B, $\B, $%, $", $\"],
#foobar{Xyz, baz, Baz},
[X || X <- lists:seq(2,5)],
case foobar(Ost) of
X -> ok;
Y -> if
Bar == 1 -> foo;
Bar == 2 -> bar
end
end,
exit(foo),
[onth, Ost],
'fooBarZ-aou,2',
bar(List).
bar(Atom) when not is_tuple(List) ->
baz(Atom, atom);
bar(List) -> % this is a list
baz(list, List).
stop() -> ok.