build_vms.com: use existing curlbuild.h and parsing fix

This patch removes building curlbuild.h from the build_vms.com procedure
and uses the one in the daily or release tarball instead.

packages/vms/build_curlbuild_h.com is obsolete with this change.

Accessing the library module name "tool_main" needs different handling
when the optional extended parsing is enabled.

Tested on IA64/VMS 8.4 and VAX/VMS 7.3

3 files changed, 37 insertions, 341 deletions

diff --git a/packages/vms/Makefile.am b/packages/vms/Makefile.am
index cbf7e1d0a..2be0b6673 100644
--- a/packages/vms/Makefile.am
+++ b/packages/vms/Makefile.am
@@ -1,5 +1,4 @@
 EXTRA_DIST = \
- build_curlbuild_h.com \
  build_vms.com \
  config_h.com \
  curlmsg.h \
diff --git a/packages/vms/build_curlbuild_h.com b/packages/vms/build_curlbuild_h.com
deleted file mode 100644
index cc74bb26c..000000000
--- a/packages/vms/build_curlbuild_h.com
+++ /dev/null
@@ -1,327 +0,0 @@
-$! File: config_h.com
-$!
-$! $Id: config_h.com,v 1.1.1.1 2012/12/02 19:25:21 wb8tyw Exp $
-$!
-$! This procedure attempts to figure out how to build a config.h file
-$! for the current project.
-$!
-$! P1 specifies the config.h.in file or equivalent.  If it is not specified
-$! then this procedure will search for several common names of the file.
-$!
-$! The CONFIGURE shell script will be examined for hints and a few symbols
-$! but most of the tests will not produce valid results on OpenVMS.  Some
-$! will produce false positives and some will produce false negatives.
-$!
-$! It is easier to just read the config.h_in file and make up tests based
-$! on what is in it!
-$!
-$! This file will create an empty config_vms.h file if one does not exist.
-$! The config_vms.h is intended for manual edits to handle things that
-$! this procedure can not.
-$!
-$! The config_vms.h will be invoked by the resulting config.h file.
-$!
-$! This procedure knows about the DEC C RTL on the system it is on.
-$! Future versions may be handle the GNV, the OpenVMS porting library,
-$! and others.
-$!
-$! This procedure may not guess the options correctly for all architectures,
-$! and is a work in progress.
-$!
-$! Copyright 2011, John Malmberg
-$!
-$! Permission to use, copy, modify, and/or distribute this software for any
-$! purpose with or without fee is hereby granted, provided that the above
-$! copyright notice and this permission notice appear in all copies.
-$!
-$! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-$! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-$! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-$! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-$! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-$! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
-$! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-$!
-$! 15-Jan-2001	J. Malmberg	Original
-$! 29-Apr-2001	J. Malmberg	Also look for config.*in* in a [.include]
-$!				subdirectory
-$! 30-Apr-2001	J. Malmberg	Update for SAMBA checks
-$! 09-Apr-2005	J. Malmberg	Update for RSYNC and large file.
-$! 29-Sep-2011	J. Malmberg	Update for Bash 4.2
-$! 01-Mar-2012	J. Malmberg	Warn about getcwd(0,0)
-$! 21-Dec-2012	J. Malmberg	Update for gawk
-$! 29-Dec-2012	J. Malmberg	Update for curl
-$!============================================================================
-$!
-$ss_normal = 1
-$ss_abort = 44
-$ss_control_y = 1556
-$status = ss_normal
-$on control_y then goto control_y
-$on warning then goto general_error
-$!
-$! Some information for writing timestamps to created files
-$!----------------------------------------------------------
-$my_proc = f$environment("PROCEDURE")
-$my_proc_file = f$parse(my_proc,,,"NAME") + f$parse(my_proc,,,"TYPE")
-$tab[0,8] = 9
-$datetime = f$element(0,".",f$cvtime(,"ABSOLUTE","DATETIME"))
-$username = f$edit(f$getjpi("","USERNAME"),"TRIM")
-$!
-$pid = f$getjpi("","PID")
-$tfile1 = "SYS$SCRATCH:config_h_temp1_''pid'.TEMP"
-$dchfile = "SYS$SCRATCH:config_h_decc_''pid'.TEMP"
-$configure_script = "SYS$SCRATCH:configure_script_''pid'.TEMP"
-$!
-$!  Get the system type
-$!----------------------
-$arch_type = f$getsyi("arch_type")
-$!
-$!
-$! Write out the header
-$!----------------------
-$gosub write_curlbuild_h_header
-$!
-$!
-$! config.h.in could have at least five different names depending
-$! on how it was transferred to OpenVMS
-$!------------------------------------------------------------------
-$base_curlbuild = "sys$disk:[.include.curl]"
-$if p1 .nes. ""
-$then
-$   cfile = p1
-$else
-$   cfile = f$search("''base_curlbuild'curlbuild.h.in")
-$   if cfile .eqs. ""
-$   then
-$	cfile = f$search("''base_curlbuild'curlbuild.h_in")
-$	if cfile .eqs. ""
-$	then
-$	    cfile = f$search("''base_curlbuild'curlbuildh.in")
-$	    if cfile .eqs. ""
-$	    then
-$		cfile = f$search("''base_curlbuild'curlbuild__2eh.in")
-$		if cfile .eqs. ""
-$		then
-$		    cfile = f$search("''base_curlbuild'curlbuild.h__2ein")
-$		    if cfile .eqs. ""
-$		    then
-$			cfile = f$search("''base_curlbuild'curlbuild.h$5nin")
-$		    endif
-$		endif
-$	    endif
-$	endif
-$   endif
-$endif
-$!
-$if cfile .eqs. ""
-$then
-$   write sys$output "Can not find ''base_curlbuild'curlbuild.h.in"
-$   line_out = "Looked for curlbuild.h.in, curlbuild.h_in, curlbuild.in, "
-$   line_out = line_out + "curlbuild__2eh.in, curlbuild.h__2ein, "
-$   line_out = line_out + "curlbuild.h$5nin"
-$   write/symbol sys$output line_out
-$   goto general_error
-$endif
-$!
-$open/read inf 'cfile'
-$do_comment = 0
-$if_block = 0
-$cfgh_in_loop1:
-$!set nover
-$   read/end=cfgh_in_loop1_end inf line_in
-$   xline = f$edit(line_in,"TRIM,COMPRESS")
-$!
-$!  Blank line handling
-$!---------------------
-$   if xline .eqs. ""
-$   then
-$	write tf ""
-$	goto cfgh_in_loop1
-$   endif
-$   xlen = f$length(xline)
-$   key = f$extract(0,2,xline)
-$!
-$!  deal with comments by copying exactly
-$!-----------------------------------------
-$   if (do_comment .eq. 1) .or. (key .eqs. "/*")
-$   then
-$	do_comment = 1
-$	write tf line_in
-$	key = f$extract(xlen - 2, 2, xline)
-$	if key .eqs. "*/" then do_comment = 0
-$	goto cfgh_in_loop1
-$   endif
-$!
-$!  Some quick parsing
-$!----------------------
-$   keyif = f$extract(0,3,xline)
-$   key1 = f$element(0," ",xline)
-$   key2 = f$element(1," ",xline)
-$   key2a = f$element(0,"_",key2)
-$   key2b = f$element(1,"_",key2)
-$   key2_len = f$length(key2)
-$   key2_h = f$extract(key2_len - 2, 2, key2)
-$   key2_t = f$extract(key2_len - 5, 5, key2)
-$   if key2_t .eqs. "_TYPE" then key2_h = "_T"
-$   key64 = 0
-$   if f$locate("64", xline) .lt. xlen then key64 = 1
-$!
-$!write sys$output "xline = ''xline'"
-$!
-$   if key1 .nes. "#undef"
-$   then
-$	write tf line_in
-$	goto cfgh_in_loop1
-$   endif
-$!
-$!  All versions of VMS have sys/types.h
-$!----------------------------------------
-$   if (key2 .eqs. "CURL_PULL_SYS_TYPES_H")
-$   then
-$	write tf "#define ''key2' 1"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$!  Most have sys/socket.h
-$!-------------------------
-$   if (key2 .eqs. "CURL_PULL_SYS_SOCKET_H")
-$   then
-$	write tf "#ifdef HAVE_SYS_SOCKET_H"
-$	write tf "#define ''key2' 1"
-$	write tf "#else"
-$	write tf "#undef ''key2'"
-$	write tf "#endif"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$!  VAX/VMS 7.3 does not have sys/poll.h
-$!----------------------------------------
-$   if (key2 .eqs. "CURL_PULL_SYS_POLL_H")
-$   then
-$	write tf "#ifdef HAVE_POLL_H"
-$	write tf "#define ''key2' 1"
-$	write tf "#else"
-$	write tf "#undef ''key2'"
-$	write tf "#endif"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_SIZEOF_LONG")
-$   then
-$	write tf "#define ''key2' SIZEOF_INT"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_SIZEOF_CURL_SOCKLEN_T")
-$   then
-$	write tf "#define ''key2' SIZEOF_INT"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_TYPEOF_CURL_SOCKLEN_T")
-$   then
-$	write tf "#define ''key2' size_t"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_TYPEOF_CURL_OFF_T")
-$   then
-$	write tf "#define ''key2' off_t"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_FORMAT_CURL_OFF_T")
-$   then
-$	write tf "#if (SIZEOF_OFF_T == 8)"
-$	write tf "#define ''key2' ""lld"""
-$	write tf "#else"
-$	write tf "#define ''key2' ""ld"""
-$	write tf "#endif"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_FORMAT_CURL_OFF_TU")
-$   then
-$	write tf "#if (SIZEOF_OFF_T == 8)"
-$	write tf "#define ''key2' ""llu"""
-$	write tf "#else"
-$	write tf "#define ''key2' ""lu"""
-$	write tf "#endif"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_FORMAT_OFF_T")
-$   then
-$	write tf "#if (SIZEOF_OFF_T == 8)"
-$	write tf "#define ''key2' ""%lld"""
-$	write tf "#else"
-$	write tf "#define ''key2' ""%ld"""
-$	write tf "#endif"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_SIZEOF_CURL_OFF_T")
-$   then
-$	write tf "#define ''key2' SIZEOF_OFF_T"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_SUFFIX_CURL_OFF_T")
-$   then
-$	write tf "#if (SIZEOF_OFF_T == 8)"
-$	write tf "#define ''key2' LL"
-$	write tf "#else"
-$	write tf "#define ''key2' L"
-$	write tf "#endif"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$   if (key2 .eqs. "CURL_SUFFIX_CURL_OFF_TU")
-$   then
-$	write tf "#if (SIZEOF_OFF_T == 8)"
-$	write tf "#define ''key2' ULL"
-$	write tf "#else"
-$	write tf "#define ''key2' UL"
-$	write tf "#endif"
-$	goto cfgh_in_loop1
-$   endif
-$!
-$!
-$!
-$!  If it falls through everything else, comment it out
-$!-----------------------------------------------------
-$   write tf "/* ", xline, " */"
-$   goto cfgh_in_loop1
-$cfgh_in_loop1_end:
-$close inf
-$close tf
-$!
-$! Exit and clean up
-$!--------------------
-$general_error:
-$status = '$status'
-$all_exit:
-$set noon
-$if f$trnlnm("tf","lnm$process",,"SUPERVISOR") .nes. "" then close tf
-$if f$trnlnm("inf","lnm$process",,"SUPERVISOR") .nes. "" then close inf
-$exit 'status'
-$!
-$!
-$control_y:
-$   status = ss_control_y
-$   goto all_exit
-$!
-$!
-$! gosub to write out a documentation header for config.h
-$!----------------------------------------------------------------
-$write_curlbuild_h_header:
-$outfile = "sys$disk:[.include.curl]curlbuild.h"
-$create 'outfile'
-$open/append tf 'outfile'
-$write tf -
- "/* [.include.curl]curlbuild.h.  Generated from curlbuild.h.in by */"
-$write tf -
- "/* ", my_proc_file, tab, datetime, tab, username, tab, "         */"
-$write tf ""
-$return
diff --git a/packages/vms/build_vms.com b/packages/vms/build_vms.com
index 519628eed..4f0b0f090 100644
--- a/packages/vms/build_vms.com
+++ b/packages/vms/build_vms.com
@@ -128,6 +128,11 @@ $!                   Added missing slash in cc_full_list.
 $!                   Removed unwanted extra quotes inside symbol tool_main
 $!                   for non-VAX architectures that triggered link failure.
 $!                   Replaced curl_sys_inc with sys_inc.
