#!/usr/bin/perl\r
use strict;\r
use FileHandle;\r
+my $release=0;\r
+foreach my $ARGV (@ARGV){\r
+ if($ARGV=~ m!^--release!){\r
+ $release++;\r
+ }\r
+}\r
+\r
my $version='';\r
if(my $fh=new FileHandle("Changes")){\r
while(<$fh>){\r
$fh->close();\r
}\r
if($version){\r
- my @files=('/usr/local/include/lib1stclass.hpp', '/usr/local/include/lib1stclass.h');\r
- foreach my $file (@files){\r
- if(my $fh=new FileHandle($file)){\r
- local $/=undef;\r
- my $con=<$fh>;\r
- $fh->close();\r
- unless($con=~ m!// VERSION=[\d\.]+ //!){\r
- if(my $fh=new FileHandle('>> '.$file)){\r
- print $fh "\n// VERSION=".$version."//\n";\r
- $fh->close();\r
+ if($release){\r
+ my $dir='lib1stclass-'.$version;\r
+ my @cm=('mkdir '.$dir, 'cp *.c '.$dir, 'cp *.cpp '.$dir, 'cp *.h '.$dir, 'cp *.hpp '.$dir, 'cp *.pl '.$dir, 'cp Makefile '.$dir, 'cp Changes '.$dir, 'cp README '.$dir, 'mkdir -p '.$dir.'/t', 'cp t/*.cpp '.$dir.'/t', 'cp t/*.c '.$dir.'/t', 'tar cvf '.$dir.'.tar '.$dir, 'gzip '.$dir.'.tar');\r
+ foreach my $cm (@cm){\r
+ print $cm."\n";\r
+ system($cm);\r
+ }\r
+ }\r
+ else{\r
+ my @files=('/usr/local/include/lib1stclass.hpp', '/usr/local/include/lib1stclass.h');\r
+ foreach my $file (@files){\r
+ if(my $fh=new FileHandle($file)){\r
+ local $/=undef;\r
+ my $con=<$fh>;\r
+ $fh->close();\r
+ unless($con=~ m!// VERSION=[\d\.]+ //!){\r
+ if(my $fh=new FileHandle('>> '.$file)){\r
+ print $fh "\n// VERSION=".$version."//\n";\r
+ $fh->close();\r
+ }\r
}\r
}\r
}\r