/[webpac]/trunk2/all2all.pl
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 /trunk2/all2all.pl

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

revision 426 by dpavlin, Sun Sep 12 01:25:55 2004 UTC revision 427 by dpavlin, Sun Sep 12 01:34:32 2004 UTC
# Line 229  my @tree = ({ Line 229  my @tree = ({
229                          },                          },
230          lookup_term     => sub { shift @{$l->{"d:".$_[0]}} },          lookup_term     => sub { shift @{$l->{"d:".$_[0]}} },
231          lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },          lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },
232            have_children   => sub { defined($l->{$_[1]}) },
233            child_code      => sub { return $_[1] },
234            },{
235            # 5
236            code_arr        => sub { @{$l->{$_[0]}} },
237            filter_code     => sub { shift },
238            lookup_v900     => sub {
239                                    my ($c,$p) = @_;
240                                    $p =~ s/^a:(..:....):.*$/$1/;
241                                    return "a:".$p.":".$c;
242                            },
243            lookup_term     => sub { shift @{$l->{"d:".$_[0]}} },
244            lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },
245            have_children   => sub { defined($l->{$_[1]}) },
246            child_code      => sub { return $_[1] },
247            },{
248            # 6
249            code_arr        => sub { @{$l->{$_[0]}} },
250            filter_code     => sub { shift },
251            lookup_v900     => sub {
252                                    my ($c,$p) = @_;
253                                    $p =~ s/^a:(..:....):.*$/$1/;
254                                    return "a:".$p.":".$c;
255                            },
256            lookup_term     => sub { shift @{$l->{"d:".$_[0]}} },
257            lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },
258            have_children   => sub { defined($l->{$_[1]}) },
259            child_code      => sub { return $_[1] },
260            },{
261            # 7
262            code_arr        => sub { @{$l->{$_[0]}} },
263            filter_code     => sub { shift },
264            lookup_v900     => sub {
265                                    my ($c,$p) = @_;
266                                    $p =~ s/^a:(..:....):.*$/$1/;
267                                    return "a:".$p.":".$c;
268                            },
269            lookup_term     => sub { shift @{$l->{"d:".$_[0]}} },
270            lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },
271            have_children   => sub { defined($l->{$_[1]}) },
272            child_code      => sub { return $_[1] },
273            },{
274            # 8
275            code_arr        => sub { @{$l->{$_[0]}} },
276            filter_code     => sub { shift },
277            lookup_v900     => sub {
278                                    my ($c,$p) = @_;
279                                    $p =~ s/^a:(..:....):.*$/$1/;
280                                    return "a:".$p.":".$c;
281                            },
282            lookup_term     => sub { shift @{$l->{"d:".$_[0]}} },
283            lookup_mfn      => sub { shift @{$l->{"900_mfn:".$_[0]}} },
284  #       have_children   => sub { defined($l->{$_[1]}) },  #       have_children   => sub { defined($l->{$_[1]}) },
285  #       child_code      => sub { return $_[1] },  #       child_code      => sub { return $_[1] },
286          have_children   => sub { 0 },          have_children   => sub { 0 },
# Line 275  sub unroll { Line 327  sub unroll {
327                                  $log->debug("# $level doesn't have_children($code,$v900,$start_code)");                                  $log->debug("# $level doesn't have_children($code,$v900,$start_code)");
328                          }                          }
329    
                         $log->debug("# $level children re-check failed", sub { Dumper($tree[$level]->{'have_children'}->($code,$v900,$start_code)) }) if (defined($l->{$v900}) && ! $tree[$level]->{'have_children'}->($code,$v900,$start_code));  
   
330                          my $mfn_link = "thes/$mfn.html";                          my $mfn_link = "thes/$mfn.html";
331                          if (-e "out/$mfn_link") {                          if (-e "out/$mfn_link") {
332                                  print HTML " " x $level .                                  print HTML " " x $level .

Legend:
Removed from v.426  
changed lines
  Added in v.427

  ViewVC Help
Powered by ViewVC 1.1.26