mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-12-26 14:00:55 +00:00
894ee7f6c8
This also includes fixing the most of the exit handling code for VMS. Self tests: Previously about 94 Tests in 36 categories fail. Now about 45 tests in 22 categories fail. Because some tests do not properly clean up, the number of tests that fail can vary by one or two test cases between consecutive runs. * Makefile.am: Add new VMS files. * job.c: add prototype for vms_strsignal(). * job.c: (child_error): Remove VMS specific code as no longer needed. * job.c: (reap_children): The VMS specific code was setting the status to 0 instead of setting it to the proper exit status. * job.h: Add vms_launch_status to struct child. * main.c: (main): Use environment variables for options to use MCR * instead of a foreign command, and to always use command files for subprocesses. For VMS use (set_program_name) routine which is common to ports of other GNU packages to VMS to set the program name used internally. Use (vms_putenv_symbol) to set up symbols to be visible in child programs, including recursive make launched by execve() Start of Bash shell detection code for VMS. * makefile.com: Need nested_include=none for building on VMS search lists. Add vms_progname, vms_exit, and vms_export_symbol. * makefile.vms: Need nested_include=none for building on VMS search lists. Add vms_progname, vms_exit, vms_export_symbol. * makeint.h: Make sure non-standard "VMS" macro is defined. Add prototypes for new VMS routines. Remove VMS-specific failure codes. * vmsjobs.c: Add VMS POSIX exit code constants. (_is_unixy_shell): Detect Bash shell. (vms_strsignal): simulate strsignal() on VMS. (vmsHandleChildTerm): fix to properly report failed LIB$SPAWN() exit status codes. Remove code that duplicated code in job.c. (child_execute_job): Export environment symbols before spawning a child and restore afterward unless option to use command files for subprocesses is set. Improve handling of UNIX null commands ":". * vms_exit.c: Provides vms_exit() to detect if an exit code is UNIX or VMS, and converts the UNIX code into a VMS exit code. * vms_export_symbol.c: Routines to create DCL symbols that work like shell aliases or exported shell symbols and clean them up on exit. * vms_export_symbol_test.com: Unit test for vms_export_symbol.c * vms_progname.c: New file: VMS specific replace for progname.c that is used in some GNU projects.
166 lines
4.8 KiB
Text
166 lines
4.8 KiB
Text
$!
|
|
$! Makefile.com - builds GNU Make for VMS
|
|
$!
|
|
$! P1 = LIST will provide compiler listings.
|
|
$! P2 = DEBUG will build an image with debug information
|
|
$! P3 = WALL will enable all warning messages (some are suppressed since
|
|
$! one macro intentionally causes an error condition)
|
|
$!
|
|
$! In case of problems with the install you might contact me at
|
|
$! zinser@decus.de (preferred) or zinser@sysdev.deutsche-boerse.com
|
|
$
|
|
$! hb
|
|
$! But don't ask Martin Zinser about the lines, I added/changed.
|
|
$! In case of an error do some cleanup
|
|
$ on error then $ goto cleanup
|
|
$! in case somebody set up her/his own symbol for cc
|
|
$ set symbol/scope=(nolocal,noglobal)
|
|
$!
|
|
$! Just some general constants...
|
|
$!
|
|
$ true = 1
|
|
$ false = 0
|
|
$ tmpnam = "temp_" + f$getjpi("","pid")
|
|
$ tt = tmpnam + ".txt"
|
|
$ tc = tmpnam + ".c"
|
|
$!
|
|
$! Look for the compiler used
|
|
$!
|
|
$ lval = ""
|
|
$ if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs.""
|
|
$ then
|
|
$ if f$trnlnm("SYS").eqs."" then def/nolog sys sys$library:
|
|
$ ccopt = ""
|
|
$ else
|
|
$ ccopt = "/decc/prefix=(all,except=(globfree,glob))"
|
|
$ if f$trnlnm("SYS").eqs.""
|
|
$ then
|
|
$ if f$trnlnm("DECC$LIBRARY_INCLUDE").nes.""
|
|
$ then
|
|
$ define sys decc$library_include:
|
|
$ else
|
|
$ if f$search("SYS$COMMON:[DECC$LIB.REFERENCE]DECC$RTLDEF.DIR").nes."" -
|
|
then lval = "SYS$COMMON:[DECC$LIB.REFERENCE.DECC$RTLDEF],"
|
|
$ if f$search("SYS$COMMON:[DECC$LIB.REFERENCE]SYS$STARLET_C.DIR").nes."" -
|
|
then lval = lval+"SYS$COMMON:[DECC$LIB.REFERENCE.SYS$STARLET_C],"
|
|
$ lval=lval+"SYS$LIBRARY:"
|
|
$ define sys 'lval
|
|
$ endif
|
|
$ endif
|
|
$ endif
|
|
$!
|
|
$!
|
|
$ if (p1 .eqs. "LIST")
|
|
$ then
|
|
$ ccopt = ccopt + "/list/show=(expan,inclu)"
|
|
$ endif
|
|
$!
|
|
$! Should we build a debug image
|
|
$!
|
|
$ if (p2.eqs."DEBUG")
|
|
$ then
|
|
$ ccopt = ccopt + "/noopt/debug"
|
|
$ lopt = "/debug"
|
|
$ else
|
|
$ lopt = ""
|
|
$ endif
|
|
$!
|
|
$! Do we want to see all warnings
|
|
$!
|
|
$ if (p3.nes."WALL")
|
|
$ then
|
|
$ gosub check_cc_qual
|
|
$ endif
|
|
$ filelist = "alloca ar arscan commands default dir expand file function " + -
|
|
"guile hash implicit job load main misc read remake " + -
|
|
"remote-stub rule output signame variable version " + -
|
|
"vmsfunctions vmsify vpath vms_progname vms_exit " + -
|
|
"vms_export_symbol [.glob]glob [.glob]fnmatch getopt1 " + -
|
|
"getopt strcache"
|
|
$!
|
|
$ copy config.h-vms config.h
|
|
$ n=0
|
|
$ open/write optf make.opt
|
|
$ loop:
|
|
$ cfile = f$elem(n," ",filelist)
|
|
$ if cfile .eqs. " " then goto linkit
|
|
$ write sys$output "Compiling ''cfile'..."
|
|
$ call compileit 'cfile'
|
|
$ n = n + 1
|
|
$ goto loop
|
|
$ linkit:
|
|
$ close optf
|
|
$ link/exe=make make.opt/opt'lopt
|
|
$ goto cleanup
|
|
$
|
|
$ cleanup:
|
|
$ if f$trnlnm("SYS").nes."" then $ deassign sys
|
|
$ if f$trnlnm("OPTF").nes."" then $ close optf
|
|
$ if f$search("make.opt").nes."" then $ del make.opt;*
|
|
$ exit
|
|
$!
|
|
$!-----------------------------------------------------------------------------
|
|
$!
|
|
$! Check if this is a define relating to the properties of the C/C++
|
|
$! compiler
|
|
$!
|
|
$CHECK_CC_QUAL:
|
|
$ open/write tmpc 'tc
|
|
$ ccqual = "/warn=(disable=questcompare)"
|
|
$ write tmpc "#include <stdio.h>"
|
|
$ write tmpc "unsigned int i = 1;"
|
|
$ write tmpc "int main(){"
|
|
$ write tmpc "if (i < 0){printf(""Mission impossible\n"");}}"
|
|
$ close tmpc
|
|
$ gosub cc_qual_check
|
|
$ return
|
|
$!
|
|
$!-----------------------------------------------------------------------------
|
|
$!
|
|
$! Check for properties of C/C++ compiler
|
|
$!
|
|
$CC_QUAL_CHECK:
|
|
$ cc_qual = false
|
|
$ set message/nofac/noident/nosever/notext
|
|
$ cc 'ccqual' 'tmpnam'
|
|
$ if $status then cc_qual = true
|
|
$ set message/fac/ident/sever/text
|
|
$ delete/nolog 'tmpnam'.*;*
|
|
$ if cc_qual then ccopt = ccopt + ccqual
|
|
$ return
|
|
$!-----------------------------------------------------------------------------
|
|
$!
|
|
$ compileit : subroutine
|
|
$ ploc = f$locate("]",p1)
|
|
$! filnam = p1
|
|
$ if ploc .lt. f$length(p1)
|
|
$ then
|
|
$ objdir = f$extract(0, ploc+1, p1)
|
|
$ write optf p1
|
|
$ else
|
|
$ objdir := []
|
|
$ write optf objdir+p1
|
|
$ endif
|
|
$ cc'ccopt'/nested=none/include=([],[.glob])/obj='objdir' -
|
|
/define=("allocated_variable_expand_for_file=alloc_var_expand_for_file",-
|
|
"unlink=remove","HAVE_CONFIG_H","VMS") -
|
|
'p1'
|
|
$ exit
|
|
$ endsubroutine : compileit
|
|
$!
|
|
$!-----------------------------------------------------------------------------
|
|
$!Copyright (C) 1996-2014 Free Software Foundation, Inc.
|
|
$!This file is part of GNU Make.
|
|
$!
|
|
$!GNU Make is free software; you can redistribute it and/or modify it under
|
|
$!the terms of the GNU General Public License as published by the Free Software
|
|
$!Foundation; either version 3 of the License, or (at your option) any later
|
|
$!version.
|
|
$!
|
|
$!GNU Make is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
$!WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
$!FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
|
$!details.
|
|
$!
|
|
$!You should have received a copy of the GNU General Public License along with
|
|
$!this program. If not, see <http://www.gnu.org/licenses/>.
|