53e65d4db713c3d45ad70421eb50d5e16f9c5757
   1#!/usr/bin/perl -w
   2######################################################################
   3# Do not call this script directly!
   4#
   5# The generate script ensures that @INC is correct before the engine
   6# is executed.
   7#
   8# Copyright (C) 2009 Marius Storm-Olsen <mstormo@gmail.com>
   9######################################################################
  10use strict;
  11use File::Basename;
  12use File::Spec;
  13use Cwd;
  14use Generators;
  15
  16my (%build_structure, %compile_options, @makedry);
  17my $out_dir = getcwd();
  18my $git_dir = $out_dir;
  19$git_dir =~ s=\\=/=g;
  20$git_dir = dirname($git_dir) while (!-e "$git_dir/git.c" && "$git_dir" ne "");
  21die "Couldn't find Git repo" if ("$git_dir" eq "");
  22
  23my @gens = Generators::available();
  24my $gen = "Vcproj";
  25
  26sub showUsage
  27{
  28    my $genlist = join(', ', @gens);
  29    print << "EOM";
  30generate usage:
  31  -g <GENERATOR>  --gen <GENERATOR> Specify the buildsystem generator    (default: $gen)
  32                                    Available: $genlist
  33  -o <PATH>       --out <PATH>      Specify output directory generation  (default: .)
  34  -i <FILE>       --in <FILE>       Specify input file, instead of running GNU Make
  35  -h,-?           --help            This help
  36EOM
  37    exit 0;
  38}
  39
  40# Parse command-line options
  41while (@ARGV) {
  42    my $arg = shift @ARGV;
  43    if ("$arg" eq "-h" || "$arg" eq "--help" || "$arg" eq "-?") {
  44        showUsage();
  45        exit(0);
  46    } elsif("$arg" eq "--out" || "$arg" eq "-o") {
  47        $out_dir = shift @ARGV;
  48    } elsif("$arg" eq "--gen" || "$arg" eq "-g") {
  49        $gen = shift @ARGV;
  50    } elsif("$arg" eq "--in" || "$arg" eq "-i") {
  51        my $infile = shift @ARGV;
  52        open(F, "<$infile") || die "Couldn't open file $infile";
  53        @makedry = <F>;
  54        close(F);
  55    }
  56}
  57
  58# NOT using File::Spec->rel2abs($path, $base) here, as
  59# it fails badly for me in the msysgit environment
  60$git_dir = File::Spec->rel2abs($git_dir);
  61$out_dir = File::Spec->rel2abs($out_dir);
  62my $rel_dir = makeOutRel2Git($git_dir, $out_dir);
  63
  64# Print some information so the user feels informed
  65print << "EOM";
  66-----
  67Generator: $gen
  68Git dir:   $git_dir
  69Out dir:   $out_dir
  70-----
  71Running GNU Make to figure out build structure...
  72EOM
  73
  74# Pipe a make --dry-run into a variable, if not already loaded from file
  75@makedry = `cd $git_dir && make -n MSVC=1 V=1 2>/dev/null` if !@makedry;
  76
  77# Parse the make output into usable info
  78parseMakeOutput();
  79
  80# Finally, ask the generator to start generating..
  81Generators::generate($gen, $git_dir, $out_dir, $rel_dir, %build_structure);
  82
  83# main flow ends here
  84# -------------------------------------------------------------------------------------------------
  85
  86
  87# 1) path: /foo/bar/baz        2) path: /foo/bar/baz   3) path: /foo/bar/baz
  88#    base: /foo/bar/baz/temp      base: /foo/bar          base: /tmp
  89#    rel:  ..                     rel:  baz               rel:  ../foo/bar/baz
  90sub makeOutRel2Git
  91{
  92    my ($path, $base) = @_;
  93    my $rel;
  94    if ("$path" eq "$base") {
  95        return ".";
  96    } elsif ($base =~ /^$path/) {
  97        # case 1
  98        my $tmp = $base;
  99        $tmp =~ s/^$path//;
 100        foreach (split('/', $tmp)) {
 101            $rel .= "../" if ("$_" ne "");
 102        }
 103    } elsif ($path =~ /^$base/) {
 104        # case 2
 105        $rel = $path;
 106        $rel =~ s/^$base//;
 107        $rel = "./$rel";
 108    } else {
 109        my $tmp = $base;
 110        foreach (split('/', $tmp)) {
 111            $rel .= "../" if ("$_" ne "");
 112        }
 113        $rel .= $path;
 114    }
 115    $rel =~ s/\/\//\//g; # simplify
 116    $rel =~ s/\/$//;     # don't end with /
 117    return $rel;
 118}
 119
 120sub parseMakeOutput
 121{
 122    print "Parsing GNU Make output to figure out build structure...\n";
 123    my $line = 0;
 124    while (my $text = shift @makedry) {
 125        my $ate_next;
 126        do {
 127            $ate_next = 0;
 128            $line++;
 129            chomp $text;
 130            chop $text if ($text =~ /\r$/);
 131            if ($text =~ /\\$/) {
 132                $text =~ s/\\$//;
 133                $text .= shift @makedry;
 134                $ate_next = 1;
 135            }
 136        } while($ate_next);
 137
 138        if ($text =~ /^test /) {
 139            # options to test (eg -o) may be mistaken for linker options
 140            next;
 141        }
 142
 143        if($text =~ / -c /) {
 144            # compilation
 145            handleCompileLine($text, $line);
 146
 147        } elsif ($text =~ / -o /) {
 148            # linking executable
 149            handleLinkLine($text, $line);
 150
 151        } elsif ($text =~ /\.o / && $text =~ /\.a /) {
 152            # libifying
 153            handleLibLine($text, $line);
 154#
 155#        } elsif ($text =~ /^cp /) {
 156#            # copy file around
 157#
 158#        } elsif ($text =~ /^rm -f /) {
 159#            # shell command
 160#
 161#        } elsif ($text =~ /^make[ \[]/) {
 162#            # make output
 163#
 164#        } elsif ($text =~ /^echo /) {
 165#            # echo to file
 166#
 167#        } elsif ($text =~ /^if /) {
 168#            # shell conditional
 169#
 170#        } elsif ($text =~ /^tclsh /) {
 171#            # translation stuff
 172#
 173#        } elsif ($text =~ /^umask /) {
 174#            # handling boilerplates
 175#
 176#        } elsif ($text =~ /\$\(\:\)/) {
 177#            # ignore
 178#
 179#        } elsif ($text =~ /^FLAGS=/) {
 180#            # flags check for dependencies
 181#
 182#        } elsif ($text =~ /^'\/usr\/bin\/perl' -MError -e/) {
 183#            # perl commands for copying files
 184#
 185#        } elsif ($text =~ /generate-cmdlist\.sh/) {
 186#            # command for generating list of commands
 187#
 188#        } elsif ($text =~ /new locations or Tcl/) {
 189#            # command for detecting Tcl/Tk changes
 190#
 191#        } elsif ($text =~ /mkdir -p/) {
 192#            # command creating path
 193#
 194#        } elsif ($text =~ /: no custom templates yet/) {
 195#            # whatever
 196#
 197#        } else {
 198#            print "Unhandled (line: $line): $text\n";
 199        }
 200    }
 201
 202#    use Data::Dumper;
 203#    print "Parsed build structure:\n";
 204#    print Dumper(%build_structure);
 205}
 206
 207# variables for the compilation part of each step
 208my (@defines, @incpaths, @cflags, @sources);
 209
 210sub clearCompileStep
 211{
 212    @defines = ();
 213    @incpaths = ();
 214    @cflags = ();
 215    @sources = ();
 216}
 217
 218sub removeDuplicates
 219{
 220    my (%dupHash, $entry);
 221    %dupHash = map { $_, 1 } @defines;
 222    @defines = keys %dupHash;
 223
 224    %dupHash = map { $_, 1 } @incpaths;
 225    @incpaths = keys %dupHash;
 226
 227    %dupHash = map { $_, 1 } @cflags;
 228    @cflags = keys %dupHash;
 229}
 230
 231sub handleCompileLine
 232{
 233    my ($line, $lineno) = @_;
 234    my @parts = split(' ', $line);
 235    my $sourcefile;
 236    shift(@parts); # ignore cmd
 237    while (my $part = shift @parts) {
 238        if ("$part" eq "-o") {
 239            # ignore object file
 240            shift @parts;
 241        } elsif ("$part" eq "-c") {
 242            # ignore compile flag
 243        } elsif ("$part" eq "-c") {
 244        } elsif ($part =~ /^.?-I/) {
 245            push(@incpaths, $part);
 246        } elsif ($part =~ /^.?-D/) {
 247            push(@defines, $part);
 248        } elsif ($part =~ /^-/) {
 249            push(@cflags, $part);
 250        } elsif ($part =~ /\.(c|cc|cpp)$/) {
 251            $sourcefile = $part;
 252        } else {
 253            die "Unhandled compiler option @ line $lineno: $part";
 254        }
 255    }
 256    @{$compile_options{"${sourcefile}_CFLAGS"}} = @cflags;
 257    @{$compile_options{"${sourcefile}_DEFINES"}} = @defines;
 258    @{$compile_options{"${sourcefile}_INCPATHS"}} = @incpaths;
 259    clearCompileStep();
 260}
 261
 262sub handleLibLine
 263{
 264    my ($line, $lineno) = @_;
 265    my (@objfiles, @lflags, $libout, $part);
 266    # kill cmd and rm 'prefix'
 267    $line =~ s/^rm -f .* && .* rcs //;
 268    my @parts = split(' ', $line);
 269    while ($part = shift @parts) {
 270        if ($part =~ /^-/) {
 271            push(@lflags, $part);
 272        } elsif ($part =~ /\.(o|obj)$/) {
 273            push(@objfiles, $part);
 274        } elsif ($part =~ /\.(a|lib)$/) {
 275            $libout = $part;
 276            $libout =~ s/\.a$//;
 277        } else {
 278            die "Unhandled lib option @ line $lineno: $part";
 279        }
 280    }
 281#    print "LibOut: '$libout'\nLFlags: @lflags\nOfiles: @objfiles\n";
 282#    exit(1);
 283    foreach (@objfiles) {
 284        my $sourcefile = $_;
 285        $sourcefile =~ s/\.o$/.c/;
 286        push(@sources, $sourcefile);
 287        push(@cflags, @{$compile_options{"${sourcefile}_CFLAGS"}});
 288        push(@defines, @{$compile_options{"${sourcefile}_DEFINES"}});
 289        push(@incpaths, @{$compile_options{"${sourcefile}_INCPATHS"}});
 290    }
 291    removeDuplicates();
 292
 293    push(@{$build_structure{"LIBS"}}, $libout);
 294    @{$build_structure{"LIBS_${libout}"}} = ("_DEFINES", "_INCLUDES", "_CFLAGS", "_SOURCES",
 295                                             "_OBJECTS");
 296    @{$build_structure{"LIBS_${libout}_DEFINES"}} = @defines;
 297    @{$build_structure{"LIBS_${libout}_INCLUDES"}} = @incpaths;
 298    @{$build_structure{"LIBS_${libout}_CFLAGS"}} = @cflags;
 299    @{$build_structure{"LIBS_${libout}_LFLAGS"}} = @lflags;
 300    @{$build_structure{"LIBS_${libout}_SOURCES"}} = @sources;
 301    @{$build_structure{"LIBS_${libout}_OBJECTS"}} = @objfiles;
 302    clearCompileStep();
 303}
 304
 305sub handleLinkLine
 306{
 307    my ($line, $lineno) = @_;
 308    my (@objfiles, @lflags, @libs, $appout, $part);
 309    my @parts = split(' ', $line);
 310    shift(@parts); # ignore cmd
 311    while ($part = shift @parts) {
 312        if ($part =~ /^-IGNORE/) {
 313            push(@lflags, $part);
 314        } elsif ($part =~ /^-[GRIMDO]/) {
 315            # eat compiler flags
 316        } elsif ("$part" eq "-o") {
 317            $appout = shift @parts;
 318        } elsif ("$part" eq "-lz") {
 319            push(@libs, "zlib.lib");
 320        } elsif ("$part" eq "-lcrypto") {
 321            push(@libs, "libeay32.lib");
 322        } elsif ("$part" eq "-lssl") {
 323            push(@libs, "ssleay32.lib");
 324        } elsif ($part =~ /^-/) {
 325            push(@lflags, $part);
 326        } elsif ($part =~ /\.(a|lib)$/) {
 327            $part =~ s/\.a$/.lib/;
 328            push(@libs, $part);
 329        } elsif ($part eq 'invalidcontinue.obj') {
 330            # ignore - known to MSVC
 331        } elsif ($part =~ /\.o$/) {
 332            push(@objfiles, $part);
 333        } elsif ($part =~ /\.obj$/) {
 334            # do nothing, 'make' should not be producing .obj, only .o files
 335        } else {
 336            die "Unhandled lib option @ line $lineno: $part";
 337        }
 338    }
 339#    print "AppOut: '$appout'\nLFlags: @lflags\nLibs  : @libs\nOfiles: @objfiles\n";
 340#    exit(1);
 341    foreach (@objfiles) {
 342        my $sourcefile = $_;
 343        $sourcefile =~ s/\.o$/.c/;
 344        push(@sources, $sourcefile);
 345        push(@cflags, @{$compile_options{"${sourcefile}_CFLAGS"}});
 346        push(@defines, @{$compile_options{"${sourcefile}_DEFINES"}});
 347        push(@incpaths, @{$compile_options{"${sourcefile}_INCPATHS"}});
 348    }
 349    removeDuplicates();
 350
 351    removeDuplicates();
 352    push(@{$build_structure{"APPS"}}, $appout);
 353    @{$build_structure{"APPS_${appout}"}} = ("_DEFINES", "_INCLUDES", "_CFLAGS", "_LFLAGS",
 354                                             "_SOURCES", "_OBJECTS", "_LIBS");
 355    @{$build_structure{"APPS_${appout}_DEFINES"}} = @defines;
 356    @{$build_structure{"APPS_${appout}_INCLUDES"}} = @incpaths;
 357    @{$build_structure{"APPS_${appout}_CFLAGS"}} = @cflags;
 358    @{$build_structure{"APPS_${appout}_LFLAGS"}} = @lflags;
 359    @{$build_structure{"APPS_${appout}_SOURCES"}} = @sources;
 360    @{$build_structure{"APPS_${appout}_OBJECTS"}} = @objfiles;
 361    @{$build_structure{"APPS_${appout}_LIBS"}} = @libs;
 362    clearCompileStep();
 363}