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

31
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;
} }
@ -757,9 +759,9 @@ 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))
{ {
@ -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;