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

- Broken first attempt to work towards simplified method.

Browse Source
This commit is contained in:
ccremers 2004-08-17 11:30:03 +00:00
parent 5dd6127e4b
commit 8869477cf0
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/arachne.c
View File

@ -27,13 +27,13 @@ extern Term TERM_Agent;
static System sys; static System sys;
Protocol INTRUDER; // Pointers, to be set by the Init Protocol INTRUDER; // Pointers, to be set by the Init
Role I_GOAL; // Same here. Role I_M; // Same here.
Role I_TEE; Role I_F;
Role I_SPLIT; Role I_T;
Role I_TUPLE; Role I_V;
Role I_ENCRYPT; Role I_R;
Role I_DECRYPT; Role I_E;
Role I_M0; Role I_D;
static int indentDepth; static int indentDepth;
@ -103,11 +103,13 @@ arachneInit (const System mysys)
INTRUDER = protocolCreate (makeGlobalConstant (" INTRUDER ")); INTRUDER = protocolCreate (makeGlobalConstant (" INTRUDER "));
add_event (READ, NULL);
I_GOAL = add_role (" I_GOAL ");
add_event (SEND, NULL); add_event (SEND, NULL);
I_M0 = add_role (" I_M0 "); I_M = add_role ("I_M: Atomic message");
add_event (READ, NULL);
add_event (READ, NULL);
add_event (SEND, NULL);
I_D = add_role ("I_D: Decrypt");
return; return;
} }
@ -732,7 +734,7 @@ bind_intruder_to_construct (const Goal goal)
if (binding_add (run, 0, goal.run, goal.index, t1)) if (binding_add (run, 0, goal.run, goal.index, t1))
{ {
run = create_intruder_goal (t2); run = create_intruder_goal (t2);
if (binding_add (run, 0, goal.run, goal.index, t2)) if (binding_add (run, 0, goal.run, goal.index, t2))
{ {
flag = flag && iterate (); flag = flag && iterate ();
} }
@ -757,11 +759,11 @@ bind_intruder_to_construct (const Goal goal)
{ {
int run; int run;
roleInstance (sys, INTRUDER, I_M0, NULL, NULL); roleInstance (sys, INTRUDER, I_M, NULL, NULL);
run = sys->maxruns - 1; run = sys->maxruns - 1;
sys->runs[run].start->message = termDuplicate(term); sys->runs[run].start->message = termDuplicate (term);
sys->runs[run].length = 1; sys->runs[run].length = 1;
if (binding_add (run, 0, goal.run, goal.index, term)) if (binding_add (run, 0, goal.run, goal.index, term))
{ {
#ifdef DEBUG #ifdef DEBUG
if (DEBUGL (3)) if (DEBUGL (3))
@ -777,7 +779,7 @@ bind_intruder_to_construct (const Goal goal)
binding_remove_last (); binding_remove_last ();
roleInstanceDestroy (sys); roleInstanceDestroy (sys);
termlistSubstReset (subst); termlistSubstReset (subst);
termlistDelete (subst); termlistDelete (subst);
} }
m0tl = m0tl->next; m0tl = m0tl->next;
@ -919,7 +921,8 @@ prune ()
if (DEBUGL (3)) if (DEBUGL (3))
{ {
indentPrint (); indentPrint ();
eprintf ("Pruned because all agents of the claim run must be trusted.\n"); eprintf
("Pruned because all agents of the claim run must be trusted.\n");
} }
#endif #endif
return 1; return 1;
@ -965,9 +968,9 @@ iterate ()
#ifdef DEBUG #ifdef DEBUG
if (DEBUGL (3) && explanation != NULL) if (DEBUGL (3) && explanation != NULL)
{ {
indentDepth--; indentDepth--;
indentPrint (); indentPrint ();
indentDepth++; indentDepth++;
eprintf ("ITERATE: %s", explanation); eprintf ("ITERATE: %s", explanation);
if (e_run != INVALID) if (e_run != INVALID)