OS/2 Shareware BBS: 10 Tools/10-Tools.zip/plinstal.zip/edit_cfg.pl

Perl Script | 1997-12-02 | 5KB | 108 lines

#!perl -p -i0

# We expect the following arguments:
#
# privlib    - which file to edit (the directory part - new privlib)

BEGIN {
  ($perllib_new) = @ARGV;
  $config_long = 'f:/perllib/lib/os2/5.00455';    # Hardwired during creation
  $config_short = 'f:/perllib/lib';    # Hardwired during creation
  $dirs{shell} = 'F:/BIN';    # Hardwired during creation
  $dirs{privlib} = 'f:/perllib/lib';    # Hardwired during creation
  $dirs{bin} = 'f:/perllib/bin';    # Hardwired during creation
  $dirs{emx} = 'f:/emx';    # Hardwired during creation
  $dirs{man1dir} = 'f:/perllib/man/man1';    # Hardwired during creation
  $dirs{sitelib} = 'f:/perllib/lib/site_perl';    # Hardwired during creation
  $dirs{man3dir} = 'f:/perllib/man/man3';    # Hardwired during creation
  $change_from{scriptdirexp} = 'bin';    # Hardwired during creation
  $change_from{libpth} = 'emx';    # Hardwired during creation
  $change_from{binexp} = 'bin';    # Hardwired during creation
  $change_from{strings} = 'emx';    # Hardwired during creation
  $change_from{sitelib} = 'sitelib';    # Hardwired during creation
  $change_from{man1dir} = 'man1dir';    # Hardwired during creation
  $change_from{installarchlib} = 'privlib';    # Hardwired during creation
  $change_from{man3dir} = 'man3dir';    # Hardwired during creation
  $change_from{emxpath} = 'emx';    # Hardwired during creation
  $change_from{privlib} = 'privlib';    # Hardwired during creation
  $change_from{sitelibexp} = 'sitelib';    # Hardwired during creation
  $change_from{man1direxp} = 'man1dir';    # Hardwired during creation
  $change_from{bin} = 'bin';    # Hardwired during creation
  $change_from{libc} = 'emx';    # Hardwired during creation
  $change_from{man3direxp} = 'man3dir';    # Hardwired during creation
  $change_from{perlpath} = 'bin';    # Hardwired during creation
  $change_from{sitearchexp} = 'sitelib';    # Hardwired during creation
  $change_from{libemx} = 'emx';    # Hardwired during creation
  $change_from{archlibexp} = 'privlib';    # Hardwired during creation
  $change_from{installman1dir} = 'man1dir';    # Hardwired during creation
  $change_from{installsitelib} = 'sitelib';    # Hardwired during creation
  $change_from{privlibexp} = 'privlib';    # Hardwired during creation
  $change_from{installman3dir} = 'man3dir';    # Hardwired during creation
  $change_from{startsh} = 'shell';    # Hardwired during creation
  $change_from{installsitearch} = 'sitelib';    # Hardwired during creation
  $change_from{installscript} = 'bin';    # Hardwired during creation
  $change_from{installprivlib} = 'privlib';    # Hardwired during creation
  $change_from{installbin} = 'bin';    # Hardwired during creation
  $change_from{sitearch} = 'sitelib';    # Hardwired during creation
  $change_from{scriptdir} = 'bin';    # Hardwired during creation
  $change_from{usrinc} = 'emx';    # Hardwired during creation
  $change_from{archlib} = 'privlib';    # Hardwired during creation
  $change_from{timeincl} = 'emx';    # Hardwired during creation
  $change_from{sh} = 'shell';    # Hardwired during creation
  $config_dat = "$perllib_new/config.dat";
  open DAT, $config_dat or die "Cannot open $config_dat: $!";
  while (<DAT>) {
    $newdir{$1} = $2 if /^(\w+)\s+(.*)$/;
  }
  close DAT or die "Cannot close $config_dat: $!";
  for $key (keys %newdir) {
    $newdir{$key} =~ s,\\,/,g;
  }
  $config_rest = substr $config_long, length $config_short;
  $newconfig_long = $perllib_new . $config_rest;
  @ARGV = $newconfig_long . '/Config.pm';
  # Try to find emx location:
  if (exists $ENV{C_INCLUDE_PATH}) {
    for $dir (split ';', $ENV{C_INCLUDE_PATH}) {
      $dir =~ s,\\,/,g ;
      $dir =~ s,/[^/]+/?$,,;
      $emx = $dir, last if -f "$dir/bin/emxrev.cmd";    # Random check.
    }
  }
  unless (defined $emx) {
    for $dir (split ';', $ENV{PATH}) {
      next unless $dir =~ /^[a-z]:\\emx\\bin\\?$/i ;
      $dir =~ s,\\,/,g ;
      $dir =~ s,/[^/]+/?$,,;
      $emx = $dir, last if -f "$dir/bin/emxrev.cmd";    # Random check.
    }
  }
  $newdir{emx} = $emx if defined $emx;
}

# Called inside -p loop
if (/^(\w+)='(.*)'$/ and exists $change_from{$1}
    and exists $newdir{$change_from{$1}}) {
  # Need to substitute
  my ($key, $val, $from, $to)
    = ($1, $2, $dirs{$change_from{$1}}, $newdir{$change_from{$1}});
  $val =~ s/\Q$from\E/$to/g;        # g for the sake of libs - which is not edited now
  $_ = "$key='$val'\n";
}

## Called inside -p loop
#s{
#  = \'                # start of value
#  # Spaces are not allowed below:
#  \Q$from_name\E        # the leading part of the value - as string.
#  (?=
#   [\'/]            # As whole or before slash, but do not
#                                # substitute this.
#  )
# }
#{=\'$to}xo;

##   = \'                # Copy it.
##     $to            # Now substitute.
## }xo ;