2 ######################################################################
3 # Do not call this script directly!
5 # The generate script ensures that @INC is correct before the engine
8 # Copyright (C) 2009 Marius Storm-Olsen <mstormo@gmail.com>
9 ######################################################################
17 my (%build_structure, %compile_options, @makedry);
18 my $out_dir = getcwd
();
19 my $git_dir = $out_dir;
21 $git_dir = dirname
($git_dir) while (!-e
"$git_dir/git.c" && "$git_dir" ne "");
22 die "Couldn't find Git repo" if ("$git_dir" eq "");
24 my @gens = Generators
::available
();
29 my $genlist = join(', ', @gens);
32 -g
<GENERATOR
> --gen
<GENERATOR
> Specify the buildsystem generator
(default: $gen)
34 -o
<PATH
> --out
<PATH
> Specify output directory generation
(default: .)
35 -i
<FILE
> --in <FILE
> Specify input file
, instead of running GNU Make
36 -h
,-?
--help This help
41 # Parse command-line options
43 my $arg = shift @ARGV;
44 if ("$arg" eq "-h" || "$arg" eq "--help" || "$arg" eq "-?") {
47 } elsif("$arg" eq "--out" || "$arg" eq "-o") {
48 $out_dir = shift @ARGV;
49 } elsif("$arg" eq "--gen" || "$arg" eq "-g") {
51 } elsif("$arg" eq "--in" || "$arg" eq "-i") {
52 my $infile = shift @ARGV;
53 open(F
, "<$infile") || die "Couldn't open file $infile";
59 # NOT using File::Spec->rel2abs($path, $base) here, as
60 # it fails badly for me in the msysgit environment
61 $git_dir = File
::Spec
->rel2abs($git_dir);
62 $out_dir = File
::Spec
->rel2abs($out_dir);
63 my $rel_dir = makeOutRel2Git
($git_dir, $out_dir);
65 # Print some information so the user feels informed
72 Running GNU Make to figure out build structure
...
75 # Pipe a make --dry-run into a variable, if not already loaded from file
76 @makedry = `cd $git_dir && make -n MSVC=1 V=1 2>/dev/null` if !@makedry;
78 # Parse the make output into usable info
81 # Finally, ask the generator to start generating..
82 Generators
::generate
($gen, $git_dir, $out_dir, $rel_dir, %build_structure);
85 # -------------------------------------------------------------------------------------------------
88 # 1) path: /foo/bar/baz 2) path: /foo/bar/baz 3) path: /foo/bar/baz
89 # base: /foo/bar/baz/temp base: /foo/bar base: /tmp
90 # rel: .. rel: baz rel: ../foo/bar/baz
93 my ($path, $base) = @_;
95 if ("$path" eq "$base") {
97 } elsif ($base =~ /^$path/) {
101 foreach (split('/', $tmp)) {
102 $rel .= "../" if ("$_" ne "");
104 } elsif ($path =~ /^$base/) {
111 foreach (split('/', $tmp)) {
112 $rel .= "../" if ("$_" ne "");
116 $rel =~ s/\/\//\//g
; # simplify
117 $rel =~ s/\/$//; # don't end with /
123 print "Parsing GNU Make output to figure out build structure...\n";
125 while (my $text = shift @makedry) {
131 chop $text if ($text =~ /\r$/);
132 if ($text =~ /\\$/) {
134 $text .= shift @makedry;
139 if ($text =~ /^test /) {
140 # options to test (eg -o) may be mistaken for linker options
144 if($text =~ / -c /) {
146 handleCompileLine
($text, $line);
148 } elsif ($text =~ / -o /) {
150 handleLinkLine
($text, $line);
152 } elsif ($text =~ /\.o / && $text =~ /\.a /) {
154 handleLibLine
($text, $line);
156 # } elsif ($text =~ /^cp /) {
159 # } elsif ($text =~ /^rm -f /) {
162 # } elsif ($text =~ /^make[ \[]/) {
165 # } elsif ($text =~ /^echo /) {
168 # } elsif ($text =~ /^if /) {
169 # # shell conditional
171 # } elsif ($text =~ /^tclsh /) {
172 # # translation stuff
174 # } elsif ($text =~ /^umask /) {
175 # # handling boilerplates
177 # } elsif ($text =~ /\$\(\:\)/) {
180 # } elsif ($text =~ /^FLAGS=/) {
181 # # flags check for dependencies
183 # } elsif ($text =~ /^'\/usr\/bin\/perl' -MError -e/) {
184 # # perl commands for copying files
186 # } elsif ($text =~ /generate-cmdlist\.sh/) {
187 # # command for generating list of commands
189 # } elsif ($text =~ /new locations or Tcl/) {
190 # # command for detecting Tcl/Tk changes
192 # } elsif ($text =~ /mkdir -p/) {
193 # # command creating path
195 # } elsif ($text =~ /: no custom templates yet/) {
199 # print "Unhandled (line: $line): $text\n";
204 # print "Parsed build structure:\n";
205 # print Dumper(%build_structure);
208 # variables for the compilation part of each step
209 my (@defines, @incpaths, @cflags, @sources);
221 my (%dupHash, $entry);
222 %dupHash = map { $_, 1 } @defines;
223 @defines = keys %dupHash;
225 %dupHash = map { $_, 1 } @incpaths;
226 @incpaths = keys %dupHash;
228 %dupHash = map { $_, 1 } @cflags;
229 @cflags = keys %dupHash;
232 sub handleCompileLine
234 my ($line, $lineno) = @_;
235 my @parts = shellwords
($line);
237 shift(@parts); # ignore cmd
238 while (my $part = shift @parts) {
239 if ("$part" eq "-o") {
242 } elsif ("$part" eq "-c") {
243 # ignore compile flag
244 } elsif ("$part" eq "-c") {
245 } elsif ($part =~ /^.?-I/) {
246 push(@incpaths, $part);
247 } elsif ($part =~ /^.?-D/) {
248 push(@defines, $part);
249 } elsif ($part =~ /^-/) {
250 push(@cflags, $part);
251 } elsif ($part =~ /\.(c|cc|cpp)$/) {
254 die "Unhandled compiler option @ line $lineno: $part";
257 @
{$compile_options{"${sourcefile}_CFLAGS"}} = @cflags;
258 @
{$compile_options{"${sourcefile}_DEFINES"}} = @defines;
259 @
{$compile_options{"${sourcefile}_INCPATHS"}} = @incpaths;
265 my ($line, $lineno) = @_;
266 my (@objfiles, @lflags, $libout, $part);
267 # kill cmd and rm 'prefix'
268 $line =~ s/^rm -f .* && .* rcs //;
269 my @parts = shellwords
($line);
270 while ($part = shift @parts) {
272 push(@lflags, $part);
273 } elsif ($part =~ /\.(o|obj)$/) {
274 push(@objfiles, $part);
275 } elsif ($part =~ /\.(a|lib)$/) {
279 die "Unhandled lib option @ line $lineno: $part";
282 # print "LibOut: '$libout'\nLFlags: @lflags\nOfiles: @objfiles\n";
284 foreach (@objfiles) {
286 $sourcefile =~ s/\.o$/.c/;
287 push(@sources, $sourcefile);
288 push(@cflags, @
{$compile_options{"${sourcefile}_CFLAGS"}});
289 push(@defines, @
{$compile_options{"${sourcefile}_DEFINES"}});
290 push(@incpaths, @
{$compile_options{"${sourcefile}_INCPATHS"}});
294 push(@
{$build_structure{"LIBS"}}, $libout);
295 @
{$build_structure{"LIBS_${libout}"}} = ("_DEFINES", "_INCLUDES", "_CFLAGS", "_SOURCES",
297 @
{$build_structure{"LIBS_${libout}_DEFINES"}} = @defines;
298 @
{$build_structure{"LIBS_${libout}_INCLUDES"}} = @incpaths;
299 @
{$build_structure{"LIBS_${libout}_CFLAGS"}} = @cflags;
300 @
{$build_structure{"LIBS_${libout}_LFLAGS"}} = @lflags;
301 @
{$build_structure{"LIBS_${libout}_SOURCES"}} = @sources;
302 @
{$build_structure{"LIBS_${libout}_OBJECTS"}} = @objfiles;
308 my ($line, $lineno) = @_;
309 my (@objfiles, @lflags, @libs, $appout, $part);
310 my @parts = shellwords
($line);
311 shift(@parts); # ignore cmd
312 while ($part = shift @parts) {
313 if ($part =~ /^-IGNORE/) {
314 push(@lflags, $part);
315 } elsif ($part =~ /^-[GRIMDO]/) {
317 } elsif ("$part" eq "-o") {
318 $appout = shift @parts;
319 } elsif ("$part" eq "-lz") {
320 push(@libs, "zlib.lib");
321 } elsif ("$part" eq "-lcrypto") {
322 push(@libs, "libeay32.lib");
323 } elsif ("$part" eq "-lssl") {
324 push(@libs, "ssleay32.lib");
325 } elsif ($part =~ /^-/) {
326 push(@lflags, $part);
327 } elsif ($part =~ /\.(a|lib)$/) {
328 $part =~ s/\.a$/.lib/;
330 } elsif ($part eq 'invalidcontinue.obj') {
331 # ignore - known to MSVC
332 } elsif ($part =~ /\.o$/) {
333 push(@objfiles, $part);
334 } elsif ($part =~ /\.obj$/) {
335 # do nothing, 'make' should not be producing .obj, only .o files
337 die "Unhandled link option @ line $lineno: $part";
340 # print "AppOut: '$appout'\nLFlags: @lflags\nLibs : @libs\nOfiles: @objfiles\n";
342 foreach (@objfiles) {
344 $sourcefile =~ s/\.o$/.c/;
345 push(@sources, $sourcefile);
346 push(@cflags, @
{$compile_options{"${sourcefile}_CFLAGS"}});
347 push(@defines, @
{$compile_options{"${sourcefile}_DEFINES"}});
348 push(@incpaths, @
{$compile_options{"${sourcefile}_INCPATHS"}});
353 push(@
{$build_structure{"APPS"}}, $appout);
354 @
{$build_structure{"APPS_${appout}"}} = ("_DEFINES", "_INCLUDES", "_CFLAGS", "_LFLAGS",
355 "_SOURCES", "_OBJECTS", "_LIBS");
356 @
{$build_structure{"APPS_${appout}_DEFINES"}} = @defines;
357 @
{$build_structure{"APPS_${appout}_INCLUDES"}} = @incpaths;
358 @
{$build_structure{"APPS_${appout}_CFLAGS"}} = @cflags;
359 @
{$build_structure{"APPS_${appout}_LFLAGS"}} = @lflags;
360 @
{$build_structure{"APPS_${appout}_SOURCES"}} = @sources;
361 @
{$build_structure{"APPS_${appout}_OBJECTS"}} = @objfiles;
362 @
{$build_structure{"APPS_${appout}_LIBS"}} = @libs;