$! 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.

$!

$! The P1 parameter of "NOBUILTINS" inhibits the default #include <builtins.h>

$! that is normally added.  This include can cause side effects if

$! special VMS compiler settings are used.

$!

$! 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 (C) 2014 the Free Software Foundation, Inc.

$!

$! This file is part of GAWK, the GNU implementation of the

$! AWK Progamming Language.

$!

$! GAWK is free software; you can redistribute it and/or modify

$! it under the terms of the GNU General Public License as published by

$! the Free Software Foundation; either version 3 of the License, or

$! (at your option) any later version.

$!

$! GAWK is distributed in the hope that it will be useful,

$! but WITHOUT ANY WARRANTY; without even the implied warranty of

$! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

$! GNU General Public License for more details.

$!

$! You should have received a copy of the GNU General Public License

$! along with this program; if not, write to the Free Software

$! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301,

$! USA

$!

$! Per assignment agreement with FSF, similar procedures may be present

$! in other packages under other licensing agreements and copyrights

$!

$! 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

$!============================================================================

$!

$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")

$!

$! Does config_vms.h exist?

$!-------------------------

$update_config_vms = 0

$file = f$search("sys$disk:[]config_vms.h")

$if file .nes. ""

$then

$   write sys$output "Found existing custom file ''file'."

$else

$   update_config_vms = 1

$   write sys$output "Creating new sys$disk:[]config_vms.h for you."

$   gosub write_config_vms

$endif

$!

$!

$! On some platforms, DCL search has problems with searching a file

$! on a NFS mounted volume.  So copy it to sys$scratch:

$!

$if f$search(configure_script) .nes. "" then delete 'configure_script';*

$copy sys$disk:configure 'configure_script'

$!

$!

$! Write out the header

$!----------------------

$gosub write_config_h_header

$!

$!

$!

$! config.h.in could have at least five different names depending

$! on how it was transferred to OpenVMS

$!------------------------------------------------------------------

$cfile = f$search("sys$disk:[]config.h.in")

$if cfile .eqs. ""

$then

$   cfile = f$search("sys$disk:[]config.h_in")

$   if cfile .eqs. ""

$   then

$	cfile = f$search("sys$disk:[]configh.in")

$	if cfile .eqs. ""

$	then

$	    cfile = f$search("sys$disk:[]config__2eh.in")

$	    if cfile .eqs. ""

$	    then

$		cfile = f$search("sys$disk:[]config.h__2ein")

$	    endif

$	endif

$   endif

$endif

$if f$trnlnm("PRJ_INCLUDE") .nes. ""

$then

$   cfile = f$search("PRJ_INCLUDE:config.h.in")

$   if cfile .eqs. ""

$   then

$	cfile = f$search("PRJ_INCLUDE:config.h_in")

$	if cfile .eqs. ""

$	then

$	    cfile = f$search("PRJ_INCLUDE:config__2eh.in")

$	    if cfile .eqs. ""

$	    then

$		cfile = f$search("PRJ_INCLUDE:config__2eh.in")

$		if cfile .eqs. ""

$		then

$		    cfile = f$search("PRJ_INCLUDE:config.h__2ein")

$		endif

$	    endif

$	endif

$    endif

$endif

$if cfile .eqs. ""

$then

$   write sys$output "Can not find sys$disk:config.h.in"

$   line_out = "Looked for config.h.in, config.h_in, configh.in, "

$   line_out = line_out + "config__2eh.in, "config.h__2ein"

$   write/symbol sys$output line_out

$   if f$trnlnm("PRJ_INCLUDE") .nes. ""

$   then

$	write sys$output "Also looked in PRJ_INCLUDE: for these files."

$   endif

$!

$   write tf ""

$   write tf -

	"   /* Could not find sys$disk:config.h.in                           */"

$   write tf -

	"  /*  Looked also for config.h_in, configh.in, config__2eh.in,     */"

$   write tf -

	" /*   config.h__2ein						   */"

$   if f$trnlnm("PRJ_INCLUDE") .nes. ""

$   then

$	write tf -

	" /* Also looked in PRJ_INCLUDE: for these files.		  */"

