blob: bfd1b17b02cfca348ff62b2466f5211510039f5d (
plain)
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
|
#! /usr/bin/perl -w
#/*@@
# @file SubstituteDeprecatedParameters.pl
# @date Fri 3 December 2004
# @author Thomas Radke
# @desc
# Perl script to automatically substitute deprecated parameter
# names in a parfile
# @enddesc
#@@*/
# Parse the command line
$parfile = shift;
if (! $parfile || shift)
{
printf STDERR "This perl script automatically substitutes deprecated parameter names in a parfile.\n\n";
printf STDERR "Usage: $0 <parameter file>\n\n";
exit;
}
# build the hash table for renamed parameters
$renamed_parameters{"\UIOHDF5::out3D_dir\E"} = 'IOHDF5::out_dir';
$renamed_parameters{"\UIOHDF5::out3D_vars\E"} = 'IOHDF5::out_vars';
$renamed_parameters{"\UIOHDF5::out3D_extension\E"} = 'IOHDF5::out_extension';
$renamed_parameters{"\UIOHDF5::out3D_criterion\E"} = 'IOHDF5::out_criterion';
$renamed_parameters{"\UIOHDF5::out3D_every\E"} = 'IOHDF5::out_every';
$renamed_parameters{"\UIOHDF5::out3D_dt\E"} = 'IOHDF5::out_dt';
$renamed_parameters{"\UIOHDF5::in3D_dir\E"} = 'IOHDF5::in_dir';
$renamed_parameters{"\UIOHDF5::in3D_vars\E"} = 'IOHDF5::in_vars';
$renamed_parameters{"\UIOHDF5::in3D_extension\E"} = 'IOHDF5::in_extension';
open (PARFILE, $parfile) || die "Cannot open parameter file '$parfile' !";
print STDERR "Processing parameter file '$parfile'\n";
while (<PARFILE>)
{
if (($pre, $parameter, $rest) = /^(\s*)(\w+::\w+)(.*)$/)
{
# rename old parameters if found
if (defined $renamed_parameters{"\U$parameter\E"})
{
$_ = $pre . $renamed_parameters{"\U$parameter\E"} . $rest . "\n";
print STDERR " renaming parameter '$parameter' to '" . $renamed_parameters{"\U$parameter\E"} . "'\n";
}
}
print;
}
close (PARFILE);
|