+$! 19-Mar-2013, John Malmberg
+$!                   symbol tool_main needs to be quoted when parse style is
+$!                   set to exended in versions of VMS greater than 7.3-1.
+$!                   Remove curlbuild.h generation as it should be pre-built
+$!                   in the curl release or daily tarball.
 $!
 $!===========================================================================
 $!
@@ -198,6 +203,7 @@ $!
 $! Define the architecture-specific product file destination directory
 $! name(s).
 $!
+$ parse_style = "TRADITIONAL"
 $ if (f$getsyi("HW_MODEL") .lt. 1024)
 $ then
 $    arch_name = "VAX"
@@ -205,6 +211,31 @@ $ else
 $    arch_name = ""
 $    arch_name = arch_name + f$edit(f$getsyi("ARCH_NAME"), "UPCASE")
 $    if (arch_name .eqs. "") then arch_name = "UNK"
+$!
+$!   Extended parsing option starts with VMS 7.3-1.
+$!   There is no 7.4, so that simplifies the parse a bit.
+$!
+$    node_swvers = f$getsyi("node_swvers")
+$    version_patch = f$extract(1, f$length(node_swvers), node_swvers)
+$    maj_ver = f$element(0, ".", version_patch)
+$    min_ver_patch = f$element(1, ".", version_patch)
+$    min_ver = f$element(0, "-", min_ver_patch)
+$    patch = f$element(1, "-", min_ver_patch)
+$    if patch .eqs. "-" then patch = ""
+$    parse_x = 0
+$    if maj_ver .ges. "8"
+$    then
+$       parse_x = 1
+$    else
+$       if maj_ver .eqs. "7" .and. min_ver .ges. "3" .and. patch .nes. ""
+$       then
+$          parse_x = 1
+$       endif
+$    endif
+$    if parse_x
+$    then
+$       parse_style = f$getjpi("", "parse_style_perm")
+$    endif
 $ endif
 $!
 $ exedir = proc_dev_dir - delim + ".''arch_name'" + delim
