diff options
| -rw-r--r-- | cpp/.traces/trace | 7 | ||||
| -rw-r--r-- | cpp/032trace | 21 |
2 files changed, 28 insertions, 0 deletions
diff --git a/cpp/.traces/trace b/cpp/.traces/trace new file mode 100644 index 00000000..fb4fd081 --- /dev/null +++ b/cpp/.traces/trace @@ -0,0 +1,7 @@ +parse/0: instruction: 32 +parse/0: ingredient: {name: "foo", value: 0, type: 0, properties: ["foo": "literal-string"]} +parse/0: ingredient: {name: "this is a trace in mu", value: 0, type: 0, properties: ["this is a trace in mu": "literal-string"]} +after-brace/0: recipe main +after-brace/0: trace ... +run/0: instruction main/0 +foo/0: this is a trace in mu diff --git a/cpp/032trace b/cpp/032trace new file mode 100644 index 00000000..3a7b0b0e --- /dev/null +++ b/cpp/032trace @@ -0,0 +1,21 @@ +:(scenario "trace") +recipe main [ + trace [foo], [this is a trace in mu] +] ++foo: this is a trace in mu + +:(before "End Globals") +const int TRACE = 32; +:(before "End Primitive Recipe Numbers") +Recipe_number["trace"] = TRACE; +assert(Next_recipe_number == TRACE); +Next_recipe_number++; +:(before "End Primitive Recipe Implementations") +case TRACE: { + assert(isa_literal(instructions[pc].ingredients[0])); + string label = instructions[pc].ingredients[0].name; + assert(isa_literal(instructions[pc].ingredients[1])); + string message = instructions[pc].ingredients[1].name; + trace(label) << message; + break; +} |