mark Windows build scripts executable
[git] / contrib / buildsystems / parse.pl
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 ######################################################################
10 use strict;
11 use File::Basename;
12 use Cwd;
13
14 my $file = $ARGV[0];
15 die "No file provided!" if !defined $file;
16
17 my ($cflags, $target, $type, $line);
18
19 open(F, "<$file") || die "Couldn't open file $file";
20 my @data = <F>;
21 close(F);
22
23 while (my $text = shift @data) {
24     my $ate_next;
25     do {
26         $ate_next = 0;
27         $line++;
28         chomp $text;
29         chop $text if ($text =~ /\r$/);
30         if ($text =~ /\\$/) {
31             $text =~ s/\\$//;
32             $text .= shift @data;
33             $ate_next = 1;
34         }
35     } while($ate_next);
36
37     if($text =~ / -c /) {
38         # compilation
39         handleCompileLine($text, $line);
40
41     } elsif ($text =~ / -o /) {
42         # linking executable
43         handleLinkLine($text, $line);
44
45     } elsif ($text =~ /\.o / && $text =~ /\.a /) {
46         # libifying
47         handleLibLine($text, $line);
48
49 #    } elsif ($text =~ /^cp /) {
50 #        # copy file around
51 #
52 #    } elsif ($text =~ /^rm -f /) {
53 #        # shell command
54 #
55 #    } elsif ($text =~ /^make[ \[]/) {
56 #        # make output
57 #
58 #    } elsif ($text =~ /^echo /) {
59 #        # echo to file
60 #
61 #    } elsif ($text =~ /^if /) {
62 #        # shell conditional
63 #
64 #    } elsif ($text =~ /^tclsh /) {
65 #        # translation stuff
66 #
67 #    } elsif ($text =~ /^umask /) {
68 #        # handling boilerplates
69 #
70 #    } elsif ($text =~ /\$\(\:\)/) {
71 #        # ignore
72 #
73 #    } elsif ($text =~ /^FLAGS=/) {
74 #        # flags check for dependencies
75 #
76 #    } elsif ($text =~ /^'\/usr\/bin\/perl' -MError -e/) {
77 #        # perl commands for copying files
78 #
79 #    } elsif ($text =~ /generate-cmdlist\.sh/) {
80 #        # command for generating list of commands
81 #
82 #    } elsif ($text =~ /^test / && $text =~ /|| rm -f /) {
83 #        # commands removing executables, if they exist
84 #
85 #    } elsif ($text =~ /new locations or Tcl/) {
86 #        # command for detecting Tcl/Tk changes
87 #
88 #    } elsif ($text =~ /mkdir -p/) {
89 #        # command creating path
90 #
91 #    } elsif ($text =~ /: no custom templates yet/) {
92 #        # whatever
93
94     } else {
95 #        print "Unhandled (line: $line): $text\n";
96     }
97 }
98 close(F);
99
100 # use Data::Dumper;
101 # print "Parsed build structure:\n";
102 # print Dumper(%build_structure);
103
104 # -------------------------------------------------------------------
105 # Functions under here
106 # -------------------------------------------------------------------
107 my (%build_structure, @defines, @incpaths, @cflags, @sources);
108
109 sub clearCompileStep
110 {
111     @defines = ();
112     @incpaths = ();
113     @cflags = ();
114     @sources = ();
115 }
116
117 sub removeDuplicates
118 {
119     my (%dupHash, $entry);
120     %dupHash = map { $_, 1 } @defines;
121     @defines = keys %dupHash;
122
123     %dupHash = map { $_, 1 } @incpaths;
124     @incpaths = keys %dupHash;
125
126     %dupHash = map { $_, 1 } @cflags;
127     @cflags = keys %dupHash;
128
129     %dupHash = map { $_, 1 } @sources;
130     @sources = keys %dupHash;
131 }
132
133 sub handleCompileLine
134 {
135     my ($line, $lineno) = @_;
136     my @parts = split(' ', $line);
137     shift(@parts); # ignore cmd
138     while (my $part = shift @parts) {
139         if ("$part" eq "-o") {
140             # ignore object file
141             shift @parts;
142         } elsif ("$part" eq "-c") {
143             # ignore compile flag
144         } elsif ("$part" eq "-c") {
145         } elsif ($part =~ /^.?-I/) {
146             push(@incpaths, $part);
147         } elsif ($part =~ /^.?-D/) {
148             push(@defines, $part);
149         } elsif ($part =~ /^-/) {
150             push(@cflags, $part);
151         } elsif ($part =~ /\.(c|cc|cpp)$/) {
152             push(@sources, $part);
153         } else {
154             die "Unhandled compiler option @ line $lineno: $part";
155         }
156     }
157     #print "Sources: @sources\nCFlags: @cflags\nDefine: @defines\nIncpat: @incpaths\n";
158     #exit(1);
159 }
160
161 sub handleLibLine
162 {
163     my ($line, $lineno) = @_;
164     my (@objfiles, @lflags, $libout, $part);
165     # kill cmd and rm 'prefix'
166     $line =~ s/^rm -f .* && .* rcs //;
167     my @parts = split(' ', $line);
168     while ($part = shift @parts) {
169         if ($part =~ /^-/) {
170             push(@lflags, $part);
171         } elsif ($part =~ /\.(o|obj)$/) {
172             push(@objfiles, $part);
173         } elsif ($part =~ /\.(a|lib)$/) {
174             $libout = $part;
175         } else {
176             die "Unhandled lib option @ line $lineno: $part";
177         }
178     }
179     #print "LibOut: '$libout'\nLFlags: @lflags\nOfiles: @objfiles\n";
180     #exit(1);
181     removeDuplicates();
182     push(@{$build_structure{"LIBS"}}, $libout);
183     @{$build_structure{"LIBS_${libout}"}} = ("_DEFINES", "_INCLUDES", "_CFLAGS", "_SOURCES",
184                                              "_OBJECTS");
185     @{$build_structure{"LIBS_${libout}_DEFINES"}} = @defines;
186     @{$build_structure{"LIBS_${libout}_INCLUDES"}} = @incpaths;
187     @{$build_structure{"LIBS_${libout}_CFLAGS"}} = @cflags;
188     @{$build_structure{"LIBS_${libout}_SOURCES"}} = @sources;
189     @{$build_structure{"LIBS_${libout}_OBJECTS"}} = @objfiles;
190     clearCompileStep();
191 }
192
193 sub handleLinkLine
194 {
195     my ($line, $lineno) = @_;
196     my (@objfiles, @lflags, @libs, $appout, $part);
197     my @parts = split(' ', $line);
198     shift(@parts); # ignore cmd
199     while ($part = shift @parts) {
200         if ($part =~ /^-[GRIDO]/) {
201             # eat compiler flags
202         } elsif ("$part" eq "-o") {
203             $appout = shift @parts;
204         } elsif ($part =~ /^-/) {
205             push(@lflags, $part);
206         } elsif ($part =~ /\.(a|lib)$/) {
207             push(@libs, $part);
208         } elsif ($part =~ /\.(o|obj)$/) {
209             push(@objfiles, $part);
210         } else {
211             die "Unhandled lib option @ line $lineno: $part";
212         }
213     }
214     #print "AppOut: '$appout'\nLFlags: @lflags\nLibs  : @libs\nOfiles: @objfiles\n";
215     #exit(1);
216     removeDuplicates();
217     push(@{$build_structure{"APPS"}}, $appout);
218     @{$build_structure{"APPS_${appout}"}} = ("_DEFINES", "_INCLUDES", "_CFLAGS", "_LFLAGS",
219                                              "_SOURCES", "_OBJECTS", "_LIBS");
220     @{$build_structure{"APPS_${appout}_DEFINES"}} = @defines;
221     @{$build_structure{"APPS_${appout}_INCLUDES"}} = @incpaths;
222     @{$build_structure{"APPS_${appout}_CFLAGS"}} = @cflags;
223     @{$build_structure{"APPS_${appout}_LFLAGS"}} = @lflags;
224     @{$build_structure{"APPS_${appout}_SOURCES"}} = @sources;
225     @{$build_structure{"APPS_${appout}_OBJECTS"}} = @objfiles;
226     @{$build_structure{"APPS_${appout}_LIBS"}} = @libs;
227     clearCompileStep();
228 }