/[webpac]/trunk/parse_format.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/parse_format.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 176 by dpavlin, Mon Nov 24 01:16:04 2003 UTC revision 187 by dpavlin, Sat Nov 29 18:58:34 2003 UTC
# Line 80  sub parse_iso_format { Line 80  sub parse_iso_format {
80                          # this might be our local scpeciality -- fields 10 and 11                          # this might be our local scpeciality -- fields 10 and 11
81                          # (as opposed to 010 and 011) so they are strictly listed                          # (as opposed to 010 and 011) so they are strictly listed
82                          # here                          # here
83                          } elsif ($f =~ s/^(1[01])//) {                          } elsif ($f =~ s/^(1[01]\w?)//) {
84                                  push @fmt,$1;                                  push @fmt,$1;
85                                  push @fmt,undef;                                  push @fmt,undef;
86                          } elsif ($f =~ s/^mfn//i) {                          } elsif ($f =~ s/^mfn//i) {
# Line 113  sub parse_iso_format { Line 113  sub parse_iso_format {
113                  push @fmt,'' if ($#fmt % 3 != 0);       # add empty suffix                  push @fmt,'' if ($#fmt % 3 != 0);       # add empty suffix
114                  $cache->{format}->{$format} = \@fmt;                  $cache->{format}->{$format} = \@fmt;
115                                    
116                  print STDERR "storing format for '$format': [",join("|",@fmt),"]\n";  #               print STDERR "storing format for '$format': [",join("|",@fmt),"]\n";
117  #               print STDERR "storing format for '$format':",Dumper(@fmt),"\n";  #               print STDERR "storing format for '$format':",Dumper(@fmt),"\n";
118  #               print STDERR Dumper($cache->{format}->{$format});  #               print STDERR Dumper($cache->{format}->{$format});
119          }          }
# Line 155  sub parse_iso_format { Line 155  sub parse_iso_format {
155    
156          print STDERR "format: [",join("|",@{$tmp}),"]\n" if (@fmt);          print STDERR "format: [",join("|",@{$tmp}),"]\n" if (@fmt);
157    
158  #       print STDERR "display: $display swish: $swish\n";  #       print STDERR "format: {",$format || '',"} display: {",$display || '',"} swish: {",$swish || '',"}\n";
159    
160          return ($swish,$display);          return ($swish,$display);
161  }  }

Legend:
Removed from v.176  
changed lines
  Added in v.187

  ViewVC Help
Powered by ViewVC 1.1.26