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

Removing two last nested functions.

Browse Source 
I missed these before since they didn't seem to generate trampolines.
This commit is contained in:
Cas Cremers 2019-01-04 13:22:54 +01:00
parent 6f881d0b54
commit 16c149e6a2
1 changed files with 46 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
src/arachne.c
View File

@ -94,32 +94,34 @@ int iterate ();
* Program code
*/
//! Two simple helpers for arachneInit
Roledef
add_event (Roledef rd, int event, Term message)
{
return roledefAdd (rd, event, NULL, NULL, NULL, message, NULL);
}
Role
add_role (Roledef rd, const char *rolenamestring)
{
Role r;
Term rolename;
rolename = makeGlobalConstant (rolenamestring);
r = roleCreate (rolename);
r->roledef = rd;
r->next = INTRUDER->roles;
INTRUDER->roles = r;
// compute_role_variables (sys, INTRUDER, r);
return r;
}
//! Init Arachne engine
void
arachneInit (const System mysys)
{
Roledef rd;
void add_event (int event, Term message)
{
rd = roledefAdd (rd, event, NULL, NULL, NULL, message, NULL);
}
Role add_role (const char *rolenamestring)
{
Role r;
Term rolename;
rolename = makeGlobalConstant (rolenamestring);
r = roleCreate (rolename);
r->roledef = rd;
rd = NULL;
r->next = INTRUDER->roles;
INTRUDER->roles = r;
// compute_role_variables (sys, INTRUDER, r);
return r;
}
sys = mysys; // make sys available for this module as a global
/**
@ -133,21 +135,21 @@ arachneInit (const System mysys)
INTRUDER = protocolCreate (makeGlobalConstant (" INTRUDER "));
// Initially empty roledef
rd = NULL;
rd = add_event (rd, SEND, NULL);
I_M = add_role (rd, "I_M: Atomic message");
add_event (SEND, NULL);
I_M = add_role ("I_M: Atomic message");
rd = NULL;
rd = add_event (rd, RECV, NULL);
rd = add_event (rd, RECV, NULL);
rd = add_event (rd, SEND, NULL);
I_RRS = add_role (rd, "I_E: Encrypt");
add_event (RECV, NULL);
add_event (RECV, NULL);
add_event (SEND, NULL);
I_RRS = add_role ("I_E: Encrypt");
add_event (RECV, NULL);
add_event (RECV, NULL);
add_event (SEND, NULL);
I_RRSD = add_role ("I_D: Decrypt");
rd = NULL;
rd = add_event (rd, RECV, NULL);
rd = add_event (rd, RECV, NULL);
rd = add_event (rd, SEND, NULL);
I_RRSD = add_role (rd, "I_D: Decrypt");
sys->num_regular_runs = 0;
sys->num_intruder_runs = 0;
@ -178,31 +180,33 @@ arachneDone ()
//! is this roledef already bound?
#define isBound(rd) (rd->bound)
//! print current counter
void
counterPrint (const int annotate)
{
statesFormat (sys->current_claim->states);
eprintf ("\t");
eprintf ("%i", annotate);
eprintf ("\t");
}
//! Indent prefix print
void
indentPrefixPrint (const int annotate, const int jumps)
{
void counterPrint ()
{
statesFormat (sys->current_claim->states);
eprintf ("\t");
eprintf ("%i", annotate);
eprintf ("\t");
}
if (switches.output == ATTACK && globalError == 0)
{
// Arachne, attack, not an error
// We assume that means DOT output
eprintf ("// ");
counterPrint ();
counterPrint (annotate);
}
else
{
// If it is not to stdout, or it is not an attack...
int i;
counterPrint ();
counterPrint (annotate);
for (i = 0; i < jumps; i++)
{
if (i % 3 == 0)