my_bank

%% @author ping%% @doc @todo Add description to my_bank.-module(my_bank).-behaviour(gen_server).%%-export([start/0,stop/0,new_account/1,deposit/2,withdraw/2]).-export([start/0]).%%回调模块-export([init/1,handle_call/3,handle_cast/2,handle_info/2,terminate/2,code_change/3]).-compile(export_all).start()->gen_server:start_link({local,?MODULE}, ?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 = case ets:lookup(Tab, Who) of[] -> ets:insert(Tab, {Who,0}),  {welcome,Who};[_]-> {Who,you_already_are_a_customer}end,{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(_Mag,State) -> { noreply,State }.handle_info(_Info,State) -> { noreply,State }.terminate(_Reason,_State) -> ok.%%热代码替换code_change(_OldVsn,State,Extra) -> { ok,State }.