@Override
public ASTNode visit(org.kframework.kil.Definition node, Void _void) {
Definition definition = new Definition(context, kem, indexingData);
globalContext.setDefinition(definition);
Module singletonModule = node.getSingletonModule();
for (org.kframework.kil.Rule rule : singletonModule.getRules()) {
if (rule.containsAttribute(Attribute.PREDICATE_KEY)) {
continue;
}
definition.addRule((Rule) this.visitNode(rule));
}
for (String kLabelName : singletonModule.getModuleKLabels()) {
definition.addKLabel(KLabelConstant.of(kLabelName, globalContext.getDefinition()));
}
return definition;
}
@Override
public ASTNode transform(org.kframework.kil.Definition node) {
Definition definition = new Definition(context);
this.definition = definition;
Module singletonModule = node.getSingletonModule();
for (org.kframework.kil.Rule rule : singletonModule.getRules()) {
if (!rule.containsAttribute(SymbolicBackend.SYMBOLIC)
|| rule.containsAttribute(Attribute.PREDICATE.getKey())
|| rule.containsAttribute(Attribute.ANYWHERE.getKey())) {
continue;
}
try {
definition.addRule((Rule) rule.accept(this));
} catch (TransformerException e) {
System.err.println(rule);
System.err.flush();
e.printStackTrace();
}
}
for (String kLabelName : singletonModule.getModuleKLabels()) {
definition.addKLabel(KLabelConstant.of(kLabelName, context));
}
/* collect the productions which have the attributes strict and seqstrict */
Set<Production> productions = singletonModule.getSyntaxByTag("strict", context);
productions.addAll(singletonModule.getSyntaxByTag("seqstrict", context));
for (Production production : productions) {
definition.addFrozenKLabel(KLabelConstant.of(production.getKLabel(), context));
}
this.definition = null;
return definition;
}
// execute krun in normal mode (i.e. not in debug mode)
public static void normalExecution(
Term KAST, String lang, RunProcess rp, CommandlineOptions cmd_options, Context context) {
try {
CommandLine cmd = cmd_options.getCommandLine();
KRun krun = obtainKRun(context);
KRunResult<?> result = null;
// Set<String> varNames = null;
Rule patternRule = null;
RuleCompilerSteps steps;
steps = new RuleCompilerSteps(K.definition, context);
try {
if (cmd.hasOption("pattern") || "search".equals(K.maude_cmd)) {
org.kframework.parser.concrete.KParser.ImportTbl(K.compiled_def + "/def/Concrete.tbl");
ASTNode pattern =
DefinitionLoader.parsePattern(K.pattern, "Command line pattern", context);
CollectVariablesVisitor vars = new CollectVariablesVisitor(context);
pattern.accept(vars);
// varNames = vars.getVars().keySet();
try {
pattern = steps.compile(new Rule((Sentence) pattern), null);
} catch (CompilerStepDone e) {
pattern = (ASTNode) e.getResult();
}
patternRule = new Rule((Sentence) pattern);
if (GlobalSettings.verbose) sw.printIntermediate("Parsing search pattern");
}
if (K.do_search) {
if ("search".equals(K.maude_cmd)) {
BufferedReader br = new BufferedReader(new InputStreamReader(System.in));
String buffer = "";
// detect if the input comes from console or redirected
// from a pipeline
Console c = System.console();
if (c == null && br.ready()) {
try {
buffer = br.readLine();
} catch (IOException ioe) {
ioe.printStackTrace();
} finally {
if (br != null) {
try {
br.close();
} catch (IOException e) {
e.printStackTrace();
}
}
}
}
Integer depth = null;
Integer bound = null;
if (cmd.hasOption("bound") && cmd.hasOption("depth")) {
bound = Integer.parseInt(K.bound);
depth = Integer.parseInt(K.depth);
} else if (cmd.hasOption("bound")) {
bound = Integer.parseInt(K.bound);
} else if (cmd.hasOption("depth")) {
depth = Integer.parseInt(K.depth);
}
if (K.do_testgen) {
result =
krun.generate(
bound,
depth,
K.searchType,
patternRule,
makeConfiguration(KAST, buffer, rp, (K.term != null), context),
steps);
} else {
result =
krun.search(
bound,
depth,
K.searchType,
patternRule,
makeConfiguration(KAST, buffer, rp, (K.term != null), context),
steps);
}
if (GlobalSettings.verbose) sw.printTotal("Search total");
} else {
Error.report("For the search option you must specify that --maude-cmd=search");
}
} else if (K.model_checking.length() > 0) {
// run kast for the formula to be verified
File formulaFile = new File(K.model_checking);
Term KAST1 = null;
if (!formulaFile.exists()) {
// Error.silentReport("\nThe specified argument does not exist as a file on the disc; it
// may represent a direct formula: "
// + K.model_checking);
// assume that the specified argument is not a file and
// maybe represents a formula
KAST1 = rp.runParserOrDie("kast -e", K.model_checking, false, "LtlFormula", context);
} else {
// the specified argument represents a file
KAST1 = rp.runParserOrDie("kast", K.model_checking, false, "LtlFormula", context);
}
result =
krun.modelCheck(KAST1, makeConfiguration(KAST, null, rp, (K.term != null), context));
if (GlobalSettings.verbose) sw.printTotal("Model checking total");
} else if (K.prove.length() > 0) {
File proofFile = new File(K.prove);
if (!proofFile.exists()) {
Error.report("Cannot find the file containing rules to prove");
}
String content = FileUtil.getFileContent(proofFile.getAbsoluteFile().toString());
Definition parsed =
DefinitionLoader.parseString(content, proofFile.getAbsolutePath(), context);
Module mod = parsed.getSingletonModule();
try {
mod = new SpecificationCompilerSteps(context).compile(mod, null);
} catch (CompilerStepDone e) {
assert false : "dead code";
}
result = krun.prove(mod);
} else if (cmd.hasOption("depth")) {
int depth = Integer.parseInt(K.depth);
result = krun.step(makeConfiguration(KAST, null, rp, (K.term != null), context), depth);
if (GlobalSettings.verbose) sw.printTotal("Bounded execution total");
} else {
result = krun.run(makeConfiguration(KAST, null, rp, (K.term != null), context));
if (GlobalSettings.verbose) sw.printTotal("Normal execution total");
}
if (cmd.hasOption("pattern") && !K.do_search) {
Object krs = result.getResult();
if (krs instanceof KRunState) {
Term res = ((KRunState) krs).getRawResult();
krun.setBackendOption("io", false);
result = krun.search(null, null, K.searchType, patternRule, res, steps);
} else {
Error.report(
"Pattern matching after execution is not supported by search\nand model checking");
}
}
} catch (KRunExecutionException e) {
rp.printError(e.getMessage(), lang, context);
System.exit(1);
} catch (TransformerException e) {
e.report();
} catch (UnsupportedBackendOptionException e) {
Error.report("Backend \"" + K.backend + "\" does not support option " + e.getMessage());
}
if ("pretty".equals(K.output_mode)) {
String output = result.toString();
if (!cmd.hasOption("output")) {
AnsiConsole.out.println(output);
} else {
writeStringToFile(new File(K.output), output);
}
// print search graph
if ("search".equals(K.maude_cmd) && K.do_search && K.showSearchGraph) {
System.out.println(K.lineSeparator + "The search graph is:" + K.lineSeparator);
@SuppressWarnings("unchecked")
KRunResult<SearchResults> searchResult = (KRunResult<SearchResults>) result;
AnsiConsole.out.println(searchResult.getResult().getGraph());
// offer the user the possibility to turn execution into
// debug mode
while (true) {
System.out.print(K.lineSeparator + "Do you want to enter in debug mode? (y/n):");
BufferedReader stdin = new BufferedReader(new InputStreamReader(System.in));
String input = stdin.readLine();
if (input == null) {
K.debug = false;
K.guidebug = false;
System.out.println();
break;
}
if (input.equals("y")) {
K.debug = true;
debugExecution(KAST, lang, searchResult, context);
} else if (input.equals("n")) {
K.debug = false;
K.guidebug = false;
break;
} else {
System.out.println("You should specify one of the possible answers:y or n");
}
}
}
} else if ("raw".equals(K.output_mode)) {
String output = result.getRawOutput();
;
if (!cmd.hasOption("output")) {
System.out.println(output);
} else {
writeStringToFile(new File(K.output), output);
}
} else if ("none".equals(K.output_mode)) {
System.out.print("");
} else if ("binary".equals(K.output_mode)) {
Object krs = result.getResult();
if (krs instanceof KRunState) {
Term res = ((KRunState) krs).getRawResult();
if (!cmd.hasOption("output")) {
Error.silentReport(
"Did not specify an output file. Cannot print output-mode binary to\nstandard out. Saving to .k/krun/krun_output");
BinaryLoader.save(K.krun_output, res);
} else {
BinaryLoader.save(K.output, res);
}
} else {
Error.report("binary output mode is not supported by search and model\nchecking");
}
} else {
Error.report(K.output_mode + " is not a valid value for output-mode option");
}
System.exit(0);
} catch (IOException e) {
e.printStackTrace();
System.exit(1);
}
}