Commit | Line | Data |
1d2dff63 |
1 | unless(defined(&SQUARE)) { |
2 | sub SQUARE { |
3 | local($x) = @_; |
4 | eval q((($x)*($x))); |
5 | } |
6 | } |
7 | unless(defined(&ERROR)) { |
8 | eval 'sub ERROR { |
9 | local($x) = @_; |
10 | eval q( &fprintf( &stderr, \\"%s\\\\n\\", $x->[2][3][0])); |
11 | }' unless defined(&ERROR); |
12 | } |
13 | unless(defined(&_H2PH_H_)) { |
14 | eval 'sub _H2PH_H_ () {1;}' unless defined(&_H2PH_H_); |
15 | # "$Revision h2ph.h,v 1.0 98/05/04 20:42:14 billy $" |
16 | undef(&MAX) if defined(&MAX); |
17 | eval 'sub MAX { |
18 | local($a,$b) = @_; |
19 | eval q((($a) > ($b) ? ($a) : ($b))); |
20 | }' unless defined(&MAX); |
21 | if(defined(&__SOME_UNIMPORTANT_PROPERTY)) { |
22 | eval 'sub MIN { |
23 | local($a,$b) = @_; |
24 | eval q((($a) < ($b) ? ($a) : ($b))); |
25 | }' unless defined(&MIN); |
26 | } |
27 | if(!(defined (defined(&__SOMETHING_MORE_IMPORTANT) ? &__SOMETHING_MORE_IMPORTANT : 0))) { |
28 | } |
29 | elsif(!(defined (defined(&__SOMETHING_REALLY_REALLY_IMPORTANT) ? &__SOMETHING_REALLY_REALLY_IMPORTANT : 0))) { |
30 | die("Nup, can't go on "); |
31 | } else { |
32 | eval 'sub EVERYTHING_IS_OK () {1;}' unless defined(&EVERYTHING_IS_OK); |
33 | } |
34 | undef(&WHATEVER) if defined(&WHATEVER); |
35 | if((!((defined (defined(&__SOMETHING_TRIVIAL) ? &__SOMETHING_TRIVIAL : 0) && defined (defined(&__SOMETHING_LESS_SO) ? &__SOMETHING_LESS_SO : 0))) || defined (defined(&__SOMETHING_OVERPOWERING) ? &__SOMETHING_OVERPOWERING : 0))) { |
36 | eval 'sub WHATEVER () {6;}' unless defined(&WHATEVER); |
37 | } |
38 | elsif(!(defined (defined(&__SOMETHING_TRIVIAL) ? &__SOMETHING_TRIVIAL : 0)) ) { |
39 | eval 'sub WHATEVER () {7;}' unless defined(&WHATEVER); |
40 | } |
41 | elsif(!(defined (defined(&__SOMETHING_LESS_SO) ? &__SOMETHING_LESS_SO : 0)) ) { |
42 | eval 'sub WHATEVER () {8;}' unless defined(&WHATEVER); |
43 | } else { |
44 | eval 'sub WHATEVER () {1000;}' unless defined(&WHATEVER); |
45 | } |
46 | require 'sys/socket.ph'; |
47 | require 'sys/ioctl.ph'; |
48 | eval { |
49 | my(%INCD) = map { $INC{$_} => 1 } (grep { $_ eq "sys/fcntl.ph" } keys(%INC)); |
50 | my(@REM) = map { "$_/sys/fcntl.ph" } (grep { not exists($INCD{"$_/sys/fcntl.ph"})and -f "$_/sys/fcntl.ph" } @INC); |
51 | require "$REM[0]" if @REM; |
52 | }; |
53 | warn($@) if $@; |
54 | eval("sub sun () { 0; }") unless defined(&sun); |
55 | eval("sub mon () { 1; }") unless defined(&mon); |
56 | eval("sub tue () { 2; }") unless defined(&tue); |
57 | eval("sub wed () { 3; }") unless defined(&wed); |
58 | eval("sub thu () { 4; }") unless defined(&thu); |
59 | eval("sub fri () { 5; }") unless defined(&fri); |
60 | eval("sub sat () { 6; }") unless defined(&sat); |
61 | eval("sub Sun () { 0; }") unless defined(&Sun); |
62 | eval("sub Mon () { 1; }") unless defined(&Mon); |
63 | eval("sub Tue () { 2; }") unless defined(&Tue); |
64 | eval("sub Wed () { 3; }") unless defined(&Wed); |
65 | eval("sub Thu () { 4; }") unless defined(&Thu); |
66 | eval("sub Fri () { 5; }") unless defined(&Fri); |
67 | eval("sub Sat () { 6; }") unless defined(&Sat); |
68 | } |
69 | 1; |