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
|
use ExtUtils::MakeMaker;
create_constants(); # Make a module
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'OS2::Process',
VERSION_FROM=> 'Process.pm',
MAN3PODS => {}, # Pods will be built by installman.
'LIBS' => [''], # e.g., '-lm'
'DEFINE' => '', # e.g., '-DHAVE_SOMETHING'
'INC' => '', # e.g., '-I/usr/include/other'
IMPORTS => { _16_DosSmSetTitle => 'sesmgr.DOSSMSETTITLE',
# _16_Win16SetTitle => 'pmshapi.93',
},
);
sub create_constants {
return if -d 'Process_constants';
my $src_dir;
my @try = qw(.. ../.. ../../.. ../../../..);
for (@try) {
$src_dir = $_, last if -d "$_/utils" and -r "$_/utils/h2xs";
}
warn("Can't find \$PERL_SRC/utils/h2xs in @try, falling back to no constants"),
return unless defined $src_dir;
# Can't name it *::Constants, otherwise constants.xs would overwrite it...
# This produces warnings from PSZ-conversion on WS_* constants.
system $^X, "-I$src_dir/lib", "$src_dir/utils/h2xs", '-fn', 'OS2::Process::Const',
'--skip-exporter', '--skip-autoloader', # too large memory overhead
'--skip-strict', '--skip-warnings', # likewise
'--skip-ppport', # will not work without dynaloading.
# Most useful for OS2::Process:
'-M^(HWND|WM|SC|SWP|WC|PROG|QW|EDI|WS|QWS|QWP|QWL|FF|FI|LS|FS|FCF|BS|MS|TBM|CF|CFI|FID)_',
'-F', '-DINCL_NLS -DINCL_BASE -DINCL_PM', # Define more symbols
'os2emx.h' # EMX version of OS/2 API
and warn("Can't build module with contants, falling back to no constants"),
return;
rename 'OS2/Process/Const', 'Process_constants'
or warn("Error renaming module, falling back to no constants: $!"),
return;
return 1;
}
|
