diff options
author | Harald Welte <laforge@gnumonks.org> | 2011-04-04 15:59:49 +0200 |
---|---|---|
committer | Harald Welte <laforge@gnumonks.org> | 2011-04-04 15:59:49 +0200 |
commit | 0f2f59679118d485d957dbc5a572dbe06d7eb77c (patch) | |
tree | 9e8360ce547bef84075a1b8b4a7dc487d5032d34 /src/osmo_util.erl | |
parent | b2d3abfbb141b4e6da45dd9fe9ebba647e8affac (diff) |
Move #primitive{} into osmo_util.erl/hrl
Diffstat (limited to 'src/osmo_util.erl')
-rw-r--r-- | src/osmo_util.erl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/osmo_util.erl b/src/osmo_util.erl index 28bd030..87f6968 100644 --- a/src/osmo_util.erl +++ b/src/osmo_util.erl @@ -23,6 +23,12 @@ -export([digit_list2int/1, int2digit_list/1]). -export([reload_config/0]). -export([tuple_walk/3, tuple_walk_print_cb/3]). +-export([make_prim/4, make_prim/3]). + +-include("osmo_util.hrl"). + +-compile({parse_transform, exprecs}). +-export_records([primitive]). % Convert a list of digits to an integer value digit_list2int(Int, []) -> @@ -127,3 +133,10 @@ tuple_fieldlist_walk(Path, TplName, [Head|List], TupleCb, Args, OutList) -> tuple_walk_print_cb(Path, Tpl, _Args) when is_list(Path), is_tuple(Tpl) -> io:format("~p:~p~n", [Path, Tpl]), Tpl. + +% helper function to create a #primitive record +make_prim(Subsys, GenName, SpecName) -> + make_prim(Subsys, GenName, SpecName, []). +make_prim(Subsys, GenName, SpecName, Param) -> + #primitive{subsystem = Subsys, gen_name = GenName, + spec_name = SpecName, parameters = Param}. |