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

- Consistency improvements.

Browse Source
This commit is contained in:
ccremers 2004-08-14 14:27:46 +00:00
parent f219461c8d
commit 74851e0393
2 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/arachne.c
View File

@ -277,7 +277,7 @@ add_intruder_goal_iterate (Goal goal)
//! Bind a goal to an existing regular run, if possible
int
bind_existing_run (const Goal goal, const Protocol p, const Role r,
const int index)
const int index, const int forced_run)
{
int run, flag;
@ -294,6 +294,8 @@ bind_existing_run (const Goal goal, const Protocol p, const Role r,
flag = 1;
goal.rd->bind_index = index;
for (run = 0; run < sys->maxruns; run++)
{
if (forced_run >= 0 && forced_run == run)
{
if (sys->runs[run].protocol == p && sys->runs[run].role == r)
{
@ -320,6 +322,7 @@ bind_existing_run (const Goal goal, const Protocol p, const Role r,
sys->runs[run].length = old_length;
}
}
}
goal.rd->bind_run = -1;
return flag;
}
@ -463,7 +466,7 @@ bind_goal_regular (const Goal goal)
{
flag = flag && bind_new_run (goal, p, r, index);
}
return (flag && bind_existing_run (goal, p, r, index));
return (flag && bind_existing_run (goal, p, r, index, run));
}
if (p == INTRUDER)
@ -542,7 +545,7 @@ bind_intruder_to_regular (Goal goal)
{
flag = flag && bind_new_run (goal, p, r, index);
}
flag = flag && bind_existing_run (goal, p, r, index);
flag = flag && bind_existing_run (goal, p, r, index, run);
/**
* deconstruct key list goals

2
src/term.h
View File

@ -68,7 +68,7 @@ __inline__ Term deVarScan (Term t);
#define realTermLeaf(t) (t != NULL && t->type <= LEAF)
#define realTermTuple(t) (t != NULL && t->type == TUPLE)
#define realTermEncrypt(t) (t != NULL && t->type == ENCRYPT)
#define realTermVariable(t) (t != NULL && (t->type == VARIABLE || (rolelocal_variable && t->right.runid == -3)))
#define realTermVariable(t) (t != NULL && (t->type == VARIABLE || (t->type <= LEAF && rolelocal_variable && t->right.runid == -3)))
#define substVar(t) ((realTermVariable (t) && t->subst != NULL) ? 1 : 0)
#define deVar(t) ( substVar(t) ? deVarScan(t->subst) : t)
#define isTermLeaf(t) realTermLeaf(deVar(t))