blob: 8e9b91937f75706004944b0f252b26eb95d1a511 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
-module(record_match).
-export([select/0]).
-record(b_literal, {val}).
-record(b_remote, {mod,name,arity}).
-record(b_local, {name,arity}).
-type b_remote() :: #b_remote{}.
-type b_local() :: #b_local{}.
-type argument() :: b_remote() | b_local().
-record(b_set, {args=[] :: [argument()]}).
select() ->
#b_set{args=[#b_remote{},#b_literal{}]}.
|