From patchwork Mon Apr 4 21:49:13 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: =?utf-8?Q?Llu=C3=ADs?= X-Patchwork-Id: 89717 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from lists.gnu.org (lists.gnu.org [199.232.76.165]) by ozlabs.org (Postfix) with ESMTP id 08DDCB6F87 for ; Tue, 5 Apr 2011 08:02:05 +1000 (EST) Received: from localhost ([127.0.0.1]:38700 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q6rlC-0007fG-Pj for incoming@patchwork.ozlabs.org; Mon, 04 Apr 2011 17:56:34 -0400 Received: from [140.186.70.92] (port=37958 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q6res-0004u9-3I for qemu-devel@nongnu.org; Mon, 04 Apr 2011 17:50:03 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Q6reo-0005hD-B1 for qemu-devel@nongnu.org; Mon, 04 Apr 2011 17:49:59 -0400 Received: from mailout-de.gmx.net ([213.165.64.23]:56329) by eggs.gnu.org with smtp (Exim 4.71) (envelope-from ) id 1Q6ren-0005f4-VL for qemu-devel@nongnu.org; Mon, 04 Apr 2011 17:49:58 -0400 Received: (qmail invoked by alias); 04 Apr 2011 21:49:55 -0000 Received: from unknown (EHLO localhost) [84.88.53.92] by mail.gmx.net (mp069) with SMTP; 04 Apr 2011 23:49:55 +0200 X-Authenticated: #12333383 X-Provags-ID: V01U2FsdGVkX19W4FpJ/n5WFNFEf0nsoeH0Ib1EaCqmi/6E0jpcR0 EydeBr3qBNpcVy To: qemu-devel@nongnu.org From: =?utf-8?b?TGx1w61z?= Date: Mon, 04 Apr 2011 23:49:13 +0200 Message-ID: <20110404214913.9761.67286.stgit@ginnungagap.bsc.es> In-Reply-To: <20110404214900.9761.49418.stgit@ginnungagap.bsc.es> References: <20110404214900.9761.49418.stgit@ginnungagap.bsc.es> User-Agent: StGit/0.15 MIME-Version: 1.0 X-Y-GMX-Trusted: 0 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 213.165.64.23 Cc: stefanha@gmail.com Subject: [Qemu-devel] [PATCH 2/6] trace: generalize the "property" concept in the trace-events file X-BeenThere: qemu-devel@nongnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: qemu-devel.nongnu.org List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: qemu-devel-bounces+incoming=patchwork.ozlabs.org@nongnu.org Errors-To: qemu-devel-bounces+incoming=patchwork.ozlabs.org@nongnu.org This adds/modifies the following functions: * get_name: Get _only_ the event name * has_property: Return whether an event has a property (keyword before the event name) Signed-off-by: Lluís Vilanova --- docs/tracing.txt | 4 +-- scripts/tracetool | 73 ++++++++++++++++++++++++----------------------------- 2 files changed, 35 insertions(+), 42 deletions(-) diff --git a/docs/tracing.txt b/docs/tracing.txt index f15069c..5dbd3c0 100644 --- a/docs/tracing.txt +++ b/docs/tracing.txt @@ -98,7 +98,7 @@ portability macros, ensure they are preceded and followed by double quotes: 4. Name trace events after their function. If there are multiple trace events in one function, append a unique distinguisher at the end of the name. -5. Declare trace events with the "disable" keyword. Some trace events can +5. Declare trace events with the "disable" property. Some trace events can produce a lot of output and users are typically only interested in a subset of trace events. Marking trace events disabled by default saves the user from having to manually disable noisy trace events. @@ -168,7 +168,7 @@ The st_change_trace_event_state() function can be used to enable or disable trac events at runtime inside QEMU: #include "trace.h" - + st_change_trace_event_state("virtio_irq", true); /* enable */ [...] st_change_trace_event_state("virtio_irq", false); /* disable */ diff --git a/scripts/tracetool b/scripts/tracetool index d88cb43..6d8ead2 100755 --- a/scripts/tracetool +++ b/scripts/tracetool @@ -43,7 +43,26 @@ EOF # Get the name of a trace event get_name() { - echo ${1%%\(*} + local name + name=${1%%\(*} + echo "${name##* }" +} + +# Get the given property of a trace event +# 1: trace-events line +# 2: property name +# -> return 0 if property is present, or 1 otherwise +has_property() +{ + local props prop + props=${1%%\(*} + props=${props% *} + for prop in $props; do + if [ "$prop" = "$2" ]; then + return 0 + fi + done + return 1 } # Get the argument list of a trace event, including types and names @@ -101,20 +120,6 @@ get_fmt() echo "$fmt" } -# Get the state of a trace event -get_state() -{ - local str disable state - str=$(get_name "$1") - disable=${str##disable } - if [ "$disable" = "$str" ] ; then - state=1 - else - state=0 - fi - echo "$state" -} - linetoh_begin_nop() { return @@ -174,14 +179,10 @@ cast_args_to_uint64_t() linetoh_simple() { - local name args argc trace_args state + local name args argc trace_args name=$(get_name "$1") args=$(get_args "$1") argc=$(get_argc "$1") - state=$(get_state "$1") - if [ "$state" = "0" ]; then - name=${name##disable } - fi trace_args="$simple_event_num" if [ "$argc" -gt 0 ] @@ -222,9 +223,10 @@ linetoc_simple() { local name state name=$(get_name "$1") - state=$(get_state "$1") - if [ "$state" = "0" ] ; then - name=${name##disable } + if has_property "$1" "disable"; then + state="0" + else + state="1" fi cat <