File manager

File manager - Edit - /usr/share/tcl8.6/tclDTrace.d

Back
/* * tclDTrace.d -- * * Tcl DTrace provider. * * Copyright (c) 2007-2008 Daniel A. Steffen <das@users.sourceforge.net> * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. / typedef struct Tcl_Obj Tcl_Obj; typedef const char TclDTraceStr; /* * Tcl DTrace probes / provider tcl { /************************** proc probes **************************/ / * tcl:::proc-entry probe triggered immediately before proc bytecode execution * arg0: proc name (string) * arg1: number of arguments (int) * arg2: array of proc argument objects (Tcl_Obj*) / probe proc__entry(TclDTraceStr name, int objc, struct Tcl_Obj *objv); / * tcl:::proc-return probe triggered immediately after proc bytecode execution * arg0: proc name (string) * arg1: return code (int) / probe proc__return(TclDTraceStr name, int code); / * tcl:::proc-result probe triggered after proc-return probe and result processing * arg0: proc name (string) * arg1: return code (int) * arg2: proc result (string) * arg3: proc result object (Tcl_Obj) / probe proc__result(TclDTraceStr name, int code, TclDTraceStr result, struct Tcl_Obj resultobj); / * tcl:::proc-args probe triggered before proc-entry probe, gives access to string * representation of proc arguments * arg0: proc name (string) * arg1-arg9: proc arguments or NULL (strings) / probe proc__args(TclDTraceStr name, TclDTraceStr arg1, TclDTraceStr arg2, TclDTraceStr arg3, TclDTraceStr arg4, TclDTraceStr arg5, TclDTraceStr arg6, TclDTraceStr arg7, TclDTraceStr arg8, TclDTraceStr arg9); / * tcl:::proc-info probe triggered before proc-entry probe, gives access to TIP 280 * information for the proc invocation (i.e. [info frame 0]) * arg0: TIP 280 cmd (string) * arg1: TIP 280 type (string) * arg2: TIP 280 proc (string) * arg3: TIP 280 file (string) * arg4: TIP 280 line (int) * arg5: TIP 280 level (int) * arg6: TclOO method (string) * arg7: TclOO class/object (string) / probe proc__info(TclDTraceStr cmd, TclDTraceStr type, TclDTraceStr proc, TclDTraceStr file, int line, int level, TclDTraceStr method, TclDTraceStr class); /************************** cmd probes ***************************/ / * tcl:::cmd-entry probe triggered immediately before commmand execution * arg0: command name (string) * arg1: number of arguments (int) * arg2: array of command argument objects (Tcl_Obj*) / probe cmd__entry(TclDTraceStr name, int objc, struct Tcl_Obj *objv); / * tcl:::cmd-return probe triggered immediately after commmand execution * arg0: command name (string) * arg1: return code (int) / probe cmd__return(TclDTraceStr name, int code); / * tcl:::cmd-result probe triggered after cmd-return probe and result processing * arg0: command name (string) * arg1: return code (int) * arg2: command result (string) * arg3: command result object (Tcl_Obj) / probe cmd__result(TclDTraceStr name, int code, TclDTraceStr result, struct Tcl_Obj resultobj); / * tcl:::cmd-args probe triggered before cmd-entry probe, gives access to string * representation of command arguments * arg0: command name (string) * arg1-arg9: command arguments or NULL (strings) / probe cmd__args(TclDTraceStr name, TclDTraceStr arg1, TclDTraceStr arg2, TclDTraceStr arg3, TclDTraceStr arg4, TclDTraceStr arg5, TclDTraceStr arg6, TclDTraceStr arg7, TclDTraceStr arg8, TclDTraceStr arg9); / * tcl:::cmd-info probe triggered before cmd-entry probe, gives access to TIP 280 * information for the command invocation (i.e. [info frame 0]) * arg0: TIP 280 cmd (string) * arg1: TIP 280 type (string) * arg2: TIP 280 proc (string) * arg3: TIP 280 file (string) * arg4: TIP 280 line (int) * arg5: TIP 280 level (int) * arg6: TclOO method (string) * arg7: TclOO class/object (string) / probe cmd__info(TclDTraceStr cmd, TclDTraceStr type, TclDTraceStr proc, TclDTraceStr file, int line, int level, TclDTraceStr method, TclDTraceStr class); /************************** inst probes **************************/ / * tcl:::inst-start probe triggered immediately before execution of a bytecode * arg0: bytecode name (string) * arg1: depth of stack (int) * arg2: top of stack (Tcl_Obj*) / probe inst__start(TclDTraceStr name, int depth, struct Tcl_Obj *stack); / * tcl:::inst-done probe triggered immediately after execution of a bytecode * arg0: bytecode name (string) * arg1: depth of stack (int) * arg2: top of stack (Tcl_Obj*) / probe inst__done(TclDTraceStr name, int depth, struct Tcl_Obj stack); /************************* obj probes ***************************/ / * tcl:::obj-create probe triggered immediately after a new Tcl_Obj has been created * arg0: object created (Tcl_Obj) / probe obj__create(struct Tcl_Obj* obj); /* * tcl:::obj-free probe triggered immediately before a Tcl_Obj is freed * arg0: object to be freed (Tcl_Obj) / probe obj__free(struct Tcl_Obj* obj); /*************************** tcl probes ***************************/ / * tcl:::tcl-probe probe triggered when the ::tcl::dtrace command is called * arg0-arg9: command arguments (strings) / probe tcl__probe(TclDTraceStr arg0, TclDTraceStr arg1, TclDTraceStr arg2, TclDTraceStr arg3, TclDTraceStr arg4, TclDTraceStr arg5, TclDTraceStr arg6, TclDTraceStr arg7, TclDTraceStr arg8, TclDTraceStr arg9); }; / * Tcl types and constants for use in DTrace scripts / typedef struct Tcl_ObjType { char name; void freeIntRepProc; void dupIntRepProc; void updateStringProc; void setFromAnyProc; } Tcl_ObjType; struct Tcl_Obj { int refCount; char bytes; int length; Tcl_ObjType typePtr; union { long longValue; double doubleValue; void otherValuePtr; int64_t wideValue; struct { void ptr1; void ptr2; } twoPtrValue; struct { void ptr; unsigned long value; } ptrAndLongRep; } internalRep; }; enum return_codes { TCL_OK = 0, TCL_ERROR, TCL_RETURN, TCL_BREAK, TCL_CONTINUE }; #pragma D attributes Evolving/Evolving/Common provider tcl provider #pragma D attributes Private/Private/Common provider tcl module #pragma D attributes Private/Private/Common provider tcl function #pragma D attributes Evolving/Evolving/Common provider tcl name #pragma D attributes Evolving/Evolving/Common provider tcl args /* * Local Variables: * mode: c * c-basic-offset: 4 * fill-column: 78 * End: */

| ver. 1.4 | Github | . | PHP 8.0.30 | Generation time: 0.21 | proxy | phpinfo | Settings