diff --git a/CMakeLists.txt b/CMakeLists.txt index 9faff569c3..2384104877 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -110,8 +110,8 @@ endif() option(CURL_LTO "Turn on compiler Link Time Optimizations" OFF) cmake_dependent_option(ENABLE_THREADED_RESOLVER "Set to ON to enable threaded DNS lookup" - ON "NOT ENABLE_ARES" - OFF) + ON "NOT ENABLE_ARES" + OFF) include(PickyWarnings) diff --git a/docs/cmdline-opts/parallel-max.md b/docs/cmdline-opts/parallel-max.md index ef9f5ac255..aa5142930d 100644 --- a/docs/cmdline-opts/parallel-max.md +++ b/docs/cmdline-opts/parallel-max.md @@ -20,4 +20,3 @@ When asked to do parallel transfers, using --parallel, this option controls the maximum amount of transfers to do simultaneously. The default is 50. 300 is the largest supported value. - diff --git a/packages/vms/config_h.com b/packages/vms/config_h.com index 44cb067072..b54a1a0f96 100644 --- a/packages/vms/config_h.com +++ b/packages/vms/config_h.com @@ -113,19 +113,19 @@ $else $ 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 +$ 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 $endif $if f$trnlnm("PRJ_INCLUDE") .nes. "" @@ -133,19 +133,19 @@ $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 +$ 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. "" @@ -156,23 +156,23 @@ $ 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." +$ write sys$output "Also looked in PRJ_INCLUDE: for these files." $ endif $! $ write tf "" $ write tf - - " /* Could not find sys$disk:config.h.in */" + " /* Could not find sys$disk:config.h.in */" $ write tf - - " /* Looked also for config.h_in, configh.in, config__2eh.in, */" + " /* Looked also for config.h_in, configh.in, config__2eh.in, */" $ write tf - - " /* config.h__2ein */" + " /* config.h__2ein */" $ if f$trnlnm("PRJ_INCLUDE") .nes. "" $ then -$ write tf - - " /* Also looked in PRJ_INCLUDE: for these files. */" +$ write tf - + " /* Also looked in PRJ_INCLUDE: for these files. */" $ endif $ write tf - - "/*--------------------------------------------------------------*/ + "/*--------------------------------------------------------------*/ $ write tf "" $ goto write_tail $endif @@ -244,8 +244,8 @@ $! Blank line handling $!--------------------- $ if xline .eqs. "" $ then -$ write tf "" -$ goto cfgh_in_loop1 +$ write tf "" +$ goto cfgh_in_loop1 $ endif $ xlen = f$length(xline) $ key = f$extract(0,2,xline) @@ -254,11 +254,11 @@ $! 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 +$ 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 @@ -281,33 +281,33 @@ $! 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 +$ 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 +$ write tf xline +$ if_block = 0 +$ goto cfgh_in_loop1 $ endif $! $ if key1 .eqs. "#ifndef" $ then -$! Manual check for _ALL_SOURCE on AIX error +$! Manual check for _ALL_SOURCE on AIX error $!----------------------------------------------- -$ if key2 .eqs. "_ALL_SOURCE" -$ then -$ write tf "/* ", xline, " */" +$ if key2 .eqs. "_ALL_SOURCE" +$ then +$ write tf "/* ", xline, " */" $! -$! Ignore the rest of the block +$! Ignore the rest of the block $!-------------------------------------- -$ if_block = 3 -$ goto cfgh_in_loop1 -$ endif +$ if_block = 3 +$ goto cfgh_in_loop1 +$ endif $ endif $! $! @@ -315,9 +315,9 @@ $! 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 +$ if_block = 1 +$ write tf xline +$ goto cfgh_in_loop1 $ endif $! $! @@ -325,1514 +325,1514 @@ $! 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 +$ 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 +$ double_under = 0 $! -$! Process FCNTL directives +$! Process FCNTL directives $!------------------------------------- -$ if (key2b .eqs. "FCNTL") .and. (key2c .eqs. "O") .and. - - (key2d .eqs. "NONBLOCK") -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if (key2b .eqs. "FCNTL") .and. (key2c .eqs. "O") .and. - + (key2d .eqs. "NONBLOCK") +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! Process GETADDRINFO directives +$! Process GETADDRINFO directives $!------------------------------------- -$ if key2 .eqs. "GETADDRINFO_THREADSAFE" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "GETADDRINFO_THREADSAFE" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! Process IOCTL directives +$! Process IOCTL directives $!------------------------------------- -$ if (key2b .eqs. "IOCTL") .and. (key2c .nes. "") -$ then -$ if (key2c .eqs. "FIONBIO") .or. (key2c .eqs. "SIOCGIFADDR") -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ endif +$ if (key2b .eqs. "IOCTL") .and. (key2c .nes. "") +$ then +$ if (key2c .eqs. "FIONBIO") .or. (key2c .eqs. "SIOCGIFADDR") +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ endif $! $! -$! Manual check for LL on +$! Manual check for LL on $!----------------------------------------------- -$ if key2 .eqs. "LL" -$ then -$ write tf "#ifndef __VAX -$ write tf "#define HAVE_''key2' 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "LL" +$ then +$ write tf "#ifndef __VAX +$ write tf "#define HAVE_''key2' 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$ if key2 .eqs. "bool_t" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' short" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "bool_t" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' short" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$ 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. "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. "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. "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. "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. "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. "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. "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. "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_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_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 +$ 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 $! -$ if key2 .eqs. "HAVE_STRUCT_TIMEVAL" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "HAVE_STRUCT_TIMEVAL" +$ 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 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 +$! 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 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 +$! 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 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. "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_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_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_TIMEVAL" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 1" +$ 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. "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_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_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_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_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 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 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_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_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_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_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_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. "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. "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. "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. "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. "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. "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. "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. "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' 0" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "HAVE_LANGINFO_CODESET" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 0" +$ 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. "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. "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. "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. "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 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 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_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_POSIX_SIGSETJMP" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$ if key2b .eqs. "RAND" .and. key2c .nes. "" .and. key2d .eqs. "" -$ then -$ if (key2c .eqs. "EGD") .or. - - (key2c .eqs. "STATUS") .or. - - (key2c .eqs. "SCREEN") -$ then -$ if f$search("''ssl_header_dir'rand.h") .nes. "" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" -$ write tf "#endif" -$ else -$ write tf "/* #undef ''key2' */" -$ endif -$ endif -$ endif +$ if key2b .eqs. "RAND" .and. key2c .nes. "" .and. key2d .eqs. "" +$ then +$ if (key2c .eqs. "EGD") .or. - + (key2c .eqs. "STATUS") .or. - + (key2c .eqs. "SCREEN") +$ then +$ if f$search("''ssl_header_dir'rand.h") .nes. "" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 1" +$ write tf "#endif" +$ else +$ write tf "/* #undef ''key2' */" +$ endif +$ endif +$ 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. "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 +$ 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. +$! 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 - +$ if key2 .eqs. "GETCWD_BROKEN" +$ then +$ write sys$output "" +$ write sys$output - "%CONFIG_H-I-NONPORT, ''key2' being tested for!" -$ write sys$output - +$ write sys$output - "-CONFIG_H-I-GETCWD, GETCWD(0,0) does not work on VMS." -$ write sys$output - +$ write sys$output - "-CONFIG_H-I-GETCWD2, Work around hack probably required." -$ write sys$output - +$ 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 +$ 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 +$ goto cfgh_in_loop1 +$ endif $! -$ if (key2a .eqs. "HAVE") .or. (key2a .eqs. "STAT") .or. - - (key2 .eqs. "USE_IPV6") .or. (key2b .eqs. "LDAP") -$ then +$ if (key2a .eqs. "HAVE") .or. (key2a .eqs. "STAT") .or. - + (key2 .eqs. "USE_IPV6") .or. (key2b .eqs. "LDAP") +$ then $! -$! Process extra underscores +$! 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 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") .or. (key2 .eqs. "USE_IPV6") .or. - - (key2b .eqs. "LDAP") -$ then +$ if (key2_h .eqs. "_H") .or. (key2 .eqs. "USE_IPV6") .or. - + (key2b .eqs. "LDAP") +$ then $! -$! Looking for a header file +$! Looking for a header file $!--------------------------------------- -$ headf = key2b -$ if key2c .nes. "" then headf = headf + "_" + key2c -$ if key2d .nes. "" then headf = headf + "_" + key2d +$ headf = key2b +$ if key2c .nes. "" then headf = headf + "_" + key2c +$ if key2d .nes. "" then headf = headf + "_" + key2d $! -$! (key2b .eqs. "READLINE") +$! (key2b .eqs. "READLINE") $! -$! Some special parsing +$! 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 +$ 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 +$! And of course what's life with out some special cases $!-------------------------------------------------------------------- -$ if key2 .eqs. "USE_IPV6" -$ then -$ headf = "in6" -$ endif +$ if key2 .eqs. "USE_IPV6" +$ then +$ headf = "in6" +$ endif $! -$ if key2b .eqs. "LDAP" -$ then -$ if (key2 .eqs. "HAVE_LDAP_SSL") .or. - - (key2 .eqs. "HAVE_LDAP_URL_PARSE") -$ then -$ headf = "ldap" -$ endif -$ endif +$ if key2b .eqs. "LDAP" +$ then +$ if (key2 .eqs. "HAVE_LDAP_SSL") .or. - + (key2 .eqs. "HAVE_LDAP_URL_PARSE") +$ then +$ headf = "ldap" +$ endif +$ endif $! $! -$ if key2b .eqs. "FILE" -$ then -$ write sys$output "" -$ write sys$output - +$ if key2b .eqs. "FILE" +$ then +$ write sys$output "" +$ write sys$output - "%CONFIG_H-I-NONPORT, ''key2' being asked for!" -$ write sys$output - +$ write sys$output - "-CONFIG_H-I-FILE_OLD, file.h will not be configured as is obsolete!" -$ write sys$output - +$ write sys$output - "-CONFIG_H_I-FCNTL_NEW, "Expecting fcntl.h to be configured instead!" -$ write sys$output - +$ write sys$output - "-CONFIG_H_I-FCNTL_CHK, "Unable to verify at this time!" -$ write sys$output - +$ 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 +$ 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 +$! 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" +$ 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" +$ write tf "#endif" +$ if key64 then write tf "#endif" $set nover -$ goto cfgh_in_loop1 -$ endif +$ goto cfgh_in_loop1 +$ endif $! $! -$! Now look it up in the DEC C STARLET_C +$! Now look it up in the DEC C STARLET_C $!--------------------------------------------- -$ define/user sys$output nl: -$ define/user sys$error nl: -$ search/output=nl: 'starhfile' |'headf'|/exact -$ if '$severity' .eq. 1 -$ then -$ if key64 then write tf "#ifndef __VAX" -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" +$ define/user sys$output nl: +$ define/user sys$error nl: +$ search/output=nl: 'starhfile' |'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 "''starfile' - #define ''key2' 1" -$ write tf "#endif" -$ if key64 then write tf "#endif" +$ write tf "#endif" +$ if key64 then write tf "#endif" $set nover -$ goto cfgh_in_loop1 -$ endif +$ goto cfgh_in_loop1 +$ endif $! -$! Now look for OPENSSL headers +$! Now look for OPENSSL headers $!--------------------------------------------------------- -$ if key2b .eqs. "OPENSSL" -$ then -$ headf = headf - "OPENSSL_" -$ header = f$search("''ssl_header_dir'''headf'.h") -$ if header .nes. "" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" -$ write tf "#endif" +$ if key2b .eqs. "OPENSSL" +$ then +$ headf = headf - "OPENSSL_" +$ header = f$search("''ssl_header_dir'''headf'.h") +$ if header .nes. "" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 1" +$ write tf "#endif" $set nover -$ goto cfgh_in_loop1 -$ endif -$ endif +$ goto cfgh_in_loop1 +$ endif +$ endif $! -$! Now look for Kerberos +$! Now look for Kerberos $!------------------------------------------------------------ -$ if key2b .eqs. "GSSAPI" -$ then -$ header_dir = "sys$sysroot:[kerberos.include]" -$ headf = headf - "GSSAPI_" -$ header = f$search("''header_dir'''headf'.h") -$ if header .nes. "" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" -$ write tf "#endif" +$ if key2b .eqs. "GSSAPI" +$ then +$ header_dir = "sys$sysroot:[kerberos.include]" +$ headf = headf - "GSSAPI_" +$ header = f$search("''header_dir'''headf'.h") +$ if header .nes. "" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 1" +$ write tf "#endif" $set nover -$ goto cfgh_in_loop1 -$ endif -$ endif +$ goto cfgh_in_loop1 +$ endif +$ endif $! $set nover -$ else +$ else $! -$! Looking for a routine or a symbol +$! 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 +$ 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 +$! Special false tests $!------------------------------------- -$ if double_under -$ then -$ if key2b .eqs. "_FCNTL" .or. key2b .eqs. "__FCNTL" -$ then -$ write tf "/* #undef HAVE_''key2b' */" -$ goto cfgh_in_loop1 -$ endif +$ if double_under +$ then +$ if key2b .eqs. "_FCNTL" .or. key2b .eqs. "__FCNTL" +$ then +$ write tf "/* #undef HAVE_''key2b' */" +$ goto cfgh_in_loop1 +$ endif $! -$ if key2b .eqs. "_STAT" .or. key2b .eqs. "__STAT" -$ then -$ write tf "/* #undef HAVE_''key2b' */" -$ goto cfgh_in_loop1 -$ endif +$ if key2b .eqs. "_STAT" .or. key2b .eqs. "__STAT" +$ then +$ write tf "/* #undef HAVE_''key2b' */" +$ goto cfgh_in_loop1 +$ endif $! -$ if key2b .eqs. "_READ" .or. key2b .eqs. "__READ" -$ then -$ write tf "/* #undef HAVE_''key2b' */" -$ goto cfgh_in_loop1 -$ endif -$ endif +$ if key2b .eqs. "_READ" .or. key2b .eqs. "__READ" +$ then +$ write tf "/* #undef HAVE_''key2b' */" +$ goto cfgh_in_loop1 +$ endif +$ endif $! -$ keysym = key2b -$ if key2c .nes. "" then keysym = keysym + "_" + key2c -$ if key2d .nes. "" then keysym = keysym + "_" + key2d -$ if key2e .nes. "" then keysym = keysym + "_" + key2e +$ keysym = key2b +$ if key2c .nes. "" then keysym = keysym + "_" + key2c +$ if key2d .nes. "" then keysym = keysym + "_" + key2d +$ if key2e .nes. "" then keysym = keysym + "_" + key2e $! $! -$! Stat structure members +$! Stat structure members $!------------------------------------- -$ if key2b .eqs. "STRUCT" -$ then -$ if key2c .eqs. "STAT" .and (key2d .nes. "") -$ then -$ key2b = key2b + "_" + key2c + "_" + key2d -$ key2c = key2e -$ key2d = "" -$ key2e = "" -$ endif -$ endif -$ if (key2b .eqs. "ST") .or. (key2b .eqs. "STRUCT_STAT_ST") -$ then -$ keysym = "ST" + "_" + key2c -$ keysym = f$edit(keysym,"LOWERCASE") -$ endif -$ if key2a .eqs. "STAT" -$ then -$ if (f$locate("STATVFS", key2b) .eq. 0) .and. key2c .eqs. "" -$ then -$ keysym = f$edit(key2b, "LOWERCASE") -$ endif -$!$ if (key2b .eqs. "STATVFS" .or. key2b .eqs. "STATFS2" - -$! .or. key2b .eqs. "STATFS3") .and. key2c .nes. "" +$ if key2b .eqs. "STRUCT" +$ then +$ if key2c .eqs. "STAT" .and (key2d .nes. "") +$ then +$ key2b = key2b + "_" + key2c + "_" + key2d +$ key2c = key2e +$ key2d = "" +$ key2e = "" +$ endif +$ endif +$ if (key2b .eqs. "ST") .or. (key2b .eqs. "STRUCT_STAT_ST") +$ then +$ keysym = "ST" + "_" + key2c +$ keysym = f$edit(keysym,"LOWERCASE") +$ endif +$ if key2a .eqs. "STAT" +$ then +$ if (f$locate("STATVFS", key2b) .eq. 0) .and. key2c .eqs. "" +$ then +$ keysym = f$edit(key2b, "LOWERCASE") +$ endif +$!$ if (key2b .eqs. "STATVFS" .or. key2b .eqs. "STATFS2" - +$! .or. key2b .eqs. "STATFS3") .and. key2c .nes. "" $! -$ if (key2b .eqs. "STATVFS") .and. key2c .nes. "" -$ then -$! Should really verify that the structure -$! named by key2b actually exists first. +$ if (key2b .eqs. "STATVFS") .and. key2c .nes. "" +$ then +$! Should really verify that the structure +$! named by key2b actually exists first. $!------------------------------------------------------------ $! -$! Statvfs structure members +$! Statvfs structure members $!------------------------------------------------- -$ keysym = "f_" + f$edit(key2c,"LOWERCASE") -$ endif -$ endif +$ keysym = "f_" + f$edit(key2c,"LOWERCASE") +$ endif +$ endif $! -$! UTMPX structure members +$! UTMPX structure members $!-------------------------------------- -$ if key2b .eqs. "UT" .and. key2c .eqs. "UT" -$ then -$ keysym = "ut_" + f$edit(key2d,"LOWERCASE") -$ endif +$ if key2b .eqs. "UT" .and. key2c .eqs. "UT" +$ then +$ keysym = "ut_" + f$edit(key2d,"LOWERCASE") +$ endif $! -$ if f$locate("MMAP",key2) .lt. key2_len -$ then -$ write sys$output "" -$ write sys$output - +$ if f$locate("MMAP",key2) .lt. key2_len +$ then +$ write sys$output "" +$ write sys$output - "%CONFIG_H-I-NONPORT, ''key2' being asked for!" -$ write sys$output - +$ write sys$output - "-CONFIG_H-I-MMAP, MMAP operations only work on STREAM and BINARY files!" -$ write sys$output - +$ 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 -$ endif +$ 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 +$ endif $! $! -$ if keysym .eqs. "CRYPT" -$ then -$ write sys$output "" -$ write sys$output - +$ if keysym .eqs. "CRYPT" +$ then +$ write sys$output "" +$ write sys$output - "%CONFIG_H-I-NONPORT, ''key2' being asked for!" -$ write sys$output - +$ write sys$output - "-CONFIG_H-I-CRYPT, CRYPT operations on the VMS SYSUAF may not work!" -$ write sys$output - +$ 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 ''keysym' */" -$ write tfcv "" -$ close tfcv -$ endif -$ endif +$ if update_config_vms +$ then +$ open/append tfcv sys$disk:[]config_vms.h +$ write tfcv "" +$ write tfcv - + "/* Check config.h for use of ''keysym' */" +$ write tfcv "" +$ close tfcv +$ endif +$ endif $! $! -$ if keysym .eqs. "EXECL" -$ then -$ write sys$output "" -$ write sys$output - +$ if keysym .eqs. "EXECL" +$ then +$ write sys$output "" +$ write sys$output - "%CONFIG_H-I-NONPORT, ''key2' being asked for!" -$ write sys$output - +$ write sys$output - "-CONFIG_H-I-EXCEL, EXECL configured, Will probably not work." -$ write sys$output - +$ 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 ''keysym' */" -$ write tfcv "" -$ close tfcv -$ endif -$ endif +$ if update_config_vms +$ then +$ open/append tfcv sys$disk:[]config_vms.h +$ write tfcv "" +$ write tfcv - + "/* Check config.h for use of ''keysym' */" +$ write tfcv "" +$ close tfcv +$ endif +$ endif $! $! -$! Process if cpp supports ANSI-C stringizing '#' operator +$! Process if cpp supports ANSI-C stringizing '#' operator $!----------------------------------------------------------------------- -$ if keysym .eqs. "STRINGIZE" -$ then -$ write tf "#ifndef HAVE_STRINGIZE" -$ write tf "#define HAVE_STRINGSIZE 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if keysym .eqs. "STRINGIZE" +$ then +$ write tf "#ifndef HAVE_STRINGIZE" +$ write tf "#define HAVE_STRINGSIZE 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$ if keysym .eqs. "VOLATILE" -$ then -$ write tf "#ifndef HAVE_VOLATILE" -$ write tf "#define HAVE_VOLATILE 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if keysym .eqs. "VOLATILE" +$ then +$ write tf "#ifndef HAVE_VOLATILE" +$ write tf "#define HAVE_VOLATILE 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$ if keysym .eqs. "ALLOCA" -$ then -$ write tf "#ifndef HAVE_ALLOCA" -$ write tf "#define HAVE_ALLOCA 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if keysym .eqs. "ALLOCA" +$ then +$ write tf "#ifndef HAVE_ALLOCA" +$ write tf "#define HAVE_ALLOCA 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$ if keysym .eqs. "ERRNO_DECL" -$ then -$ write tf "#ifndef HAVE_ERRNO_DECL" -$ write tf "#define HAVE_ERRNO_DECL 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if keysym .eqs. "ERRNO_DECL" +$ then +$ write tf "#ifndef HAVE_ERRNO_DECL" +$ write tf "#define HAVE_ERRNO_DECL 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$ if keysym .eqs. "LONGLONG" -$ then -$ write tf "#ifndef __VAX" -$ write tf "#pragma message disable longlongtype" -$ write tf "#ifndef HAVE_LONGLONG" -$ write tf "#define HAVE_LONGLONG 1" -$ write tf "#endif" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if keysym .eqs. "LONGLONG" +$ then +$ write tf "#ifndef __VAX" +$ write tf "#pragma message disable longlongtype" +$ write tf "#ifndef HAVE_LONGLONG" +$ write tf "#define HAVE_LONGLONG 1" +$ write tf "#endif" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! May need to test compiler version +$! May need to test compiler version $!----------------------------------------------- -$ if keysym .eqs. "LONG_LONG" -$ then -$ write tf "#ifndef __VAX" -$ write tf "#pragma message disable longlongtype" -$ write tf "#ifndef HAVE_LONG_LONG" -$ write tf "#define HAVE_LONG_LONG 1" -$ write tf "#endif" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if keysym .eqs. "LONG_LONG" +$ then +$ write tf "#ifndef __VAX" +$ write tf "#pragma message disable longlongtype" +$ write tf "#ifndef HAVE_LONG_LONG" +$ write tf "#define HAVE_LONG_LONG 1" +$ write tf "#endif" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! May need to test compiler version +$! May need to test compiler version $!----------------------------------------------- -$ if keysym .eqs. "UNSIGNED_LONG_LONG" -$ then -$ write tf "#ifndef __VAX" -$ write tf "#pragma message disable longlongtype" -$ write tf "#ifndef HAVE_UNSIGNED_LONG_LONG" -$ write tf "#define HAVE_UNSIGNED_LONG_LONG 1" -$ write tf "#endif" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if keysym .eqs. "UNSIGNED_LONG_LONG" +$ then +$ write tf "#ifndef __VAX" +$ write tf "#pragma message disable longlongtype" +$ write tf "#ifndef HAVE_UNSIGNED_LONG_LONG" +$ write tf "#define HAVE_UNSIGNED_LONG_LONG 1" +$ write tf "#endif" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! May need to test compiler version +$! May need to test compiler version $!----------------------------------------------- -$ if keysym .eqs. "UNSIGNED_LONG_LONG_INT" -$ then -$ write tf "#ifndef __VAX" -$ write tf "#pragma message disable longlongtype" -$ write tf "#ifndef HAVE_UNSIGNED_LONG_LONG_INT" -$ write tf "#define HAVE_UNSIGNED_LONG_LONG_INT 1" -$ write tf "#endif" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if keysym .eqs. "UNSIGNED_LONG_LONG_INT" +$ then +$ write tf "#ifndef __VAX" +$ write tf "#pragma message disable longlongtype" +$ write tf "#ifndef HAVE_UNSIGNED_LONG_LONG_INT" +$ write tf "#define HAVE_UNSIGNED_LONG_LONG_INT 1" +$ write tf "#endif" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! May need to test compiler version +$! May need to test compiler version $!----------------------------------------------- -$ if keysym .eqs. "LONG_DOUBLE" -$ then -$ write tf "#ifndef __VAX" -$ write tf "#pragma message disable longlongtype" -$ write tf "#ifndef HAVE_LONG_DOUBLE" -$ write tf "#define HAVE_LONG_DOUBLE 1" -$ write tf "#endif" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if keysym .eqs. "LONG_DOUBLE" +$ then +$ write tf "#ifndef __VAX" +$ write tf "#pragma message disable longlongtype" +$ write tf "#ifndef HAVE_LONG_DOUBLE" +$ write tf "#define HAVE_LONG_DOUBLE 1" +$ write tf "#endif" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$ if keysym .eqs. "FCNTL_LOCK" -$ then -$ write sys$output - +$ if keysym .eqs. "FCNTL_LOCK" +$ then +$ write sys$output - "%CONFIG_H-I-NONPORT, ''key2' being asked for! -$ write sys$output - +$ write sys$output - "-CONFIG_H-I-REVIEW, Manual Code review required!" -$ goto cfgh_in_loop1 -$ endif +$ goto cfgh_in_loop1 +$ endif $! $! -$! These libraries are provided by the DEC C RTL +$! These libraries are provided by the DEC C RTL $!------------------------------------------------------------- -$ if keysym .eqs. "LIBINET" .or. keysym .eqs. "LIBSOCKET" -$ then -$ write tf "#ifndef HAVE_''keysym'" -$ write tf "#define HAVE_''keysym' 1" +$ if keysym .eqs. "LIBINET" .or. keysym .eqs. "LIBSOCKET" +$ then +$ write tf "#ifndef HAVE_''keysym'" +$ write tf "#define HAVE_''keysym' 1" $if p2 .nes. "" then write sys$output "''decc_shr' #define ''keysym' 1" -$ write tf "#endif -$ goto cfgh_in_loop1 -$ endif +$ write tf "#endif +$ goto cfgh_in_loop1 +$ endif $! -$ if keysym .eqs. "HERRNO" then keysym = "h_errno" -$ if keysym .eqs. "UTIMBUF" then keysym = "utimbuf" -$ if key2c .eqs. "STRUCT" -$ then -$ keysym = f$edit(key2d,"LOWERCASE") -$ else -$ if key2_h .eqs. "_T" -$ then -$ if key2_t .eqs. "_TYPE" -$ then -$ keysym = f$extract(0, key2_len - 5, key2) - "HAVE_" -$ endif -$ keysym = f$edit(keysym,"LOWERCASE") -$ endif -$ endif +$ if keysym .eqs. "HERRNO" then keysym = "h_errno" +$ if keysym .eqs. "UTIMBUF" then keysym = "utimbuf" +$ if key2c .eqs. "STRUCT" +$ then +$ keysym = f$edit(key2d,"LOWERCASE") +$ else +$ if key2_h .eqs. "_T" +$ then +$ if key2_t .eqs. "_TYPE" +$ then +$ keysym = f$extract(0, key2_len - 5, key2) - "HAVE_" +$ endif +$ keysym = f$edit(keysym,"LOWERCASE") +$ endif +$ endif $! -$! Check the DEC C RTL shared image first +$! Check the DEC C RTL shared image first $!------------------------------------------------------ -$ if f$search(tfile1) .nes. "" then delete 'tfile1';* -$ define/user sys$output nl: -$ define/user sys$error nl: -$ search/format=nonull/out='tfile1' 'decc_shr' 'keysym' -$ if '$severity' .eq. 1 -$ then +$ if f$search(tfile1) .nes. "" then delete 'tfile1';* +$ define/user sys$output nl: +$ define/user sys$error nl: +$ search/format=nonull/out='tfile1' 'decc_shr' 'keysym' +$ if '$severity' .eq. 1 +$ then $! -$! Not documented, but from observation +$! Not documented, but from observation $!------------------------------------------------------ -$ define/user sys$output nl: -$ define/user sys$error nl: -$ if arch_type .eq. 3 -$ then -$ keyterm = "''keysym'" -$ else -$ if arch_type .eq. 2 -$ then -$ keyterm = "''keysym'" -$ else -$ keyterm = "''keysym'" -$ endif -$ endif -$ search/out=nl: 'tfile1' - +$ define/user sys$output nl: +$ define/user sys$error nl: +$ if arch_type .eq. 3 +$ then +$ keyterm = "''keysym'" +$ else +$ if arch_type .eq. 2 +$ then +$ keyterm = "''keysym'" +$ else +$ keyterm = "''keysym'" +$ endif +$ endif +$ search/out=nl: 'tfile1' - "$''keyterm'","$g''keyterm'","$__utc_''keyterm'",- "$__utctz_''keyterm'","$__bsd44_''keyterm'","$bsd_''keyterm'",- "$''keysym'decc$","$G''keysym'decc$","$GX''keyterm'" -$ severity = '$severity' +$ severity = '$severity' $! $! -$! Of course the 64 bit stuff is different +$! Of course the 64 bit stuff is different $!--------------------------------------------------------- -$ if severity .ne. 1 .and. key64 -$ then -$ define/user sys$output nl: -$ define/user sys$error nl: -$ search/out=nl: 'tfile1' "$_''keyterm'" -$! search/out 'tfile1' "$_''keyterm'" -$ severity = '$severity' -$ endif +$ if severity .ne. 1 .and. key64 +$ then +$ define/user sys$output nl: +$ define/user sys$error nl: +$ search/out=nl: 'tfile1' "$_''keyterm'" +$! search/out 'tfile1' "$_''keyterm'" +$ severity = '$severity' +$ endif $! -$! Unix compatibility routines +$! Unix compatibility routines $!--------------------------------------------- -$ if severity .ne. 1 -$ then -$ define/user sys$output nl: -$ define/user sys$error nl: -$ search/out=nl: 'tfile1' - +$ if severity .ne. 1 +$ then +$ define/user sys$output nl: +$ define/user sys$error nl: +$ search/out=nl: 'tfile1' - "$__unix_''keyterm'","$__vms_''keyterm'","$_posix_''keyterm'" -$ severity = '$severity' -$ endif +$ severity = '$severity' +$ endif $! -$! Show the result of the search +$! Show the result of the search $!------------------------------------------------ -$ if 'severity' .eq. 1 -$ then -$ if key64 then write tf "#ifndef __VAX" -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" +$ 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 "''decc_shr' #define ''key2' 1" -$ write tf "#endif" -$ if key64 then write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ endif -$ if f$search(tfile1) .nes. "" then delete 'tfile1';* +$ write tf "#endif" +$ if key64 then write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ endif +$ if f$search(tfile1) .nes. "" then delete 'tfile1';* $! -$! Check the DECC Header files next +$! Check the DECC Header files next $!---------------------------------------------- -$ define/user sys$output nl: -$ define/user sys$error nl: -$ search/out=nl: 'decc_rtldef' - - "''keysym';", "''keysym'[", "struct ''keysym'"/exact -$ severity = '$severity' -$ if severity .eq. 1 -$ then -$ if key64 then write tf "#ifndef __VAX" -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" +$ define/user sys$output nl: +$ define/user sys$error nl: +$ search/out=nl: 'decc_rtldef' - + "''keysym';", "''keysym'[", "struct ''keysym'"/exact +$ severity = '$severity' +$ 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 "''decc_rtldef' #define ''key2' 1" -$ write tf "#endif" -$ if key64 then write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ write tf "#endif" +$ if key64 then write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! Check kerberos +$! Check kerberos $!-------------------------------------------- -$ if f$search("SYS$SYSROOT:[kerberos]include.dir") .nes. "" -$ then -$ test_mit = "SYS$SYSROOT:[kerberos.include]gssapi_krb5.h" -$ if (key2 .eqs. "HAVE_GSSAPI") -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ endif +$ if f$search("SYS$SYSROOT:[kerberos]include.dir") .nes. "" +$ then +$ test_mit = "SYS$SYSROOT:[kerberos.include]gssapi_krb5.h" +$ if (key2 .eqs. "HAVE_GSSAPI") +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ endif $! -$ endif -$ write tf "/* ", xline, " */" -$ goto cfgh_in_loop1 -$ endif +$ endif +$ write tf "/* ", xline, " */" +$ goto cfgh_in_loop1 +$ endif $! $! -$! Process SIZEOF directives found in SAMBA and others +$! Process SIZEOF directives found in SAMBA and others $!---------------------------------------------------------- -$ if key2a .eqs. "SIZEOF" -$ then -$ if key2b .eqs. "INO" .and. key2_h .eqs. "_T" -$ then -$ write tf "#ifndef SIZEOF_INO_T" -$ write tf "#if !__USING_STD_STAT -$ write tf "#define SIZEOF_INO_T 6" -$ write tf "#else -$ write tf "#define SIZEOF_INO_T 8" -$ write tf "#endif -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2b .eqs. "INTMAX" .and. key2_h .eqs. "_T" -$ then -$ write tf "#ifndef SIZEOF_INTMAX_T" -$ write tf "#ifdef __VAX" -$ write tf "#define SIZEOF_INTMAX_T 4" -$ write tf "#else" -$ write tf "#define SIZEOF_INTMAX_T 8" -$ write tf "#endif" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2b .eqs. "OFF" .and. key2_h .eqs. "_T" -$ then -$ write tf "#ifndef SIZEOF_OFF_T" -$ write tf "#if __USE_OFF64_T" -$ write tf "#define SIZEOF_OFF_T 8" -$ write tf "#else" -$ write tf "#define SIZEOF_OFF_T 4" -$ write tf "#endif" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2b .eqs. "CHAR" .and. key2_h .eqs. "_P" -$ then -$ write tf "#ifndef SIZEOF_CHAR_P" -$ write tf "#if __INITIAL_POINTER_SIZE == 64" -$ write tf "#define SIZEOF_CHAR_P 8" -$ write tf "#else" -$ write tf "#define SIZEOF_CHAR_P 4" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2b .eqs. "VOIDP" -$ then -$ write tf "#ifndef SIZEOF_VOIDP" -$ write tf "#if __INITIAL_POINTER_SIZE == 64" -$ write tf "#define SIZEOF_VOIDP 8" -$ write tf "#else" -$ write tf "#define SIZEOF_VOIDP 4" -$ write tf "#endif" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2b .eqs. "INT" -$ then -$ write tf "#ifndef SIZEOF_INT" -$ write tf "#define SIZEOF_INT 4" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2b .eqs. "SIZE" .and. key2_h .eqs. "_T" -$ then -$ write tf "#ifndef SIZEOF_SIZE_T" -$ write tf "#define SIZEOF_SIZE_T 4" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2b .eqs. "TIME" .and. key2_h .eqs. "_T" -$ then -$ write tf "#ifndef SIZEOF_TIME_T" -$ write tf "#define SIZEOF_TIME_T 4" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2b .eqs. "DOUBLE" -$ then -$ write tf "#ifndef SIZEOF_DOUBLE" -$ write tf "#define SIZEOF_DOUBLE 8" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2b .eqs. "LONG" -$ then -$ if key2c .eqs. "" -$ then -$ write tf "#ifndef SIZEOF_LONG" -$ write tf "#define SIZEOF_LONG 4" -$ write tf "#endif" -$ else -$ write tf "#ifndef SIZEOF_LONG_LONG" -$ write tf "#ifndef __VAX" -$ write tf "#define SIZEOF_LONG_LONG 8" -$ write tf "#endif" -$ write tf "#endif" -$ endif -$ goto cfgh_in_loop1 -$ endif -$ write tf "/* ", xline, " */" -$ goto cfgh_in_loop1 -$ endif +$ if key2a .eqs. "SIZEOF" +$ then +$ if key2b .eqs. "INO" .and. key2_h .eqs. "_T" +$ then +$ write tf "#ifndef SIZEOF_INO_T" +$ write tf "#if !__USING_STD_STAT +$ write tf "#define SIZEOF_INO_T 6" +$ write tf "#else +$ write tf "#define SIZEOF_INO_T 8" +$ write tf "#endif +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2b .eqs. "INTMAX" .and. key2_h .eqs. "_T" +$ then +$ write tf "#ifndef SIZEOF_INTMAX_T" +$ write tf "#ifdef __VAX" +$ write tf "#define SIZEOF_INTMAX_T 4" +$ write tf "#else" +$ write tf "#define SIZEOF_INTMAX_T 8" +$ write tf "#endif" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2b .eqs. "OFF" .and. key2_h .eqs. "_T" +$ then +$ write tf "#ifndef SIZEOF_OFF_T" +$ write tf "#if __USE_OFF64_T" +$ write tf "#define SIZEOF_OFF_T 8" +$ write tf "#else" +$ write tf "#define SIZEOF_OFF_T 4" +$ write tf "#endif" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2b .eqs. "CHAR" .and. key2_h .eqs. "_P" +$ then +$ write tf "#ifndef SIZEOF_CHAR_P" +$ write tf "#if __INITIAL_POINTER_SIZE == 64" +$ write tf "#define SIZEOF_CHAR_P 8" +$ write tf "#else" +$ write tf "#define SIZEOF_CHAR_P 4" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2b .eqs. "VOIDP" +$ then +$ write tf "#ifndef SIZEOF_VOIDP" +$ write tf "#if __INITIAL_POINTER_SIZE == 64" +$ write tf "#define SIZEOF_VOIDP 8" +$ write tf "#else" +$ write tf "#define SIZEOF_VOIDP 4" +$ write tf "#endif" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2b .eqs. "INT" +$ then +$ write tf "#ifndef SIZEOF_INT" +$ write tf "#define SIZEOF_INT 4" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2b .eqs. "SIZE" .and. key2_h .eqs. "_T" +$ then +$ write tf "#ifndef SIZEOF_SIZE_T" +$ write tf "#define SIZEOF_SIZE_T 4" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2b .eqs. "TIME" .and. key2_h .eqs. "_T" +$ then +$ write tf "#ifndef SIZEOF_TIME_T" +$ write tf "#define SIZEOF_TIME_T 4" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2b .eqs. "DOUBLE" +$ then +$ write tf "#ifndef SIZEOF_DOUBLE" +$ write tf "#define SIZEOF_DOUBLE 8" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2b .eqs. "LONG" +$ then +$ if key2c .eqs. "" +$ then +$ write tf "#ifndef SIZEOF_LONG" +$ write tf "#define SIZEOF_LONG 4" +$ write tf "#endif" +$ else +$ write tf "#ifndef SIZEOF_LONG_LONG" +$ write tf "#ifndef __VAX" +$ write tf "#define SIZEOF_LONG_LONG 8" +$ write tf "#endif" +$ write tf "#endif" +$ endif +$ goto cfgh_in_loop1 +$ endif +$ write tf "/* ", xline, " */" +$ goto cfgh_in_loop1 +$ endif $! -$! Process NEED directives +$! Process NEED directives $!------------------------------- -$ if key2a .eqs. "NEED" -$ then -$ if key2b .eqs. "STRINGS" .and. key2_h .eqs. "_H" -$ then -$ write tf "#ifndef NEED_STRINGS_H" -$ write tf "#define NEED_STRINGS_H 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ write tf "/* ", xline, " */" -$ goto cfgh_in_loop1 -$ endif +$ if key2a .eqs. "NEED" +$ then +$ if key2b .eqs. "STRINGS" .and. key2_h .eqs. "_H" +$ then +$ write tf "#ifndef NEED_STRINGS_H" +$ write tf "#define NEED_STRINGS_H 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ write tf "/* ", xline, " */" +$ goto cfgh_in_loop1 +$ endif $! -$! Process GETHOSTNAME directives +$! Process GETHOSTNAME directives $!------------------------------------- -$ if key2 .eqs. "GETHOSTNAME_TYPE_ARG2" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#ifdef _DECC_V4_SOURCE" -$ write tf "#define ''key2' int" -$ write tf "#else" -$ write tf "#define ''key2' size_t" -$ write tf "#endif" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "GETHOSTNAME_TYPE_ARG2" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#ifdef _DECC_V4_SOURCE" +$ write tf "#define ''key2' int" +$ write tf "#else" +$ write tf "#define ''key2' size_t" +$ write tf "#endif" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! Process GETNAMEINFO directives +$! Process GETNAMEINFO directives $!------------------------------------- -$ if key2a .eqs. "GETNAMEINFO" -$ then -$ if key2 .eqs. "GETNAMEINFO_QUAL_ARG1" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' const" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG1" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' struct sockaddr *" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG2" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' size_t" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG46" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' size_t" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG7" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' int" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ endif +$ if key2a .eqs. "GETNAMEINFO" +$ then +$ if key2 .eqs. "GETNAMEINFO_QUAL_ARG1" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' const" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG1" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' struct sockaddr *" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG2" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' size_t" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG46" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' size_t" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "GETNAMEINFO_TYPE_ARG7" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' int" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ endif $! -$! Process RECV directives +$! Process RECV directives $!------------------------------------- -$ if key2a .eqs. "RECV" -$ then -$ if key2 .eqs. "RECV_TYPE_ARG1" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' int" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "RECV_TYPE_ARG2" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' void *" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "RECV_TYPE_ARG3" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' size_t" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "RECV_TYPE_ARG4" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' int" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "RECV_TYPE_RETV" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' int" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ endif +$ if key2a .eqs. "RECV" +$ then +$ if key2 .eqs. "RECV_TYPE_ARG1" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' int" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "RECV_TYPE_ARG2" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' void *" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "RECV_TYPE_ARG3" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' size_t" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "RECV_TYPE_ARG4" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' int" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "RECV_TYPE_RETV" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' int" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ endif $! -$! Process SEND directives +$! Process SEND directives $!------------------------------------- -$ if key2a .eqs. "SEND" -$ then -$ if key2 .eqs. "SEND_QUAL_ARG2" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' const" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "SEND_TYPE_ARG1" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' int" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "SEND_TYPE_ARG2" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' void *" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "SEND_TYPE_ARG3" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' size_t" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "SEND_TYPE_ARG4" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' int" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ if key2 .eqs. "SEND_TYPE_RETV" -$ then -$ write tf "#ifndef ''key2'" -$ write tf "#define ''key2' int" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif -$ endif +$ if key2a .eqs. "SEND" +$ then +$ if key2 .eqs. "SEND_QUAL_ARG2" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' const" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "SEND_TYPE_ARG1" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' int" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "SEND_TYPE_ARG2" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' void *" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "SEND_TYPE_ARG3" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' size_t" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "SEND_TYPE_ARG4" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' int" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ if key2 .eqs. "SEND_TYPE_RETV" +$ then +$ write tf "#ifndef ''key2'" +$ write tf "#define ''key2' int" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif +$ endif $! $! -$! Process STATFS directives +$! Process STATFS directives $!------------------------------- -$! if key2a .eqs. "STATFS" -$! then -$! write tf "/* ", xline, " */" -$! goto cfgh_in_loop1 -$! endif +$! if key2a .eqs. "STATFS" +$! then +$! write tf "/* ", xline, " */" +$! goto cfgh_in_loop1 +$! endif $! -$! Process inline directive +$! Process inline directive $!------------------------------ -$ if key2 .eqs. "inline" -$ then -$ write tf "#ifndef inline" -$ write tf "#define inline __inline" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "inline" +$ then +$ write tf "#ifndef inline" +$ write tf "#define inline __inline" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! Process restrict directive +$! Process restrict directive $!-------------------------------- -$ if key2 .eqs. "restrict" -$ then -$ write tf "#ifndef restrict" -$ write tf "#define restrict __restrict" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "restrict" +$ then +$ write tf "#ifndef restrict" +$ write tf "#define restrict __restrict" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! Process STDC_HEADERS (SAMBA!) +$! Process STDC_HEADERS (SAMBA!) $!--------------------------- -$ if key2 .eqs. "STDC_HEADERS" -$ then -$ write tf "#ifndef STDC_HEADERS" -$ write tf "#define STDC_HEADERS 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "STDC_HEADERS" +$ then +$ write tf "#ifndef STDC_HEADERS" +$ write tf "#define STDC_HEADERS 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! Process PROTOTYPES directive +$! Process PROTOTYPES directive $!------------------------------------- -$ if key2 .eqs. "PROTOTYPES" -$ then -$ write tf "#ifndef PROTOTYPES" -$ write tf "#define PROTOTYPES 1" -$ write tf "#endif" -$ goto cfgh_in_loop1 -$ endif +$ if key2 .eqs. "PROTOTYPES" +$ then +$ write tf "#ifndef PROTOTYPES" +$ write tf "#define PROTOTYPES 1" +$ write tf "#endif" +$ goto cfgh_in_loop1 +$ endif $! -$! Special for SEEKDIR_RETURNS_VOID +$! Special for SEEKDIR_RETURNS_VOID $!--------------------------------------- -$ if key2 .eqs. "SEEKDIR_RETURNS_VOID" -$ then -$ write tf "#ifndef SEEKDIR_RETURNS_VOID" -$ write tf "#define SEEKDIR_RETURNS_VOID 1" -$ write tf "#endif" -$ endif +$ if key2 .eqs. "SEEKDIR_RETURNS_VOID" +$ then +$ write tf "#ifndef SEEKDIR_RETURNS_VOID" +$ write tf "#define SEEKDIR_RETURNS_VOID 1" +$ write tf "#endif" +$ endif $! -$! Unknown - See if CONFIGURE can give a clue for this +$! Unknown - See if CONFIGURE can give a clue for this $!---------------------------------------------------------- -$ pflag = 0 -$ set_flag = 0 -$! gproj_name = proj_name - "_VMS" - "-VMS" -$ if f$search(tfile1) .nes. "" then delete 'tfile1';* -$ define/user sys$output nl: -$ define/user sys$error nl: -$! if f$locate("FILE", key2) .lt. key2_len then pflag = 1 -$! if f$locate("DIR", key2) .eq. key2_len - 3 then pflag = 1 -$! if f$locate("PATH", key2) .eq. key2_len - 4 then pflag = 1 +$ pflag = 0 +$ set_flag = 0 +$! gproj_name = proj_name - "_VMS" - "-VMS" +$ if f$search(tfile1) .nes. "" then delete 'tfile1';* +$ define/user sys$output nl: +$ define/user sys$error nl: +$! if f$locate("FILE", key2) .lt. key2_len then pflag = 1 +$! if f$locate("DIR", key2) .eq. key2_len - 3 then pflag = 1 +$! if f$locate("PATH", key2) .eq. key2_len - 4 then pflag = 1 $! -$ search/out='tfile1' 'configure_script' "''key2'="/exact -$ search_sev = '$severity' -$ if 'search_sev' .eq. 1 -$ then -$ open/read/err=unknown_cf_rd_error sf 'tfile1' +$ search/out='tfile1' 'configure_script' "''key2'="/exact +$ search_sev = '$severity' +$ if 'search_sev' .eq. 1 +$ then +$ open/read/err=unknown_cf_rd_error sf 'tfile1' $search_file_rd_loop: -$ read/end=unknown_cf_rd_err sf line_in -$ line_in = f$edit(line_in, "TRIM") -$ skey1 = f$element(0,"=",line_in) -$ if skey1 .eqs. key2 -$ then -$ skey2 = f$element(1,"=",line_in) -$ skey2a = f$extract(0,2,skey2) +$ read/end=unknown_cf_rd_err sf line_in +$ line_in = f$edit(line_in, "TRIM") +$ skey1 = f$element(0,"=",line_in) +$ if skey1 .eqs. key2 +$ then +$ skey2 = f$element(1,"=",line_in) +$ skey2a = f$extract(0,2,skey2) $! $! -$! We can not handle assignment to shell symbols. -$! For now skip them. +$! We can not handle assignment to shell symbols. +$! For now skip them. $!------------------------------------------------------------ -$ if f$locate("$", skey2) .lt. f$length(skey2) -$ then -$ write tf "/* ", xline, " */" -$ set_flag = 1 -$ goto found_in_configure -$ endif +$ if f$locate("$", skey2) .lt. f$length(skey2) +$ then +$ write tf "/* ", xline, " */" +$ set_flag = 1 +$ goto found_in_configure +$ endif $! -$! Keep these two cases separate to make it easier to add -$! more future intelligence to this routine +$! Keep these two cases separate to make it easier to add +$! more future intelligence to this routine $!---------------------------------------------------------------------- -$ if skey2a .eqs. """`" -$ then -$! if pflag .eq. 1 -$! then -$! write tf "#ifndef ''key2'" -$! write tf "#define ",key2," """,gproj_name,"_",key2,"""" -$! write tf "#endif" -$! else -$! Ignore this for now +$ if skey2a .eqs. """`" +$ then +$! if pflag .eq. 1 +$! then +$! write tf "#ifndef ''key2'" +$! write tf "#define ",key2," """,gproj_name,"_",key2,"""" +$! write tf "#endif" +$! else +$! Ignore this for now $!------------------------------------------ -$ write tf "/* ", xline, " */" -$! endif -$ set_flag = 1 -$ goto found_in_configure -$ endif -$ if skey2a .eqs. """$" -$ then -$! if pflag .eq. 1 -$! then -$! write tf "#ifndef ''key2'" -$! write tf "#define ",key2," """,gproj_name,"_",key2,"""" -$! write tf "#endif" -$! else -$! Ignore this for now +$ write tf "/* ", xline, " */" +$! endif +$ set_flag = 1 +$ goto found_in_configure +$ endif +$ if skey2a .eqs. """$" +$ then +$! if pflag .eq. 1 +$! then +$! write tf "#ifndef ''key2'" +$! write tf "#define ",key2," """,gproj_name,"_",key2,"""" +$! write tf "#endif" +$! else +$! Ignore this for now $!------------------------------------------- -$ write tf "/* ", xline, " */" -$! endif -$ set_flag = 1 -$ goto found_in_configure -$ endif +$ write tf "/* ", xline, " */" +$! endif +$ set_flag = 1 +$ goto found_in_configure +$ endif $! -$! Remove multiple layers of quotes if present +$! Remove multiple layers of quotes if present $!---------------------------------------------------------- -$ if f$extract(0, 1, skey2) .eqs. "'" -$ then -$ skey2 = skey2 - "'" - "'" - "'" - "'" -$ endif -$ if f$extract(0, 1, skey2) .eqs. """" -$ then -$ skey2 = skey2 - """" - """" - """" - """" -$ endif -$ write tf "#ifndef ''key2'" -$ if skey2 .eqs. "" -$ then -$ write tf "#define ",key2 -$ else -$! Only quote non-numbers +$ if f$extract(0, 1, skey2) .eqs. "'" +$ then +$ skey2 = skey2 - "'" - "'" - "'" - "'" +$ endif +$ if f$extract(0, 1, skey2) .eqs. """" +$ then +$ skey2 = skey2 - """" - """" - """" - """" +$ endif +$ write tf "#ifndef ''key2'" +$ if skey2 .eqs. "" +$ then +$ write tf "#define ",key2 +$ else +$! Only quote non-numbers $!---------------------------------------- -$ if f$string(skey2+0) .eqs. skey2 -$ then -$ write tf "#define ",key2," ",skey2 -$ else -$ write tf "#define ",key2," """,skey2,"""" -$ endif -$ endif -$ write tf "#endif" -$ set_flag = 1 -$ else -$ goto search_file_rd_loop -$! if pflag .eq. 1 -$! then -$! write tf "#ifndef ''key2'" -$! write tf "#define ",key2," """,gproj_name,"_",key2,"""" -$! write tf "#endif" -$! set_flag = 1 -$! endif -$ endif +$ if f$string(skey2+0) .eqs. skey2 +$ then +$ write tf "#define ",key2," ",skey2 +$ else +$ write tf "#define ",key2," """,skey2,"""" +$ endif +$ endif +$ write tf "#endif" +$ set_flag = 1 +$ else +$ goto search_file_rd_loop +$! if pflag .eq. 1 +$! then +$! write tf "#ifndef ''key2'" +$! write tf "#define ",key2," """,gproj_name,"_",key2,"""" +$! write tf "#endif" +$! set_flag = 1 +$! endif +$ endif $found_in_configure: $unknown_cf_rd_err: -$ if f$trnlnm("sf","lnm$process",,"SUPERVISOR") .nes. "" -$ then -$ close sf -$ endif -$ if f$search(tfile1) .nes. "" then delete 'tfile1';* -$ if set_flag .eq. 1 then goto cfgh_in_loop1 -$ endif +$ if f$trnlnm("sf","lnm$process",,"SUPERVISOR") .nes. "" +$ then +$ close sf +$ endif +$ if f$search(tfile1) .nes. "" then delete 'tfile1';* +$ if set_flag .eq. 1 then goto cfgh_in_loop1 +$ endif $ endif $! $! diff --git a/packages/vms/curlmsg.msg b/packages/vms/curlmsg.msg index ac2d508e3b..8d428e88b6 100644 --- a/packages/vms/curlmsg.msg +++ b/packages/vms/curlmsg.msg @@ -39,96 +39,96 @@ ! ! If you update this file also update curlmsg_vms.h so that they are in sync ! -.TITLE CURLMSG Message files -.FACILITY CURL,1793 /PREFIX=CURL_ -.BASE 1 -.SEVERITY SUCCESS -OK +.TITLE CURLMSG Message files +.FACILITY CURL,1793 /PREFIX=CURL_ +.BASE 1 +.SEVERITY SUCCESS +OK -.SEVERITY ERROR -UNSUPPORTED_PROTOCOL -FAILED_INIT -URL_MALFORMAT -OBSOLETE4 -COULDNT_RESOLVE_PROXY -COULDNT_RESOLVE_HOST -COULDNT_CONNECT -WEIRD_SERVER_REPLY -FTP_ACCESS_DENIED -OBSOLETE10 -FTP_WEIRD_PASS_REPLY -OBSOLETE12 -FTP_WEIRD_PASV_REPLY -FTP_WEIRD_227_FORMAT -FTP_CANT_GET_HOST -OBSOLETE16 -FTP_COULDNT_SET_TYPE -PARTIAL_FILE -FTP_COULDNT_RETR_FILE -OBSOLETE20 -QUOTE_ERROR -HTTP_RETURNED_ERROR -WRITE_ERROR -OBSOLETE24 -UPLOAD_FAILED -READ_ERROR -OUT_OF_MEMORY -OPERATION_TIMEOUTED -OBSOLETE29 -FTP_PORT_FAILED -FTP_COULDNT_USE_REST -OBSOLETE32 -RANGE_ERROR -HTTP_POST_ERROR -SSL_CONNECT_ERROR -BAD_DOWNLOAD_RESUME -FILE_COULDNT_READ_FILE -LDAP_CANNOT_BIND -LDAP_SEARCH_FAILED -OBSOLETE40 -FUNCTION_NOT_FOUND -ABORTED_BY_CALLBACK -BAD_FUNCTION_ARGUMENT -OBSOLETE44 -INTERFACE_FAILED -OBSOLETE46 -TOO_MANY_REDIRECTS -UNKNOWN_TELNET_OPTION -TELNET_OPTION_SYNTAX -OBSOLETE50 -PEER_FAILED_VERIF -GOT_NOTHING -SSL_ENGINE_NOTFOUND -SSL_ENGINE_SETFAILED -SEND_ERROR -RECV_ERROR -OBSOLETE57 -SSL_CERTPROBLEM +.SEVERITY ERROR +UNSUPPORTED_PROTOCOL +FAILED_INIT +URL_MALFORMAT +OBSOLETE4 +COULDNT_RESOLVE_PROXY +COULDNT_RESOLVE_HOST +COULDNT_CONNECT +WEIRD_SERVER_REPLY +FTP_ACCESS_DENIED +OBSOLETE10 +FTP_WEIRD_PASS_REPLY +OBSOLETE12 +FTP_WEIRD_PASV_REPLY +FTP_WEIRD_227_FORMAT +FTP_CANT_GET_HOST +OBSOLETE16 +FTP_COULDNT_SET_TYPE +PARTIAL_FILE +FTP_COULDNT_RETR_FILE +OBSOLETE20 +QUOTE_ERROR +HTTP_RETURNED_ERROR +WRITE_ERROR +OBSOLETE24 +UPLOAD_FAILED +READ_ERROR +OUT_OF_MEMORY +OPERATION_TIMEOUTED +OBSOLETE29 +FTP_PORT_FAILED +FTP_COULDNT_USE_REST +OBSOLETE32 +RANGE_ERROR +HTTP_POST_ERROR +SSL_CONNECT_ERROR +BAD_DOWNLOAD_RESUME +FILE_COULDNT_READ_FILE +LDAP_CANNOT_BIND +LDAP_SEARCH_FAILED +OBSOLETE40 +FUNCTION_NOT_FOUND +ABORTED_BY_CALLBACK +BAD_FUNCTION_ARGUMENT +OBSOLETE44 +INTERFACE_FAILED +OBSOLETE46 +TOO_MANY_REDIRECTS +UNKNOWN_TELNET_OPTION +TELNET_OPTION_SYNTAX +OBSOLETE50 +PEER_FAILED_VERIF +GOT_NOTHING +SSL_ENGINE_NOTFOUND +SSL_ENGINE_SETFAILED +SEND_ERROR +RECV_ERROR +OBSOLETE57 +SSL_CERTPROBLEM SSL_CIPHER -SSL_CACERT -BAD_CONTENT_ENCODING -LDAP_INVALID_URL -FILESIZE_EXCEEDED -USE_SSL_FAILED -SEND_FAIL_REWIND -SSL_ENGINE_INITFAILED -LOGIN_DENIED -TFTP_NOTFOUND -TFTP_PERM -REMOTE_DISK_FULL -TFTP_ILLEGAL -TFTP_UNKNOWNID -REMOTE_FILE_EXISTS -TFTP_NOSUCHUSER -CONV_FAILED -CONV_REQD -SSL_CACERT_BADFILE -REMOTE_FILE_NOT_FOUND -SSH -SSL_SHUTDOWN_FAILED -AGAIN -SSL_CRL_BADFILE -SSL_ISSUER_ERROR -CURL_LAST +SSL_CACERT +BAD_CONTENT_ENCODING +LDAP_INVALID_URL +FILESIZE_EXCEEDED +USE_SSL_FAILED +SEND_FAIL_REWIND +SSL_ENGINE_INITFAILED +LOGIN_DENIED +TFTP_NOTFOUND +TFTP_PERM +REMOTE_DISK_FULL +TFTP_ILLEGAL +TFTP_UNKNOWNID +REMOTE_FILE_EXISTS +TFTP_NOSUCHUSER +CONV_FAILED +CONV_REQD +SSL_CACERT_BADFILE +REMOTE_FILE_NOT_FOUND +SSH +SSL_SHUTDOWN_FAILED +AGAIN +SSL_CRL_BADFILE +SSL_ISSUER_ERROR +CURL_LAST .END diff --git a/packages/vms/curlmsg_vms.h b/packages/vms/curlmsg_vms.h index bb64702211..29a38db493 100644 --- a/packages/vms/curlmsg_vms.h +++ b/packages/vms/curlmsg_vms.h @@ -52,92 +52,92 @@ */ static const long vms_cond[] = - { - CURL_OK, - CURL_UNSUPPORTED_PROTOCOL, - CURL_FAILED_INIT, - CURL_URL_MALFORMAT, - CURL_OBSOLETE4, - CURL_COULDNT_RESOLVE_PROXY, - CURL_COULDNT_RESOLVE_HOST, - CURL_COULDNT_CONNECT, - CURL_WEIRD_SERVER_REPLY, - CURL_FTP_ACCESS_DENIED, - CURL_OBSOLETE10, - CURL_FTP_WEIRD_PASS_REPLY, - CURL_OBSOLETE12, - CURL_FTP_WEIRD_PASV_REPLY, - CURL_FTP_WEIRD_227_FORMAT, - CURL_FTP_CANT_GET_HOST, - CURL_OBSOLETE16, - CURL_FTP_COULDNT_SET_TYPE, - CURL_PARTIAL_FILE, - CURL_FTP_COULDNT_RETR_FILE, - CURL_OBSOLETE20, - CURL_QUOTE_ERROR, - CURL_HTTP_RETURNED_ERROR, - CURL_WRITE_ERROR, - CURL_OBSOLETE24, - CURL_UPLOAD_FAILED, - CURL_READ_ERROR, - CURL_OUT_OF_MEMORY, - CURL_OPERATION_TIMEOUTED, - CURL_OBSOLETE29, - CURL_FTP_PORT_FAILED, - CURL_FTP_COULDNT_USE_REST, - CURL_OBSOLETE32, - CURL_RANGE_ERROR, - CURL_HTTP_POST_ERROR, - CURL_SSL_CONNECT_ERROR, - CURL_BAD_DOWNLOAD_RESUME, - CURL_FILE_COULDNT_READ_FILE, - CURL_LDAP_CANNOT_BIND, - CURL_LDAP_SEARCH_FAILED, - CURL_OBSOLETE40, - CURL_FUNCTION_NOT_FOUND, - CURL_ABORTED_BY_CALLBACK, - CURL_BAD_FUNCTION_ARGUMENT, - CURL_OBSOLETE44, - CURL_INTERFACE_FAILED, - CURL_OBSOLETE46, - CURL_TOO_MANY_REDIRECTS, - CURL_UNKNOWN_TELNET_OPTION, - CURL_TELNET_OPTION_SYNTAX, - CURL_OBSOLETE50, - CURL_PEER_FAILED_VERIF, - CURL_GOT_NOTHING, - CURL_SSL_ENGINE_NOTFOUND, - CURL_SSL_ENGINE_SETFAILED, - CURL_SEND_ERROR, - CURL_RECV_ERROR, - CURL_OBSOLETE57, - CURL_SSL_CERTPROBLEM, - CURL_SSL_CIPHER, - CURL_SSL_CACERT, - CURL_BAD_CONTENT_ENCODING, - CURL_LDAP_INVALID_URL, - CURL_FILESIZE_EXCEEDED, - CURL_USE_SSL_FAILED, - CURL_SEND_FAIL_REWIND, - CURL_SSL_ENGINE_INITFAILED, - CURL_LOGIN_DENIED, - CURL_TFTP_NOTFOUND, - CURL_TFTP_PERM, - CURL_REMOTE_DISK_FULL, - CURL_TFTP_ILLEGAL, - CURL_TFTP_UNKNOWNID, - CURL_REMOTE_FILE_EXISTS, - CURL_TFTP_NOSUCHUSER, - CURL_CONV_FAILED, - CURL_CONV_REQD, - CURL_SSL_CACERT_BADFILE, - CURL_REMOTE_FILE_NOT_FOUND, - CURL_SSH, - CURL_SSL_SHUTDOWN_FAILED, - CURL_AGAIN, - CURLE_SSL_CRL_BADFILE, - CURLE_SSL_ISSUER_ERROR, - CURL_CURL_LAST - }; +{ + CURL_OK, + CURL_UNSUPPORTED_PROTOCOL, + CURL_FAILED_INIT, + CURL_URL_MALFORMAT, + CURL_OBSOLETE4, + CURL_COULDNT_RESOLVE_PROXY, + CURL_COULDNT_RESOLVE_HOST, + CURL_COULDNT_CONNECT, + CURL_WEIRD_SERVER_REPLY, + CURL_FTP_ACCESS_DENIED, + CURL_OBSOLETE10, + CURL_FTP_WEIRD_PASS_REPLY, + CURL_OBSOLETE12, + CURL_FTP_WEIRD_PASV_REPLY, + CURL_FTP_WEIRD_227_FORMAT, + CURL_FTP_CANT_GET_HOST, + CURL_OBSOLETE16, + CURL_FTP_COULDNT_SET_TYPE, + CURL_PARTIAL_FILE, + CURL_FTP_COULDNT_RETR_FILE, + CURL_OBSOLETE20, + CURL_QUOTE_ERROR, + CURL_HTTP_RETURNED_ERROR, + CURL_WRITE_ERROR, + CURL_OBSOLETE24, + CURL_UPLOAD_FAILED, + CURL_READ_ERROR, + CURL_OUT_OF_MEMORY, + CURL_OPERATION_TIMEOUTED, + CURL_OBSOLETE29, + CURL_FTP_PORT_FAILED, + CURL_FTP_COULDNT_USE_REST, + CURL_OBSOLETE32, + CURL_RANGE_ERROR, + CURL_HTTP_POST_ERROR, + CURL_SSL_CONNECT_ERROR, + CURL_BAD_DOWNLOAD_RESUME, + CURL_FILE_COULDNT_READ_FILE, + CURL_LDAP_CANNOT_BIND, + CURL_LDAP_SEARCH_FAILED, + CURL_OBSOLETE40, + CURL_FUNCTION_NOT_FOUND, + CURL_ABORTED_BY_CALLBACK, + CURL_BAD_FUNCTION_ARGUMENT, + CURL_OBSOLETE44, + CURL_INTERFACE_FAILED, + CURL_OBSOLETE46, + CURL_TOO_MANY_REDIRECTS, + CURL_UNKNOWN_TELNET_OPTION, + CURL_TELNET_OPTION_SYNTAX, + CURL_OBSOLETE50, + CURL_PEER_FAILED_VERIF, + CURL_GOT_NOTHING, + CURL_SSL_ENGINE_NOTFOUND, + CURL_SSL_ENGINE_SETFAILED, + CURL_SEND_ERROR, + CURL_RECV_ERROR, + CURL_OBSOLETE57, + CURL_SSL_CERTPROBLEM, + CURL_SSL_CIPHER, + CURL_SSL_CACERT, + CURL_BAD_CONTENT_ENCODING, + CURL_LDAP_INVALID_URL, + CURL_FILESIZE_EXCEEDED, + CURL_USE_SSL_FAILED, + CURL_SEND_FAIL_REWIND, + CURL_SSL_ENGINE_INITFAILED, + CURL_LOGIN_DENIED, + CURL_TFTP_NOTFOUND, + CURL_TFTP_PERM, + CURL_REMOTE_DISK_FULL, + CURL_TFTP_ILLEGAL, + CURL_TFTP_UNKNOWNID, + CURL_REMOTE_FILE_EXISTS, + CURL_TFTP_NOSUCHUSER, + CURL_CONV_FAILED, + CURL_CONV_REQD, + CURL_SSL_CACERT_BADFILE, + CURL_REMOTE_FILE_NOT_FOUND, + CURL_SSH, + CURL_SSL_SHUTDOWN_FAILED, + CURL_AGAIN, + CURLE_SSL_CRL_BADFILE, + CURLE_SSL_ISSUER_ERROR, + CURL_CURL_LAST +}; #endif /* HEADER_CURLMSG_VMS_H */ diff --git a/packages/vms/generate_config_vms_h_curl.com b/packages/vms/generate_config_vms_h_curl.com index 99a39c8441..6081d8d340 100644 --- a/packages/vms/generate_config_vms_h_curl.com +++ b/packages/vms/generate_config_vms_h_curl.com @@ -71,8 +71,8 @@ $! ssl$* logicals means HP ssl is present $!---------------------------------------- $ if f$trnlnm("ssl$root") .nes. "" $ then -$ nohpssl = 0 -$ hpssl = 1 +$ nohpssl = 0 +$ hpssl = 1 $ endif $! $! HP defines OPENSSL as SSL$INCLUDE as a convenience for linking. @@ -83,25 +83,25 @@ $!------------------------------------ $ openssl_lnm = f$trnlnm("OPENSSL") $ if (openssl_lnm .nes. "SYS$INCLUDE") $ then -$! Non HP SSL is installed, default to use it. -$ nohpssl = 1 -$ hpssl = 0 +$! Non HP SSL is installed, default to use it. +$ nohpssl = 1 +$ hpssl = 0 $ endif $! $! Now check to see if hpssl has been specifically disabled $!---------------------------------------------------------- $ if f$locate(",nohpssl,", args_lower) .lt. args_len $ then -$ nohpssl = 1 -$ hpssl = 0 +$ nohpssl = 1 +$ hpssl = 0 $ endif $! $! Finally check to see if hp ssl has been specifically included. $!---------------------------------------------------------------- $ if f$locate(",nohpssl,", args_lower) .lt. args_len $ then -$ nohpssl = 1 -$ hpssl = 0 +$ nohpssl = 1 +$ hpssl = 0 $ endif $endif $! @@ -113,14 +113,14 @@ $ write sys$output "NOTICE: A LIBIDN port has been detected." $ write sys$output " This port of curl for VMS has not been tested with it." $ if f$locate(",libidn,", args_lower) .lt. args_len $ then -$ libidn = 1 +$ libidn = 1 $ endif $ if .not. libidn $ then -$ write sys$output " LIBIDN support is not enabled." -$ write sys$output "Run with the ""libidn"" parameter to attempt to use." +$ write sys$output " LIBIDN support is not enabled." +$ write sys$output "Run with the ""libidn"" parameter to attempt to use." $ else -$ write sys$output " Untested LIBIDN support requested." +$ write sys$output " Untested LIBIDN support requested." $ endif $endif $! @@ -132,14 +132,14 @@ $ write sys$output "NOTICE: A LIBSSH2 port has been detected." $ write sys$output " This port of curl for VMS has not been tested with it." $ if f$locate(",libssh2,", args_lower) .lt. args_len $ then -$ libssh2 = 1 +$ libssh2 = 1 $ endif $ if .not. libssh2 $ then -$ write sys$output " LIBSSH2 support is not enabled." -$ write sys$output "Run with the ""libssh2"" parameter to attempt to use." +$ write sys$output " LIBSSH2 support is not enabled." +$ write sys$output "Run with the ""libssh2"" parameter to attempt to use." $ else -$ write sys$output " Untested LIBSSH2 support requested." +$ write sys$output " Untested LIBSSH2 support requested." $ endif $endif $! @@ -159,7 +159,7 @@ $then $! If kerberos is installed: sys$share:gss$rtl.exe exists. $ if f$search("sys$shsare:gss$rtl.exe") .eqs. "" $ then -$ nokerberos = 1 +$ nokerberos = 1 $ endif $endif $! @@ -170,13 +170,13 @@ $if f$trnlnm("GNV$LIBZSHR") .nes. "" $then $ if f$locate(",nozlib,", args_lower) .lt. args_len $ then -$ nozlib = 1 +$ nozlib = 1 $ endif $! if .not. nozlib $! then -$! write sys$output " GNV$LIBZSHR support is enabled." +$! write sys$output " GNV$LIBZSHR support is enabled." $! else -$! write sys$output " GNV$LIBZSHR support is disabled by nozlib." +$! write sys$output " GNV$LIBZSHR support is disabled by nozlib." $! endif $else $ nozlib = 1 @@ -262,9 +262,9 @@ $ write cvh "#undef CURL_DISABLE_LDAP" $ write cvh "#endif" $ if .not. nossl $ then -$ write cvh "#ifdef CURL_DISABLE_LDAPS" -$ write cvh "#undef CURL_DISABLE_LDAPS" -$ write cvh "#endif" +$ write cvh "#ifdef CURL_DISABLE_LDAPS" +$ write cvh "#undef CURL_DISABLE_LDAPS" +$ write cvh "#endif" $ endif $endif $write cvh "#ifdef CURL_DISABLE_LIBCURL_OPTION"