2012-04-03 22:48:12 +04:00
|
|
|
# -*- coding: utf-8 -*-
|
|
|
|
|
|
|
|
"""
|
2014-02-23 23:37:30 +04:00
|
|
|
trace/generated-tracers.dtrace (DTrace only).
|
2012-04-03 22:48:12 +04:00
|
|
|
"""
|
|
|
|
|
|
|
|
__author__ = "Lluís Vilanova <vilanova@ac.upc.edu>"
|
2014-02-23 23:37:30 +04:00
|
|
|
__copyright__ = "Copyright 2012-2014, Lluís Vilanova <vilanova@ac.upc.edu>"
|
2012-04-03 22:48:12 +04:00
|
|
|
__license__ = "GPL version 2 or (at your option) any later version"
|
|
|
|
|
|
|
|
__maintainer__ = "Stefan Hajnoczi"
|
2020-05-11 11:28:16 +03:00
|
|
|
__email__ = "stefanha@redhat.com"
|
2012-04-03 22:48:12 +04:00
|
|
|
|
|
|
|
|
|
|
|
from tracetool import out
|
2020-07-17 12:35:14 +03:00
|
|
|
from sys import platform
|
2012-04-03 22:48:12 +04:00
|
|
|
|
|
|
|
|
2014-08-14 14:39:23 +04:00
|
|
|
# Reserved keywords from
|
|
|
|
# https://wikis.oracle.com/display/DTrace/Types,+Operators+and+Expressions
|
|
|
|
RESERVED_WORDS = (
|
|
|
|
'auto', 'goto', 'sizeof', 'break', 'if', 'static', 'case', 'import',
|
|
|
|
'string', 'char', 'inline', 'stringof', 'const', 'int', 'struct',
|
|
|
|
'continue', 'long', 'switch', 'counter', 'offsetof', 'this',
|
|
|
|
'default', 'probe', 'translator', 'do', 'provider', 'typedef',
|
|
|
|
'double', 'register', 'union', 'else', 'restrict', 'unsigned',
|
|
|
|
'enum', 'return', 'void', 'extern', 'self', 'volatile', 'float',
|
|
|
|
'short', 'while', 'for', 'signed', 'xlate',
|
|
|
|
)
|
|
|
|
|
|
|
|
|
2016-10-04 16:35:59 +03:00
|
|
|
def generate(events, backend, group):
|
2014-02-23 23:37:40 +04:00
|
|
|
events = [e for e in events
|
|
|
|
if "disable" not in e.properties]
|
|
|
|
|
2019-03-21 20:08:31 +03:00
|
|
|
# SystemTap's dtrace(1) warns about empty "provider qemu {}" but is happy
|
|
|
|
# with an empty file. Avoid the warning.
|
2020-07-17 12:35:14 +03:00
|
|
|
# But dtrace on macOS can't deal with empty files.
|
|
|
|
if not events and platform != "darwin":
|
2019-03-21 20:08:31 +03:00
|
|
|
return
|
|
|
|
|
2014-02-23 23:37:40 +04:00
|
|
|
out('/* This file is autogenerated by tracetool, do not edit. */'
|
|
|
|
'',
|
|
|
|
'provider qemu {')
|
|
|
|
|
|
|
|
for e in events:
|
2014-08-14 14:39:23 +04:00
|
|
|
args = []
|
|
|
|
for type_, name in e.args:
|
2020-07-17 12:35:14 +03:00
|
|
|
if platform == "darwin":
|
|
|
|
# macOS dtrace accepts only C99 _Bool
|
|
|
|
if type_ == 'bool':
|
|
|
|
type_ = '_Bool'
|
|
|
|
if type_ == 'bool *':
|
|
|
|
type_ = '_Bool *'
|
|
|
|
# It converts int8_t * in probe points to char * in header
|
|
|
|
# files and introduces [-Wpointer-sign] warning.
|
|
|
|
# Avoid it by changing probe type to signed char * beforehand.
|
|
|
|
if type_ == 'int8_t *':
|
|
|
|
type_ = 'signed char *'
|
2020-10-20 12:40:43 +03:00
|
|
|
|
|
|
|
# SystemTap dtrace(1) emits a warning when long long is used
|
|
|
|
type_ = type_.replace('unsigned long long', 'uint64_t')
|
|
|
|
type_ = type_.replace('signed long long', 'int64_t')
|
|
|
|
type_ = type_.replace('long long', 'int64_t')
|
|
|
|
|
2014-08-14 14:39:23 +04:00
|
|
|
if name in RESERVED_WORDS:
|
|
|
|
name += '_'
|
|
|
|
args.append(type_ + ' ' + name)
|
2014-02-23 23:37:40 +04:00
|
|
|
|
|
|
|
# Define prototype for probe arguments
|
|
|
|
out('',
|
|
|
|
'probe %(name)s(%(args)s);',
|
|
|
|
name=e.name,
|
2014-08-14 14:39:23 +04:00
|
|
|
args=','.join(args))
|
2014-02-23 23:37:40 +04:00
|
|
|
|
|
|
|
out('',
|
|
|
|
'};')
|