[Bio] / FigKernelScripts / Packager.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/Packager.pl

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

revision 1.3, Mon Sep 12 00:25:22 2005 UTC revision 1.4, Wed Oct 12 02:52:46 2005 UTC
# Line 740  Line 740 
740  one end record.  one end record.
741    
742  To prevent file system compatibility problems, the name is automatically cleaned  To prevent file system compatibility problems, the name is automatically cleaned
743  before the file is created: all spaces and colons are converted to underscores.  before the file is created: all spaces and colons are converted to underscores,
744    and question marks are converted to the double letter C<QQ>.
745    
746  Text files are open in text mode and binary files in binary mode. As a result, the  Text files are open in text mode and binary files in binary mode. As a result, the
747  line-end characters in a text file are automatically translated to the line-end  line-end characters in a text file are automatically translated to the line-end
# Line 945  Line 946 
946    
947  sub CreateFile {  sub CreateFile {
948      my ($fileName, $mode, $directory, $compObject) = @_;      my ($fileName, $mode, $directory, $compObject) = @_;
949      # Clear the file name.      # Clean the file name.
950      $fileName =~ tr/: /__/;      $fileName =~ tr/: /__/;
951        $fileName =~ s/\?/QQ/g;
952      # Add the file name to the directory to get the fully-qualified file name.      # Add the file name to the directory to get the fully-qualified file name.
953      my $fullName = "$directory/$fileName";      my $fullName = "$directory/$fileName";
954      # Extract the path.      # Extract the path.

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3