1308

1 files changed, 13 insertions, 0 deletions

diff --git a/038scheduler.cc b/038scheduler.cc
index 012a1761..00d37371 100644
--- a/038scheduler.cc
+++ b/038scheduler.cc
@@ -51,6 +51,7 @@ void run(recipe_number r) {
     assert(Current_routine);
     assert(Current_routine->state == RUNNING);
     trace("schedule") << current_recipe_name();
+//?     trace("schedule") << Current_routine->id << " " << current_recipe_name(); //? 1
     run_current_routine(Scheduling_interval);
     if (Current_routine->completed())
       Current_routine->state = COMPLETED;
@@ -257,3 +258,15 @@ case RESTART: {
   }
   break;
 }
+
+:(before "End Primitive Recipe Declarations")
+_DUMP_ROUTINES,
+:(before "End Primitive Recipe Numbers")
+Recipe_number["$dump-routines"] = _DUMP_ROUTINES;
+:(before "End Primitive Recipe Implementations")
+case _DUMP_ROUTINES: {
+  for (index_t i = 0; i < Routines.size(); ++i) {
+    cerr << Routines.at(i)->id << ": " << Routines.at(i)->state << '\n';
+  }
+  break;
+}