https://perl5.git.perl.org / metaconfig.git / blame
| Commit | Line | Data |
|---|---|---|
| d9c563cf MB |
1 | ?RCS: $Id: usedtrace.U,v $ |
| 2 | ?RCS: | |
| 3 | ?RCS: Copyright (c) 2008 H.Merijn Brand | |
| 4 | ?RCS: | |
| 5 | ?RCS: You may distribute under the terms of either the GNU General Public | |
| 6 | ?RCS: License or the Artistic License, as specified in the README file. | |
| 7 | ?RCS: | |
| 8 | ?RCS: $Log: usedtrace.U,v $ | |
| 9 | ?RCS: | |
| 10 | ?MAKE:usedtrace dtrace: Myread Oldconfig Setvar Getfile test | |
| 11 | ?MAKE: -pick add $@ %< | |
| 12 | ?Y:TOP | |
| 13 | ?S:usedtrace: | |
| 14 | ?S: This variable indicates whether we are compiling with dtrace | |
| 15 | ?S: support. See also dtrace. | |
| 16 | ?S:. | |
| 17 | ?S:dtrace: | |
| 18 | ?S: This variable holds the location of the dtrace executable. | |
| 19 | ?S:. | |
| 680e7710 MB |
20 | ?C:USE_DTRACE: |
| 21 | ?C: This symbol, if defined, indicates that Perl should | |
| 22 | ?C: be built with support for DTrace. | |
| 23 | ?C:. | |
| 24 | ?H:#$usedtrace USE_DTRACE /**/ | |
| 25 | ?H:. | |
| d9c563cf MB |
26 | ?T:dflt_dtrace |
| 27 | ?LINT:set usedtrace | |
| 28 | ?LINT:set dtrace | |
| 29 | : DTrace support | |
| 30 | dflt_dtrace='/usr/sbin/dtrace' | |
| 8900ddd2 MB |
31 | $test -x /usr/bin/dtrace && dflt_dtrace='/usr/bin/dtrace' |
| 32 | ||
| d9c563cf MB |
33 | cat <<EOM |
| 34 | ||
| 35 | Perl can be built to support DTrace on platforms that support it. | |
| 36 | DTrace is a diagnosis and performance analysis tool from Sun. | |
| 37 | ||
| 38 | If this doesn't make any sense to you, just accept the default '$dflt'. | |
| 39 | EOM | |
| 40 | ||
| 41 | while $test 1 ; do | |
| 42 | case "$usedtrace" in | |
| 43 | $define|true|[yY]*) | |
| 44 | dflt='y' | |
| 45 | ;; | |
| 46 | ?*) | |
| 47 | dflt='y' | |
| 48 | dflt_dtrace=$usedtrace | |
| 49 | ;; | |
| 50 | *) | |
| 51 | dflt='n' | |
| 52 | ;; | |
| 53 | esac | |
| 54 | ||
| 55 | rp='Support DTrace if available?' | |
| 56 | . ./myread | |
| 57 | case "$ans" in | |
| 58 | y|Y) val="$define" ;; | |
| 59 | *) val="$undef" ;; | |
| 60 | esac | |
| 61 | set usedtrace | |
| 62 | eval $setvar | |
| 63 | ||
| 64 | test "X$usedtrace" != "X$define" && break | |
| 65 | ||
| 66 | echo " " | |
| 67 | rp='Where is the dtrace executable?' | |
| 68 | dflt=$dflt_dtrace | |
| 69 | . ./getfile | |
| 70 | val="$ans" | |
| 71 | set dtrace | |
| 72 | eval $setvar | |
| 73 | ||
| 74 | if $test -f $dtrace | |
| 75 | then | |
| 76 | if $dtrace -h -s ../perldtrace.d \ | |
| 77 | -o perldtrace.tmp >/dev/null 2>&1 \ | |
| 78 | && rm -f perldtrace.tmp | |
| 79 | then | |
| 80 | echo " " | |
| 81 | echo "Good: your $dtrace knows about the -h flag." | |
| 82 | else | |
| 83 | cat >&2 <<EOM | |
| 84 | ||
| 85 | *** $me: Fatal Error: $dtrace doesn't support -h flag | |
| 86 | *** | |
| 87 | *** Your installed dtrace doesn't support the -h switch to compile a D | |
| 88 | *** program into a C header. Can't continue. | |
| 89 | ||
| 90 | EOM | |
| 91 | exit 1 | |
| 92 | fi | |
| 93 | break; | |
| 94 | fi | |
| 95 | ||
| 96 | case "$fastread" in | |
| 97 | yes) | |
| 98 | cat >&2 <<EOM | |
| 99 | ||
| 100 | *** $me: Fatal Error: $dtrace not found. | |
| 101 | *** Can't continue. | |
| 102 | ||
| 103 | EOM | |
| 104 | exit 1 | |
| 105 | ;; | |
| 106 | *) | |
| 107 | echo "*** $dtrace was not found." | |
| 108 | echo " " | |
| 109 | ;; | |
| 110 | esac | |
| 111 | done | |
| 112 |