2003-10-07 Dave Brolley <brolley@redhat.com>

        For Graydon Hoare  <graydon@redhat.com>
        * configrun-sid.in: Add --tksched option for scheduler control panel.

diff --git a/sid/bsp/ChangeLog b/sid/bsp/ChangeLog
index 4d586d4..1e34d8e 100644 (file)
--- a/sid/bsp/ChangeLog
+++ b/sid/bsp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-07  Dave Brolley  <brolley@redhat.com>
+
+       For Graydon Hoare  <graydon@redhat.com>
+       * configrun-sid.in: Add --tksched option for scheduler control panel.
+
 2001-12-27  Frank Ch. Eigler  <fche@redhat.com>
 
        * configrun-sid.in: Make cpu<->sched pin connections for time queries.

diff --git a/sid/bsp/configrun-sid.in b/sid/bsp/configrun-sid.in
index 4184302..55f6088 100644 (file)
--- a/sid/bsp/configrun-sid.in
+++ b/sid/bsp/configrun-sid.in
@@ -120,6 +120,7 @@ $load_mapper_data = "cpu-mapper access-port";
            "gdbport=i%" => ["gdbport PROCESSOR=PORT", "Add a gdb/debugger interface on TCP port", "",
                             "for the given processor. May be specified",
                             "more than once to debug multiple CPUs.      [none]"],
+           "tksched!" => ["tksched", "Add a simple visual scheduler controller.", "no"],
            "tksm!" => ["tksm", "Add an experimental Tk system monitor.", "no"],
            "board=s" => ["board=BOARD", "Model given board or system.", "gloss"],
            "engine=s" => ["engine=scache|pbb", "Set given cgen CPU engine.", "pbb"],
@@ -1207,6 +1208,18 @@ connect-pin host-sched 7-event -> sidaudio poll
 ";
   }
 
+# --tksched
+if ($opt_tksched != 0)
+  {
+    $any_tcl = 1;
+
+    $first_section .= "# tk visual scheduler controller\n" .
+      &sidconf_new("sid-visual-sched", "tksched") . "\n";
+
+    $second_section .= "# tk system monitor
+relate tksched scheduler target-sched
+";
+  }
 
 # any tcl stuff?
 if ($any_tcl)