Lluís Vilanova | 52ef093 | 2012-04-03 20:48:12 +0200 | [diff] [blame] | 1 | # -*- coding: utf-8 -*- |
| 2 | |
| 3 | """ |
| 4 | Generate .stp file (DTrace with SystemTAP only). |
| 5 | """ |
| 6 | |
| 7 | __author__ = "Lluís Vilanova <vilanova@ac.upc.edu>" |
Lluís Vilanova | 1dad2ce | 2014-02-23 20:37:40 +0100 | [diff] [blame] | 8 | __copyright__ = "Copyright 2012-2014, Lluís Vilanova <vilanova@ac.upc.edu>" |
Lluís Vilanova | 52ef093 | 2012-04-03 20:48:12 +0200 | [diff] [blame] | 9 | __license__ = "GPL version 2 or (at your option) any later version" |
| 10 | |
| 11 | __maintainer__ = "Stefan Hajnoczi" |
Philippe Mathieu-Daudé | f892b49 | 2020-05-11 10:28:16 +0200 | [diff] [blame] | 12 | __email__ = "stefanha@redhat.com" |
Lluís Vilanova | 52ef093 | 2012-04-03 20:48:12 +0200 | [diff] [blame] | 13 | |
| 14 | |
| 15 | from tracetool import out |
Lluís Vilanova | 1dad2ce | 2014-02-23 20:37:40 +0100 | [diff] [blame] | 16 | from tracetool.backend.dtrace import binary, probeprefix |
Lluís Vilanova | 52ef093 | 2012-04-03 20:48:12 +0200 | [diff] [blame] | 17 | |
| 18 | |
Lluís Vilanova | 1dad2ce | 2014-02-23 20:37:40 +0100 | [diff] [blame] | 19 | # Technically 'self' is not used by systemtap yet, but |
| 20 | # they recommended we keep it in the reserved list anyway |
| 21 | RESERVED_WORDS = ( |
| 22 | 'break', 'catch', 'continue', 'delete', 'else', 'for', |
| 23 | 'foreach', 'function', 'global', 'if', 'in', 'limit', |
| 24 | 'long', 'next', 'probe', 'return', 'self', 'string', |
| 25 | 'try', 'while' |
| 26 | ) |
| 27 | |
| 28 | |
Stefan Hajnoczi | a76ccf3 | 2014-06-22 21:46:04 +0800 | [diff] [blame] | 29 | def stap_escape(identifier): |
| 30 | # Append underscore to reserved keywords |
| 31 | if identifier in RESERVED_WORDS: |
| 32 | return identifier + '_' |
| 33 | return identifier |
| 34 | |
| 35 | |
Daniel P. Berrange | 80dd5c4 | 2016-10-04 14:35:59 +0100 | [diff] [blame] | 36 | def generate(events, backend, group): |
Lluís Vilanova | 1dad2ce | 2014-02-23 20:37:40 +0100 | [diff] [blame] | 37 | events = [e for e in events |
| 38 | if "disable" not in e.properties] |
| 39 | |
| 40 | out('/* This file is autogenerated by tracetool, do not edit. */', |
| 41 | '') |
| 42 | |
| 43 | for e in events: |
| 44 | # Define prototype for probe arguments |
| 45 | out('probe %(probeprefix)s.%(name)s = process("%(binary)s").mark("%(name)s")', |
| 46 | '{', |
| 47 | probeprefix=probeprefix(), |
| 48 | name=e.name, |
| 49 | binary=binary()) |
| 50 | |
| 51 | i = 1 |
| 52 | if len(e.args) > 0: |
| 53 | for name in e.args.names(): |
Stefan Hajnoczi | a76ccf3 | 2014-06-22 21:46:04 +0800 | [diff] [blame] | 54 | name = stap_escape(name) |
Lluís Vilanova | 1dad2ce | 2014-02-23 20:37:40 +0100 | [diff] [blame] | 55 | out(' %s = $arg%d;' % (name, i)) |
| 56 | i += 1 |
| 57 | |
| 58 | out('}') |
| 59 | |
| 60 | out() |