2010-05-22 18:52:39 +02:00
|
|
|
#!/bin/sh
|
|
|
|
#
|
|
|
|
# Code generator for trace events
|
|
|
|
#
|
|
|
|
# Copyright IBM, Corp. 2010
|
|
|
|
#
|
|
|
|
# This work is licensed under the terms of the GNU GPL, version 2. See
|
|
|
|
# the COPYING file in the top-level directory.
|
|
|
|
|
|
|
|
# Disable pathname expansion, makes processing text with '*' characters simpler
|
|
|
|
set -f
|
|
|
|
|
|
|
|
usage()
|
|
|
|
{
|
|
|
|
cat >&2 <<EOF
|
2010-05-22 22:11:33 +02:00
|
|
|
usage: $0 [--nop | --simple | --ust] [-h | -c]
|
2010-05-22 18:52:39 +02:00
|
|
|
Generate tracing code for a file on stdin.
|
|
|
|
|
|
|
|
Backends:
|
2010-05-22 20:24:51 +02:00
|
|
|
--nop Tracing disabled
|
|
|
|
--simple Simple built-in backend
|
2010-05-22 22:11:33 +02:00
|
|
|
--ust LTTng User Space Tracing backend
|
2010-11-12 14:20:24 +01:00
|
|
|
--dtrace DTrace/SystemTAP backend
|
2010-05-22 18:52:39 +02:00
|
|
|
|
|
|
|
Output formats:
|
|
|
|
-h Generate .h file
|
|
|
|
-c Generate .c file
|
2010-11-12 14:20:24 +01:00
|
|
|
-d Generate .d file (DTrace only)
|
2010-05-22 18:52:39 +02:00
|
|
|
EOF
|
|
|
|
exit 1
|
|
|
|
}
|
|
|
|
|
|
|
|
# Get the name of a trace event
|
|
|
|
get_name()
|
|
|
|
{
|
|
|
|
echo ${1%%\(*}
|
|
|
|
}
|
|
|
|
|
|
|
|
# Get the argument list of a trace event, including types and names
|
|
|
|
get_args()
|
|
|
|
{
|
|
|
|
local args
|
|
|
|
args=${1#*\(}
|
2010-09-11 12:43:39 +02:00
|
|
|
args=${args%\)*}
|
2010-05-22 18:52:39 +02:00
|
|
|
echo "$args"
|
|
|
|
}
|
|
|
|
|
|
|
|
# Get the argument name list of a trace event
|
|
|
|
get_argnames()
|
|
|
|
{
|
2010-11-12 14:20:24 +01:00
|
|
|
local nfields field name sep
|
2010-05-22 18:52:39 +02:00
|
|
|
nfields=0
|
2010-11-12 14:20:24 +01:00
|
|
|
sep="$2"
|
2010-05-22 18:52:39 +02:00
|
|
|
for field in $(get_args "$1"); do
|
|
|
|
nfields=$((nfields + 1))
|
|
|
|
|
|
|
|
# Drop pointer star
|
|
|
|
field=${field#\*}
|
|
|
|
|
|
|
|
# Only argument names have commas at the end
|
|
|
|
name=${field%,}
|
|
|
|
test "$field" = "$name" && continue
|
|
|
|
|
2010-11-12 14:20:24 +01:00
|
|
|
printf "%s%s " $name $sep
|
2010-05-22 18:52:39 +02:00
|
|
|
done
|
|
|
|
|
|
|
|
# Last argument name
|
|
|
|
if [ "$nfields" -gt 1 ]
|
|
|
|
then
|
|
|
|
printf "%s" "$name"
|
|
|
|
fi
|
|
|
|
}
|
|
|
|
|
2010-05-22 20:24:51 +02:00
|
|
|
# Get the number of arguments to a trace event
|
|
|
|
get_argc()
|
|
|
|
{
|
|
|
|
local name argc
|
|
|
|
argc=0
|
2010-11-12 14:20:24 +01:00
|
|
|
for name in $(get_argnames "$1", ","); do
|
2010-05-22 20:24:51 +02:00
|
|
|
argc=$((argc + 1))
|
|
|
|
done
|
|
|
|
echo $argc
|
|
|
|
}
|
|
|
|
|
2010-05-22 18:52:39 +02:00
|
|
|
# Get the format string for a trace event
|
|
|
|
get_fmt()
|
|
|
|
{
|
|
|
|
local fmt
|
|
|
|
fmt=${1#*\"}
|
|
|
|
fmt=${fmt%\"*}
|
|
|
|
echo "$fmt"
|
|
|
|
}
|
|
|
|
|
2010-05-24 12:32:09 +02:00
|
|
|
# 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"
|
|
|
|
}
|
|
|
|
|
2010-05-22 18:52:39 +02:00
|
|
|
linetoh_begin_nop()
|
|
|
|
{
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoh_nop()
|
|
|
|
{
|
|
|
|
local name args
|
|
|
|
name=$(get_name "$1")
|
|
|
|
args=$(get_args "$1")
|
|
|
|
|
|
|
|
# Define an empty function for the trace event
|
|
|
|
cat <<EOF
|
|
|
|
static inline void trace_$name($args)
|
|
|
|
{
|
|
|
|
}
|
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoh_end_nop()
|
|
|
|
{
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_begin_nop()
|
|
|
|
{
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_nop()
|
|
|
|
{
|
|
|
|
# No need for function definitions in nop backend
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_end_nop()
|
|
|
|
{
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
2010-05-22 20:24:51 +02:00
|
|
|
linetoh_begin_simple()
|
|
|
|
{
|
|
|
|
cat <<EOF
|
|
|
|
#include "simpletrace.h"
|
|
|
|
EOF
|
|
|
|
|
|
|
|
simple_event_num=0
|
|
|
|
}
|
|
|
|
|
|
|
|
cast_args_to_uint64_t()
|
|
|
|
{
|
|
|
|
local arg
|
2010-11-12 14:20:24 +01:00
|
|
|
for arg in $(get_argnames "$1", ","); do
|
2010-05-22 20:24:51 +02:00
|
|
|
printf "%s" "(uint64_t)(uintptr_t)$arg"
|
|
|
|
done
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoh_simple()
|
|
|
|
{
|
2010-05-24 12:32:09 +02:00
|
|
|
local name args argc trace_args state
|
2010-05-22 20:24:51 +02:00
|
|
|
name=$(get_name "$1")
|
|
|
|
args=$(get_args "$1")
|
|
|
|
argc=$(get_argc "$1")
|
2010-05-24 12:32:09 +02:00
|
|
|
state=$(get_state "$1")
|
|
|
|
if [ "$state" = "0" ]; then
|
|
|
|
name=${name##disable }
|
|
|
|
fi
|
2010-05-22 20:24:51 +02:00
|
|
|
|
|
|
|
trace_args="$simple_event_num"
|
|
|
|
if [ "$argc" -gt 0 ]
|
|
|
|
then
|
|
|
|
trace_args="$trace_args, $(cast_args_to_uint64_t "$1")"
|
|
|
|
fi
|
|
|
|
|
|
|
|
cat <<EOF
|
|
|
|
static inline void trace_$name($args)
|
|
|
|
{
|
|
|
|
trace$argc($trace_args);
|
|
|
|
}
|
|
|
|
EOF
|
|
|
|
|
|
|
|
simple_event_num=$((simple_event_num + 1))
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoh_end_simple()
|
|
|
|
{
|
2010-06-24 13:34:53 +02:00
|
|
|
cat <<EOF
|
|
|
|
#define NR_TRACE_EVENTS $simple_event_num
|
|
|
|
extern TraceEvent trace_list[NR_TRACE_EVENTS];
|
|
|
|
EOF
|
2010-05-22 20:24:51 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_begin_simple()
|
|
|
|
{
|
2010-06-24 13:34:53 +02:00
|
|
|
cat <<EOF
|
|
|
|
#include "trace.h"
|
|
|
|
|
|
|
|
TraceEvent trace_list[] = {
|
|
|
|
EOF
|
|
|
|
simple_event_num=0
|
|
|
|
|
2010-05-22 20:24:51 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_simple()
|
|
|
|
{
|
2010-05-24 12:32:09 +02:00
|
|
|
local name state
|
2010-06-24 13:34:53 +02:00
|
|
|
name=$(get_name "$1")
|
2010-05-24 12:32:09 +02:00
|
|
|
state=$(get_state "$1")
|
|
|
|
if [ "$state" = "0" ] ; then
|
|
|
|
name=${name##disable }
|
|
|
|
fi
|
2010-06-24 13:34:53 +02:00
|
|
|
cat <<EOF
|
2010-05-24 12:32:09 +02:00
|
|
|
{.tp_name = "$name", .state=$state},
|
2010-06-24 13:34:53 +02:00
|
|
|
EOF
|
|
|
|
simple_event_num=$((simple_event_num + 1))
|
2010-05-22 20:24:51 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_end_simple()
|
|
|
|
{
|
2010-06-24 13:34:53 +02:00
|
|
|
cat <<EOF
|
|
|
|
};
|
|
|
|
EOF
|
2010-05-22 20:24:51 +02:00
|
|
|
}
|
|
|
|
|
2010-05-22 22:11:33 +02:00
|
|
|
# Clean up after UST headers which pollute the namespace
|
|
|
|
ust_clean_namespace() {
|
|
|
|
cat <<EOF
|
|
|
|
#undef mutex_lock
|
|
|
|
#undef mutex_unlock
|
|
|
|
#undef inline
|
|
|
|
#undef wmb
|
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoh_begin_ust()
|
|
|
|
{
|
|
|
|
echo "#include <ust/tracepoint.h>"
|
|
|
|
ust_clean_namespace
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoh_ust()
|
|
|
|
{
|
|
|
|
local name args argnames
|
|
|
|
name=$(get_name "$1")
|
|
|
|
args=$(get_args "$1")
|
2010-11-12 14:20:24 +01:00
|
|
|
argnames=$(get_argnames "$1", ",")
|
2010-05-22 22:11:33 +02:00
|
|
|
|
|
|
|
cat <<EOF
|
2010-10-05 15:28:52 +02:00
|
|
|
DECLARE_TRACE(ust_$name, TP_PROTO($args), TP_ARGS($argnames));
|
2010-05-22 22:11:33 +02:00
|
|
|
#define trace_$name trace_ust_$name
|
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoh_end_ust()
|
|
|
|
{
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_begin_ust()
|
|
|
|
{
|
|
|
|
cat <<EOF
|
|
|
|
#include <ust/marker.h>
|
|
|
|
$(ust_clean_namespace)
|
|
|
|
#include "trace.h"
|
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_ust()
|
|
|
|
{
|
|
|
|
local name args argnames fmt
|
|
|
|
name=$(get_name "$1")
|
|
|
|
args=$(get_args "$1")
|
2010-11-12 14:20:24 +01:00
|
|
|
argnames=$(get_argnames "$1", ",")
|
2010-05-22 22:11:33 +02:00
|
|
|
fmt=$(get_fmt "$1")
|
|
|
|
|
|
|
|
cat <<EOF
|
|
|
|
DEFINE_TRACE(ust_$name);
|
|
|
|
|
|
|
|
static void ust_${name}_probe($args)
|
|
|
|
{
|
|
|
|
trace_mark(ust, $name, "$fmt", $argnames);
|
|
|
|
}
|
|
|
|
EOF
|
|
|
|
|
|
|
|
# Collect names for later
|
|
|
|
names="$names $name"
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_end_ust()
|
|
|
|
{
|
|
|
|
cat <<EOF
|
|
|
|
static void __attribute__((constructor)) trace_init(void)
|
|
|
|
{
|
|
|
|
EOF
|
|
|
|
|
|
|
|
for name in $names; do
|
|
|
|
cat <<EOF
|
|
|
|
register_trace_ust_$name(ust_${name}_probe);
|
|
|
|
EOF
|
|
|
|
done
|
|
|
|
|
|
|
|
echo "}"
|
|
|
|
}
|
|
|
|
|
2010-11-12 14:20:24 +01:00
|
|
|
linetoh_begin_dtrace()
|
|
|
|
{
|
|
|
|
cat <<EOF
|
|
|
|
#include "trace-dtrace.h"
|
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoh_dtrace()
|
|
|
|
{
|
|
|
|
local name args argnames state nameupper
|
|
|
|
name=$(get_name "$1")
|
|
|
|
args=$(get_args "$1")
|
|
|
|
argnames=$(get_argnames "$1", ",")
|
|
|
|
state=$(get_state "$1")
|
|
|
|
if [ "$state" = "0" ] ; then
|
|
|
|
name=${name##disable }
|
|
|
|
fi
|
|
|
|
|
|
|
|
nameupper=`echo $name | tr '[:lower:]' '[:upper:]'`
|
|
|
|
|
|
|
|
# Define an empty function for the trace event
|
|
|
|
cat <<EOF
|
|
|
|
static inline void trace_$name($args) {
|
|
|
|
if (QEMU_${nameupper}_ENABLED()) {
|
|
|
|
QEMU_${nameupper}($argnames);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoh_end_dtrace()
|
|
|
|
{
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_begin_dtrace()
|
|
|
|
{
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_dtrace()
|
|
|
|
{
|
|
|
|
# No need for function definitions in dtrace backend
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
linetoc_end_dtrace()
|
|
|
|
{
|
|
|
|
return
|
|
|
|
}
|
|
|
|
|
|
|
|
linetod_begin_dtrace()
|
|
|
|
{
|
|
|
|
cat <<EOF
|
|
|
|
provider qemu {
|
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
|
|
|
linetod_dtrace()
|
|
|
|
{
|
|
|
|
local name args state
|
|
|
|
name=$(get_name "$1")
|
|
|
|
args=$(get_args "$1")
|
|
|
|
state=$(get_state "$1")
|
|
|
|
if [ "$state" = "0" ] ; then
|
|
|
|
name=${name##disable }
|
|
|
|
fi
|
|
|
|
|
|
|
|
# DTrace provider syntax expects foo() for empty
|
|
|
|
# params, not foo(void)
|
|
|
|
if [ "$args" = "void" ]; then
|
|
|
|
args=""
|
|
|
|
fi
|
|
|
|
|
|
|
|
# Define prototype for probe arguments
|
|
|
|
cat <<EOF
|
|
|
|
probe $name($args);
|
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
|
|
|
linetod_end_dtrace()
|
|
|
|
{
|
|
|
|
cat <<EOF
|
|
|
|
};
|
|
|
|
EOF
|
|
|
|
}
|
|
|
|
|
2010-05-22 18:52:39 +02:00
|
|
|
# Process stdin by calling begin, line, and end functions for the backend
|
|
|
|
convert()
|
|
|
|
{
|
2010-05-24 12:32:09 +02:00
|
|
|
local begin process_line end str disable
|
2010-05-22 18:52:39 +02:00
|
|
|
begin="lineto$1_begin_$backend"
|
|
|
|
process_line="lineto$1_$backend"
|
|
|
|
end="lineto$1_end_$backend"
|
|
|
|
|
|
|
|
"$begin"
|
|
|
|
|
|
|
|
while read -r str; do
|
|
|
|
# Skip comments and empty lines
|
2010-10-05 15:28:51 +02:00
|
|
|
test -z "${str%%#*}" && continue
|
2010-05-22 18:52:39 +02:00
|
|
|
|
2010-05-24 12:32:09 +02:00
|
|
|
# Process the line. The nop backend handles disabled lines.
|
|
|
|
disable=${str%%disable *}
|
2010-05-22 18:52:39 +02:00
|
|
|
echo
|
2010-05-24 12:32:09 +02:00
|
|
|
if test -z "$disable"; then
|
2010-11-12 14:20:24 +01:00
|
|
|
# Pass the disabled state as an arg for the simple
|
|
|
|
# or DTrace backends which handle it dynamically.
|
|
|
|
# For all other backends, call lineto$1_nop()
|
|
|
|
if [ $backend = "simple" -o "$backend" = "dtrace" ]; then
|
2010-05-24 12:32:09 +02:00
|
|
|
"$process_line" "$str"
|
|
|
|
else
|
|
|
|
"lineto$1_nop" "${str##disable }"
|
|
|
|
fi
|
|
|
|
else
|
|
|
|
"$process_line" "$str"
|
|
|
|
fi
|
2010-05-22 18:52:39 +02:00
|
|
|
done
|
|
|
|
|
|
|
|
echo
|
|
|
|
"$end"
|
|
|
|
}
|
|
|
|
|
|
|
|
tracetoh()
|
|
|
|
{
|
|
|
|
cat <<EOF
|
|
|
|
#ifndef TRACE_H
|
|
|
|
#define TRACE_H
|
|
|
|
|
|
|
|
/* This file is autogenerated by tracetool, do not edit. */
|
|
|
|
|
|
|
|
#include "qemu-common.h"
|
|
|
|
EOF
|
|
|
|
convert h
|
|
|
|
echo "#endif /* TRACE_H */"
|
|
|
|
}
|
|
|
|
|
|
|
|
tracetoc()
|
|
|
|
{
|
|
|
|
echo "/* This file is autogenerated by tracetool, do not edit. */"
|
|
|
|
convert c
|
|
|
|
}
|
|
|
|
|
2010-11-12 14:20:24 +01:00
|
|
|
tracetod()
|
|
|
|
{
|
|
|
|
if [ $backend != "dtrace" ]; then
|
|
|
|
echo "DTrace probe generator not applicable to $backend backend"
|
|
|
|
exit 1
|
|
|
|
fi
|
|
|
|
echo "/* This file is autogenerated by tracetool, do not edit. */"
|
|
|
|
convert d
|
|
|
|
}
|
|
|
|
|
2010-05-22 18:52:39 +02:00
|
|
|
# Choose backend
|
|
|
|
case "$1" in
|
2010-11-12 14:20:24 +01:00
|
|
|
"--nop" | "--simple" | "--ust" | "--dtrace") backend="${1#--}" ;;
|
2010-05-22 18:52:39 +02:00
|
|
|
*) usage ;;
|
|
|
|
esac
|
|
|
|
shift
|
|
|
|
|
|
|
|
case "$1" in
|
|
|
|
"-h") tracetoh ;;
|
|
|
|
"-c") tracetoc ;;
|
2010-11-12 14:20:24 +01:00
|
|
|
"-d") tracetod ;;
|
2010-05-22 18:52:39 +02:00
|
|
|
"--check-backend") exit 0 ;; # used by ./configure to test for backend
|
|
|
|
*) usage ;;
|
|
|
|
esac
|
|
|
|
|
|
|
|
exit 0
|