blob: f6f8c17de114ef2e0fd2d77f4f64464433feaee5 (plain) (tree)

9d27e966 ^ 7a5106c4 ^ 668700fd ^ 34fda13b ^ 76590e79 ^ d1e2b0aa ^ 97a9bd17 ^ generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2025-01-26 23:07:01 +0000 "k">break; } if (is_literal_text(inst.ingredients.at(0))) { ; } else if (is_mu_text(inst.ingredients.at(0))) { ; } else { raise << maybe(get(Recipe, r).name) << "first ingredient of 'save' should be a string, but got '" << to_string(inst.ingredients.at(0)) << "'\n" << end(); break; } if (!is_mu_text(inst.ingredients.at(1))) { raise << maybe(get(Recipe, r).name) << "second ingredient of 'save' should be an address:@:char, but got '" << to_string(inst.ingredients.at(1)) << "'\n" << end(); break; } break; } :(before "End Primitive Recipe Implementations") case SAVE: { if (Current_scenario) break; // do nothing in tests string filename; if (is_literal_text(current_instruction().ingredients.at(0))) { filename = current_instruction().ingredients.at(0).name; } else if (is_mu_text(current_instruction().ingredients.at(0))) { filename = read_mu_text(ingredients.at(0).at(0)); } ofstream fout(("lesson/"+filename).c_str()); string contents = read_mu_text(ingredients.at(1).at(0)); fout << contents; fout.close(); if (!exists("lesson/.git")) break; // bug in git: git diff -q messes up --exit-code // explicitly say '--all' for git 1.9 int status = system("cd lesson; git add --all .; git diff HEAD --exit-code >/dev/null || git commit -a -m . >/dev/null"); if (status != 0) raise << "error in commit: contents " << contents << '\n' << end(); break; } :(code) bool exists(const string& filename) { struct stat dummy; return 0 == stat(filename.c_str(), &dummy); }