[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.328, Mon Aug 1 22:23:15 2005 UTC revision 1.329, Wed Aug 3 17:40:42 2005 UTC
# Line 6  Line 6 
6    
7  use POSIX;  use POSIX;
8  use IPC::Open2;  use IPC::Open2;
9    use MIME::Base64;
10    
11  use DBrtns;  use DBrtns;
12  use Sim;  use Sim;
# Line 9525  Line 9526 
9526      my $notes = [];      my $notes = [];
9527    
9528      $ssa =~ s/[ \/]/_/g;      $ssa =~ s/[ \/]/_/g;
9529      if (open(SSA,"<$FIG_Config::data/Subsystems/$ssa/spreadsheet"))      my $subsys_dir = "$FIG_Config::data/Subsystems/$ssa";
9530        if (open(SSA,"<$subsys_dir/spreadsheet"))
9531      {      {
9532          #          #
9533          # Push the subsystem metadata.          # Push the subsystem metadata.
# Line 9664  Line 9666 
9666                  push(@$notes, $_);                  push(@$notes, $_);
9667              }              }
9668          }          }
9669    
9670            #
9671            # And here we break compatibility. If we have diagrams,
9672            # save the diagram images.
9673            #
9674    
9675            if (opendir(D, "$subsys_dir/diagrams"))
9676            {
9677                my @ids = grep { not /^\./ and -d "$subsys_dir/diagrams/$_" } readdir(D);
9678                closedir(D);
9679    
9680                for my $id (@ids)
9681                {
9682                    my $ddir = "$subsys_dir/diagrams/$id";
9683    
9684                    my $name = &FIG::file_head("$ddir/NAME", 1);
9685                    chomp($name);
9686    
9687                    if ($name)
9688                    {
9689                        push(@$notes, "//diagram:$id:name\t$name\n");
9690                        push(@$notes, "//end\n");
9691                    }
9692    
9693                    if (open(DIAGRAM, "<$ddir/diagram.png"))
9694                    {
9695                        my $size = -s DIAGRAM;
9696                        push(@$notes, "//diagram:$id:diagram=diagram.png\t$size\n");
9697                        my $buf;
9698                        while (read(DIAGRAM, $buf, 60*57))
9699                        {
9700                            my $enc = encode_base64($buf);
9701                            #
9702                            # Feh, escape the start of the lines.
9703                            #
9704                            $enc =~ s/^/B:/mg;
9705                            push(@$notes, $enc);
9706                        }
9707                        close(DIAGRAM);
9708                        push(@$notes, "//end\n");
9709                    }
9710                }
9711            }
9712    
9713      }      }
9714      return ($spreadsheet,$notes);      return ($spreadsheet,$notes);
9715  }  }

Legend:
Removed from v.1.328  
changed lines
  Added in v.1.329

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3