//: Allow mu programs to log facts just like we've been doing in C++ so far. :(scenario trace) def main [ trace 1, [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") put(Recipe_ordinal, "trace", TRACE); :(before "End Primitive Recipe Checks") case TRACE: { if (SIZE(inst.ingredients) < 3) { raise << maybe(get(Recipe, r).name) << "'trace' takes three or more ingredients rather than '" << inst.original_string << "'\n" << end(); break; } if (!is_mu_number(inst.ingredients.at(0))) { raise << maybe(get(Recipe, r).name) << "first ingredient of 'trace' should be a number (depth), but got '" << inst.ingredients.at(0).original_string << "'\n" << end(); break; } if (!is_literal_text(inst.ingredients.at(1))) { raise << maybe(get(Recipe, r).name) << "second ingredient of 'trace' should be a literal string (label), but got '" << inst.ingredients.at(1).original_string << "'\n" << end(); break; } break; } :(before "End Primitive Recipe Implementations") case TRACE: { int depth = ingredients.at(0).at(0); string label = current_instruction().ingredients.at(1).name; ostringstream out; for (int i = 2; i < SIZE(current_instruction().ingredients); ++i) { if (i > 2) out << ' '; out << print_mu(current_instruction().ingredients.at(i), ingredients.at(i)); } trace(depth, label) << out.str() << end(); break; } //: simpler limited version of 'trace' :(before "End Primitive Recipe Declarations") STASH, :(before "End Primitive Recipe Numbers") put(Recipe_ordinal, "stash", STASH); :(before "End Primitive Recipe Checks") case STASH: { break; } :(before "End Primitive Recipe Implementations") case STASH: { ostringstream out; for (int i = 0; i < SIZE(current_instruction().ingredients); ++i) { if (i) out << ' '; out << print_mu(current_instruction().ingredients.at(i), ingredients.at(i)); } trace(2, "app") << out.str() << end(); break; } :(scenario stash_literal_string) def main [ stash [foo] ] +app: foo :(scenario stash_literal_number) def main [ stash [foo:], 4 ] +app: foo: 4 :(scenario stash_number) def main [ 1:num <- copy 34 stash [foo:], 1:num ] +app: foo: 34 :(code) string print_mu(const reagent& r, const vector& data) { if (is_literal(r)) return r.name; // End print Special-cases(r, data) ostringstream out; for (long long i = 0; i < SIZE(data); ++i) { if (i) out << ' '; out << no_scientific(data.at(i)); } return out.str(); } :(before "End Primitive Recipe Declarations") HIDE_ERRORS, :(before "End Primitive Recipe Numbers") put(Recipe_ordinal, "hide-errors", HIDE_ERRORS); :(before "End Primitive Recipe Checks") case HIDE_ERRORS: { break; } :(before "End Primitive Recipe Implementations") case HIDE_ERRORS: { Hide_errors = true; break; } :(before "End Primitive Recipe Declarations") SHOW_ERRORS, :(before "End Primitive Recipe Numbers") put(Recipe_ordinal, "show-errors", SHOW_ERRORS); :(before "End Primitive Recipe Checks") case SHOW_ERRORS: { break; } :(before "End Primitive Recipe Implementations") case SHOW_ERRORS: { Hide_error

language: go

go:
 - 1.11.x
 - 1.12.x

os: 
  - linux
  - osx

dist: xenial

env:
  - GO111MODULE=on