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