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