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

- Initial knowledge displayed when running --check.

Browse Source
This commit is contained in:
ccremers 2006-07-27 10:45:26 +00:00
parent f00392ac3e
commit 4e085f0eb8
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/compiler.c
View File

@ -867,7 +867,8 @@ roleCompile (Term nameterm, Tac tc)
void
roleKnows (Tac tc)
{
thisRole->knows = termlistConcat (thisRole->knows, tacTermlist (tc->t1.tac));
thisRole->knows =
termlistConcat (thisRole->knows, tacTermlist (tc->t1.tac));
}
void
@ -1812,17 +1813,21 @@ preprocess (const System sys)
* compute hidelevels
*/
hidelevelCompute (sys);
/*
* display initial role knowledge
*/
int showRK (Protocol p, Role r)
{
eprintf ("Role ");
termPrint (r->nameterm);
eprintf (" knows ");
termlistPrint (r->knows);
eprintf ("\n");
}
iterateRoles (sys,showRK);
if (switches.check)
{
/*
* display initial role knowledge
*/
int showRK (Protocol p, Role r)
{
eprintf ("Role ");
termPrint (r->nameterm);
eprintf (" knows ");
termlistPrint (r->knows);
eprintf ("\n");
}
iterateRoles (sys, showRK);
}
}