1 #-------------------------------------------------------------
3 # parse_format('format',$isis_row);
16 if ($format =~ s/^([^\d]+)//) {
24 #print STDERR "#### $format\n";
25 if ($format =~ s/^(\d\d\d)(\w?)//) {
26 my $isis_tmp = isis_sf($row,$1,$2);
28 $display .= $prefix . $isis_tmp;
29 $swish .= $isis_tmp." ";
32 } elsif ($format =~ s/^([^\d]+)(\d{0,3})/$2/) {
34 } elsif ($format =~ s/^([^\d]+\d{0,2})//) {
36 } elsif ($format =~ s/^(\d{1,2})//) {
39 print STDERR "unparsed format: $format\n";
45 $display .= $prefix if ($display);
47 return ($swish,$display);
50 #-------------------------------------------------------------