$   endif

$   write tf -

	"/*--------------------------------------------------------------*/

$   write tf ""

$   goto write_tail

$endif

$!

$!

$! Locate the DECC libraries in use

$!-----------------------------------

$decc_rtldef = f$parse("decc$rtldef","sys$library:.tlb;0")

$decc_shr = f$parse("decc$shr","sys$share:.exe;0")

$!

$! Dump the DECC header names into a file

$!----------------------------------------

$if f$search(dchfile) .nes. "" then delete 'dchfile';*

$if f$search(tfile1) .nes. "" then delete 'tfile1';*

$define/user sys$output 'tfile1'

$library/list 'decc_rtldef'

$open/read/error=rtldef_loop1_end tf1 'tfile1'

$open/write/error=rtldef_loop1_end tf2 'dchfile'

$rtldef_loop1:

$   read/end=rtldef_loop1_end tf1 line_in

$   line_in = f$edit(line_in,"TRIM,COMPRESS")

$   key1 = f$element(0," ",line_in)

$   key2 = f$element(1," ",line_in)

$   if key1 .eqs. " " .or. key1 .eqs. "" then goto rtldef_loop1

$   if key2 .nes. " " .and. key2 .nes. "" then goto rtldef_loop1

$   write tf2 "|",key1,"|"

$   goto rtldef_loop1

$rtldef_loop1_end:

$if f$trnlnm("tf1","lnm$process",,"SUPERVISOR") .nes. "" then close tf1

$if f$trnlnm("tf2","lnm$process",,"SUPERVISOR") .nes. "" then close tf2

$if f$search(tfile1) .nes. "" then delete 'tfile1';*

$!

$!

$! Now calculate what should be in the file from reading

$! config.h.in and CONFIGURE.

$!---------------------------------------------------------------

$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'"

$!

$!  Comment out this section of the ifblock

$!-----------------------------------------

$   if if_block .ge. 3

$   then

$	write tf "/* ", xline, " */"

$	if keyif .eqs. "#en" then if_block = 0

$	goto cfgh_in_loop1

$   endif

$!

$!  Handle the end of an ifblock

$!-------------------------------

$   if keyif .eqs. "#en"

$   then

$	write tf xline

$	if_block = 0

$	goto cfgh_in_loop1

$   endif

$!

$   if key1 .eqs. "#ifndef"

$   then

$!	Manual check for _ALL_SOURCE on AIX error

$!-----------------------------------------------

$	if key2 .eqs. "_ALL_SOURCE"

$	then

$	   write tf "/* ", xline, " */"

$!

$!	   Ignore the rest of the block

$!--------------------------------------

$	   if_block = 3

$	   goto cfgh_in_loop1

$	endif

$   endif

$!

$!

$!  Default action for an #if/#else/#endif

$!------------------------------------------

$   if keyif .eqs. "#if" .or. keyif .eqs. "#el"

$   then

$	if_block = 1

$	write tf xline

$	goto cfgh_in_loop1

$   endif

$!

$!

$!  Process "normal?" stuff

$!---------------------------

$   if key1 .eqs. "#undef"

$   then

$	key2c = f$element(2, "_", key2)

$	if (key2c .eqs. "_") .or. (key2c .eqs. "H") then key2c = ""

$	key2d = f$element(3, "_", key2)

$	if (key2d .eqs. "_") .or. (key2d .eqs. "H") then key2d = ""

$	key2e = f$element(4, "_", key2)

$	if (key2e .eqs. "_") .or. (key2e .eqs. "H") then key2e = ""

$	if key2d .eqs. "T"

$	then

$	    if key2e .eqs. "TYPE"

$	    then

$		key2_h = "_T"

$		key2d = ""

$	    endif

$	endif

$!

$	double_under = 0

$!

$	if key2 .eqs. "bits16_t"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' short"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "u_bits16_t"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' unsigned short"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "bits32_t"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' int"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "u_bits32_t"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' unsigned int"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "intmax_t"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#ifdef __VAX"

$	    write tf "#define ''key2' long"

$	    write tf "#else"

