vms changes from pat rankin

1 files changed, 28 insertions, 19 deletions

diff --git a/gas/config-gas.com b/gas/config-gas.com
index 7ad1a0a..56e5be2 100644
--- a/gas/config-gas.com
+++ b/gas/config-gas.com
@@ -4,6 +4,7 @@ $! files for a VMS system.  We do not use the configure script, since we
 $! do not have /bin/sh to execute it.
 $!
 $! If you are running this file, then obviously the host is vax-dec-vms.
+$! [That's no longer obvious, but there's not much we can do about alpha yet.]
 $!
 $gas_host="vms"
 $!
@@ -12,8 +13,8 @@ $emulation="generic"
 $obj_format="vms"
 $atof="vax"
 $!
-$! host specific information
-$call link host.h	[.config]ho-'gas_host'.h
+$	DELETE	= "delete/noConfirm"
+$	ECHO	= "write sys$output"
 $!
 $! Target specific information
 $call link targ-cpu.c	[.config]tc-'cpu_type'.c
@@ -28,34 +29,42 @@ $! Code to handle floating point.
 $call link atof-targ.c	[.config]atof-'atof'.c
 $!
 $!
-$! Create the file version.opt, which helps identify the executalbe.
+$! Create the file version.opt, which helps identify the executable.
 $!
-$search Makefile.in "VERSION="/match=and/output=t.tmp
-$open ifile$ t.tmp
+$if f$trnlnm("IFILE$").nes."" then  close/noLog ifile$
+$search Makefile.in "VERSION="/Exact/Output=config-gas-tmp.tmp
+$open ifile$ config-gas-tmp.tmp
 $read ifile$ line
 $close ifile$
-$delete/nolog t.tmp;*
+$DELETE config-gas-tmp.tmp;*
 $! Discard "VERSION=" and "\n" parts.
 $ijk=f$locate("=",line)+1
 $line=f$extract(ijk,f$length(line)-ijk,line)
+$! [what "\n" part??  this seems to be useless, but is benign]
 $ijk=f$locate("\n",line)
 $line=f$extract(0,ijk,line)
 $!
-$ if f$search("version.opt").nes."" then delete/noconfirm version.opt;*
-$open ifile$ version.opt/write
-$write ifile$ "ident="+""""+line+""""
+$ if f$search("version.opt").nes."" then DELETE version.opt;*
+$copy _NL: version.opt
+$open/Append ifile$ version.opt
+$write ifile$ "identification="+""""+line+""""
 $close ifile$
 $! Now write config.h.
-$ if f$search("config.h").nes."" then delete/noconfirm config.h;*
-$open ifile$ config.h/write
-$write ifile$ "#define TARGET_CPU       """,cpu_type,"""
-$write ifile$ "#define TARGET_ALIAS     ""vms"""
-$write ifile$ "#define TARGET_CANONICAL ""vax-dec-vms"""
+$ if f$search("config.h").nes."" then DELETE config.h;*
+$copy _NL: config.h
+$open/Append ifile$ config.h
+$write ifile$ "/* config.h.  Generated by config-gas.com. */
+$write ifile$ "#ifndef GAS_VERSION"
 $write ifile$ "#define GAS_VERSION      """,line,""""
+$write ifile$ "#endif"
+$write ifile$ "/*--*/"
+$append [.config]vms-conf.h ifile$:
 $close ifile$
+$ECHO "Created config.h."
 $!
-$ if f$search("config.status") .nes. "" then delete config.status.*
-$ open/write file config.status
+$ if f$search("config.status") .nes. "" then DELETE config.status;*
+$ copy _NL: config.status
+$ open/Append file config.status
 $ write file "Links are now set up for use with a vax running VMS."
 $ close file
 $ type config.status
@@ -64,7 +73,7 @@ $!
 $!
 $link:
 $subroutine
-$if f$search(p1).nes."" then delete/nolog 'p1';
-$copy 'p2' 'p1'
-$write sys$output "Linked ''p2' to ''p1'."
+$  if f$search(p1).nes."" then DELETE 'p1';*
+$  copy 'p2' 'p1'
+$  ECHO "Copied ''f$edit(p2,"LOWERCASE")' to ''f$edit(p1,"LOWERCASE")'."
 $endsubroutine