bin/update_inits

   1 #!/usr/local/bin/perl
   2
   3 # Only for Development
   4 use FindBin qw($Bin);
   5 use lib "$Bin/../lib";
   6
   7 # Don't edit the line below, it must look exactly like this.
   8 # Everything above this line will be replaced #
   9
  10 use PsN;
  11 use model;
  12 use output;
  13 use Getopt::Long;
  14 use File::Copy qw/cp mv/;
  15
  16 my %options;
  17
  18 my %optional_options = ( "output_model:s" => undef );
  19
  20 my $res = GetOptions( \%options,
  21                       @common_options::get_opt_strings,
  22                       keys(%optional_options) );
  23
  24 exit unless $res;
  25
  26 unless( $ARGV[0] ){
  27   die "You must at least enter a model file name\n";
  28 }
  29
  30
  31 my $model = model -> new ( filename => $ARGV[0],
  32                            ignore_missing_output_files => 1 );
  33
  34 unless( $model ){
  35   die "No such file: $ARGV[0]\n";
  36 }
  37
  38 my $model_copy;
  39
  40 if( $options{'output_model'} ){
  41   $model_copy = $model -> copy( filename => $options{'output_model'} );
  42 }
  43
  44 my $output;
  45
  46 if( $ARGV[1] ){
  47
  48   $output = output -> new( filename => $ARGV[1] );
  49
  50   unless( $output ){
  51     die "No such file: $ARGV[1]\n";
  52   }
  53
  54
  55 } elsif( defined $model -> outputs and -e $model -> outputs -> [0] -> filename ){
  56
  57   $output = $model -> outputs -> [0];
  58
  59 } else {
  60
  61   die "No outputfile to update from\n";
  62
  63 }
  64
  65
  66 if( defined $model_copy ){
  67
  68   $model_copy -> update_inits( from_output => $output );
  69   $model_copy -> _write;
  70
  71 } else {
  72
  73   cp( $ARGV[0], $ARGV[0].'.org' );
  74
  75   $model -> update_inits( from_output => $output );
  76   $model -> _write;
  77 }
  78