doc/genpsdriver.pl

   1 #!/usr/bin/perl
   2 #
   3 # Runs the equivalent of the following command line:
   4 #
   5 #       $(PERL) $(srcdir)/genps.pl -subtitle "version `cat ../version`" \
   6 #                nasmdoc.dip
   7 #
   8 # This is implemented as a Perl script since `cat ...` doesn't
   9 # necessarily work on non-Unix systems.
  10 #
  11
  12 $perl   = $ENV{'PERL'}   || 'perl';
  13 $srcdir = $ENV{'srcdir'} || '.';
  14
  15 open(VERSION, '< ../version') or die "$0: cannot open ../version\n";
  16 $version = <VERSION>;
  17 chomp $version;
  18 close(VERSION);
  19
  20 system($perl, "${srcdir}/genps.pl", '-subtitle',
  21        'version '.$version, 'nasmdoc.dip');