Merge branch 'dev'
[libcds.git] / tools / make_distrib.pl
1 #!/usr/bin/perl\r
2 \r
3 my $curDir = `cd`;\r
4 \r
5 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);\r
6 $year += 1900;\r
7 \r
8 \r
9 # Get libcds version\r
10 my $Version = get_version();\r
11 print "Make libcds-$Version distributive\n";\r
12 \r
13 my $DistrDir = get_distrib_dir();\r
14 print "Distrib dir: $DistrDir\n";\r
15 \r
16 # Git clone\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`;\r
24 \r
25 print "make copyright...\n" ;\r
26 makeCopyright($DistrDir);\r
27 \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
34 \r
35 print "Make docs\n";\r
36 `cd $DistrDir/tools && make_docs.bat && rm doxygen.log && cd $curDir`;\r
37   \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
41 \r
42 print "Done\n" ;\r
43 exit ;\r
44 \r
45   \r
46 sub get_version()\r
47 {\r
48         my $version;\r
49         open( my $fh, 'cds/version.h' ) or die "ERROR: Cannot find ../cds/version.h file";\r
50         binmode $fh ;\r
51         \r
52         while (<$fh>) {\r
53                 if ( /CDS_VERSION_STRING.+(\d+\.\d+\.\d+)/ ) {\r
54                         $version = $1 ;\r
55                         last    ;\r
56                 }\r
57         }\r
58         close $fh ;\r
59         die "ERROR: cannot find version in ../cds/version.h" unless $version ;\r
60 }\r
61 \r
62 sub get_distrib_dir()\r
63 {\r
64         my $dir = "../cds-distrib/cds-$Version";\r
65         `rm -fr $dir` if -d $dir;\r
66         mkdir $dir;\r
67         return $dir;\r
68 }\r
69 \r
70 sub get_git_repo()\r
71 {\r
72         return 'git@github.com:khizmax/libcds.git';\r
73 }\r
74 \r
75 sub get_git_branch()\r
76 {\r
77         my $branchList = `git branch`;\r
78         #print "$branchList\n";\r
79         \r
80         # Search "v$Version-rc" branch\r
81         my ($branch) = $branchList =~ /(v$Version-rc\d*)/g;\r
82         return $branch || 'master';\r
83 }\r
84 \r
85 sub makeCopyright($) \r
86 {\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
93 }\r
94 \r
95 sub processDir( $ )\r
96 {\r
97         my $dirName = shift ;\r
98         \r
99         opendir(my $dh, $dirName) || die "can't opendir $dirName: $!";\r
100     my @files = grep { /^[^\.]/ } readdir($dh);\r
101     closedir $dh;\r
102         \r
103         foreach my $file ( @files ) {\r
104                 if ( -d "$dirName/$file" ) {\r
105                         processDir("$dirName/$file")    ;\r
106                 }\r
107                 elsif ( $file =~ /\.(h|cpp)$/ ) {\r
108                         processFile( "$dirName/$file" ) ;\r
109                 }\r
110         }\r
111 }\r
112 \r
113 sub processFile( $ ) \r
114 {\r
115         my $file = shift        ;\r
116 \r
117         \r
118         if ( open( my $fh, $file )) {\r
119                 binmode $fh     ;\r
120                 my $str = ''            ;\r
121                 while (<$fh>) {\r
122                         if ( /^\/\/\$\$CDS-header\$\$/ ) {\r
123                                 $str .= \r
124 "/*\r
125     This file is a part of libcds - Concurrent Data Structures library\r
126     Version: $Version\r
127 \r
128     (C) Copyright Maxim Khizhinsky (libcds.dev\@gmail.com) 2006-$year\r
129     Distributed under the BSD license (see accompanying file license.txt)\r
130 \r
131     Source code repo: http://github.com/khizmax/libcds/\r
132     Download: http://sourceforge.net/projects/libcds/files/\r
133 */\n" ;\r
134                         }\r
135                         elsif ( /^\/\/\$\$CDS-\/\*\$\$/ ) {\r
136                                 $str .= "/*\n" ;\r
137                         }\r
138                         elsif ( /^\/\/\$\$CDS-\*\/\$\$/ ) {\r
139                                 $str .= "*/\n" ;\r
140                         }\r
141                         else {\r
142                 $nTabsFound += $_ =~ s/\t/    /g;\r
143                 $_ =~ s/\s+$//  ;\r
144                                 $_ =~ s/\s+;$/;/;\r
145                                 $str .= $_      ;\r
146                 $str .= "\n"    ;\r
147                         }\r
148                 }\r
149                 close $fh       ;\r
150                 \r
151                 if ( open( my $fh, ">$file" )) {\r
152                         binmode $fh     ;\r
153                         print $fh $str  ;\r
154                         close $fh               ;\r
155                 }\r
156         }\r
157 }\r
158 \r
159 sub patch_file(@) {\r
160         my $file = shift        ;\r
161         my $seek = shift        ;\r
162         my $repl = shift        ;\r
163         \r
164         if ( open( my $fh, $file )) {\r
165                 binmode $fh     ;\r
166                 \r
167                 my $str = ''    ;\r
168                 $str .= $_ while <$fh>  ;\r
169                 close $fh ;\r
170                 \r
171                 $str =~ s/$seek/$repl/g ;\r
172                 \r
173                 if ( open( my $fh, ">$file" )) {\r
174                         binmode $fh     ;\r
175                         print $fh $str  ;\r
176                         close $fh               ;\r
177                 }\r
178         }\r
179 }\r