From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 32019 invoked by alias); 21 Oct 2003 17:03:22 -0000 Mailing-List: contact sid-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: sid-owner@sources.redhat.com Received: (qmail 32009 invoked from network); 21 Oct 2003 17:03:21 -0000 Received: from unknown (HELO touchme.toronto.redhat.com) (207.219.125.105) by sources.redhat.com with SMTP; 21 Oct 2003 17:03:21 -0000 Received: from redhat.com (topaz.toronto.redhat.com [172.16.14.227]) by touchme.toronto.redhat.com (Postfix) with ESMTP id 4546A80040B; Tue, 21 Oct 2003 13:03:21 -0400 (EDT) Message-ID: <3F9566D8.8050500@redhat.com> Date: Tue, 21 Oct 2003 17:03:00 -0000 From: Dave Brolley Organization: Red Hat Canada, Ltd User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.2) Gecko/20021216 X-Accept-Language: en-us, en MIME-Version: 1.0 To: "Frank Ch. Eigler" , sid@sources.redhat.com Subject: Re: [patch][rfa] --tksched option for configrun-sid.in References: <3F95600D.30602@redhat.com> <20031021165818.GD19126@redhat.com> Content-Type: multipart/mixed; boundary="------------020607050805090403050607" X-SW-Source: 2003-q4/txt/msg00014.txt.bz2 This is a multi-part message in MIME format. --------------020607050805090403050607 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit Content-length: 353 Frank Ch. Eigler wrote: >Hi - > > > >>This is the first of several patches which have arisen out of some work >>we've been doing on a yet-to-be-released port. [...] >> >> > >I think you sent the wrong patch (one related logging). >Anyway it's okay. > > Ooops....here's the correct patch. That logging one is old and already committed. Dave --------------020607050805090403050607 Content-Type: text/plain; name="tksched.patch.txt" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="tksched.patch.txt" Content-length: 3253 Index: sid/bsp/configrun-sid.in =================================================================== RCS file: /cvs/src/src/sid/bsp/configrun-sid.in,v retrieving revision 1.34 diff -c -p -r1.34 configrun-sid.in *** sid/bsp/configrun-sid.in 28 Dec 2001 21:16:48 -0000 1.34 --- sid/bsp/configrun-sid.in 21 Oct 2003 16:20:53 -0000 *************** $load_mapper_data = "cpu-mapper access-p *** 120,125 **** --- 120,126 ---- "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"], *************** connect-pin host-sched 7-event -> sidaud *** 1207,1212 **** --- 1208,1225 ---- "; } + # --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) Index: sid/component/sched/sid-visual-sched.tk =================================================================== RCS file: /cvs/src/src/sid/component/sched/sid-visual-sched.tk,v retrieving revision 1.2 diff -c -p -r1.2 sid-visual-sched.tk *** sid/component/sched/sid-visual-sched.tk 8 Jan 2003 03:49:50 -0000 1.2 --- sid/component/sched/sid-visual-sched.tk 21 Oct 2003 16:20:55 -0000 *************** proc get_sub {sched n} { *** 20,42 **** proc set_sub {sched n pair} { set time [lindex $pair 0] set regular [lindex $pair 1] ! set time [sid::component::set_attribute_value $sched $n-time $time] ! set regular [sid::component::set_attribute_value $sched $n-regular? $regular] ! } ! ! ! proc set_enable {sched flag} { ! sid::component::set_attribute_value $sched enabled? $flag } proc toggle_subscription {sched n} { global saved_subs - set_enable $sched 0 set new_sub $saved_subs($sched,$n) set saved_subs($sched,$n) [get_sub $sched $n] set_sub $sched $n $new_sub - set_enable $sched 1 } --- 20,42 ---- proc set_sub {sched n pair} { set time [lindex $pair 0] set regular [lindex $pair 1] ! if {$time} { ! # time is nonzero, so set regular *first* and then time ! set regular [sid::component::set_attribute_value $sched $n-regular? $regular] ! set time [sid::component::set_attribute_value $sched $n-time $time] ! } else { ! # time is zero, so disable time *first* and then set regular ! set time [sid::component::set_attribute_value $sched $n-time $time] ! set regular [sid::component::set_attribute_value $sched $n-regular? $regular] ! } } proc toggle_subscription {sched n} { global saved_subs set new_sub $saved_subs($sched,$n) set saved_subs($sched,$n) [get_sub $sched $n] set_sub $sched $n $new_sub } --------------020607050805090403050607--