lib/model/problem/code_record_subs.pm

   1 # {{{ _format_record
   2
   3 start _format_record
   4       {
   5         if ( defined $self -> {'verbatim_first'}
   6              or defined $self -> {'code'}
   7              or defined $self -> {'verbatim_last'} ) {
   8           my @class_names = split('::',ref($self));
   9           my $fname = uc(pop(@class_names));
  10           @formatted = "\$".$fname;
  11         }
  12
  13         if ( defined $self -> {'verbatim_first'} ) {
  14           push( @formatted, '"FIRST' );
  15           push( @formatted, @{$self -> {'verbatim_first'}} );
  16         }
  17         if ( defined $self -> {'code'} ) {
  18           push( @formatted, @{$self -> {'code'}} );
  19         }
  20         if ( defined $self -> {'verbatim_last'} ) {
  21           push( @formatted, '"LAST' );
  22           push( @formatted, @{$self -> {'verbatim_last'}} );
  23         }
  24       }
  25 end _format_record
  26
  27 # }}} _format_record
  28
  29 # {{{ _read_options
  30
  31 start _read_options
  32       {
  33         my $in = 0;
  34         if ( defined $self -> {'record_arr'} ) {
  35           @{$self -> {'code'}} = ();
  36           my ( $first, $last ) = ( 0, 0 );
  37           for ( @{$self -> {'record_arr'}} ) {
  38             # Get rid of $RECORD and unwanted spaces
  39             s/^\s*\$\w+//;
  40             if ( /\" (\w+) = EVTREC\((\d+),(\d+)\)/ ) {
  41               $self -> {'secondary_columns'}[$2][$3][0] = $1;
  42               next;
  43             }
  44             if( /^\"\s+FIRST/ ) {
  45               $first = 1;
  46               next;
  47             }
  48             if( /^\"\s+LAST/ ) {
  49               $first = 0;
  50               $last  = 1;
  51               next;
  52             }
  53             if( $first or $last ) {
  54               if( /^\"/ ) {
  55                 if( $first ) {
  56                   push( @{$self -> {'verbatim_first'}},$_ );
  57                 } else {
  58                   push( @{$self -> {'verbatim_last'}},$_ );
  59                 }
  60               } else {
  61                 $first = 0;
  62                 $last  = 0;
  63                 push @{$self -> {'code'}},$_;
  64               }
  65             } else {
  66               push @{$self -> {'code'}},$_;
  67             }
  68           }
  69         }
  70       }
  71 end _read_options
  72
  73 # }}} _read_options
  74
  75