git.rot13.org Git - webpac/blob - parse_format.pm

   1 #-------------------------------------------------------------
   2 #
   3 # parse_format('format',$isis_row);
   4 #
   5
   6 use isis_sf;
   7
   8 sub parse_format {
   9         my $format = shift;
  10         my $row = shift;
  11
  12         my $out;
  13         my $out_swish;
  14
  15         my $prefix = "";
  16         if ($format =~ s/^([^\d]+)//) {
  17                 $prefix = "pre: $1";
  18         }
  19
  20         my $display;
  21         my $swish;
  22
  23         while ($format) {
  24 #print STDERR "#### $format\n";
  25                 if ($format =~ s/^(\d\d\d)(\w?)//) {
  26                         my $isis_tmp = isis_sf($row,$1,$2);
  27                         if ($isis_tmp) {
  28                                 $display .= $prefix . $isis_tmp;
  29                                 $swish .= $isis_tmp." ";
  30                         }
  31                         $prefix = "";
  32                 } elsif ($format =~ s/^([^\d]+)(\d{0,3})/$2/) {
  33                         $prefix .= $1;
  34                 } elsif ($format =~ s/^([^\d]+\d{0,2})//) {
  35                         $prefix .= $1;
  36                 } elsif ($format =~ s/^(\d{1,2})//) {
  37                         $prefix .= $1;
  38                 } else {
  39                         print STDERR "unparsed format: $format\n";
  40                         $prefix .= $format;
  41                         $format = "";
  42                 }
  43         }
  44         # add suffix
  45         $display .= $prefix if ($display);
  46
  47         return ($swish,$display);
  48 }
  49
  50 #-------------------------------------------------------------
  51 1;