2 $! This file sets things up to build gas on a VMS system to generate object
3 $! files for a VMS system. We do not use the configure script, since we
4 $! do not have /bin/sh to execute it.
9 $arch_indx = 1 + ((f$getsyi("CPU").ge.128).and.1) ! vax==1, alpha==2
10 $arch = f$element(arch_indx,"|","|VAX|Alpha|")
24 $ DELETE = "delete/noConfirm"
25 $ ECHO = "write sys$output"
27 $! Target specific information
28 $call link targ-cpu.c [.config]tc-'cpu_type'.c
29 $call link targ-cpu.h [.config]tc-'cpu_type'.h
30 $call link targ-env.h [.config]te-'emulation'.h
32 $! Code to handle the object file format.
33 $call link obj-format.h [.config]obj-'obj_format'.h
34 $call link obj-format.c [.config]obj-'obj_format'.c
36 $! Code to handle floating point.
37 $call link atof-targ.c [.config]atof-'atof'.c
40 $! Create the file version.opt, which helps identify the executable.
42 $if f$trnlnm("IFILE$").nes."" then close/noLog ifile$
43 $search Makefile.in "VERSION="/Exact/Output=config-gas-tmp.tmp
44 $open ifile$ config-gas-tmp.tmp
47 $DELETE config-gas-tmp.tmp;*
48 $! Discard "VERSION=" and "\n" parts.
49 $ijk=f$locate("=",line)+1
50 $line=f$extract(ijk,f$length(line)-ijk,line)
51 $! [what "\n" part?? this seems to be useless, but is benign]
52 $ijk=f$locate("\n",line)
53 $line=f$extract(0,ijk,line)
55 $ if f$search("version.opt").nes."" then DELETE version.opt;*
56 $copy _NL: version.opt
57 $open/Append ifile$ version.opt
58 $write ifile$ "identification="+""""+line+""""
61 $! Now write config.h.
63 $ if f$search("config.h").nes."" then DELETE config.h;*
65 $open/Append ifile$ config.h
66 $write ifile$ "/* config.h. Generated by config-gas.com. */
67 $write ifile$ "#ifndef GAS_VERSION"
68 $write ifile$ "#define GAS_VERSION """,line,""""
69 $write ifile$ "#endif"
70 $write ifile$ "/*--*/"
73 $append [.config]vms-conf.h ifile$:
75 $ append [.config]vms-a-conf.h ifile$:
78 $ECHO "Created config.h."
80 $! Check for, and possibly make, header file <unistd.h>.
82 $ if f$search("tmp-chk-h.*").nes."" then DELETE tmp-chk-h.*;*
83 $!can't use simple `#include HDR' with `gcc /Define="HDR=<foo.h>"'
84 $!because the 2.6.[0-3] preprocessor handles it wrong (VMS-specific gcc bug)
86 int tmp_chk_h; /* guarantee non-empty output */
99 $ on warning then continue
100 $ CHECK = "call tmp_chk_h"
101 $ CHECK "HAVE_STDIO_H"
103 $ then type sys$input:
105 ? could not compile <stdio.h>.
106 Since gcc is not set up correctly, gas configuration cannot proceed.
108 $ DELETE tmp-chk-h.c;*
112 $ CHECK "HAVE_UNISTD_H"
115 $ if f$trnlnm("HFILE$").nes."" then close/noLog hfile$
116 $ CHECK "HAVE_UNIXIO_H"
117 $ got_unixio = ($status .and. 1)
118 $ CHECK "HAVE_UNIXLIB_H"
119 $ got_unixlib = ($status .and. 1)
120 $ create []unistd.h !with rudimentary contents
121 /* <unistd.h> substitute for building gas */
125 $ open/Append hfile$ []unistd.h
127 $ then write hfile$ "#include <unixio.h>"
128 $ else append sys$input: hfile$:
129 /* some of the routines normally prototyped in <unixio.h> */
130 extern int creat(), open(), close(), read(), write();
131 extern int access(), dup(), dup2(), fstat(), stat();
136 $ then write hfile$ "#include <unixlib.h>"
137 $ else append sys$input: hfile$:
138 /* some of the routines normally prototyped in <unixlib.h> */
139 extern char *sbrk(), *getcwd(), *cuserid();
140 extern int brk(), chdir(), chmod(), chown(), mkdir();
141 extern unsigned getuid(), umask();
143 $ append sys$input: hfile$:
147 $ ECHO "Created ""[]unistd.h""."
148 $ endif !gcc '#include <unistd.h>' failed
149 $ DELETE tmp-chk-h.c;*
151 $tmp_chk_h: subroutine
153 $ hname = f$edit("<" + (p1 - "HAVE_" - "_H") + ".h>","LOWERCASE")
154 $ write sys$output "Checking for ''hname'."
155 $ if f$search("tmp-chk-h.obj").nes."" then DELETE tmp-chk-h.obj;*
156 $ define/noLog sys$error _NL: !can't use /User_Mode here due to gcc
157 $ define/noLog sys$output _NL: ! driver's use of multiple image activation
158 $ gcc /Include=([],[-.include]) /Define=("''p1'") tmp-chk-h.c
159 $!can't just check $status; gcc 2.6.[0-3] preprocessor doesn't set it correctly
160 $ ok = (($status.and.1).and.(f$search("tmp-chk-h.obj").nes."")) .or. %x10000000
161 $ deassign sys$error !restore, more or less
162 $ deassign sys$output
163 $ if ok then DELETE tmp-chk-h.obj;*
165 $ endsubroutine !tmp_chk_h
170 $ if f$search("config.status") .nes. "" then DELETE config.status;*
171 $ open/write cfile []config.status
172 $ write cfile "Links are now set up for use with a "+arch+" running VMS."
174 $ type []config.status
180 $ if f$search(p1).nes."" then DELETE 'p1';*
182 $ ECHO "Copied ''f$edit(p2,"LOWERCASE")' to ''f$edit(p1,"LOWERCASE")'."