mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-30 02:33:03 -07:00
Code Issues Projects Releases Wiki Activity

Move settings to new file (script:platform)

Browse source 
Copied from Perforce
 Change: 20288
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-28 17:16:00 +00:00
parent 8fb70f6d27
commit 5a45fb8a1b
1 changed files with 1 additions and 129 deletions
Download patch file Download diff file Expand all files Collapse all files

130
mps/qa/test/script/compile
View file

@ -1,5 +1,5 @@
#!/usr/local/perl
# $HopeName: MMQA_harness!script:compile(trunk.23) $
# $HopeName: MMQA_harness!script:compile(trunk.24) $
#
# provides subroutines to compile or compile and link
# tests and test libraries.
@ -9,132 +9,6 @@
1;
sub debug {
local ($text) = @_;
if ($DEBUG_INFO eq "on") {
print $text."\n";
}
}
sub compiler_settings {
if ($PLATFORM =~ "^nt_") {
&settings_nt();
if ($PLATFORM =~ "^nt_x86_cap") {
&settings_nt_cap();
} elsif ($PLATFORM =~ "^nt_x86_coff") {
&settings_nt_coff();
}
} elsif ($PLATFORM =~ "^so|^linux") {
&settings_unix();
if ($PLATFORM =~ "^sos8gp") {
&settings_gprof();
}
} elsif ($PLATFORM =~ "::unix") {
&logcomment("I don't know anything specific about $PLATFORM --");
&logcomment("using generic unix/gcc settings.");
&settings_unix();
} else {
die "Sorry: I don't know how to use ".$PLATFORM."\n";
}
}
sub settings_nt {
$dirsep = "\\";
$cc_command = "cl";
$cc_opts = "/nologo /DWIN32 /D_WINDOWS /W3 /Zi /Oy- /DMMQA_VERS_$INTERFACE_VERSION";
$cc_link = "$obj_dir/platform.obj";
$cc_link_opts = "/link /NODEFAULTLIB:LIBCMT /debugtype:both /pdb:none /debug:full";
$cc_include = "/I$testlib_dir /I$MPS_INCLUDE_DIR";
$cc_def = "/D";
$cc_defeq = "=";
$cc_conly = "/c";
$cc_obj = "/Fo";
$cc_exe = "/Fe";
$cc_objandexe = 1;
$obj_suffix = ".obj";
$try_command = "";
$catcommand = "$script_dir/ntx86bin/cat.exe";
$comwrap = "\"";
$comwrapend = "\"";
$stdout_red = ">";
$err_red = "2>";
$stdout_dup = "| $script_dir/ntx86bin/tee.exe";
$stdin_red = "<";
$platmailfile = \&nt_mailfile;
}
sub settings_nt_cap {
$cc_opts = "$cc_opts /Gh";
$cc_link = "$cc_link CAP.lib";
$cc_link_opts = "/link /NODEFAULTLIB:LIBCMT /debugtype:coff /debug:mapped,partial";
}
sub settings_nt_coff {
$cc_link_opts = "/link /NODEFAULTLIB:LIBCMT /debugtype:coff /debug:full";
}
sub settings_unix {
$dirsep = "/";
$cc_link = "$obj_dir/platform.o -lm";
$cc_link_opts = "-z muldefs";
$cc_command = "gcc";
$cc_opts = "-ansi -pedantic -Wall -Wstrict-prototypes ".
"-Winline -Waggregate-return -Wnested-externs -Wcast-qual ".
"-Wshadow -Wmissing-prototypes -Wcast-align ".
"-O -g -ggdb3 -DMMQA_VERS_$INTERFACE_VERSION";
$cc_include = "-I$testlib_dir -I$MPS_INCLUDE_DIR";
$cc_def = "-D";
$cc_defeq = "=";
$cc_conly = "-c";
$cc_obj = "-o ";
$cc_exe = "-o ";
$cc_objandexe = 0;
$obj_suffix = ".o";
$try_command = "sh -c ";
$catcommand = "cat";
$comwrap = "sh -c \"ulimit -c 0; ";
$comwrapend = "\"";
$stdout_red = ">";
$err_red = "2>";
$stdout_dup = "| tee";
$stdin_red = "<";
$platmailfile = \&unix_mailfile;
}
sub settings_gprof {
$cc_opts = "-pg ".$cc_opts;
}
sub mysystem {
local ($command) = @_;
$command =~ s/(\S)\//$1$dirsep/g;
&debug("SYSTEM >>$command<<");
system($command);
}
sub mailfile {
local ($file, $subj) = @_;
if ($MAIL_RESULTS eq "on") {
&$platmailfile($file, $MAIL_TO, $subj);
}
}
sub nt_mailfile {
local ($file, $to, $subj) = @_;
&mysystem(
"$script_dir/ntx86bin/blat.exe ".
"$file -server mailhost -f mm-qa -t $to -s \"$subj\" -q");
}
sub unix_mailfile {
local ($file, $to, $subj) = @_;
&mysystem(
"{ echo \"To: $to\"; echo \"Subject: $subj\"; cat $file; } | mail -t");
}
sub log_system {
local ($command, $output, $logfile, $stdin, $time0, $time1) = @_;
@ -174,7 +48,6 @@ sub log_system {
sub compile {
local($srcfile, $objfile) = @_;
&compiler_settings;
$command = "$cc_command $cc_conly $cc_opts $cc_obj$objfile ".
"$srcfile $cc_include";
@ -188,7 +61,6 @@ sub compile {
sub compile_and_link {
local($srcfile, $exefile, $linkfiles, $objfile, $hashdefs) = @_;
&compiler_settings;
unless ($linkfiles) {$linkfiles =""};
$linkfiles = " ".$linkfiles;
$linkfiles =~ s/ +(\S)/ $obj_dir\/$1/g;