29 lines
1.2 KiB
Perl
29 lines
1.2 KiB
Perl
#-------------------------------------------------------------------------
|
|
# Perl script to create dummy probes.h file when dtrace is not available
|
|
#
|
|
# Copyright (c) 2008-2024, PostgreSQL Global Development Group
|
|
#
|
|
# src/backend/utils/Gen_dummy_probes.pl
|
|
#-------------------------------------------------------------------------
|
|
|
|
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
m/^\s*probe / || next;
|
|
s/^\s*probe ([^(]*)(.*);/$1$2/;
|
|
s/__/_/g;
|
|
y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/;
|
|
s/^/#define TRACE_POSTGRESQL_/;
|
|
s/\([^,)]{1,}\)/(INT1)/;
|
|
s/\([^,)]{1,}, [^,)]{1,}\)/(INT1, INT2)/;
|
|
s/\([^,)]{1,}, [^,)]{1,}, [^,)]{1,}\)/(INT1, INT2, INT3)/;
|
|
s/\([^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}\)/(INT1, INT2, INT3, INT4)/;
|
|
s/\([^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}\)/(INT1, INT2, INT3, INT4, INT5)/;
|
|
s/\([^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}\)/(INT1, INT2, INT3, INT4, INT5, INT6)/;
|
|
s/\([^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}\)/(INT1, INT2, INT3, INT4, INT5, INT6, INT7)/;
|
|
s/\([^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}, [^,)]{1,}\)/(INT1, INT2, INT3, INT4, INT5, INT6, INT7, INT8)/;
|
|
s/$/ do {} while (0)/;
|
|
print;
|
|
s/\(.*$/_ENABLED() (0)/;
|
|
print;
|