1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
// logging tapset
// Copyright (C) 2005, 2006, 2007 Red Hat Inc.
//
// This file is part of systemtap, and is free software. You can
// redistribute it and/or modify it under the terms of the GNU General
// Public License (GPL); either version 2, or (at your option) any
// later version.
/**
* sfunction log - Send a line to the common trace buffer.
* @msg: The formatted message string.
*
* Description: An implicit end-of-line is added.
* Same as println() with a single string argument.
*/
function log (msg:string) %{ /* unprivileged */
_stp_printf ("%s\n", THIS->msg);
%}
/**
* sfunction warn - Send a line to the warning stream.
* @msg: The formatted message string.
*
* Description: An implicit end-of-line is added. staprun
* prepends the string "WARNING:".
*/
function warn (msg:string) %{ /* unprivileged */
_stp_warn ("%s", THIS->msg);
%}
/**
* sfunction exit - Start shutting down probing script.
*
* Description: This only enqueues a request to start
* shutting down the script. New probes will not fire
* (except "end" probes), but all currently
* running ones may complete their work.
*/
function exit () %{ /* unprivileged */
atomic_set (&session_state, STAP_SESSION_STOPPING);
_stp_exit ();
%}
/**
* sfunction error - Send an error message.
* @msg: The formatted message string.
*
* Description: An implicit end-of-line is added. staprun prepends
* the string "ERROR:". Sending an error message aborts the currently
* running probe. Depending on the MAXERRORS parameter, it may
* trigger an exit().
*/
function error (msg:string) %{ /* unprivileged */
/* This is an assignment of a local char[] to a global char*.
It would normally be just as unsafe as returning a pointer to
a local variable from a function. However, the translated
code ensures that upon an error (last_error != NULL), the
context stack is only ever unwound, and not reused, before
the probe-level stp-error call. */
CONTEXT->last_error = THIS->msg;
CONTEXT->last_stmt = NULL;
%}
function stp_print_binary(n:long, arg1:long, arg2:long, arg3:long, arg4:long) %{
_stp_print_binary (THIS->n, THIS->arg1, THIS->arg2, THIS->arg3, THIS->arg4);
%}
/**
* sfunction ftrace - Send a message to the ftrace ring-buffer (or else printk).
* @msg: The formatted message string.
*
* Description: If the ftrace ring-buffer is configured & available,
* see /debugfs/tracing/trace for the message. Otherwise, the
* message may be quietly dropped. An implicit end-of-line is added.
*/
function ftrace (msg:string) %{ /* unprivileged */
#ifdef STAPCONF_TRACE_PRINTK
static char *fmt = "%s\n";
trace_printk (fmt, THIS->msg);
/* The "fmt" is designed to be non __builtin_constant_p(), so as
to defeat trace_printk -> __trace_bprintk optimization. That's
because bprintk doesn't save the incoming strings, only their
addresses. */
#else
/* printk(KERN_DEBUG "%s\n", THIS->msg); */
#endif
%}
|