Я работаю над Упражнением 12-2 из книги Erlang Programming. У меня есть модуль db_server_otp , который реализует поведение OTP gen_server. Как автономный модуль, я протестировал его, и он работает, как ожидалось. Теперь я должен добавить руководителя для этого. На основе приведенного в главе примера я создал модуль db_server_sup следующим образом:
-module(db_server_sup).
-export([start/0,init/1]).
-behavior(supervisor).
start() ->
supervisor:start_link({local, ?MODULE}, ?MODULE, []).
init(_Arguments) ->
DbServerOtp = {db_server_otp, %% Id
{db_server_otp, start, []}, %% child process
permanent, %% restart
30000, %% shutdown (ms)
worker, %% type
{db_server_otp}}, %% required modules
{ok,
{{one_for_all, %% terminate all children and restart
5, %% max of n restarts in MaxSeconds
3600}, %% MaxSeconds (s)
[DbServerOtp]}}. %% child process list
Оба модуля находятся в одном каталоге, и я скомпилировал оба модуля с файлами .beam в одном рабочем каталоге, где я запускаю оболочку erlang. Однако при использовании оболочки erlang я не могу запустить супервизор.
Erlang R13B03 (erts-5.7.4) [source] [64-bit] [smp:8:2] [rq:8] [async-threads:0] [hipe] [kernel-poll:false]
Eshell V5.7.4 (abort with ^G)
1> c(db_server_otp).
./db_server_otp.erl:5: Warning: undefined callback function code_change/3 (behaviour 'gen_server')
./db_server_otp.erl:5: Warning: undefined callback function handle_info/2 (behaviour 'gen_server')
{ok,db_server_otp}
2> c(db_server_sup).
{ok,db_server_sup}
3> db_server_sup:start().
** exception exit: {start_spec,{invalid_modules,{db_server_otp}}}
Нужно ли импортировать модуль db_server_otp ? Если да, какие функции я должен импортировать? Я экспортирую все свои методы OTP в db_server_otp :
-module(db_server_otp).
-export([start/0,stop/0]).
-export([write/2,read/1,delete/1,match/1]).
-export([init/1,terminate/2,handle_cast/2,handle_call/3]).
-behavior(gen_server).