lib/model/problem/theta_subs.pm

   1 # {{{ include
   2
   3 start include statements
   4         use model::problem::record::theta_option;
   5 end include statements
   6
   7 # }}} include statements
   8
   9 # {{{ _add_option
  10 start _add_option
  11       {
  12         push( @{$self -> {'options'}},
  13               model::problem::record::theta_option ->
  14               new ( option_string => $option_string ) );
  15       }
  16 end _add_option
  17 # }}} _add_option
  18
  19 # {{{ _read_options
  20
  21 start _read_options
  22       {
  23         $self -> {'same'} = 0;
  24         my @row      = ();
  25         @{$self -> {'comment'}} = ();
  26         if ( defined $self -> {'record_arr'} ) {
  27           for ( @{$self -> {'record_arr'}} ) {
  28             chomp;
  29             s/^\s+//;
  30             s/\s+$//;
  31             # get rid of $THETA
  32             s/^\s*\$\w+//;
  33             next unless( length($_) > 0 );
  34
  35             if ( /^\s*\;/ ) {
  36               # This is a comment row
  37               push( @{$self -> {'comment'}}, $_."\n" );
  38             } else {
  39               # Make sure that the labels and units are in one string
  40               s/\;\s+/\;/g;
  41
  42               # Get rid of unwanted spaces
  43               s/\s*\,\s*/\,/g;
  44               s/\s+FIX/FIX/g;
  45               s/\s+\)/\)/g;
  46               s/\(\s+/\(/g;
  47
  48               # Split thetas and labels/units
  49               my ( $line, $comment ) = split( ";", $_, 2 );
  50
  51               # Split the theta string to see if we have more than one theta.
  52               @row = split( " ",$line );
  53               if ( $#row <=0 ) {
  54                 # If we only have one theta, send the whole row to option
  55                 push( @{$self -> {'options'}},
  56                       model::problem::record::theta_option ->
  57                       new ( option_string => $_ ));
  58               } else {
  59                 # If we have more than one theta, send one theta at a time to option
  60                 for ( @row ) {
  61                   push( @{$self -> {'options'}},
  62                         model::problem::record::theta_option ->
  63                         new ( option_string => $_ ));
  64 #                 foreach my $option ( @{$self->{'options'}}){
  65 #                   print "Option class: ",ref($option),"\n";
  66 #                   print "INIT: ", $option -> init, "\n";
  67 #                 }
  68                 }
  69               }
  70             }
  71           }
  72         }
  73       }
  74 end _read_options
  75
  76 # }}} _read_options