blob: 6a63f3691a85191d0a75cc198741ad7d30ffca5f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
//: Allow mu programs to log facts just like we've been doing in C++ so far.
:(scenario trace)
recipe main [
trace [foo], [this is a trace in mu]
]
+foo: this is a trace in mu
:(before "End Primitive Recipe Declarations")
TRACE,
:(before "End Primitive Recipe Numbers")
Recipe_number["trace"] = TRACE;
:(before "End Primitive Recipe Implementations")
case TRACE: {
assert(isa_literal(current_instruction().ingredients.at(0)));
string label = current_instruction().ingredients.at(0).name;
assert(isa_literal(current_instruction().ingredients.at(1)));
string message = current_instruction().ingredients.at(1).name;
trace(1, label) << message;
break;
}
:(before "End Primitive Recipe Declarations")
HIDE_WARNINGS,
:(before "End Primitive Recipe Numbers")
Recipe_number["hide-warnings"] = HIDE_WARNINGS;
:(before "End Primitive Recipe Implementations")
case HIDE_WARNINGS: {
Hide_warnings = true;
break;
}
|