andr3/scyther
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Reindenting code.

Browse Source
This commit is contained in:
Cas Cremers 2011-01-25 17:33:12 +01:00
parent 68409e14ad
commit fea2bcf477
4 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/claim.c
View File

@ -828,13 +828,16 @@ arachne_claim_commit (const System sys, const int claim_run,
params_b = tuple_to_termlist (rd->message); params_b = tuple_to_termlist (rd->message);
// check agent requirements // check agent requirements
if (isTermEqual(rd->from,actor_b) && isTermEqual(params_b->term,actor_a)) if (isTermEqual (rd->from, actor_b)
&& isTermEqual (params_b->term, actor_a))
{ {
// check role (also same protocol) // check role (also same protocol)
if (isTermEqual(partner_role,rd->claiminfo->rolename)) if (isTermEqual
(partner_role, rd->claiminfo->rolename))
{ {
// check parameters // check parameters
if (isTermlistEqual (params_a->next,params_b->next)) if (isTermlistEqual
(params_a->next, params_b->next))
{ {
// Claim holds // Claim holds
termlistDelete (params_b); termlistDelete (params_b);

3
src/dotout.c
View File

@ -626,7 +626,8 @@ isEventIgnored (const System sys, int run, int ev)
return false; return false;
} }
// If the claim type is commit, we also show running claims // If the claim type is commit, we also show running claims
if (isTermEqual(sys->current_claim->type, CLAIM_Commit) || isTermEqual(sys->current_claim->type, CLAIM_Reachable)) if (isTermEqual (sys->current_claim->type, CLAIM_Commit)
|| isTermEqual (sys->current_claim->type, CLAIM_Reachable))
{ {
if (isTermEqual (rd->claiminfo->type, CLAIM_Running)) if (isTermEqual (rd->claiminfo->type, CLAIM_Running))
{ {

3
src/termlist.c
View File

@ -926,7 +926,8 @@ tuple_to_termlist (Term t)
} }
//! Get the leftmost term of a tuple (e.g. a non-tuple) //! Get the leftmost term of a tuple (e.g. a non-tuple)
Term termLeft(Term t) Term
termLeft (Term t)
{ {
t = deVar (t); t = deVar (t);
if (realTermTuple (t)) if (realTermTuple (t))