/[wait]/trunk/Makefile.PL
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/Makefile.PL

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 10 by ulpfr, Fri Apr 28 15:40:52 2000 UTC revision 43 by ulpfr, Fri Dec 29 12:28:53 2000 UTC
# Line 1  Line 1 
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 : Fri Dec 29 12:55:10 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;
# Line 28  GetOptions(\%OPT, 'default!'); Line 27  GetOptions(\%OPT, 'default!');
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,                'VERSION_FROM' => 'lib/WAIT.pm',
               'PL_FILES'     => \%pl_files,  
46                'EXE_FILES'    => \@pl_files,                'EXE_FILES'    => \@pl_files,
               'clean'        => { 'FILES' => "@pl_files" },  
47                'dist'         => {                'dist'         => {
48                                     PREOP => 'cp README.header README && pod2text lib/WAIT.pm >> README',
49                                   SUFFIX   => 'gz',                                   SUFFIX   => 'gz',
50                                   COMPRESS => 'gzip -9f',                                   COMPRESS => 'gzip -9f',
51                                  },                                  },
# Line 65  sub MY::postamble Line 62  sub MY::postamble
62  lib/WAIT/Query/Wais.pm: waisquery.y  lib/WAIT/Query/Wais.pm: waisquery.y
63          byacc -P -l waisquery.y;          byacc -P -l waisquery.y;
64          sed -n '2,$$ p' y.tab.pl | ]. "$Config{cpp} $Config{cppminus}" .          sed -n '2,$$ p' y.tab.pl | ]. "$Config{cpp} $Config{cppminus}" .
65            q[ | sed -e '/^# [0-9]/ d' > $@;            q[ | sed -e '/^# [0-9]/ d' > $@ && rm -f y.tab.pl
         rm -f y.tab.pl  
66    
67  TAGS: MANIFEST  TAGS: MANIFEST
68          etags `].$^X.q[ -ane 'print "$$F[0]\n"' MANIFEST`          etags `].$^X.q[ -ane 'print "$$F[0]\n"' MANIFEST`
# Line 92  EOF Line 88  EOF
88  ;  ;
89        
90    $answer = $WAIT::Config->{WAIT_home};    $answer = $WAIT::Config->{WAIT_home};
91    $answer = '' unless $answer && -d $answer;    #$answer = '' unless $answer && -d $answer;
92    $answer = prompt("WAIT database directory?", $answer) unless $use_defaults;    $answer = prompt("WAIT database directory?", $answer) unless $use_defaults;
93        
94    mkpath($answer) unless $answer && -d $answer; # dies if it can't    #mkpath($answer) unless $answer && -d $answer; # dies if it can't
95    $WAIT::Config->{WAIT_home} = $answer;    $WAIT::Config->{WAIT_home} = $answer;
96    
97    
# Line 175  you are finished. Line 171  you are finished.
171    
172        
173    ## write config    ## write config
174    my $configpmdir = MM->catdir(qw/lib WAIT/);    my $configpmdir = MM->catdir('lib', 'WAIT');
175    mkpath $configpmdir;    mkpath $configpmdir;
176    my $configpm = MM->catfile( qw/lib WAIT Config.pm/ );    my $configpm = MM->catfile('lib', 'WAIT', 'Config.pm/' );
177        
178    open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n";    open FH, "> $configpm" or die "Couldn't write open $configpm: $!\n";
179    print FH qq[\$WAIT::Config = \{\n];    print FH qq[\$WAIT::Config = \{\n];
Legend:
Removed from v.10  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.26