Save some repeated strlen()s in Perl_swash_init
[p5sagit/p5-mst-13.2.git] / t / lib / h2ph.pht
CommitLineData
c1e2bff4 1require '_h2ph_pre.ph';
2
ccfcdfed 3no warnings 'redefine';
4
1d2dff63 5unless(defined(&SQUARE)) {
6 sub SQUARE {
7 local($x) = @_;
8 eval q((($x)*($x)));
9 }
10}
11unless(defined(&ERROR)) {
12 eval 'sub ERROR {
13 local($x) = @_;
14 eval q( &fprintf( &stderr, \\"%s\\\\n\\", $x->[2][3][0]));
15 }' unless defined(&ERROR);
16}
17unless(defined(&_H2PH_H_)) {
18 eval 'sub _H2PH_H_ () {1;}' unless defined(&_H2PH_H_);
19 # "$Revision h2ph.h,v 1.0 98/05/04 20:42:14 billy $"
20 undef(&MAX) if defined(&MAX);
21 eval 'sub MAX {
22 local($a,$b) = @_;
23 eval q((($a) > ($b) ? ($a) : ($b)));
24 }' unless defined(&MAX);
25 if(defined(&__SOME_UNIMPORTANT_PROPERTY)) {
26 eval 'sub MIN {
27 local($a,$b) = @_;
28 eval q((($a) < ($b) ? ($a) : ($b)));
29 }' unless defined(&MIN);
30 }
31 if(!(defined (defined(&__SOMETHING_MORE_IMPORTANT) ? &__SOMETHING_MORE_IMPORTANT : 0))) {
32 }
33 elsif(!(defined (defined(&__SOMETHING_REALLY_REALLY_IMPORTANT) ? &__SOMETHING_REALLY_REALLY_IMPORTANT : 0))) {
79c1b905 34 die("Nup, can't go on");
1d2dff63 35 } else {
36 eval 'sub EVERYTHING_IS_OK () {1;}' unless defined(&EVERYTHING_IS_OK);
37 }
38 undef(&WHATEVER) if defined(&WHATEVER);
39 if((!((defined (defined(&__SOMETHING_TRIVIAL) ? &__SOMETHING_TRIVIAL : 0) && defined (defined(&__SOMETHING_LESS_SO) ? &__SOMETHING_LESS_SO : 0))) || defined (defined(&__SOMETHING_OVERPOWERING) ? &__SOMETHING_OVERPOWERING : 0))) {
40 eval 'sub WHATEVER () {6;}' unless defined(&WHATEVER);
41 }
42 elsif(!(defined (defined(&__SOMETHING_TRIVIAL) ? &__SOMETHING_TRIVIAL : 0)) ) {
43 eval 'sub WHATEVER () {7;}' unless defined(&WHATEVER);
44 }
45 elsif(!(defined (defined(&__SOMETHING_LESS_SO) ? &__SOMETHING_LESS_SO : 0)) ) {
46 eval 'sub WHATEVER () {8;}' unless defined(&WHATEVER);
47 } else {
48 eval 'sub WHATEVER () {1000;}' unless defined(&WHATEVER);
49 }
50 require 'sys/socket.ph';
51 require 'sys/ioctl.ph';
52 eval {
917244ce 53 my(@REM);
1d2dff63 54 my(%INCD) = map { $INC{$_} => 1 } (grep { $_ eq "sys/fcntl.ph" } keys(%INC));
917244ce 55 @REM = map { "$_/sys/fcntl.ph" } (grep { not exists($INCD{"$_/sys/fcntl.ph"}) and -f "$_/sys/fcntl.ph" } @INC);
1d2dff63 56 require "$REM[0]" if @REM;
57 };
58 warn($@) if $@;
59 eval("sub sun () { 0; }") unless defined(&sun);
60 eval("sub mon () { 1; }") unless defined(&mon);
61 eval("sub tue () { 2; }") unless defined(&tue);
62 eval("sub wed () { 3; }") unless defined(&wed);
63 eval("sub thu () { 4; }") unless defined(&thu);
64 eval("sub fri () { 5; }") unless defined(&fri);
65 eval("sub sat () { 6; }") unless defined(&sat);
66 eval("sub Sun () { 0; }") unless defined(&Sun);
67 eval("sub Mon () { 1; }") unless defined(&Mon);
68 eval("sub Tue () { 2; }") unless defined(&Tue);
69 eval("sub Wed () { 3; }") unless defined(&Wed);
70 eval("sub Thu () { 4; }") unless defined(&Thu);
71 eval("sub Fri () { 5; }") unless defined(&Fri);
72 eval("sub Sat () { 6; }") unless defined(&Sat);
b7bcf494 73 unless(defined(&_SOMETHING_TRIGRAPHIC)) {
74 eval 'sub _SOMETHING_TRIGRAPHIC () {1;}' unless defined(&_SOMETHING_TRIGRAPHIC);
75 eval 'sub SOMETHING_ELSE_TRIGRAPHIC_0 () {"|";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_0);
76 eval 'sub SOMETHING_ELSE_TRIGRAPHIC_1 () {"^";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_1);
77 eval 'sub SOMETHING_ELSE_TRIGRAPHIC_2 () {"[";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_2);
78 eval 'sub SOMETHING_ELSE_TRIGRAPHIC_3 () {"]";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_3);
79 eval 'sub SOMETHING_ELSE_TRIGRAPHIC_4 () {"~0";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_4);
80 eval 'sub SOMETHING_ELSE_TRIGRAPHIC_5 () {"\\ ";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_5);
81 eval 'sub SOMETHING_ELSE_TRIGRAPHIC_6 () {"{";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_6);
82 eval 'sub SOMETHING_ELSE_TRIGRAPHIC_7 () {"#";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_7);
83 eval 'sub SOMETHING_ELSE_TRIGRAPHIC_8 () {"}";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_8);
84 }
edf6e4ec 85 if(1) {
86 }
d4386644 87 eval("sub flim () { 0; }") unless defined(&flim);
88 eval("sub flam () { 1; }") unless defined(&flam);
ab5fe4d6 89 eval 'sub multiline () {"multilinestring";}' unless defined(&multiline);
1d2dff63 90}
911;