1 |
######################### -*- Mode: Perl -*- ######################### |
######################### -*- Mode: Perl -*- ######################### |
2 |
## |
## |
3 |
## $Basename: Makefile.PL $ |
## $Basename: Makefile.PL $ |
4 |
## $Revision: 1.7 $ |
## $Revision: 1.13 $ |
5 |
## |
## |
6 |
## Author : Ulrich Pfeifer |
## Author : Ulrich Pfeifer |
7 |
## Created On : Tue Aug 20 12:15:44 1996 |
## Created On : Tue Aug 20 12:15:44 1996 |
8 |
## |
## |
9 |
## Last Modified By : Ulrich Pfeifer |
## Last Modified By : Ulrich Pfeifer |
10 |
## Last Modified On : Sun Nov 22 18:44:49 1998 |
## Last Modified On : Sun Apr 9 14:08:50 2000 |
11 |
## |
## |
12 |
## Copyright (c) 1996-1997, Ulrich Pfeifer |
## Copyright (c) 1996-1997, Ulrich Pfeifer |
13 |
## |
## |
14 |
###################################################################### |
###################################################################### |
15 |
|
|
|
|
|
16 |
use strict; |
use strict; |
17 |
|
|
18 |
use Config; |
use Config; |
27 |
|
|
28 |
&init($OPT{default}); |
&init($OPT{default}); |
29 |
|
|
30 |
my @pl_files = map { s!\.PL$!!; $_ } glob('script/*.PL'); |
my @pl_files = glob('script/*'); |
|
my %pl_files = map { $_ . '.PL' => $_ } @pl_files; |
|
31 |
|
|
32 |
my %seen; |
my %seen; |
33 |
my @objects = grep { s![^.]+$!o!; !$seen{$_}++ } glob('*.[cx]*'); |
my @objects = grep { s![^.]+$!o!; !$seen{$_}++ } glob('*.[cx]*'); |
34 |
|
|
35 |
my $VERSION = sprintf '%5.3f', map $_/10,'$ProjectVersion: 16.2 $ ' =~ /([\d.]+)/; |
WriteMakefile( |
36 |
|
'PREREQ_PM' => {'Term::ReadLine' => 0, |
37 |
WriteMakefile('PREREQ_PM' => {'Term::ReadLine' => 0, |
'DB_File' => 1.03, |
38 |
'DB_File' => 1.03, |
'Data::Dumper' => 2.02, |
39 |
'Data::Dumper' => 2.02, |
'Pod::Text' => 1.02, |
40 |
'Pod::Text' => 1.02, |
'HTML::Entities' => 0, |
41 |
'HTML::Entities' => 0, |
'LockFile::Simple' => 0, |
42 |
}, |
}, |
43 |
'NAME' => 'WAIT', |
'NAME' => 'WAIT', |
44 |
'OBJECT' => join(' ', @objects), |
'OBJECT' => join(' ', @objects), |
45 |
'VERSION' => $VERSION, |
# $Format: " 'VERSION' => sprintf('%5.3f', ($ProjectMajorVersion$ * 100 + ( $ProjectMinorVersion$-1))/1000),"$ |
46 |
'PL_FILES' => \%pl_files, |
'VERSION' => sprintf('%5.3f', (18 * 100 + ( 1-1))/1000), |
47 |
'EXE_FILES' => \@pl_files, |
'EXE_FILES' => \@pl_files, |
|
'clean' => { 'FILES' => "@pl_files" }, |
|
48 |
'dist' => { |
'dist' => { |
49 |
|
PREOP => 'cp README.header README && pod2text lib/WAIT.pm >> README', |
50 |
SUFFIX => 'gz', |
SUFFIX => 'gz', |
51 |
COMPRESS => 'gzip -9f', |
COMPRESS => 'gzip -9f', |
52 |
}, |
}, |
63 |
lib/WAIT/Query/Wais.pm: waisquery.y |
lib/WAIT/Query/Wais.pm: waisquery.y |
64 |
byacc -P -l waisquery.y; |
byacc -P -l waisquery.y; |
65 |
sed -n '2,$$ p' y.tab.pl | ]. "$Config{cpp} $Config{cppminus}" . |
sed -n '2,$$ p' y.tab.pl | ]. "$Config{cpp} $Config{cppminus}" . |
66 |
q[ | sed -e '/^# [0-9]/ d' > $@; |
q[ | sed -e '/^# [0-9]/ d' > $@ && rm -f y.tab.pl |
|
rm -f y.tab.pl |
|
67 |
|
|
68 |
TAGS: MANIFEST |
TAGS: MANIFEST |
69 |
etags `].$^X.q[ -ane 'print "$$F[0]\n"' MANIFEST` |
etags `].$^X.q[ -ane 'print "$$F[0]\n"' MANIFEST` |
172 |
|
|
173 |
|
|
174 |
## write config |
## write config |
175 |
my $configpmdir = MM->catdir(qw/lib WAIT/); |
my $configpmdir = MM->catdir('lib', 'WAIT'); |
176 |
mkpath $configpmdir; |
mkpath $configpmdir; |
177 |
my $configpm = MM->catfile( qw/lib WAIT Config.pm/ ); |
my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm/' ); |
178 |
|
|
179 |
open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n"; |
open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n"; |
180 |
print FH qq[\$WAIT::Config = \{\n]; |
print FH qq[\$WAIT::Config = \{\n]; |