5 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
\r
10 my $Version = get_version();
\r
11 print "Make libcds-$Version distributive\n";
\r
13 my $DistrDir = get_distrib_dir();
\r
14 print "Distrib dir: $DistrDir\n";
\r
17 my $GitBranch = get_git_branch();
\r
18 my $GitRepo = get_git_repo();
\r
19 print "Clone git: repo=$GitRepo, branch=$GitBranch\n";
\r
20 `git clone -b $GitBranch $GitRepo $DistrDir`; # or die "Error cloning branch $GitBranch to $DistrDir\n";
\r
21 print "Remove $DistrDir/.git directory\n";
\r
22 `rm -fr $DistrDir/.git`;
\r
23 `rm -f $DistrDir/.gitignore $DistrDir/tools/brush_cds.pl $DistrDir/tools/make_distrib.pl $DistrDir/tools/make_distrib.bat $DistrDir/doxygen/images.odp`;
\r
25 print "make copyright...\n" ;
\r
26 makeCopyright($DistrDir);
\r
28 print "patch files...\n";
\r
29 patch_file("$DistrDir/build/Makefile", 'VERSION=\d+\.\d+\.\d+', "VERSION=$Version" );
\r
30 patch_file("$DistrDir/CMakeList.txt", 'PROJECT_VERSION \d+\.\d+\.\d+', "PROJECT_VERSION $Version" );
\r
31 patch_file("$DistrDir/doxygen/cds.doxy", 'PROJECT_NUMBER\s*=\s*\d+\.\d+\.\d+', "PROJECT_NUMBER = $Version" ) ;
\r
32 patch_file("$DistrDir/projects/android/jni/Android.mk", 'CDS_LIBRARY_VERSION\s*:=\s*\d+\.\d+\.\d+',
\r
33 "CDS_LIBRARY_VERSION := $Version" );
\r
35 print "Make docs\n";
\r
36 `cd $DistrDir/tools && make_docs.bat && rm doxygen.log && cd $curDir`;
\r
38 print "make zip...\n" ;
\r
39 `rm -f $DistrDir/../cds-$Version.zip` ;
\r
40 `cd $DistrDir/.. && 7za a cds-$Version.zip cds-$Version` ;
\r
49 open( my $fh, 'cds/version.h' ) or die "ERROR: Cannot find ../cds/version.h file";
\r
53 if ( /CDS_VERSION_STRING.+(\d+\.\d+\.\d+)/ ) {
\r
59 die "ERROR: cannot find version in ../cds/version.h" unless $version ;
\r
62 sub get_distrib_dir()
\r
64 my $dir = "../cds-distrib/cds-$Version";
\r
65 `rm -fr $dir` if -d $dir;
\r
72 return 'git@github.com:khizmax/libcds.git';
\r
75 sub get_git_branch()
\r
77 my $branchList = `git branch`;
\r
78 #print "$branchList\n";
\r
80 # Search "v$Version-rc" branch
\r
81 my ($branch) = $branchList =~ /(v$Version-rc\d*)/g;
\r
82 return $branch || 'master';
\r
85 sub makeCopyright($)
\r
87 my $distrDir = shift;
\r
88 processDir( "$distrDir/cds" ) ;
\r
89 processDir( "$distrDir/src" ) ;
\r
90 processDir( "$distrDir/tests/test-hdr" ) ;
\r
91 processDir( "$distrDir/tests/unit" ) ;
\r
92 processDir( "$distrDir/tests/cppunit" ) ;
\r
97 my $dirName = shift ;
\r
99 opendir(my $dh, $dirName) || die "can't opendir $dirName: $!";
\r
100 my @files = grep { /^[^\.]/ } readdir($dh);
\r
103 foreach my $file ( @files ) {
\r
104 if ( -d "$dirName/$file" ) {
\r
105 processDir("$dirName/$file") ;
\r
107 elsif ( $file =~ /\.(h|cpp)$/ ) {
\r
108 processFile( "$dirName/$file" ) ;
\r
113 sub processFile( $ )
\r
118 if ( open( my $fh, $file )) {
\r
122 if ( /^\/\/\$\$CDS-header\$\$/ ) {
\r
125 This file is a part of libcds - Concurrent Data Structures library
\r
128 (C) Copyright Maxim Khizhinsky (libcds.dev\@gmail.com) 2006-$year
\r
129 Distributed under the BSD license (see accompanying file LICENSE)
\r
131 Source code repo: http://github.com/khizmax/libcds/
\r
132 Download: http://sourceforge.net/projects/libcds/files/
\r
135 elsif ( /^\/\/\$\$CDS-\/\*\$\$/ ) {
\r
138 elsif ( /^\/\/\$\$CDS-\*\/\$\$/ ) {
\r
142 $nTabsFound += $_ =~ s/\t/ /g;
\r
151 if ( open( my $fh, ">$file" )) {
\r
159 sub patch_file(@) {
\r
164 if ( open( my $fh, $file )) {
\r
168 $str .= $_ while <$fh> ;
\r
171 $str =~ s/$seek/$repl/g ;
\r
173 if ( open( my $fh, ">$file" )) {
\r