From: jwalz Date: Sat, 5 Jan 2002 21:06:00 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: MOVE2GIT~3629 X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=7d736547eea142b2392dbb1752c3859498528c69;p=nethack *** empty log message *** --- diff --git a/sys/vms/vmsbuild.com b/sys/vms/vmsbuild.com new file mode 100755 index 000000000..03b3257c2 --- /dev/null +++ b/sys/vms/vmsbuild.com @@ -0,0 +1,307 @@ +$ ! vms/vmsbuild.com -- compile and link NetHack 3.3.* [pr] +$ version_number = "3.3.0" +$ ! +$ ! usage: +$ ! $ set default [.src] !or [-.-.src] if starting from [.sys.vms] +$ ! $ @[-.sys.vms]vmsbuild [compiler-option] [link-option] [cc-switches] +$ ! options: +$ ! compiler-option : either "VAXC", "DECC" or "GNUC" or "" !default VAXC +$ ! link-option : either "SHARE[able]" or "LIB[rary]" !default SHARE +$ ! cc-switches : optional qualifiers for CC (such as "/noOpt/Debug") +$ ! notes: +$ ! If the symbol "CC" is defined, compiler-option is not used. +$ ! The link-option refers to VAXCRTL (C Run-Time Library) handling; +$ ! to specify it while letting compiler-option default, use "" as +$ ! the compiler-option. +$ ! To re-link without compiling, use "LINK" as special 'compiler-option'; +$ ! to re-link with GNUC library, 'CC' must begin with "G" (or "g"). +$ ! Default wizard definition moved to include/vmsconf.h. +$ +$ decc_dflt = f$trnlnm("DECC$CC_DEFAULT") +$ j = (decc_dflt.nes."") .and. 1 +$ vaxc_ = "CC" + f$element(j,"#","#/VAXC") + "/NOLIST/OPTIMIZE=NOINLINE" +$ decc_ = "CC" + f$element(j,"#","#/DECC") + "/PREFIX=ALL/NOLIST" +$ gnuc_ = "GCC" +$ if f$type(gcc).eqs."STRING" then gnuc_ = gcc +$ gnulib = "gnu_cc:[000000]gcclib/Library" !(not used w/ vaxc) +$ ! common CC options (/obj=file doesn't work for GCC 1.36, use rename instead) +$ c_c_ = "/INCLUDE=[-.INCLUDE]" +$ veryold_vms = f$extract(1,1,f$getsyi("VERSION")).eqs."4" - + .and. f$extract(3,3,f$getsyi("VERSION")).lts."6" +$ if veryold_vms then c_c_ = c_c_ + "/DEFINE=(""VERYOLD_VMS"")" +$ axp = (f$getsyi("CPU").ge.128) !f$getsyi("ARCH_NAME").eqs."Alpha" +$ ! miscellaneous setup +$ ivqual = %x00038240 !DCL-W-IVQUAL (used to check for ancient vaxc) +$ abort := exit %x1000002A +$ cur_dir = f$environment("DEFAULT") +$ vmsbuild = f$environment("PROCEDURE") +$ ! validate first parameter +$ p1 := 'p1' +$ if p1.eqs."" .and. (axp .or. decc_dflt.eqs."/DECC") then p1 = "DECC" +$ o_VAXC = 0 !(c_opt substring positions) +$ o_DECC = 5 +$ o_GNUC = 10 +$ o_LINK = 15 +$ o_SPCL = 20 +$ c_opt = f$locate("|"+p1, "|VAXC|DECC|GNUC|LINK|SPECIAL|") !5 +$ if (c_opt/5)*5 .eq. c_opt then goto p1_ok +$ copy sys$input: sys$error: !p1 usage +%first arg is compiler option; it must be one of + "VAXC" -- use VAX C to compile everything + or "DECC" -- use DEC C to compile everything + or "GNUC" -- use GNU C to compile everything + or "LINK" -- skip compilation, just relink nethack.exe + or "SPEC[IAL]" -- just compile and link lev_comp.exe + or "" -- default operation (VAXC unless 'CC' is defined) + +Note: if a DCL symbol for CC is defined, "VAXC" and "GNUC" are no-ops. + If the symbol value begins with "G" (or "g"), then the GNU C + library will be included in all link operations. Do not rebuild + lev_comp with "SPECIAL" unless you have a CC symbol setup with + the proper options. +$ abort +$p1_ok: +$ ! validate second parameter +$ p2 := 'p2' +$ l_opt = f$locate("|"+p2, "|SHAREABLE|LIBRARY__|NONE_____|") !10 +$ if (l_opt/10)*10 .eq. l_opt then goto p2_ok +$ copy sys$input: sys$error: !p2 usage +%second arg is C run-time library handling; it must be one of + "SHAREABLE" -- link with SYS$SHARE:VAXCRTL.EXE/SHAREABLE + or "LIBRARY" -- link with SYS$LIBRARY:VAXCRTL.OLB/LIBRARY + or "NONE" -- explicitly indicate DECC$SHR + or "" -- default operation (use shareable image) + +Note: for MicroVMS 4.x, "SHAREABLE" (which is the default) is required. + Specify "NONE" if using DEC C with a CC symbol overriding 1st arg. +$ abort +$p2_ok: +$ ! start from a known location -- [.sys.vms], then move to [-.-.src] +$ set default 'f$parse(vmsbuild,,,"DEVICE")''f$parse(vmsbuild,,,"DIRECTORY")' +$ set default [-.-.src] !move to source directory +$ ! compiler setup; if a symbol for "CC" is already defined it will be used +$ if f$type(cc).eqs."STRING" then goto got_cc +$ cc = vaxc_ !assume "VAXC" requested or defaulted +$ if c_opt.eq.o_GNUC then goto chk_gcc !explicitly invoked w/ "GNUC" option +$ if c_opt.eq.o_DECC then cc = decc_ +$ if c_opt.ne.o_VAXC then goto got_cc !"SPEC" or "LINK", skip compiler check +$ ! we want to prevent function inlining with vaxc v3.x (/opt=noinline) +$ ! but we can't use noInline with v2.x, so need to determine version +$ set noOn +$ msgenv = f$environment("MESSAGE") +$ set message/noFacil/noSever/noIdent/noText +$ cc/noObject _NLA0:/Include=[] !strip 'noinline' if error +$ sts = $status +$ if sts then goto reset_msg !3.0 or later will check out OK +$ ! must be dealing with vaxc 2.x; ancient version (2.2 or earlier) +$ ! can't handle /include='dir', needs c$include instead +$ cc = cc - "=NOINLINE" - ",NOINLINE" - "NOINLINE," +$ if sts.ne.IVQUAL then goto reset_msg +$ define/noLog c$include [-.INCLUDE] +$ c_c_ = "/DEFINE=(""ANCIENT_VAXC"")" +$ if veryold_vms then c_c_ = c_c_ - ")" + ",""VERYOLD_VMS"")" +$reset_msg: +$ set message 'msgenv' +$ set On +$ goto got_cc +$ ! +$chk_gcc: +$ cc = gnuc_ +$ ! old versions of gcc-vms don't have or available +$ c_c_ = "/DEFINE=(""USE_OLDARGS"")" +$ if veryold_vms then c_c_ = c_c_ - ")" + ",""VERYOLD_VMS"")" +$ if veryold_vms then goto chk_gas !avoid varargs & stdarg +$ if f$search("gnu_cc_include:[000000]varargs.h").nes."" then - + c_c_ = "/DEFINE=(""USE_VARARGS"")" +$ if f$search("gnu_cc_include:[000000]stdarg.h").nes."" then - + c_c_ = "/DEFINE=(""USE_STDARG"")" +$chk_gas: +$ ! test whether this version of gas handles the 'const' construct correctly +$ gas_chk_tmp = "sys$scratch:gcc-gas-chk.tmp" +$ if f$search(gas_chk_tmp).nes."" then delete/noconfirm/nolog 'gas_chk_tmp';* +$ gas_ok = 0 !assume bad +$ on warning then goto skip_gas +$ define/user/nolog sys$error 'gas_chk_tmp' +$ mcr gnu_cc:[000000]gcc-as sys$input: -o _NLA0: +$DECK +.const +.comm dummy,0 +.const +.comm dummy,0 +$EOD +$ gas_ok = 1 !assume good +$ if f$search(gas_chk_tmp).eqs."" then goto skip_gas +$ ! if the error file is empty, gas can deal properly with const +$ gas_ok = f$file_attrib(gas_chk_tmp,"EOF") .eq. 0 +$ delete/noconfirm/nolog 'gas_chk_tmp';* +$skip_gas: +$ on warning then continue +$ if .not.gas_ok then c_c_ = c_c_ - ")" + ",""const="")" +$ c_c_ = "/INCLUDE=[-.INCLUDE]" + c_c_ +$ ! +$got_cc: +$ cc = cc + c_c_ !append common qualifiers +$ if p3.nes."" then cc = cc + p3 !append optional user preferences +$ g := 'f$extract(0,1,cc)' +$ if g.eqs."$" then g := 'f$extract(1,1,cc)' !"foreign" gcc +$ if f$edit(f$extract(1,1,cc),"UPCASE").eqs."E" then g := X !GEMC +$ if g.nes."G" .and. c_opt.ne.o_GNUC then gnulib = "" +$ if g.eqs."G" .or. c_opt.eq.o_GNUC then gnulib = "," + gnulib +$ ! linker setup; if a symbol for "LINK" is defined, we'll use it +$ if f$type(link).nes."STRING" then link = "LINK/NOMAP" +$ if p4.nes."" then link = link + p4 !append optional user preferences +$ if c_opt.eq.o_DECC .or. l_opt.eq.10 +$ then +$ crtl = "" !sys$share:decc$shr.exe/Sharable found automatically +$ create crtl.opt !empty +$ else +$ crtl = ",sys$library:vaxcrtl.olb/Library" !object library +$ if l_opt.ne.0 then goto crtl_ok +$ crtl = ",sys$disk:[-.src]crtl.opt/Options" !shareable image +$ if f$search("crtl.opt").nes."" then goto crtl_ok !assume its right +$ create sys$disk:[-.src]crtl.opt +sys$share:vaxcrtl.exe/Shareable +$ endif +$crtl_ok: +$ if f$search("crtl.opt;-2").nes."" then purge/Keep=2/noLog crtl.opt +$ ! version ID info for linker to record in .EXE files +$ create ident.opt +$ open/Append f ident.opt +$ write f "identification=""",version_number,""" !version" +$ close f +$ if f$search("ident.opt;-1").nes."" then purge/noLog ident.opt +$ ident_opt = ",sys$disk:[-.src]ident.opt/Options" +$ ! final setup +$ nethacklib = "[-.src]nethack.olb" +$ milestone = "write sys$output f$fao("" !5%T "",0)," +$ if c_opt.eq.o_LINK then goto link !"LINK" requested, skip compilation +$ rename := rename/New_Vers +$ touch := set file/Truncate +$ makedefs := $sys$disk:[-.util]makedefs +$ show symbol cc +$ goto begin !skip subroutines +$! +$compile_file: !input via 'c_file' +$ no_lib = ( f$extract(0,1,c_file) .eqs. "#" ) +$ if no_lib then c_file = f$extract(1,255,c_file) +$ c_name = f$edit(f$parse(c_file,,,"NAME"),"LOWERCASE") +$ f_opts = "" !options for this file +$ if f$type('c_name'_options).nes."" then f_opts = 'c_name'_options +$ milestone " (",c_name,")" +$ if f$search("''c_name'.obj").nes."" then delete 'c_name'.obj;* +$ cc 'f_opts' 'c_file' +$ if .not.no_lib then nh_obj_list == nh_obj_list + ",''c_name'.obj;0" +$ return +$! +$compile_list: !input via 'c_list' +$ nh_obj_list == "" +$ j = -1 +$ c_loop: +$ j = j + 1 +$ c_file = f$element(j,",",c_list) !get next file +$ if c_file.eqs."," then goto c_done +$ c_file = c_file + ".c" +$ gosub compile_file +$ goto c_loop +$ c_done: +$ nh_obj_list == f$extract(1,999,nh_obj_list) +$ if nh_obj_list.nes."" then libr/Obj 'nethacklib' 'nh_obj_list'/Replace +$ if nh_obj_list.nes."" then delete 'nh_obj_list' +$ delete/symbol/global nh_obj_list +$ return +$! +$begin: +$! +$! miscellaneous special source file setup +$! +$ if f$search("random.c").eqs."" then copy [-.sys.share]random.c []*.* +$ if f$search("tclib.c") .eqs."" then copy [-.sys.share]tclib.c []*.* +$ if f$search("[-.util]lev_yacc.c").eqs."" then @[-.sys.vms]spec_lev.com +$! +$! create object library +$! +$ if c_opt.ne.o_SPCL .or. f$search("''nethacklib'").eqs."" then - + libr/Obj 'nethacklib'/Create=(Block=3000,Hist=0) +$ if f$search("''nethacklib';-1").nes."" then purge 'nethacklib' +$! +$! compile and link makedefs, then nethack, finally lev_comp & dgn_comp. +$! +$ milestone "" +$ c_list = "[-.sys.vms]vmsmisc,[]alloc,dlb,monst,objects" +$ if c_opt.eq.o_SPCL then c_list = c_list + ",decl,drawing" +$ gosub compile_list +$ if c_opt.eq.o_SPCL then goto special !"SPECIAL" requested, skip main build +$ set default [-.util] +$ c_list = "#makedefs" +$ gosub compile_list +$ link makedefs.obj,'nethacklib'/Lib'crtl''gnulib''ident_opt' +$ milestone "makedefs" +$! create some build-time files +$ makedefs -p !pm.h +$ makedefs -o !onames.h +$ makedefs -v !date.h +$ milestone " (*.h)" +$ makedefs -m !../src/monstr.c +$ makedefs -z !../src/vis_tab.c, ../include/vis_tab.h +$ milestone " (*.c)" +$ set default [-.src] +$! compile most of the source files: +$ c_list = "decl,version,[-.sys.vms]vmsmain,[-.sys.vms]vmsunix" - + + ",[-.sys.vms]vmstty,[-.sys.vms]vmsmail,[-.sys.vms]vmsfiles" - + + ",[]random,[]tclib" !copied from [-.sys.share] +$ gosub compile_list +$ c_list = "[-.win.tty]getline,[-.win.tty]termcap" - + + ",[-.win.tty]topl,[-.win.tty]wintty" +$ gosub compile_list +$ c_list = "allmain,apply,artifact,attrib,ball,bones,botl,cmd,dbridge,detect" - + + ",dig,display,do,do_name,do_wear,dog,dogmove,dokick,dothrow,drawing" - + + ",dungeon,eat,end,engrave,exper,explode,extralev,files,fountain" +$ gosub compile_list +$ c_list = "hack,hacklib,invent,light,lock,mail,makemon,mapglyph,mcastu" - + + ",mhitm,mhitu,minion,mklev,mkmap,mkmaze,mkobj,mkroom,mon,mondata" - + + ",monmove,monstr,mplayer,mthrowu,muse,music,o_init,objnam,options" - + + ",pager,pickup" +$ gosub compile_list +$ c_list = "pline,polyself,potion,pray,priest,quest,questpgr,read" - + + ",rect,region,restore,rip,rnd,role,rumors,save,shk,shknam,sit" - + + ",sounds,sp_lev,spell,steal,steed,teleport,timeout,topten,track" - + + ",trap,u_init" +$ gosub compile_list +$ c_list = "uhitm,vault,vision,vis_tab,weapon,were,wield,windows" - + + ",wizard,worm,worn,write,zap" +$ gosub compile_list +$! +$link: +$ milestone "" +$ link/Exe=nethack.exe 'nethacklib'/Lib/Incl=(vmsmain)'crtl''gnulib''ident_opt' +$ milestone "NetHack" +$ if c_opt.eq.o_LINK then goto done !"LINK" only +$special: +$! +$! build special level and dungeon compilers +$! +$ set default [-.util] +$ c_list = "#panic,#lev_main,#lev_yacc,#dgn_main,#dgn_yacc" +$ if c_opt.eq.o_SPCL then c_list = "[-.sys.vms]vmsfiles," + c_list +$ gosub compile_list +$ c_list = "#lev_lex,#dgn_lex" +$ copy [-.sys.vms]lev_lex.h stdio.*/Prot=(s:rwd,o:rwd) +$ gosub compile_list +$ rename stdio.h lev_lex.* +$ link/exe=lev_comp.exe lev_main.obj,lev_yacc.obj,lev_lex.obj,- + panic.obj,'nethacklib'/Lib'crtl''gnulib''ident_opt' +$ milestone "lev_comp" +$ link/exe=dgn_comp.exe dgn_main.obj,dgn_yacc.obj,dgn_lex.obj,- + panic.obj,'nethacklib'/Lib'crtl''gnulib''ident_opt' +$ milestone "dgn_comp" +$! +$ c_list = "#dlb_main,#recover" +$ gosub compile_list +$ link/exe=dlb.exe dlb_main.obj,panic.obj,'nethacklib'/Lib'crtl''gnulib''ident_opt' +$ milestone "dlb" +$ link/exe=recover.exe recover.obj,'nethacklib'/Lib'crtl''gnulib''ident_opt' +$ milestone "recover" +$! +$done: +$ set default 'cur_dir' +$ exit