strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

#65293# added command file generation

Browse source
This commit is contained in:
Vladimir Glazounov 2002-01-21 15:04:31 +00:00
parent 9e6162c52c
commit 2e7925f095
1 changed files with 117 additions and 96 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

195
solenv/bin/build.pl
View file

@ -5,9 +5,9 @@ eval 'exec perl -wS $0 ${1+"$@"}'
# #
# $RCSfile: build.pl,v $ # $RCSfile: build.pl,v $
# #
# $Revision: 1.42 $ # $Revision: 1.43 $
# #
# last change: $Author: hjs $ $Date: 2002-01-18 12:42:34 $ # last change: $Author: vg $ $Date: 2002-01-21 16:04:31 $
# #
# The Contents of this file are made available subject to the terms of # The Contents of this file are made available subject to the terms of
# either of the following licenses # either of the following licenses
@ -73,18 +73,23 @@ use Cwd;
( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; ( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
$id_str = ' $Revision: 1.42 $ '; $id_str = ' $Revision: 1.43 $ ';
$id_str =~ /Revision:\s+(\S+)\s+\$/ $id_str =~ /Revision:\s+(\S+)\s+\$/
? ($script_rev = $1) : ($script_rev = "-"); ? ($script_rev = $1) : ($script_rev = "-");
print "$script_name -- version: $script_rev\n"; print "$script_name -- version: $script_rev\n";
if ($ENV{GUI} eq 'UNX') {
use Cwd 'chdir';
};
######################### #########################
# # # #
# Globale Variablen # # Globale Variablen #
# # # #
######################### #########################
$QuantityToBuild = 0; $QuantityToBuild = 0;
$cmd_file = '';
$BuildAllParents = 0; $BuildAllParents = 0;
$show = 0; $show = 0;
$deliver = 0; $deliver = 0;
@ -107,21 +112,47 @@ $build_since = '';
&get_options; &get_options;
$ENV{mk_tmp}++; $ENV{mk_tmp}++;
%prj_platform = (); %prj_platform = ();
#@dirs_to_make = '';
$check_error_string = '';
$dmake = '';
$echo = '';
$new_line = "\n";
#### main #### #### main ####
$dmake = &GetDmakeCommando(); &get_commands();
unlink ($cmd_file);
if ($cmd_file) {
if (open (CMD_FILE, ">>$cmd_file")) {
select CMD_FILE;
$echo = 'echo ';
$new_line = $echo."\"\"\n";
print "\@$echo off\npushd\n" if ($ENV{GUI} ne 'UNX');
} else {
&print_error ("Cannot open file $cmd_file");
};
} elsif ($show) {
select STDERR;
};
&BuildAll(); &BuildAll();
@TotenEltern = keys %DeadParents; @TotenEltern = keys %DeadParents;
if ($#TotenEltern != -1) { if ($#TotenEltern != -1) {
my ($DeadPrj); my ($DeadPrj);
print "\nWARNING! Project(s):\n\n"; print $new_line.$new_line;
print $echo."WARNING! Project(s):\n";
foreach $DeadPrj (@TotenEltern) { foreach $DeadPrj (@TotenEltern) {
print "$DeadPrj\n"; print $echo."$DeadPrj\n";
}; };
print "\nnot found and couldn't be built. Correct build.lsts.\n"; print $new_line;
print $echo."not found and couldn't be built. Correct build.lsts.\n";
print $new_line;
};
if (($ENV{GUI} ne 'UNX') && $cmd_file) {
print "popd\n";
}; };
$ENV{mk_tmp} = ''; $ENV{mk_tmp} = '';
close CMD_FILE if ($cmd_file);
exit(0);
######################### #########################
# # # #
@ -189,17 +220,20 @@ sub BuildAll {
}; };
next; next;
}; };
print "\n=============\n"; print $new_line;
print "Building project $Prj\n"; print $echo. "=============\n";
print "=============\n"; print $echo. "Building project $Prj\n";
print $echo. "=============\n";
$PrjDir = &CorrectPath($StandDir.$Prj); $PrjDir = &CorrectPath($StandDir.$Prj);
if ($ENV{GUI} eq "UNX") {
use Cwd 'chdir';
};
chdir $PrjDir; chdir $PrjDir;
cwd(); cwd();
&BuildPrj($PrjDir) if (!$deliver); &BuildPrj($PrjDir) if (!$deliver);
if ($cmd_file) {
print "deliver\n";
} else {
system ("$ENV{DELIVER}") if (!$show); system ("$ENV{DELIVER}") if (!$show);
};
print $check_error_string;
&RemoveFromDependencies($Prj, \%ParentDepsHash); &RemoveFromDependencies($Prj, \%ParentDepsHash);
}; };
} else { } else {
@ -214,27 +248,27 @@ sub MakeDir {
my ($DirToBuild, $BuildDir, $error); my ($DirToBuild, $BuildDir, $error);
$DirToBuild = shift; $DirToBuild = shift;
$BuildDir = &CorrectPath($StandDir . $PathHash{$DirToBuild}); $BuildDir = &CorrectPath($StandDir . $PathHash{$DirToBuild});
if ($ENV{GUI} eq 'UNX') { if ($cmd_file) {
use Cwd 'chdir'; print "cd $BuildDir\n";
print $check_error_string;
print $echo.$BuildDir."\n";
print "$dmake\n";
print $check_error_string;
} else {
print "$BuildDir\n";
}; };
&RemoveFromDependencies($DirToBuild, \%LocalDepsHash);
if (!$cmd_file && !$show) {
if (chdir ($BuildDir)) { if (chdir ($BuildDir)) {
print "$BuildDir\n"; print "$BuildDir\n";
} else { } else {
&print_error("\n$BuildDir not found!!\n"); &print_error("\n$BuildDir not found!!\n");
exit (1);
}; };
cwd(); cwd();
if (!$show) {
$error = system ("$dmake"); $error = system ("$dmake");
if (!$error) { if ($error) {
&RemoveFromDependencies($DirToBuild, \%LocalDepsHash);
} else {
&print_error("Error $error occurred while making $BuildDir"); &print_error("Error $error occurred while making $BuildDir");
$ENV{mk_tmp} = '';
exit(1);
}; };
} else {
&RemoveFromDependencies($DirToBuild, \%LocalDepsHash);
}; };
}; };
@ -281,12 +315,10 @@ sub get_prj_platform {
my $alias = $2; my $alias = $2;
if ($alias eq 'NULL') { if ($alias eq 'NULL') {
&print_error ("There is no correct alias set in the line $line!"); &print_error ("There is no correct alias set in the line $line!");
exit (1);
}; };
&mark_platform($alias, $platform); &mark_platform($alias, $platform);
} else { } else {
&print_error("Misspelling in line: \n$_"); &print_error("Misspelling in line: \n$_");
exit(1);
}; };
}; };
}; };
@ -368,42 +400,32 @@ sub mark_platform {
# #
sub CorrectPath { sub CorrectPath {
$_ = shift; $_ = shift;
if (($ENV{GUI} ne 'UNX') && $cmd_file) {
s/\//\\/g;
} else {;
s/\\/\//g; s/\\/\//g;
};
return $_; return $_;
}; };
# #
# Get platform-dependent dmake commando # Get platform-dependent commands
# #
sub GetDmakeCommando { sub get_commands {
my ($dmake, $dmake_insert); my $arg = '';
# Setting alias for dmake # Setting alias for dmake
$dmake_insert = join ' ', @dmake_args; $dmake = 'dmake';
if (defined $ENV{PRODUCTNAME}) { while ($arg = pop(@dmake_args)) {
if (defined $ENV{DMAKE}) { $dmake .= ' '.$arg;
$dmake = $ENV{DMAKE}; };
if ($ENV{GUI} ne 'UNX') { if ($cmd_file) {
$dmake = $ENV{COMSPEC} . ' -c ' . "\"$dmake\""; if ($ENV{GUI} eq 'UNX') {
$dmake =~ s/#/%/g; $check_error_string = "if \"\$?\" != \"0\" exit\n";
# print "$dmake";
} else { } else {
$dmake = $ENV{SHELL} . " -cf \"$dmake\""; $check_error_string = "if \"\%?\" != \"0\" quit\n";
# print "$dmake"; };
} };
} else {
die "PRODUCNAME without \$DMAKE set";
}
$dmake =~ s/\&\&/$dmake_insert \&\&/;
} else {
if (defined $ENV{DMAKE}) {
$dmake = $ENV{DMAKE} . $dmake_insert;
} else {
$dmake = 'dmake' . $dmake_insert;
}
}
return $dmake;
}; };
@ -448,7 +470,6 @@ sub get_stand_dir {
} elsif (&IsRootDir($StandDir)) { } elsif (&IsRootDir($StandDir)) {
$ENV{mk_tmp} = ''; $ENV{mk_tmp} = '';
&print_error ('Found no project to build'); &print_error ('Found no project to build');
exit (1);
}; };
} }
while (chdir '..'); while (chdir '..');
@ -558,10 +579,9 @@ sub FindIndepPrj {
# If there are only dependent projects in hash - generate error # If there are only dependent projects in hash - generate error
return '' if ($build_from); return '' if ($build_from);
print STDERR "\nError: projects"; print STDERR "\nError: projects";
DeadPrjLoop:
foreach $Prj (keys %$Dependencies) { foreach $Prj (keys %$Dependencies) {
if (IsHashNative($Prj)) { if (IsHashNative($Prj)) {
next DeadPrjLoop; next;
}; };
$i = 0; $i = 0;
print STDERR "\n$Prj depends on:"; print STDERR "\n$Prj depends on:";
@ -570,8 +590,6 @@ sub FindIndepPrj {
}; };
}; };
&print_error ("\nhave dead or circular dependencies\n"); &print_error ("\nhave dead or circular dependencies\n");
$ENV{mk_tmp} = '';
exit (1);
}; };
}; };
@ -602,7 +620,6 @@ sub GetDependenciesArray {
while (!($DepString =~ /^NULL/)) { while (!($DepString =~ /^NULL/)) {
if (!$DepString) { if (!$DepString) {
&print_error("Project $prj has wrong written dependencies string:\n $string"); &print_error("Project $prj has wrong written dependencies string:\n $string");
exit (1);
}; };
$DepString =~ /(\S+)\s*/; $DepString =~ /(\S+)\s*/;
$ParentPrj = $1; $ParentPrj = $1;
@ -612,7 +629,6 @@ sub GetDependenciesArray {
if (($prj_platform{$ParentPrj} ne $1) && if (($prj_platform{$ParentPrj} ne $1) &&
($prj_platform{$ParentPrj} ne 'all')) { ($prj_platform{$ParentPrj} ne 'all')) {
&print_error ("$ParentPrj\.$1 is a wrong dependency identifier!\nCheck if it is platform dependent"); &print_error ("$ParentPrj\.$1 is a wrong dependency identifier!\nCheck if it is platform dependent");
exit (1);
}; };
if (&CheckPlatform($1)) { if (&CheckPlatform($1)) {
$AliveDependencies{$ParentPrj}++; $AliveDependencies{$ParentPrj}++;
@ -622,7 +638,6 @@ sub GetDependenciesArray {
if ((exists($prj_platform{$ParentPrj})) && if ((exists($prj_platform{$ParentPrj})) &&
($prj_platform{$ParentPrj} ne 'all') ) { ($prj_platform{$ParentPrj} ne 'all') ) {
&print_error("$ParentPrj is a wrong used dependency identifier!\nCheck if it is platform dependent"); &print_error("$ParentPrj is a wrong used dependency identifier!\nCheck if it is platform dependent");
exit (1);
}; };
push(@Dependencies, $ParentPrj); push(@Dependencies, $ParentPrj);
}; };
@ -643,6 +658,34 @@ sub GetDirectoryList {
return @DirectoryList; return @DirectoryList;
}; };
sub print_error {
my $message = shift;
print STDERR "\nERROR: $message\n";
$ENV{mk_tmp} = '';
close CMD_FILE if ($cmd_file);
unlink ($cmd_file);
exit(1);
};
sub usage {
print STDERR "\nbuild\n";
print STDERR "Syntax: build [-help|-all|-from|-from_opt|since prj_name|-file file_name] \n";
print STDERR "Example: build -from sfx2\n";
print STDERR " - build all projects including current one from sfx2\n";
print STDERR "Example: build -from_opt sfx2\n";
print STDERR " - the same as -from, but skip all projects that could have been built (no secure way, use ONLY when -all or -from is already been run and there no external dependensies\' changes occurred)\n";
print STDERR "Keys: -all - build all projects from very beginning till current one\n";
print STDERR " -from - build all projects beginning from the specified till current one\n";
print STDERR " -from_opt - build all projects beginning from the specified till current one (optimized version)\n";
print STDERR " -since - build all projects beginning from the specified till current one (optimized version, skips specified project)\n";
print STDERR " -show - show what is going to be built\n";
print STDERR " -file - generate command file file_name\n";
print STDERR " -deliver - only deliver, no build (usable for \'-all\' and \'-from\' keys)\n";
print STDERR " -help - print help info\n";
print STDERR "Default: - build current project\n";
print STDERR "Keys that are not listed above would be passed to dmake\n";
};
# #
# Get all options passed # Get all options passed
# #
@ -655,6 +698,7 @@ sub get_options {
$arg =~ /^-all$/ and $BuildAllParents = 1 and next; $arg =~ /^-all$/ and $BuildAllParents = 1 and next;
$arg =~ /^-show$/ and $show = 1 and next; $arg =~ /^-show$/ and $show = 1 and next;
$arg =~ /^-deliver$/ and $deliver = 1 and next; $arg =~ /^-deliver$/ and $deliver = 1 and next;
$arg =~ /^-file$/ and $cmd_file = shift @ARGV and next;
$arg =~ /^-from$/ and $BuildAllParents = 1 $arg =~ /^-from$/ and $BuildAllParents = 1
and $build_from = shift @ARGV and next; and $build_from = shift @ARGV and next;
$arg =~ /^-from_opt$/ and $BuildAllParents = 1 $arg =~ /^-from_opt$/ and $BuildAllParents = 1
@ -667,35 +711,12 @@ sub get_options {
}; };
if ($build_from && $build_from_opt) { if ($build_from && $build_from_opt) {
&print_error('Switches -from an -from_opt collision'); &print_error('Switches -from an -from_opt collision');
exit(1);
}; };
if ($build_from && $build_since) { if ($build_from && $build_since) {
&print_error('Switches -from an -since collision'); &print_error('Switches -from an -since collision');
exit(1);
}; };
#&print_error ('No file name supplied') if (!$cmd_file);
@ARGV = @dmake_args; @ARGV = @dmake_args;
}; $cmd_file = '' if ($show);
sub print_error {
my $message = shift;
print STDERR "\nERROR: $message\n";
};
sub usage {
print STDERR "\nbuild\n";
print STDERR "Syntax: build [-help|-all|-from|-from_opt|since prj_name] \n";
print STDERR "Example: build -from sfx2\n";
print STDERR " - build all projects including current one from sfx2\n";
print STDERR "Example: build -from_opt sfx2\n";
print STDERR " - the same as -from, but skip all projects that could have been built (no secure way, use ONLY when -all or -from is already been run and there no external dependensies\' changes occurred)\n";
print STDERR "Keys: -all - build all projects from very beginning till current one\n";
print STDERR " -from - build all projects beginning from the specified till current one\n";
print STDERR " -from_opt - build all projects beginning from the specified till current one (optimized version)\n";
print STDERR " -since - build all projects beginning from the specified till current one (optimized version, skips specified project)\n";
print STDERR " -show - show what is gonna be built\n";
print STDERR " -deliver - only deliver, no build (usable for \'-all\' and \'-from\' keys)\n";
print STDERR " -help - print help info\n";
print STDERR "Default: - build current project\n";
print STDERR "Keys that are not listed above would be passed to dmake\n";
}; };