$	    write tf "#define ''key2' long long"

$	    write tf "#endif"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "uintmax_t"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#ifdef __VAX"

$	    write tf "#define ''key2' unsigned long"

$	    write tf "#else"

$	    write tf "#define ''key2' unsigned long long"

$	    write tf "#endif"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "socklen_t"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' int"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "GETGROUPS_T"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' gid_t"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_SYS_SIGLIST"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 0"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_SYS_ERRLIST"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_STRUCT_DIRENT_D_INO"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$!	! The header files have this information, however

$!      ! The ioctl() call only works on sockets.

$!	if key2 .eqs. "FIONREAD_IN_SYS_IOCTL"

$!	then

$!	    write tf "#ifndef ''key2'"

$!	    write tf "#define ''key2' 1"

$!	    write tf "#endif"

$!	    goto cfgh_in_loop1

$!	endif

$!

$!	! The header files have this information, however

$!      ! The ioctl() call only works on sockets.

$!	if key2 .eqs. "GWINSZ_IN_SYS_IOCTL"

$!	then

$!	    write tf "#ifndef ''key2'"

$!	    write tf "#define ''key2' 1"

$!	    write tf "#endif"

$!	    goto cfgh_in_loop1

$!	endif

$!

$!	! The header files have this information, however

$!      ! The ioctl() call only works on sockets.

$!	if key2 .eqs. "STRUCT_WINSIZE_IN_SYS_IOCTL"

$!	then

$!	    write tf "#ifndef ''key2'"

$!	    write tf "#define ''key2' 0"

$!	    write tf "#endif"

$!	    goto cfgh_in_loop1

$!	endif

$!

$	if key2 .eqs. "HAVE_STRUCT_TM_TM_ZONE"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_TM_ZONE"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_TIMEVAL"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_TZNAME"

$	then

$	    write tf "#if __CRTL_VER >= 70000000"

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "WEXITSTATUS_OFFSET"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 2"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_GETPW_DECLS"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_CONFSTR"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_PRINTF"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_SBRK"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_STRSIGNAL"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 0"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2a .eqs. "HAVE_DECL_STRTOLD"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 0"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_STRTOIMAX"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 0"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_STRTOL"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_STRTOLL"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_STRTOUL"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_STRTOULL"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_STRTOUMAX"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 0"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "GETPGRP_VOID"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "NAMED_PIPES_MISSING"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "OPENDIR_NOT_ROBUST"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "PGRP_PIPE"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "CAN_REDEFINE_GETENV"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_PRINTF_A_FORMAT"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "CTYPE_NON_ASCII"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_LANGINFO_CODESET"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_LC_MESSAGES"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$!      This wants execve() to do this automagically to pass.

$!	if key2 .eqs. "HAVE_HASH_BANG_EXEC"

$!	then

$!	    write tf "#ifndef ''key2'"

$!	    write tf "#define ''key2' 1"

$!	    write tf "#endif"

$!	    goto cfgh_in_loop1

$!	endif

$!

$	if key2 .eqs. "ICONV_CONST"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2'"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "VOID_SIGHANDLER"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_POSIX_SIGNALS"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "UNUSABLE_RT_SIGNALS"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2a .eqs. "HAVE_DECL_FPURGE"

$	then

$	    write tf "#ifndef ''key2a'"

$	    write tf "#define ''key2a' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_DECL_SETREGID"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_POSIX_SIGSETJMP"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "HAVE_LIBDL"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "STRCOLL_BROKEN"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2 .eqs. "DUP_BROKEN"

$	then

$	    write tf "#ifndef ''key2'"

$	    write tf "#define ''key2' 1"

$	    write tf "#endif"

$	    goto cfgh_in_loop1

$	endif

$!

$!	This is for a test that getcwd(0,0) works.

$!	It does not on VMS.

$!--------------------------

$	if key2 .eqs. "GETCWD_BROKEN"

$	then

$	    write sys$output ""

$	    write sys$output -

  "%CONFIG_H-I-NONPORT, ''key2' being tested for!"

$		   write sys$output -

 "-CONFIG_H-I-GETCWD, GETCWD(0,0) does not work on VMS."

