mirror/ubf
1
0
Fork 0
mirror of https://github.com/ubf/ubf.git synced 2026-04-21 04:06:08 +00:00
Code Issues Projects Releases Wiki Activity

fix http links

Browse Source
This commit is contained in:
Joseph Wayne Norton
2009-09-18 23:26:43 +09:00
parent 418b2d1df6
commit 9fa55df4eb
4 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
README
View File

@@ -8,10 +8,10 @@ To build
========
1. Get and install an erlang system
(http://www.erlang.org)
http://www.erlang.org
2. Optionally, get and install erlang-rfc4627
(http://www.lshift.net/blog/2007/02/17/json-and-json-rpc-for-erlang)
http://www.lshift.net/blog/2007/02/17/json-and-json-rpc-for-erlang
3. Change to the src directory and type make
$ cd src
@@ -152,7 +152,7 @@ What about ABNF?
================
See the ubf-abnf open source repository
(http://github.com/norton/ubf-abnf) for details. ubf-abnf is a
http://github.com/norton/ubf-abnf for details. ubf-abnf is a
framework for integrating UBF and ABNF.

2
src/Unit-EUnit-Files/stateful_plugin_test.erl
View File

@@ -32,7 +32,7 @@ all_tests_(Setup,Teardown) ->
Teardown,
(all_actual_tests_("localhost",3000,ubf,false))(not_used)
++ (all_actual_tests_("localhost",3001,ebf,false))(not_used)
%% DISABLE ++ (all_actual_tests_("localhost",3002,jsf,false))(not_used)
++ (all_actual_tests_("localhost",3002,jsf,false))(not_used)
++ (all_actual_tests_(none,none,etf,false))(not_used)
}.

2
src/Unit-EUnit-Files/stateless_plugin_test.erl
View File

@@ -32,7 +32,7 @@ all_tests_(Setup,Teardown) ->
Teardown,
(all_actual_tests_("localhost",3000,ubf,true))(not_used)
++ (all_actual_tests_("localhost",3001,ebf,true))(not_used)
%% DISABLE ++ (all_actual_tests_("localhost",3002,jsf,true))(not_used)
++ (all_actual_tests_("localhost",3002,jsf,true))(not_used)
++ (all_actual_tests_(none,none,etf,true))(not_used)
}.

10
src/contract_manager.erl
View File

@@ -81,12 +81,19 @@ loop(Client, Server, State1, Mod, VerboseRPC) ->
exit({serverContractManager, Why})
end.
tlogCheckIn() ->
now().
tlogCheckOut(StartTime, Mod, Q, Reply, Status0) ->
gmt_tlog_h:tlog_ubf(StartTime, Mod, Q, Reply, Status0).
do_rpc(Client, Server, State1, Mod, Q, VerboseRPC) ->
%% check contract
StartTime = tlogCheckIn(),
case checkIn(Q, State1, Mod) of
[] ->
Expect = Mod:contract_state(State1),
Client ! {self(), {{clientBrokeContract, Q, Expect}, State1}},
tlogCheckOut(StartTime, Mod, Q, undefined, client_broke_contract),
loop(Client, Server, State1, Mod, VerboseRPC);
FSM2 ->
if VerboseRPC ->
@@ -102,14 +109,17 @@ do_rpc(Client, Server, State1, Mod, Q, VerboseRPC) ->
case Next of
same ->
Client ! {self(), {Reply, State2}},
tlogCheckOut(StartTime, Mod, Q, Reply, ok),
loop(Client, Server, State2, Mod, VerboseRPC);
{new, NewMod, State3} ->
Client ! {self(), {Reply, State3}},
tlogCheckOut(StartTime, Mod, Q, Reply, ok),
loop(Client, Server, State3, NewMod, VerboseRPC)
end;
false ->
Expect = map(fun(I) -> element(2, I) end, FSM2),
Client ! {self(), {{serverBrokeContract, {Q, Reply}, Expect}, State1}},
tlogCheckOut(StartTime, Mod, Q, Reply, server_broke_contract),
loop(Client, Server, State1, Mod, VerboseRPC)
end;
stop ->