1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
-module(fun2ms).
-export([return/0]).
-include_lib("stdlib/include/ms_transform.hrl").
-record(snapshot, {id :: integer(), arg1 :: atom(), arg2 :: tuple()}).
return() ->
TableId = ets:new(table, [public, {keypos, #snapshot.id}]),
ets:insert(TableId, [#snapshot{id = 1, arg1 = hard, arg2 = {1,2}},
#snapshot{id = 2, arg1 = rock, arg2 = {1,2}},
#snapshot{id = 3, arg1 = hallelujah, arg2 =
{1,2}}]),
Example = ets:fun2ms(
fun(#snapshot{id = Arg1, arg1 = Arg2}) ->
{Arg1, Arg2}
end),
ets:select(TableId, Example).
|
