| 1 | $!
|
|---|
| 2 | $! Makefile.com - builds GNU Make for VMS
|
|---|
| 3 | $!
|
|---|
| 4 | $! P1 is non-empty if you want to link with the VAXCRTL library instead
|
|---|
| 5 | $! of the shareable executable
|
|---|
| 6 | $! P2 = DEBUG will build an image with debug information
|
|---|
| 7 | $! P3 = WALL will enable all warning messages (some are suppressed since
|
|---|
| 8 | $! one macro intentionally causes an error condition)
|
|---|
| 9 | $!
|
|---|
| 10 | $! In case of problems with the install you might contact me at
|
|---|
| 11 | $! zinser@decus.de (preferred) or zinser@sysdev.deutsche-boerse.com
|
|---|
| 12 | $
|
|---|
| 13 | $! hb
|
|---|
| 14 | $! But don't ask Martin Zinser about the lines, I added/changed.
|
|---|
| 15 | $! In case of an error do some cleanup
|
|---|
| 16 | $ on error then $ goto cleanup
|
|---|
| 17 | $! in case somebody set up her/his own symbol for cc
|
|---|
| 18 | $ set symbol/scope=(nolocal,noglobal)
|
|---|
| 19 | $!
|
|---|
| 20 | $! Just some general constants...
|
|---|
| 21 | $!
|
|---|
| 22 | $ true = 1
|
|---|
| 23 | $ false = 0
|
|---|
| 24 | $ tmpnam = "temp_" + f$getjpi("","pid")
|
|---|
| 25 | $ tt = tmpnam + ".txt"
|
|---|
| 26 | $ tc = tmpnam + ".c"
|
|---|
| 27 | $!
|
|---|
| 28 | $! Look for the compiler used
|
|---|
| 29 | $!
|
|---|
| 30 | $ lval = ""
|
|---|
| 31 | $ if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs.""
|
|---|
| 32 | $ then
|
|---|
| 33 | $ if f$trnlnm("SYS").eqs."" then def/nolog sys sys$library:
|
|---|
| 34 | $ ccopt = ""
|
|---|
| 35 | $ else
|
|---|
| 36 | $ ccopt = "/decc/prefix=all"
|
|---|
| 37 | $ if f$trnlnm("SYS").eqs.""
|
|---|
| 38 | $ then
|
|---|
| 39 | $ if f$trnlnm("DECC$LIBRARY_INCLUDE").nes.""
|
|---|
| 40 | $ then
|
|---|
| 41 | $ define sys decc$library_include:
|
|---|
| 42 | $ else
|
|---|
| 43 | $ if f$search("SYS$COMMON:[DECC$LIB.REFERENCE]DECC$RTLDEF.DIR").nes."" -
|
|---|
| 44 | then lval = "SYS$COMMON:[DECC$LIB.REFERENCE.DECC$RTLDEF],"
|
|---|
| 45 | $ if f$search("SYS$COMMON:[DECC$LIB.REFERENCE]SYS$STARLET_C.DIR").nes."" -
|
|---|
| 46 | then lval = lval+"SYS$COMMON:[DECC$LIB.REFERENCE.SYS$STARLET_C],"
|
|---|
| 47 | $ lval=lval+"SYS$LIBRARY:"
|
|---|
| 48 | $ define sys 'lval
|
|---|
| 49 | $ endif
|
|---|
| 50 | $ endif
|
|---|
| 51 | $ endif
|
|---|
| 52 | $!
|
|---|
| 53 | $! Should we build a debug image
|
|---|
| 54 | $!
|
|---|
| 55 | $ if (p2.eqs."DEBUG")
|
|---|
| 56 | $ then
|
|---|
| 57 | $ ccopt = ccopt + "/noopt/debug"
|
|---|
| 58 | $ lopt = "/debug"
|
|---|
| 59 | $ else
|
|---|
| 60 | $ lopt = ""
|
|---|
| 61 | $ endif
|
|---|
| 62 | $!
|
|---|
| 63 | $! Do we want to see all warnings
|
|---|
| 64 | $!
|
|---|
| 65 | $ if (p3.nes."WALL")
|
|---|
| 66 | $ then
|
|---|
| 67 | $ gosub check_cc_qual
|
|---|
| 68 | $ endif
|
|---|
| 69 | $ filelist = "alloca ar arscan commands default dir expand file function " + -
|
|---|
| 70 | "hash implicit job main misc read remake remote-stub rule " + -
|
|---|
| 71 | "signame variable version vmsfunctions vmsify vpath " + -
|
|---|
| 72 | "[.glob]glob [.glob]fnmatch getopt1 getopt"
|
|---|
| 73 | $ copy config.h-vms config.h
|
|---|
| 74 | $ n=0
|
|---|
| 75 | $ open/write optf make.opt
|
|---|
| 76 | $ loop:
|
|---|
| 77 | $ cfile = f$elem(n," ",filelist)
|
|---|
| 78 | $ if cfile .eqs. " " then goto linkit
|
|---|
| 79 | $ write sys$output "Compiling ''cfile'..."
|
|---|
| 80 | $ call compileit 'cfile' 'p1'
|
|---|
| 81 | $ n = n + 1
|
|---|
| 82 | $ goto loop
|
|---|
| 83 | $ linkit:
|
|---|
| 84 | $ close optf
|
|---|
| 85 | $ if p1 .nes. "" then goto link_using_library
|
|---|
| 86 | $ link/exe=make make.opt/opt'lopt
|
|---|
| 87 | $ goto cleanup
|
|---|
| 88 | $
|
|---|
| 89 | $ link_using_library:
|
|---|
| 90 | $ link/exe=make make.opt/opt,sys$library:vaxcrtl/lib'lopt
|
|---|
| 91 | $
|
|---|
| 92 | $ cleanup:
|
|---|
| 93 | $ if f$trnlnm("SYS").nes."" then $ deassign sys
|
|---|
| 94 | $ if f$trnlnm("OPTF").nes."" then $ close optf
|
|---|
| 95 | $ if f$search("make.opt").nes."" then $ del make.opt;*
|
|---|
| 96 | $ exit
|
|---|
| 97 | $!
|
|---|
| 98 | $!------------------------------------------------------------------------------
|
|---|
| 99 | $!
|
|---|
| 100 | $! Check if this is a define relating to the properties of the C/C++
|
|---|
| 101 | $! compiler
|
|---|
| 102 | $!
|
|---|
| 103 | $CHECK_CC_QUAL:
|
|---|
| 104 | $ open/write tmpc 'tc
|
|---|
| 105 | $ ccqual = "/warn=(disable=questcompare)"
|
|---|
| 106 | $ write tmpc "#include <stdio.h>"
|
|---|
| 107 | $ write tmpc "unsigned int i = 1;"
|
|---|
| 108 | $ write tmpc "int main(){"
|
|---|
| 109 | $ write tmpc "if (i < 0){printf(""Mission impossible\n"");}}"
|
|---|
| 110 | $ close tmpc
|
|---|
| 111 | $ gosub cc_qual_check
|
|---|
| 112 | $ return
|
|---|
| 113 | $!
|
|---|
| 114 | $!------------------------------------------------------------------------------
|
|---|
| 115 | $!
|
|---|
| 116 | $! Check for properties of C/C++ compiler
|
|---|
| 117 | $!
|
|---|
| 118 | $CC_QUAL_CHECK:
|
|---|
| 119 | $ cc_qual = false
|
|---|
| 120 | $ set message/nofac/noident/nosever/notext
|
|---|
| 121 | $ cc 'ccqual' 'tmpnam'
|
|---|
| 122 | $ if $status then cc_qual = true
|
|---|
| 123 | $ set message/fac/ident/sever/text
|
|---|
| 124 | $ delete/nolog 'tmpnam'.*;*
|
|---|
| 125 | $ if cc_qual then ccopt = ccopt + ccqual
|
|---|
| 126 | $ return
|
|---|
| 127 | $!------------------------------------------------------------------------------
|
|---|
| 128 | $!
|
|---|
| 129 | $ compileit : subroutine
|
|---|
| 130 | $ ploc = f$locate("]",p1)
|
|---|
| 131 | $ filnam = p1
|
|---|
| 132 | $ if ploc .lt. f$length(p1) then filnam=f$extract(ploc+1,100,p1)
|
|---|
| 133 | $ write optf "''filnam'"
|
|---|
| 134 | $ cc'ccopt'/include=([],[.glob]) -
|
|---|
| 135 | /define=("allocated_variable_expand_for_file=alloc_var_expand_for_file","unlink=remove","HAVE_CONFIG_H","VMS") -
|
|---|
| 136 | 'p1'
|
|---|
| 137 | $ exit
|
|---|
| 138 | $ endsubroutine : compileit
|
|---|
