aboutsummaryrefslogtreecommitdiffstats
path: root/lib/diameter/src
diff options
context:
space:
mode:
authorAnders Svensson <[email protected]>2011-11-28 23:04:55 +0100
committerAnders Svensson <[email protected]>2011-12-02 16:10:28 +0100
commit34c0b1642a49626efb90762f69bdf195ff9197bd (patch)
tree2511f599793cd62be032ffd8abbae33c96f96655 /lib/diameter/src
parent8d5517720dfa028aaad1d236fe39fbebfc013bc3 (diff)
downloadotp-34c0b1642a49626efb90762f69bdf195ff9197bd.tar.gz
otp-34c0b1642a49626efb90762f69bdf195ff9197bd.tar.bz2
otp-34c0b1642a49626efb90762f69bdf195ff9197bd.zip
Adapt diameter_make
Diffstat (limited to 'lib/diameter/src')
-rw-r--r--lib/diameter/src/compiler/diameter_make.erl62
1 files changed, 37 insertions, 25 deletions
diff --git a/lib/diameter/src/compiler/diameter_make.erl b/lib/diameter/src/compiler/diameter_make.erl
index 5380ee56ca..a9195ba2d1 100644
--- a/lib/diameter/src/compiler/diameter_make.erl
+++ b/lib/diameter/src/compiler/diameter_make.erl
@@ -20,20 +20,20 @@
%%
%% Module alternative to diameterc for dictionary compilation.
%%
-%% Eg. 1> diameter_make:dict("mydict.dia").
+%% Eg. 1> diameter_make:file("mydict.dia").
%%
%% $ erl -noshell \
%% -boot start_clean \
-%% -s diameter_make dict mydict.dia \
+%% -s diameter_make file mydict.dia \
%% -s init stop
%%
-module(diameter_make).
--export([dict/1,
- dict/2,
- spec/1,
- spec/2]).
+-export([file/1,
+ file/2,
+ dict/1,
+ dict/2]).
-type opt() :: {outdir|include|name|prefix|inherits, string()}
| verbose
@@ -41,37 +41,49 @@
%% dict/1-2
--spec dict(string(), [opt()])
- -> ok.
+-spec file(string(), [opt()])
+ -> ok
+ | {error, string()}.
-dict(File, Opts) ->
- make(File,
- Opts,
- spec(File, Opts),
- [spec || _ <- [1], lists:member(debug, Opts)] ++ [erl, hrl]).
+file(File, Opts) ->
+ case dict(File, Opts) of
+ {ok, Dict} ->
+ make(File,
+ Opts,
+ Dict,
+ [spec || _ <- [1], lists:member(debug, Opts)] ++ [erl, hrl]);
+ {error, _} = E ->
+ E
+ end.
-dict(File) ->
- dict(File, []).
+file(File) ->
+ file(File, []).
-%% spec/2
+%% dict/2
--spec spec(string(), [opt()])
- -> orddict:orddict().
+-spec dict(string(), [opt()])
+ -> {ok, orddict:orddict()}
+ | {error, string()}.
-spec(File, Opts) ->
- diameter_spec_util:parse(File, Opts).
+dict(Path, Opts) ->
+ case diameter_dict_util:parse({path, Path}, Opts) of
+ {ok, _} = Ok ->
+ Ok;
+ {error = E, Reason} ->
+ {E, diameter_dict_util:format_error(Reason)}
+ end.
-spec(File) ->
- spec(File, []).
+dict(File) ->
+ dict(File, []).
%% ===========================================================================
make(_, _, _, []) ->
ok;
-make(File, Opts, Spec, [Mode | Rest]) ->
- try diameter_codegen:from_spec(File, Spec, Opts, Mode) of
+make(File, Opts, Dict, [Mode | Rest]) ->
+ try diameter_codegen:from_dict(File, Dict, Opts, Mode) of
ok ->
- make(File, Opts, Spec, Rest)
+ make(File, Opts, Dict, Rest)
catch
error: Reason ->
{error, {Reason, Mode, erlang:get_stacktrace()}}