MSForms: Reorder categories in menu
[LibreOffice.git] / autogen.sh
blob608e2b6ab82f3980dd4e9e0c8a0b4888c2e174aa
3 # This script checks various configure parameters and uses three files:
4 # * autogen.input (ro)
5 # * autogen.lastrun (rw)
6 # * autogen.lastrun.bak (rw)
8 # If _no_ parameters:
9 # Read args from autogen.input or autogen.lastrun
10 # Else
11 # Backup autogen.lastrun as autogen.lastrun.bak
12 # Write autogen.lastrun with new commandline args
14 # Run configure with checked args
16 eval 'exec perl -S $0 ${1+"$@"}'
17 if 0;
19 use strict;
20 use Cwd ('cwd', 'realpath');
21 use File::Basename;
23 my $src_path=dirname(realpath($0));
24 my $build_path=realpath(cwd());
25 # since this looks crazy, if you have a symlink on a path up to and including
26 # the current directory, we need our configure to run in the realpath of that
27 # such that compiled (realpath'd) dependency filenames match the filenames
28 # used in our makefiles - ie. this gets dependencies right via SRC_ROOT
29 chdir ($build_path);
30 # more amazingly, if you don't clobber 'PWD' shells will re-assert their
31 # old path from the environment, not cwd.
32 $ENV{PWD} = $build_path;
34 sub clean()
36 system ("rm -Rf autom4te.cache");
37 system ("rm -f missing install-sh mkinstalldirs libtool ltmain.sh");
38 print "Cleaned the build tree\n";
41 my $aclocal;
42 my $autoconf;
44 # check we have various vital tools
45 sub sanity_checks($)
47 my $system = shift;
48 my @path = split (':', $ENV{'PATH'});
49 my %required =
51 'pkg-config' => "pkg-config is required to be installed",
52 $autoconf => "autoconf is required",
53 $aclocal => "$aclocal is required",
56 for my $elem (@path) {
57 for my $app (keys %required) {
58 if (-f "$elem/$app") {
59 delete $required{$app};
63 if ((keys %required) > 0) {
64 print ("Various low-level dependencies are missing, please install them:\n");
65 for my $app (keys %required) {
66 print "\t $app: " . $required{$app} . "\n";
68 exit (1);
72 # one argument per line
73 sub read_args($)
75 my $file = shift;
76 my $fh;
77 my @lst;
78 open ($fh, $file) || die "can't open file: $file";
79 while (<$fh>) {
80 chomp();
81 s/^\s+//;
82 s/\s+$//;
83 # migrate from the old system
84 if ( substr($_, 0, 1) eq "'" ) {
85 print STDERR "Migrating options from the old autogen.lastrun format, using:\n";
86 my @opts;
87 @opts = split(/'/);
88 foreach my $opt (@opts) {
89 if ( substr($opt, 0, 1) eq "-" ) {
90 push @lst, $opt;
91 print STDERR " $opt\n";
94 } elsif ( substr($_, 0, 1) eq "#" ) {
95 # comment
96 } elsif ( length == 0 ) {
97 # empty line
98 } else {
99 push @lst, $_;
102 close ($fh);
103 # print "read args from file '$file': @lst\n";
104 return @lst;
107 sub show_distro_configs($$)
109 my ($prefix, $path) = @_;
110 my $dirh;
111 opendir ($dirh, "$path");
112 while (($_ = readdir ($dirh))) {
113 if (-d "$path/$_") {
114 show_distro_configs(
115 $prefix eq "" ? "$_/" : "$prefix/$_/", "$path/$_")
116 unless $_ eq '.' || $_ eq '..';
117 next;
119 /(.*)\.conf$/ || next;
120 print STDERR "\t$prefix$1\n";
122 closedir ($dirh);
125 sub invalid_distro($$)
127 my ($config, $distro) = @_;
128 print STDERR "Can't find distro option set: $config\n";
129 print STDERR "Distros with distro option sets are:\n";
130 show_distro_configs("", "$src_path/distro-configs");
131 exit (1);
134 # Avoid confusing "aclocal: error: non-option arguments are not accepted: '.../m4'." error message.
135 die "\$src_path must not contain spaces, but it is '$src_path'." if ($src_path =~ / /);
137 # Alloc $ACLOCAL to specify which aclocal to use
138 $aclocal = $ENV{ACLOCAL} ? $ENV{ACLOCAL} : 'aclocal';
139 # Alloc $AUTOCONF to specify which autoconf to use
140 # (e.g. autoconf268 from a backports repo)
141 $autoconf = $ENV{AUTOCONF} ? $ENV{AUTOCONF} : 'autoconf';
143 my $system = `uname -s`;
144 chomp $system;
146 sanity_checks ($system) unless($system eq 'Darwin');
148 # If we are running in a LODE env, make sure we find the right aclocal
149 # by making sure that LODE_HOME/opt/bin is in the PATH
150 if (defined $ENV{LODE_HOME})
152 my $lode_path = quotemeta "$ENV{LODE_HOME}/opt/bin";
153 if($ENV{PATH} !~ $lode_path)
155 $ENV{PATH}="$ENV{LODE_HOME}/opt/bin:$ENV{PATH}";
156 print STDERR "add LODE_HOME/opt/bin in PATH\n";
160 my $aclocal_flags = $ENV{ACLOCAL_FLAGS};
162 $aclocal_flags .= " -I $src_path/m4";
163 $aclocal_flags .= " -I $src_path/m4/mac" if ($system eq 'Darwin');
164 $aclocal_flags .= " -I /opt/freeware/share/aclocal" if ($system eq 'AIX');
166 $ENV{AUTOMAKE_EXTRA_FLAGS} = '--warnings=no-portability' if (!($system eq 'Darwin'));
168 if ($src_path ne $build_path)
170 system ("ln -sf $src_path/configure.ac configure.ac");
171 system ("ln -sf $src_path/g g");
172 my $src_path_win=$src_path;
173 if ($system =~ /CYGWIN.*/) {
174 $src_path_win=`cygpath -m $src_path`;
175 chomp $src_path_win;
177 my @modules = <$src_path/*/Makefile>;
178 foreach my $module (@modules)
180 my $dir = basename (dirname ($module));
181 mkdir ($dir);
182 system ("rm -f $dir/Makefile");
183 system ("printf 'module_directory:=$src_path_win/$dir/\ninclude \$(module_directory)/../solenv/gbuild/partial_build.mk\n' > $dir/Makefile");
185 my @external_modules = <$src_path/external/*/Makefile>;
186 mkdir ("external");
187 system ("ln -sf $src_path/external/Module_external.mk external/");
188 foreach my $module (@external_modules)
190 my $dir = basename (dirname ($module));
191 mkdir ("external/$dir");
192 system ("rm -f external/$dir/Makefile");
193 system ("printf 'module_directory:=$src_path_win/external/$dir/\ninclude \$(module_directory)/../../solenv/gbuild/partial_build.mk\n' > external/$dir/Makefile");
196 system ("$aclocal $aclocal_flags") && die "Failed to run aclocal";
197 unlink ("configure");
198 system ("$autoconf -I ${src_path}") && die "Failed to run autoconf";
199 die "Failed to generate the configure script" if (! -f "configure");
201 # Handle help arguments first, so we don't clobber autogen.lastrun
202 for my $arg (@ARGV) {
203 if ($arg =~ /^(--help|-h|-\?)$/) {
204 print STDOUT "autogen.sh - libreoffice configuration helper\n";
205 print STDOUT " --clean forcibly re-generate configuration\n";
206 print STDOUT " --with-distro use a config from distro-configs/\n";
207 print STDOUT " the name needs to be passed without extension\n";
208 print STDOUT " --best-effort don't fail on un-known configure with/enable options\n";
209 print STDOUT "\nOther arguments passed directly to configure:\n\n";
210 system ("./configure --help");
211 exit;
215 my @cmdline_args = ();
217 my $input = "autogen.input";
218 my $lastrun = "autogen.lastrun";
220 if (!@ARGV) {
221 if (-f $input) {
222 if (-f $lastrun) {
223 print STDERR <<WARNING;
224 ********************************************************************
226 * Reading $input and ignoring $lastrun!
227 * Consider removing $lastrun to get rid of this warning.
229 ********************************************************************
230 WARNING
232 @cmdline_args = read_args ($input);
233 } elsif (-f $lastrun) {
234 print STDERR "Reading $lastrun. Please rename it to $input to avoid this message.\n";
235 @cmdline_args = read_args ($lastrun);
237 } else {
238 if (-f $input) {
239 print STDERR <<WARNING;
240 ********************************************************************
242 * Using commandline arguments and ignoring $input!
244 ********************************************************************
245 WARNING
247 @cmdline_args = @ARGV;
250 my @args;
251 my $default_config = "$src_path/distro-configs/default.conf";
252 my $option_checking = 'fatal';
254 if (-f $default_config) {
255 print STDERR "Reading default config file: $default_config.\n";
256 push @args, read_args ($default_config);
258 for my $arg (@cmdline_args) {
259 if ($arg eq '--clean') {
260 clean();
261 } elsif ($arg =~ m/--with-distro=(.*)$/) {
262 my $config = "$src_path/distro-configs/$1.conf";
263 if (! -f $config) {
264 invalid_distro ($config, $1);
266 push @args, read_args ($config);
267 } elsif ($arg =~ m/--best-effort$/) {
268 $option_checking = 'warn';
269 } else {
270 push @args, $arg;
274 if (defined $ENV{NOCONFIGURE}) {
275 print "Skipping configure process.";
276 } else {
277 # Save autogen.lastrun only if we did get some arguments on the command-line
278 if (! -f $input && @ARGV) {
279 if (scalar(@cmdline_args) > 0) {
280 # if there's already an autogen.lastrun, make a backup first
281 if (-e $lastrun) {
282 open (my $fh, $lastrun) || warn "Can't open $lastrun.\n";
283 open (BAK, ">$lastrun.bak") || warn "Can't create backup file $lastrun.bak.\n";
284 while (<$fh>) {
285 print BAK;
287 close (BAK) && close ($fh);
289 # print "Saving command-line args to $lastrun\n";
290 my $fh;
291 open ($fh, ">autogen.lastrun") || die "Can't open autogen.lastrun: $!";
292 for my $arg (@cmdline_args) {
293 print $fh "$arg\n";
295 close ($fh);
298 push @args, "--srcdir=$src_path";
299 push @args, "--enable-option-checking=$option_checking";
301 print "Running ./configure with '" . join (" ", @args), "'\n";
302 system ("./configure", @args) && die "Error running configure";
305 # Local Variables:
306 # mode: perl
307 # cperl-indent-level: 4
308 # tab-width: 4
309 # indent-tabs-mode: nil
310 # End:
312 # vim:set ft=perl shiftwidth=4 softtabstop=4 expandtab: #