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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#
# Makefile.PL for Term::ReadLine::Gnu
#
# $Id: Makefile.PL,v 1.12 1998-09-29 01:02:07+09 hayashi Exp $
#
# Copyright (c) 1996,1997,1998 Hiroo Hayashi. All rights reserved.
# <hiroo.hayashi@computer.org>
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# OS/2 support is contributed by Ilya Zakharevich.
# <ilya@math.ohio-state.edu>
########################################################################
# Modify these variables if you need.
$libreadlinedir = '/usr/local/gnu/lib'; # for -L option
$increadlinedir = '/usr/local/gnu/include'; # for -I option
########################################################################
use ExtUtils::MakeMaker;
use Config;
$defs = ($Config{strings} =~ m|/string.h$|) ? '-DHAVE_STRING_H' : '';
# Search libtermcap, libncurses, or libcurses in this order.
# I emulate the behavior of configure script for bash, and don't know
# why AIX prefers curses.
$PREFER_CURSES = $Config{osname} eq 'aix';
$TERMCAP_LIB = (! $PREFER_CURSES && &search_lib('-ltermcap'))
|| &search_lib('-lncurses')
|| &search_lib('-lcurses');
die "Cannot find neither libtermcap.a, libncureses.a, or libcurses.\n"
unless $TERMCAP_LIB;
# Ignore outside of OS/2. Set to 1 if linking with readline.dll under
# OS/2.
# Check ftp://ftp.math.ohio-state.edu/pub/users/ilya/os2/
$os2_usedll = $Config{osname} eq 'os2';
if ($os2_usedll == 0) {
$libs = "-lreadline $TERMCAP_LIB";
} else {
$libs = '-lreadline_import';
$defs .= ' -DOS2_USEDLL';
}
#
# Check libreadline.a version
#
$frlver = 'rlver.c';
# make temp file
open(F, ">$frlver") || die "Cannot open $frlver:$!\n";
print F <<'EOF';
/* used by Makefile.pl to check the version of the GNU Readline Library */
#include <stdio.h>
#include <readline/readline.h>
main() { puts(rl_library_version); }
EOF
close(F);
# compile it
system("$Config{cc} -I$increadlinedir $Config{ccflags} $defs $frlver -o rlver -L$libreadlinedir -lreadline $TERMCAP_LIB $Config{ldflags}");
if ($?) {
die <<EOM;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Cannot compile $frlver.
Check variables, \$increadlinedir and \$libreadlinedir, in Makefile.PL.
Note that GNU Readline Library version 2.0 and earlier cause error here,
Read INSTALL for more details.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
EOM
}
# execute it and get version
chomp($rlver = `./rlver`);
print "It seems that you have the GNU Readline Library version $rlver.\n";
($rlmajorver, $rlminorver) = split('\.', $rlver);
$defs .= " -DRLMAJORVER=$rlmajorver -DRLMINORVER=$rlminorver";
WriteMakefile(
'NAME' => 'Term::ReadLine::Gnu',
'VERSION_FROM' => 'Gnu.pm',
'LIBS' => [ "-L$libreadlinedir $libs" ],
'DEFINE' => $defs,
($os2_usedll ?
(
IMPORTS => { xfree => 'emxlibcm.401' }, # Yuck!
) : () ),
'INC' => "-I$increadlinedir",
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz' },
'clean' => { FILES => 'rlver.c rlver' },
);
exit(0);
########################################################################
# Search a library '$lib' in $Config{libpth} directories, and return
# $lib if exist or undef unless exist.
#
# ExtUtils::MakeMaker::ext() do same job as this subroutine, but it
# warns unnecessary messages.
sub search_lib {
my ($lib) = @_;
unless ($lib =~ /^-l/) {
warn "search_lib: illegal arguments, \`$lib\'.\n";
return undef;
}
my $libbase = 'lib' . substr($lib, 2) . $Config{lib_ext};
foreach (split(' ', $Config{libpth})) {
# print $_ . '/' . $libbase, "\n";
if (-f $_ . '/' . $libbase) {
print "Find \`$_/$libbase\'.\n";
return $lib;
}
}
return undef;
}
# End of Makefile.PL
|
