From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Jackson Subject: [OSSTEST PATCH 11/13] Planner: ms-queuedaemon: Break out notify-to-think Date: Wed, 2 Sep 2015 16:45:17 +0100 Message-ID: <1441208719-31336-12-git-send-email-ian.jackson@eu.citrix.com> References: <1441208719-31336-1-git-send-email-ian.jackson@eu.citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from mail6.bemta14.messagelabs.com ([193.109.254.103]) by lists.xen.org with esmtp (Exim 4.72) (envelope-from ) id 1ZXAJZ-00026Q-FN for xen-devel@lists.xenproject.org; Wed, 02 Sep 2015 15:51:09 +0000 In-Reply-To: <1441208719-31336-1-git-send-email-ian.jackson@eu.citrix.com> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: xen-devel@lists.xenproject.org Cc: Ian Jackson , Ian Campbell List-Id: xen-devel@lists.xenproject.org This is going to want to do something more complicated shortly. Signed-off-by: Ian Jackson --- ms-queuedaemon | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/ms-queuedaemon b/ms-queuedaemon index 1def285..0158048 100755 --- a/ms-queuedaemon +++ b/ms-queuedaemon @@ -268,9 +268,8 @@ proc queuerun-perhaps-step {w} { set thinking_after [after [expr {$c(QueueThoughtsTimeout) * 1000}] \ queue-thoughts-timedout $w] - for-chan $thinking { - puts-chan $thinking "!OK think" - } + + notify-to-think $w $thinking } proc report-plan {w} { @@ -379,6 +378,12 @@ proc cmd/unwait {chan desc} { puts-chan $chan "OK unwait $res" } +proc notify-to-think {w thinking} { + for-chan $thinking { + puts-chan $thinking "!OK think" + } +} + #---------- general stuff ---------- proc banner {chan} { -- 1.7.10.4