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         my $i = shift || 0;     # isis repeatable number
  12         my $codepage = shift || die;
  13
  14         my $out;
  15         my $out_swish;
  16
  17         my $prefix = "";
  18         if ($format =~ s/^([^\d]+)//) {
  19                 $prefix = $1;
  20         }
  21
  22         my $display;
  23         my $swish;
  24
  25         while ($format) {
  26 #print STDERR "\n#### $format";
  27                 if ($format =~ s/^(\d\d\d)(\w?)//) {
  28                         my $isis_tmp = isis_sf($row,$1,$2,$i);
  29                         if ($isis_tmp) {
  30                                 $isis_tmp = $codepage->convert($isis_tmp) if ($codepage);
  31                                 $display .= $prefix . $isis_tmp;
  32                                 $swish .= $isis_tmp." ";
  33 #print STDERR " == $isis_tmp";
  34                         }
  35                         $prefix = "";
  36                 # this might be our local scpeciality -- fields 10 and 11
  37                 # (as opposed to 010 and 011) so they are strictly listed
  38                 # here
  39                 } elsif ($format =~ s/^(1[01])//) {
  40                         my $isis_tmp = isis_sf($row,$1,undef,$i);
  41                         if ($isis_tmp) {
  42                                 $isis_tmp = $codepage->convert($isis_tmp) if ($codepage);
  43                                 $display .= $prefix . $isis_tmp;
  44                                 $swish .= $isis_tmp." ";
  45                         }
  46                         $prefix = "";
  47                 } elsif ($format =~ s/^mfn//i) {
  48                         $display .= $prefix . $row->{mfn};
  49                         $prefix = "";
  50                 } elsif ($format =~ s/^([^\d]+)(\d{0,3})/$2/) {
  51                         $prefix .= $1 if ($display);
  52                 } elsif ($format =~ s/^([^\d]+\d{0,2})//) {
  53                         $prefix .= $1 if ($display);
  54                 } elsif ($format =~ s/^(\d{1,2})//) {
  55                         $prefix .= $1 if ($display);
  56                 } else {
  57                         print STDERR "unparsed format: $format\n";
  58                         $prefix .= $format;
  59                         $format = "";
  60                 }
  61         }
  62         # add suffix
  63         $display .= $prefix if ($display);
  64
  65         return ($swish,$display);
  66 }
  67
  68 #-------------------------------------------------------------
  69 1;