@@ -275,8 +306,6 @@ $   if (f$search(prods) .nes. "") then set prot=o:rwed 'prods'
 $   if (f$search(prods) .nes. "") then delete /log 'prods'
 $   file = "[]config_vms.h"
 $   if f$search(file) .nes. "" then delete/log 'file';*
-$   file = "[.include.curl]curlbuild.h"
-$   if f$search(file) .nes. "" then delete/log 'file';*
 $   file = "[.lib]config_vms.h"
 $   if f$search(file) .nes. "" then delete/log 'file';*
 $       goto Common_Exit
@@ -654,15 +683,6 @@ $!   set nover
 $endif
 $!
 $!
-$write sys$output "Creating the new curlbuild.h"
-$new_conf = f$search("[.include.curl]curlbuild.h")
-$if new_conf .eqs. ""
-$then
-$!   set ver
-$   @'proc_dev_dir'build_curlbuild_h.com
-$!   set nover
-$endif
-$!
 $!
 $ on control_y then goto Common_Exit
 $!
@@ -727,13 +747,17 @@ $!
 $! If we are not on VAX, then we want the debug symbol table in
 $! a separate file.
 $! VAX needs the tool_main unquoted in uppercase,
-$! Alpha and IA64 need tool_main quoted in exact case.
+$! Alpha and IA64 need tool_main quoted in exact case when parse style is
+$! extended.
 $ link_dsf1 = ""
 $ link_dsf2 = ""
 $ tool_main = "tool_main"
 $ if arch_name .nes. "VAX"
 $ then
-$   tool_main = "tool_main"
+$   if parse_style .eqs. "EXTENDED"
+$   then
+$      tool_main = """tool_main"""
+$   endif
 $   link_dsf1 = "/dsf=" + exedir + "CURL.DSF"
 $   link_dsf2 = "/dsf=" + exedir + "CURL_DEBUG.DSF"
 $ endif