1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
# -*- perl -*-
require 5.004;
use strict;
use Config;
require ExtUtils::MakeMaker;
my %opts =
('NAME' => 'SQL::Statement',
'VERSION_FROM' => 'lib/SQL/Statement.pm',
'dist' => { 'SUFFIX' => ".gz",
'DIST_DEFAULT' => 'all tardist',
'COMPRESS' => "gzip -9f" },
'C' => ['sql_yacc.c sql_data.c sql_op.c'],
'OBJECT' => 'sql_yacc.o sql_data.o sql_op.o Statement.o'
);
if ($ENV{'USER'} eq 'joe' && $ENV{'HOSTNAME'} eq 'laptop.ispsoft.de') {
$opts{'DEFINE'} = '-Wall -Wstrict-prototypes';
} else {
$opts{'DEFINE'} = '';
}
if ($^O eq "MSWin32") {
$opts{'DEFINE'} .= " -Dalloca=_alloca";
}
if ($ExtUtils::MakeMaker::VERSION >= 5.43) {
$opts{'ABSTRACT_FROM'} = 'lib/SQL/Statement.pm';
$opts{'AUTHOR'} = 'Jochen Wiedmann (joe@ispsoft.de)';
if ($] >= 5.005 && $^O eq 'MSWin32' &&
$Config{archname} =~ /-object\b/i) {
$opts{'CAPI'} = 'TRUE';
}
}
ExtUtils::MakeMaker::WriteMakefile(%opts);
package MY;
sub postamble {
my($self) = shift;
return <<'EOF';
sql_yacc.c sql_yacc.h: sql_yacc.y
bison --defines --output=sql_yacc.c sql_yacc.y
sed 's/int yyparse (void);/int yyparse(void* stmt);/' \
<sql_yacc.c >sql_yacc.c.ok
mv sql_yacc.c.ok sql_yacc.c
sql_yacc.o sql_data.o sql_op.o: sql_yacc.h
Statement.o sql_yacc.o sql_data.o sql_op.o: sql_data.h
pm_to_blib: README
README: lib/SQL/Statement.pm
perldoc -t lib/SQL/Statement.pm >README
EOF
}
sub libscan {
my($self, $path) = @_;
if ($path =~ /\~$/) {
undef;
} else {
$path;
}
}
|
