1. 生成的create-app create-node 生的文件名要一样的，如果不一样，以后会找不到文件时边的方法。
2. 添加的新类从rebar create template=simplesrv srvid=myapp_server 命令增加，增加后对里边的方法进入实现，如果只增加一个最简单的类，是不行的，最后的调用
- $ pwd
- ./test_rebar/rel/mynode/bin
- $ ./mynode start
- $ ./mynode attach
- Attaching to /tmp//~/test_rebar/rel/mynode/erlang.pipe.1 (^D to exit)
-
- (mynode@127.0.0.1)1> application:which_applications().
- [{mynode,[],[]},
- {sasl,"SASL CXC 138 11","2.4.1"},
- {stdlib,"ERTS CXC 138 10","2.2"},
- {kernel,"ERTS CXC 138 10","3.0.3"}]
- (mynode@127.0.0.1)2> q().
- ok
- (mynode@127.0.0.1)3> [End]
- $ ./mynode start
- $ ./mynode stop
- ok
4 添加业务逻辑
Ａ。 添加文件
- 进入到目录 test_rebar 目录里边，现在的src 只有刚才的三个文件，我们现在要加入我们自己的代码用于测试：
- rebar create template=simplesrv srvid=myapp_server
- rebar create template=simplesrv srvid=myapp_hello
- 生成两个新的gen_server 这里我测下来，一定要用gen_server或otp的基类生成的erl,否则最后出现没有这个函数。
Ｂ。 修改：myapp_sup.erl （主用于出错后的启动）
Child = ?CHILD(myapp_hello,worker),
Child2 = ?CHILD(myapp_server,worker),
{ok, { {one_for_one, 5, 10}, [Child,Child2]} }.
C. 修改：myapp.app.src （告诉加载哪几个模块，否则找不到）
{application, myapp,
[
{description, ""},
{vsn, "1"},
{modules,[myapp_app,myapp_sup,myapp_server,myapp_hello]},
{registered, [myapp_server,myapp_hello]},
{applications, [
kernel,
stdlib
]},
{mod, { myapp_app, []}},
{env, []}
]}.
d. 修改: myapp_hello.erl
////////////////////////
-module(myapp_hello).
-behaviour(gen_server).
-export([start_link/0]).
%% gen_server callbacks
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
terminate/2, code_change/3]).
-compile(export_all).
-define(SERVER, ?MODULE).
start1()->
io:format("~p~n",["hello....."]).
start_link() -> gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
stop() -> gen_server:call(?MODULE, stop).
new_account(Who) -> gen_server:call(?MODULE, {new, Who}).
deposit(Who, Amount) -> gen_server:call(?MODULE, {add, Who, Amount}).
withdraw(Who, Amount) -> gen_server:call(?MODULE, {remove, Who, Amount}).
init([]) -> {ok, ets:new(?MODULE,[])}.
handle_call({new,Who}, _From, Tab) ->
Reply = {welcome123, Who},
{reply, Reply, Tab};
handle_call({add,Who,X}, _From, Tab) ->
Reply = case ets:lookup(Tab, Who) of
[] -> not_a_customer;
[{Who,Balance}] ->
NewBalance = Balance + X,
ets:insert(Tab, {Who, NewBalance}),
{thanks, Who, your_balance_is, NewBalance}
end,
{reply, Reply, Tab};
handle_call({remove,Who, X}, _From, Tab) ->
Reply = case ets:lookup(Tab, Who) of
[] -> not_a_customer;
[{Who,Balance}] when X =< Balance ->
NewBalance = Balance - X,
ets:insert(Tab, {Who, NewBalance}),
{thanks, Who, your_balance_is, NewBalance};
[{Who,Balance}] ->
{sorry,Who,you_only_have,Balance,in_the_bank}
end,
{reply, Reply, Tab};
handle_call(stop, _From, Tab) ->
{stop, normal, stopped, Tab}.
handle_cast(_Msg, State) -> {noreply, State}.
handle_info(_Info, State) -> {noreply, State}.
terminate(_Reason, _State) -> ok.
code_change(_OldVsn, State, _Extra) -> {ok, State}.
///////////////////////
e. 现在可以到test_rebar 目录下边了，进行编译。
rebar clean
rebar compile generate
之后在rel目录下边生成一堆文件。
cd rel
cd bin
./myapp start
./myapp attach
myapp_hello:start1().
// 这时打出了正确的结果。