$		   write sys$output -

 "-CONFIG_H-I-GETCWD2, Work around hack probably required."

$		   write sys$output -

 "-CONFIG_H-I-REVIEW, Manual Code review required!"

$		    if update_config_vms

$		    then

$			open/append tfcv sys$disk:[]config_vms.h

$			write tfcv ""

$			write tfcv -

		"/* Check config.h for use of ''key2' settings */"

$			write tfcv ""

$			close tfcv

$		    endif

$

$	    goto cfgh_in_loop1

$	endif

$!

$	if key2a .eqs. "HAVE" .or. key2a .eqs. "STAT"

$	then

$!

$!	    Process extra underscores

$!------------------------------------

$	    if f$locate("HAVE___", key2) .lt. key2_len

$	    then

$		key2b = "__" + key2d

$		key2d = ""

$		double_under = 1

$	    else

$		if f$locate("HAVE__", key2) .lt. key2_len

$		then

$		    key2b = "_" + key2c

$		    key2c = ""

$		    double_under = 1

$		endif

$	    endif

$!

$	    if key2_h .eqs. "_H"

$	    then

$!

$!		Looking for a header file

$!---------------------------------------

$		headf = key2b

$		if key2c .nes. "" then headf = headf + "_" + key2c

$		if key2d .nes. "" then headf = headf + "_" + key2d

$!

$!		   (key2b .eqs. "READLINE")

$!

$!		Some special parsing

$!------------------------------------------

$		if (key2b .eqs. "SYS") .or. (key2b .eqs. "ARPA") .or. -

		   (key2b .eqs. "NET") .or. (key2b .eqs. "NETINET")

$		then

$		    if key2c .nes. ""

$		    then

$			headf = key2c

$			if key2d .nes. "" then headf = key2c + "_" + key2d

$		    endif

$		endif

$!

$!		And of course what's life with out some special cases

$!--------------------------------------------------------------------

$		if key2b .eqs. "FILE"

$		then

$		   write sys$output ""

$		   write sys$output -

  "%CONFIG_H-I-NONPORT, ''key2' being asked for!"

$		   write sys$output -

 "-CONFIG_H-I-FILE_OLD, file.h will not be configured as is obsolete!"

$		   write sys$output -

 "-CONFIG_H_I-FCNTL_NEW, "Expecting fcntl.h to be configured instead!"

$		   write sys$output -

 "-CONFIG_H_I-FCNTL_CHK, "Unable to verify at this time!"

$		   write sys$output -

 "-CONFIG_H-I-REVIEW, Manual Code review required!"

$!

$		    if update_config_vms

$		    then

$			open/append tfcv sys$disk:[]config_vms.h

$			write tfcv ""

$			write tfcv -

		"/* Check config.h for use of fcntl.h instead of file.h */"

$			write tfcv ""

$			close tfcv

$		    endif

$		endif

$!

$!		Now look it up in the DEC C RTL

$!---------------------------------------------

$		define/user sys$output nl:

$		define/user sys$error nl:

$		search/output=nl: 'dchfile' |'headf'|/exact

$		if '$severity' .eq. 1

$		then

$		    if key64 then write tf "#ifndef __VAX"

$		    write tf "#ifndef ''key2'"

$		    write tf "#define ''key2' 1"

$if p2 .nes. "" then write sys$output "''dchfile' - #define ''key2' 1"

$		    write tf "#endif"

$		    if key64 then write tf "#endif"

$		    goto cfgh_in_loop1

$		endif

$!

$	    else

$!

$!		Looking for a routine or a symbol

$!------------------------------------------------

$		if key2c .eqs. "MACRO"

$		then

$		    if (key2b .eqs. "FILE") .or. (key2b .eqs. "DATE") -

			.or. (key2b .eqs. "LINE") .or. (key2b .eqs. "TIME")

$		    then

$			write tf "#ifndef HAVE_''key2b'"

$			write tf "#define HAVE_''key2b' 1"

$			write tf "#endif"

$		    endif

$		    goto cfgh_in_loop1

$		endif

$!

$!		Special false tests