vms/subconfigure.com

   1 $! SUBCONFIGURE.COM - build a config.sh for VMS Perl.
   2 $!
   3 $! Note for folks from other platforms changing things in here:
   4 $!   Fancy changes (based on compiler capabilities or VMS version or
   5 $!   whatever) are tricky, so go ahead and punt on those.
   6 $!
   7 $!   Simple changes, though (say, always setting something to 1, or undef,
   8 $!   or something like that) are straightforward. Adding a new item for the
   9 $!   ultimately created config.sh requires adding two lines to this file.
  10 $!
  11 $!   First, a line in the format:
  12 $!     $ perl_foo = "bar"
  13 $!   after the line tagged ##ADD NEW CONSTANTS HERE##. Replace foo with the
  14 $!   variable name as it appears in config.sh.
  15 $!
  16 $!   Second, add a line in the format:
  17 $!     $ WC "foo='" + perl_foo + "'"
  18 $!   after the line tagged ##WRITE NEW CONSTANTS HERE##. Careful of the
  19 $!   quoting, as it can be tricky.
  20 $!
  21 $! This .COM file expects to be called by configure.com, and thus expects
  22 $! a few symbols in the environment. Notably:
  23 $!
  24 $!  One of: Using_Dec_C, Using_Vax_C, Using_Gnu_C set to "YES"
  25 $!  Dec_C_Version set to the Dec C version (defaults to 0 if not specified)
  26 $!  Has_Socketshr set to "T" if using socketshr
  27 $!  Has_Dec_C_Sockets set to "T" if using Dec C sockets
  28 $!  Use_Threads set to "T" if they're using threads
  29 $!  C_Compiler_Invoke is the command needed to invoke the C compiler
  30 $!
  31 $! Set Dec_C_Version to something
  32 $ WRITE_RESULT := "WRITE SYS$OUTPUT ""%CONFIG-I-RESULT "" + "
  33 $ echo = "Write Sys$Output "
  34 $ Dec_C_Version := "''Dec_C_Version'"
  35 $ Dec_C_Version = Dec_C_Version + 0
  36 $ Vms_Ver := "''f$extract(1,3, f$getsyi(""version""))'"
  37 $ perl_extensions := "''extensions'"
  38 $ if f$length(Mcc) .eq. 0 then Mcc := "cc"
  39 $ MCC = f$edit(mcc, "UPCASE")
  40 $ C_Compiler_Replace := "CC=CC=''Mcc'''CC_flags'"
  41 $ if "''Using_Dec_C'" .eqs. "Yes"
  42 $ THEN
  43 $   Checkcc := "''Mcc'/prefix=all"
  44 $ ELSE
  45 $   Checkcc := "''Mcc'"
  46 $ ENDIF
  47 $! cc_flags = ""
  48 $ if use_multiplicity .eqs. "Y"
  49 $ THEN
  50 $   perl_usemultiplicity = "define"
  51 $ ELSE
  52 $   perl_usemultiplicity = "undef"
  53 $ ENDIF
  54 $! Some constant defaults.
  55 $
  56 $ hwname = f$getsyi("HW_NAME")
  57 $ myname = myhostname
  58 $ if "''myname'" .eqs. "" THEN myname = f$trnlnm("SYS$NODE")
  59 $!
  60 $! ##ADD NEW CONSTANTS HERE##
  61 $ perl_d_getcwd = "undef"
  62 $ perl_d_nv_preserves_uv = "define"
  63 $ perl_d_fs_data_s = "undef"
  64 $ perl_d_getmnt = "undef"
  65 $ perl_d_sqrtl = "define"
  66 $ perl_d_statfs_f_flags = "undef"
  67 $ perl_d_statfs_s = "undef"
  68 $ perl_d_ustat = "undef"
  69 $ perl_i_sysstatfs = "undef"
  70 $ perl_i_sysvfs = "undef"
  71 $ perl_i_ustat = "undef"
  72 $ perl_d_llseek="undef"
  73 $ perl_d_iconv="undef"
  74 $ perl_d_madvise="undef"
  75 $ perl_selectminbits=32
  76 $ perl_d_msync="undef"
  77 $ perl_d_mprotect="undef"
  78 $ perl_d_munmap="undef"
  79 $ perl_crosscompile="undef"
  80 $ perl_multiarch="undef"
  81 $ perl_d_mmap="undef"
  82 $ perl_i_sysmman="undef"
  83 $ perl_d_telldirproto="define"
  84 $ perl_i_sysmount="undef"
  85 $ perl_d_bincompat="undef"
  86 $ perl_d_endspent="undef
  87 $ perl_d_getspent="undef
  88 $ perl_d_getspnam="undef
  89 $ perl_d_setspent="undef
  90 $ perl_d_fstatfs="undef"
  91 $ perl_i_machcthreads="undef"
  92 $ perl_i_pthread="define"
  93 $ perl_d_fstatvfs="undef"
  94 $ perl_usesocks="undef"
  95 $ perl_d_vendorlib="undef"
  96 $ perl_vendorlibexp=""
  97 $ perl_d_statfsflags="undef"
  98 $ perl_i_sysstatvfs="undef"
  99 $ perl_i_mntent="undef"
 100 $ perl_d_getmntent="undef"
 101 $ perl_d_hasmntopt="undef"
 102 $ perl_package="''package'"
 103 $ perl_baserev = "''baserev'"
 104 $ cc_defines=""
 105 $ perl_installusrbinperl="undef"
 106 $ perl_CONFIG="true"
 107 $ perl_d_fseeko="undef"
 108 $ perl_d_ftello="undef"
 109 $ perl_d_readv="undef"
 110 $ perl_d_writev="undef"
 111 $ perl_i_machcthr="undef"
 112 $ perl_i_netdb="undef"
 113 $ perl_d_gnulibc="undef"
 114 $ perl_cf_by="unknown"
 115 $ perl_ccdlflags=""
 116 $ perl_cccdlflags=""
 117 $ perl_mab=""
 118 $ perl_drand01 = "drand48()"
 119 $ perl_randseedtype = "long int"
 120 $ perl_seedfunc = "srand48"
 121 $ perl_d_msg_ctrunc = "undef"
 122 $ perl_d_msg_dontroute = "undef"
 123 $ perl_d_msg_oob = "undef"
 124 $ perl_d_msg_peek = "undef"
 125 $ perl_d_msg_proxy = "undef"
 126 $ perl_d_scm_rights = "undef"
 127 $ perl_d_sendmsg = "undef"
 128 $ perl_d_recvmsg = "undef"
 129 $ perl_d_msghdr_s = "undef"
 130 $ perl_d_cmsghdr_s = "undef"
 131 $ IF use_64bit .eqs. "Y"
 132 $ THEN
 133 $   perl_use64bits = "define"
 134 $   perl_uselargefiles = "define"
 135 $   perl_uselongdouble = "define"
 136 $   perl_usemorebits = "define"
 137 $ ELSE
 138 $   perl_use64bits = "undef"
 139 $   perl_uselargefiles = "undef"
 140 $   perl_uselongdouble = "undef"
 141 $   perl_usemorebits = "undef"
 142 $ ENDIF
 143 $ perl_d_drand48proto = "define"
 144 $ perl_libpth="/sys$share /sys$library"
 145 $ perl_ld="Link"
 146 $ perl_lddlflags="/Share"
 147 $ perl_ranlib=""
 148 $ perl_ar=""
 149 $ perl_full_ar=""
 150 $ perl_eunicefix=":"
 151 $ perl_hint="none"
 152 $ perl_i_arpainet="undef"
 153 $ perl_d_grpasswd="undef"
 154 $ perl_d_setgrent="undef"
 155 $ perl_d_getgrent="define"
 156 $ perl_d_endgrent="define"
 157 $ perl_d_pwpasswd="define"
 158 $ perl_d_setpwent="define"
 159 $ perl_d_getpwent="define"
 160 $ perl_d_endpwent="define"
 161 $ perl_d_phostname="undef"
 162 $ perl_d_accessx="undef"
 163 $ perl_d_eaccess="undef"
 164 $ perl_ebcdic="undef"
 165 $ perl_hintfile=""
 166 $ perl_shrplib="define"
 167 $ perl_usemymalloc=mymalloc
 168 $ perl_usevfork="true"
 169 $ perl_useposix="false"
 170 $ perl_spitshell="write sys$output "
 171 $ perl_dlsrc="dl_vms.c"
 172 $ perl_man1ext="rno"
 173 $ perl_man3ext="rno"
 174 $ perl_prefix="perl_root"
 175 $ perl_binexp="''perl_prefix':[000000]"
 176 $ perl_builddir="''perl_prefix':[000000]"
 177 $ perl_installbin="''perl_prefix':[000000]"
 178 $ perl_installscript="''perl_prefix':[utils]"
 179 $ perl_installman1dir="''perl_prefix':[man.man1]"
 180 $ perl_installman3dir="''perl_prefix':[man.man3]"
 181 $ perl_installprivlib="''perl_prefix':[lib]"
 182 $ perl_installsitelib="''perl_prefix':[lib.site_perl]"
 183 $ perl_path_sep="|"
 184 $ perl_cc=Mcc
 185 $ perl_d_sockpair="undef"
 186 $ perl_i_neterrno="define"
 187 $ perl_ldflags="/NoTrace/NoMap"
 188 $ perl_d_lchown="undef"
 189 $ perl_d_mknod="undef"
 190 $ perl_d_union_semun="undef"
 191 $ perl_d_semctl_semun="undef"
 192 $ perl_d_semctl_semid_ds="undef"
 193 $ IF (sharedperl.EQS."Y" .AND. F$GETSYI("HW_MODEL").GE.1024)
 194 $ THEN
 195 $ perl_obj_ext=".abj"
 196 $ perl_so="axe"
 197 $ perl_dlext="axe"
 198 $ perl_exe_ext=".axe"
 199 $ perl_lib_ext=".alb"
 200 $ ELSE
 201 $ perl_obj_ext=".obj"
 202 $ perl_so="exe"
 203 $ perl_dlext="exe"
 204 $ perl_exe_ext=".exe"
 205 $ perl_lib_ext=".olb"
 206 $ENDIF
 207 $ perl_dlobj="dl_vms''perl_obj_ext'"
 208 $ perl_osname="VMS"
 209 $ perl_d_archlib="define"
 210 $ perl_d_bincompat3="undef"
 211 $ perl_cppstdin="''Perl_CC'/noobj/preprocess=sys$output sys$input"
 212 $ perl_cppminus=" "
 213 $ perl_d_castneg="define"
 214 $ perl_castflags="0"
 215 $ perl_d_chsize="undef"
 216 $ perl_d_const="define"
 217 $ perl_d_crypt="define"
 218 $ perl_byteorder="1234"
 219 $ perl_full_csh=" "
 220 $ perl_d_csh="undef"
 221 $ perl_d_dup2="define"
 222 $ perl_d_fchmod="undef"
 223 $ perl_d_fchown="undef"
 224 $ perl_d_fcntl="undef"
 225 $ perl_d_fgetpos="define"
 226 $ perl_d_flexfnam="define"
 227 $ perl_d_flock="undef"
 228 $ perl_d_fsetpos="define"
 229 $ perl_d_getgrps="undef"
 230 $ perl_d_setgrps="undef"
 231 $ perl_d_getprior="undef"
 232 $ perl_d_killpg="undef"
 233 $ perl_d_link="undef"
 234 $ perl_d_lstat="undef"
 235 $ perl_d_lockf="undef"
 236 $ perl_d_memcmp="define"
 237 $ perl_d_memcpy="define"
 238 $ perl_d_memmove="define"
 239 $ perl_d_memset="define"
 240 $ perl_d_mkdir="define"
 241 $ perl_d_msg="undef"
 242 $ perl_d_open3="define"
 243 $ perl_d_poll="undef"
 244 $ perl_d_readdir="define"
 245 $ perl_d_seekdir="define"
 246 $ perl_d_telldir="define"
 247 $ perl_d_rewinddir="define"
 248 $ perl_d_rename="define"
 249 $ perl_d_rmdir="define"
 250 $ perl_d_sem="undef"
 251 $ perl_d_setegid="undef"
 252 $ perl_d_seteuid="undef"
 253 $ perl_d_setprior="undef"
 254 $ perl_d_setregid="undef"
 255 $ perl_d_setresgid="undef"
 256 $ perl_d_setreuid="undef"
 257 $ perl_d_setresuid="undef"
 258 $ perl_d_setrgid="undef"
 259 $ perl_d_setruid="undef"
 260 $ perl_d_setsid="undef"
 261 $ perl_d_shm="undef"
 262 $ perl_d_shmatprototype="undef"
 263 $ perl_d_statblks="undef"
 264 $ perl_stdio_ptr="((*fp)->_ptr)"
 265 $ perl_stdio_cnt="((*fp)->_cnt)"
 266 $ perl_stdio_base="((*fp)->_base)"
 267 $ perl_stdio_bufsiz="((*fp)->_cnt + (*fp)->_ptr - (*fp)->_base)"
 268 $ perl_d_strctcpy="define"
 269 $ perl_d_strerror="define"
 270 $ perl_d_syserrlst="undef"
 271 $ perl_d_strerrm="strerror((e),vaxc$errno)"
 272 $ perl_d_symlink="undef"
 273 $ perl_d_syscall="undef"
 274 $ perl_d_system="define"
 275 $ perl_timetype="time_t"
 276 $ perl_d_vfork="define"
 277 $ perl_signal_t="void"
 278 $ perl_d_volatile="define"
 279 $ perl_d_vprintf="define"
 280 $ perl_d_charvspr="undef"
 281 $ perl_d_waitpid="define"
 282 $ perl_i_dirent="undef"
 283 $ perl_d_dirnamlen="define"
 284 $ perl_direntrytype="struct dirent"
 285 $ perl_i_fcntl="undef"
 286 $ perl_i_grp="undef"
 287 $ perl_i_limits="define"
 288 $ perl_i_memory="undef"
 289 $ perl_i_ndbm="undef"
 290 $ perl_i_stdarg="define"
 291 $ perl_i_pwd="undef"
 292 $ perl_d_pwquota="undef"
 293 $ perl_d_pwage="undef"
 294 $ perl_d_pwchange="undef"
 295 $ perl_d_pwclass="undef"
 296 $ perl_d_pwexpire="undef"
 297 $ perl_d_pwcomment="define"
 298 $ perl_i_stddef="define"
 299 $ perl_i_stdlib="define"
 300 $ perl_i_string="define"
 301 $ perl_i_sysdir="undef"
 302 $ perl_i_sysfile="undef"
 303 $ perl_i_sysioctl="undef"
 304 $ perl_i_sysndir="undef"
 305 $ perl_i_sysresrc="undef"
 306 $ perl_i_sysselct="undef"
 307 $ perl_i_dbm="undef"
 308 $ perl_i_rpcsvcdbm="undef"
 309 $ perl_i_sfio="undef"
 310 $ perl_i_sysstat="define"
 311 $ perl_i_systimes="undef"
 312 $ perl_i_systypes="define"
 313 $ perl_i_sysun="undef"
 314 $ perl_i_syswait="undef"
 315 $ perl_i_termio="undef"
 316 $ perl_i_sgtty="undef"
 317 $ perl_i_termios="undef"
 318 $ perl_i_time="define"
 319 $ perl_i_systime="undef"
 320 $ perl_i_systimek="undef"
 321 $! perl_i_unistd="undef"
 322 $ perl_i_utime="undef"
 323 $ perl_i_varargs="undef"
 324 $ perl_i_vfork="undef"
 325 $ perl_prototype="define"
 326 $ perl_randbits="31"
 327 $ perl_stdchar="char"
 328 $ perl_d_unlink_all_versions="undef"
 329 $ perl_full_sed="_NLA0:"
 330 $ perl_bin="/''perl_prefix'/000000"
 331 $ perl_binexp="''perl_prefix':[000000]"
 332 $ perl_d_alarm="define"
 333 $ perl_d_casti32="define"
 334 $ perl_d_chown="define"
 335 $ perl_d_chroot="undef"
 336 $ perl_d_cuserid="define"
 337 $ perl_d_dbl_dig="define"
 338 $ perl_d_ldbl_dig="define"
 339 $ perl_d_difftime="define"
 340 $ perl_d_fork="undef"
 341 $ perl_d_getlogin="define"
 342 $ perl_d_getppid="undef"
 343 $ perl_d_nice="define"
 344 $ perl_d_pause="define"
 345 $ perl_d_pipe="define"
 346 $ perl_d_readlink="undef"
 347 $ perl_d_setlinebuf="undef"
 348 $ perl_d_strchr="define"
 349 $ perl_d_strtod="define"
 350 $ perl_d_strtol="define"
 351 $ perl_d_strtoul="define"
 352 $ perl_d_tcgetpgrp="undef"
 353 $ perl_d_tcsetpgrp="undef"
 354 $ perl_d_times="define"
 355 $ perl_d_tzname="undef"
 356 $ perl_d_umask="define"
 357 $ perl_fpostype="fpos_t"
 358 $ perl_i_dlfcn="undef"
 359 $ perl_i_float="define"
 360 $ perl_i_math="define"
 361 $ perl_lseektype="int"
 362 $ perl_i_values="undef"
 363 $ perl_malloctype="void *"
 364 $ perl_freetype="void"
 365 $ if "''mymalloc'".eqs."Y"
 366 $ THEN
 367 $ perl_d_mymalloc="define"
 368 $ ELSE
 369 $ perl_d_mymalloc="undef"
 370 $ENDIF
 371 $ perl_sh="MCR"
 372 $ perl_modetype="unsigned int"
 373 $ perl_ssizetype="int"
 374 $ perl_o_nonblock=" "
 375 $ perl_eagain=" "
 376 $ perl_rd_nodata=" "
 377 $ perl_d_eofnblk="undef"
 378 $ perl_d_oldarchlib="define"
 379 $ perl_privlibexp="''perl_prefix':[lib]"
 380 $ perl_privlib="''perl_prefix':[lib]"
 381 $ perl_sitelibexp="''perl_prefix':[lib.site_perl]"
 382 $ perl_sitelib="''perl_prefix':[lib.site_perl]"
 383 $ perl_sizetype="size_t"
 384 $ perl_i_sysparam="undef"
 385 $ perl_d_void_closedir="define"
 386 $ perl_d_dlerror="undef"
 387 $ perl_d_dlsymun="undef"
 388 $ perl_d_suidsafe="undef"
 389 $ perl_d_dosuid="undef"
 390 $ perl_d_inetaton="undef"
 391 $ perl_d_isascii="define"
 392 $ perl_d_mkfifo="undef"
 393 $ perl_d_safebcpy="undef"
 394 $ perl_d_safemcpy="define"
 395 $ perl_d_sanemcmp="define"
 396 $ perl_d_setpgrp="undef"
 397 $ perl_d_bsdsetpgrp="undef"
 398 $ perl_d_bsdpgrp="undef"
 399 $ perl_d_setpgid="undef"
 400 $ perl_d_setpgrp2="undef"
 401 $ perl_d_Gconvert="my_gconvert(x,n,t,b)"
 402 $ perl_d_getpgid="undef"
 403 $ perl_d_getpgrp="undef"
 404 $ perl_d_bsdgetpgrp="undef"
 405 $ perl_d_getpgrp2="undef"
 406 $ perl_d_sfio="undef"
 407 $ perl_usedl="define"
 408 $ perl_startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8'  !\n$ exit++ + ++$status != 0 and $exit = $status = undef;"""
 409 $ perl_db_hashtype=" "
 410 $ perl_db_prefixtype=" "
 411 $ perl_useperlio="undef"
 412 $ perl_defvoidused="15"
 413 $ perl_voidflags="15"
 414 $ perl_d_eunice="undef"
 415 $ perl_d_pwgecos="define"
 416 $ IF ("''Use_Threads'".eqs."T").and.("''VMS_VER'".LES."6.2")
 417 $ THEN
 418 $ perl_libs="SYS$SHARE:CMA$LIB_SHR.EXE/SHARE SYS$SHARE:CMA$RTL.EXE/SHARE SYS$SHARE:CMA$OPEN_LIB_SHR.exe/SHARE SYS$SHARE:CMA$OPEN_RTL.exe/SHARE"
 419 $ ELSE
 420 $ perl_libs=" "
 421 $ ENDIF
 422 $ IF ("''Using_Dec_C'".eqs."Yes")
 423 $ THEN
 424 $ perl_libc="(DECCRTL)"
 425 $ ELSE
 426 $ perl_libc=" "
 427 $ ENDIF
 428 $ perl_PATCHLEVEL="''patchlevel'"
 429 $ perl_SUBVERSION="''subversion'"
 430 $ perl_pager="most"
 431 $!
 432 $! Are we 64 bit?
 433 $!
 434 $ if (use_64bit .eqs. "Y")
 435 $ THEN
 436 $   perl_d_PRIfldbl = "define"
 437 $   perl_d_PRIgldbl = "define"
 438 $   perl_d_PRId64 = "define"
 439 $   perl_d_PRIu64 = "define"
 440 $   perl_d_PRIo64 = "define"
 441 $   perl_d_PRIx64 = "define"
 442 $   perl_sPRIfldbl = """Lf"""
 443 $   perl_sPRIgldbl = """Lg"""
 444 $   perl_sPRId64 = """Ld"""
 445 $   perl_sPRIu64 = """Lu"""
 446 $   perl_sPRIo64 = """Lo"""
 447 $   perl_sPRIx64 = """Lx"""
 448 $   perl_d_quad = "define"
 449 $   perl_quadtype = "long long"
 450 $   perl_uquadtype = "unsigned long long"
 451 $ ELSE
 452 $   perl_d_PRIfldbl = "undef"
 453 $   perl_d_PRIgldbl = "undef"
 454 $   perl_d_PRId64 = "undef"
 455 $   perl_d_PRIu64 = "undef"
 456 $   perl_d_PRIo64 = "undef"
 457 $   perl_d_PRIx64 = "undef"
 458 $   perl_sPRIfldbl = ""
 459 $   perl_sPRIgldbl = ""
 460 $   perl_sPRId64 = ""
 461 $   perl_sPRIu64 = ""
 462 $   perl_sPRIo64 = ""
 463 $   perl_sPRIx64 = ""
 464 $   perl_d_quad = "undef"
 465 $ ENDIF
 466 $!
 467 $! Now some that we build up
 468 $!
 469 $ LocalTime = f$time()
 470 $ perl_cf_time= f$extract(0, 3, f$cvtime(LocalTime,, "WEEKDAY")) + " " + -
 471                 f$edit(f$cvtime(LocalTime, "ABSOLUTE", "MONTH"), "LOWERCASE") + -
 472                 " " + f$cvtime(LocalTime,, "DAY") + " " + f$cvtime(LocalTime,, "TIME") + -
 473                 " " + f$cvtime(LocalTime,, "YEAR")
 474 $ if f$getsyi("HW_MODEL").ge.1024
 475 $ THEN
 476 $ perl_arch="VMS_AXP"
 477 $ perl_archname="VMS_AXP"
 478 $ perl_alignbytes="8"
 479 $ ELSE
 480 $ perl_arch="VMS_VAX"
 481 $ perl_archname="VMS_VAX"
 482 $ perl_alignbytes="8"
 483 $ ENDIF
 484 $ if ("''Use_Threads'".eqs."T")
 485 $ THEN
 486 $ perl_arch = "''perl_arch'-thread"
 487 $ perl_archname = "''perl_archname'-thread"
 488 $ perl_d_old_pthread_create_joinable = "undef"
 489 $ perl_old_pthread_create_joinable = " "
 490 $ perl_use5005threads = "define"
 491 $ ELSE
 492 $ perl_d_old_pthread_create_joinable = "undef"
 493 $ perl_old_pthread_create_joinable = " "
 494 $ perl_use5005threads = "undef"
 495 $ ENDIF
 496 $ perl_useithreads = "undef"
 497 $ perl_osvers=f$edit(osvers, "TRIM")
 498 $ if (perl_subversion + 0).eq.0
 499 $ THEN
 500 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL
 501 $ ELSE
 502 $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion
 503 $ ENDIF
 504 $!
 505 $! Some that we need to invoke the compiler for
 506 $ OS := "open/write SOURCECHAN []temp.c"
 507 $ WS := "write SOURCECHAN"
 508 $ CS := "close SOURCECHAN"
 509 $ DS := "delete/nolog []temp.*;*"
 510 $ Needs_Opt := "No"
 511 $ if ("''using_vax_c'".eqs."Yes").or.("''using_gnu_c'".eqs."Yes")
 512 $ THEN
 513 $   open/write OPTCHAN []temp.opt
 514 $   IF ("''using_gnu_c'".eqs."Yes")
 515 $   THEN
 516 $     write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
 517 $   endif
 518 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
 519 $   Close OPTCHAN
 520 $   Needs_Opt := "Yes"
 521 $ ENDIF
 522 $!
 523 $! Check for __STDC__
 524 $!
 525 $ OS
 526 $ WS "#ifdef __DECC
 527 $ WS "#include <stdlib.h>
 528 $ WS "#endif
 529 $ WS "#include <stdio.h>
 530 $ WS "int main()
 531 $ WS "{"
 532 $ WS "#ifdef __STDC__
 533 $ WS "printf(""42\n"");
 534 $ WS "#else
 535 $ WS "printf(""1\n"");
 536 $ WS "#endif
 537 $ WS "exit(0);
 538 $ WS "}"
 539 $ CS
 540 $   DEFINE SYS$ERROR _NLA0:
 541 $   DEFINE SYS$OUTPUT _NLA0:
 542 $   ON ERROR THEN CONTINUE
 543 $   ON WARNING THEN CONTINUE
 544 $   'Checkcc' temp.c
 545 $   If (Needs_Opt.eqs."Yes")
 546 $   THEN
 547 $     link temp.obj,temp.opt/opt
 548 $   else
 549 $     link temp.obj
 550 $   endif
 551 $   DEASSIGN SYS$OUTPUT
 552 $   DEASSIGN SYS$ERROR
 553 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 554 $   DEFINE SYS$ERROR TEMPOUT
 555 $   DEFINE SYS$OUTPUT TEMPOUT
 556 $   mcr []temp
 557 $   CLOSE TEMPOUT
 558 $   DEASSIGN SYS$OUTPUT
 559 $   DEASSIGN SYS$ERROR
 560 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 561 $   READ TEMPOUT line
 562 $   CLOSE TEMPOUT
 563 $   DELETE/NOLOG [-.uu]tempout.lis;
 564 $
 565 $ perl_cpp_stuff=line
 566 $ WRITE_RESULT "cpp_stuff is ''perl_cpp_stuff'"
 567 $!
 568 $! Check for double size
 569 $!
 570 $ OS
 571 $ WS "#ifdef __DECC
 572 $ WS "#include <stdlib.h>
 573 $ WS "#endif
 574 $ WS "#include <stdio.h>
 575 $ WS "int main()
 576 $ WS "{"
 577 $ WS "int foo;
 578 $ WS "foo = sizeof(double);
 579 $ WS "printf(""%d\n"", foo);
 580 $ WS "exit(0);
 581 $ WS "}"
 582 $ CS
 583 $   DEFINE SYS$ERROR _NLA0:
 584 $   DEFINE SYS$OUTPUT _NLA0:
 585 $   ON ERROR THEN CONTINUE
 586 $   ON WARNING THEN CONTINUE
 587 $   'Checkcc' temp.c
 588 $   If (Needs_Opt.eqs."Yes")
 589 $   THEN
 590 $     link temp.obj,temp.opt/opt
 591 $   else
 592 $     link temp.obj
 593 $   endif
 594 $   OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 595 $   DEASSIGN SYS$OUTPUT
 596 $   DEASSIGN SYS$ERROR
 597 $   DEFINE SYS$ERROR TEMPOUT
 598 $   DEFINE SYS$OUTPUT TEMPOUT
 599 $   mcr []temp
 600 $   CLOSE TEMPOUT
 601 $   DEASSIGN SYS$OUTPUT
 602 $   DEASSIGN SYS$ERROR
 603 $   OPEN/READ TEMPOUT [-.uu]tempout.lis
 604 $   READ TEMPOUT line
 605 $   CLOSE TEMPOUT
 606 $ DELETE/NOLOG [-.uu]tempout.lis;
 607 $
 608 $ perl_doublesize=line
 609 $ WRITE_RESULT "doublesize is ''perl_doublesize'"
 610 $!
 611 $! Check for long double size
 612 $!
 613 $ OS
 614 $ WS "#ifdef __DECC
 615 $ WS "#include <stdlib.h>
 616 $ WS "#endif
 617 $ WS "#include <stdio.h>
 618 $ WS "int main()
 619 $ WS "{"
 620 $ WS "printf(""%d\n"", sizeof(long double));
 621 $ WS "exit(0);
 622 $ WS "}"
 623 $ CS
 624 $   DEFINE SYS$ERROR _NLA0:
 625 $   DEFINE SYS$OUTPUT _NLA0:
 626 $   ON ERROR THEN CONTINUE
 627 $   ON WARNING THEN CONTINUE
 628 $   'Checkcc' temp.c
 629 $   teststatus = f$extract(9,1,$status)
 630 $   if (teststatus.nes."1")
 631 $   THEN
 632 $     perl_longdblsize="0"
 633 $     perl_d_longdbl="undef"
 634 $   ELSE
 635 $     ON ERROR THEN CONTINUE
 636 $     ON WARNING THEN CONTINUE
 637 $     If (Needs_Opt.eqs."Yes")
 638 $     THEN
 639 $     link temp.obj,temp.opt/opt
 640 $     else
 641 $       link temp.obj
 642 $     endif
 643 $     teststatus = f$extract(9,1,$status)
 644 $     DEASSIGN SYS$OUTPUT
 645 $     DEASSIGN SYS$ERROR
 646 $     if (teststatus.nes."1")
 647 $     THEN
 648 $       perl_longdblsize="0"
 649 $       perl_d_longdbl="undef"
 650 $     ELSE
 651 $       OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 652 $       DEFINE SYS$ERROR TEMPOUT
 653 $       DEFINE SYS$OUTPUT TEMPOUT
 654 $       mcr []temp
 655 $       CLOSE TEMPOUT
 656 $       DEASSIGN SYS$OUTPUT
 657 $       DEASSIGN SYS$ERROR
 658 $       OPEN/READ TEMPOUT [-.uu]tempout.lis
 659 $       READ TEMPOUT line
 660 $       CLOSE TEMPOUT
 661 $       DELETE/NOLOG [-.uu]tempout.lis;
 662 $
 663 $       perl_longdblsize=line
 664 $       perl_d_longdbl="define"
 665 $     ENDIF
 666 $   ENDIF
 667 $ WRITE_RESULT "longdblsize is ''perl_longdblsize'"
 668 $ WRITE_RESULT "d_longdbl is ''perl_d_longdbl'"
 669 $!
 670 $! Check for long long existance and size
 671 $!
 672 $ OS
 673 $ WS "#ifdef __DECC
 674 $ WS "#include <stdlib.h>
 675 $ WS "#endif
 676 $ WS "#include <stdio.h>
 677 $ WS "int main()
 678 $ WS "{"
 679 $ WS "printf(""%d\n"", sizeof(long long));
 680 $ WS "exit(0);
 681 $ WS "}"
 682 $ CS
 683 $   DEFINE SYS$ERROR _NLA0:
 684 $   DEFINE SYS$OUTPUT _NLA0:
 685 $   on error then continue
 686 $   on warning then continue
 687 $   'Checkcc' temp.c
 688 $   If (Needs_Opt.eqs."Yes")
 689 $   THEN
 690 $     link temp.obj,temp.opt/opt
 691 $   else
 692 $     link temp.obj
 693 $   endif
 694 $   teststatus = f$extract(9,1,$status)
 695 $   DEASSIGN SYS$OUTPUT
 696 $   DEASSIGN SYS$ERROR
 697 $   if (teststatus.nes."1")
 698 $   THEN
 699 $     perl_longlongsize="0"
 700 $     perl_d_longlong="undef"
 701 $   ELSE
 702 $     OPEN/WRITE TEMPOUT [-.uu]tempout.lis
 703 $     DEFINE SYS$ERROR TEMPOUT
 704 $     DEFINE SYS$OUTPUT TEMPOUT
 705 $     mcr []temp
 706 $     CLOSE TEMPOUT
 707 $     DEASSIGN SYS$OUTPUT
 708 $     DEASSIGN SYS$ERROR
 709 $     OPEN/READ TEMPOUT [-.uu]tempout.lis
 710 $     READ TEMPOUT line
 711 $     CLOSE TEMPOUT
 712 $     DELETE/NOLOG [-.uu]tempout.lis;
 713 $     perl_longlongsize=line
 714 $     perl_d_longlong="define"
 715 $   ENDIF
 716 $ WRITE_RESULT "longlongsize is ''perl_longlongsize'"
 717 $ WRITE_RESULT "d_longlong is ''perl_d_longlong'"
 718 $!
 719 $! Check the prototype for getgid
 720 $!
 721 $ OS
 722 $ WS "#ifdef __DECC
 723 $ WS "#include <stdlib.h>
 724 $ WS "#endif
 725 $ WS "#include <stdio.h>
 726 $ WS "#include <types.h>
 727 $ WS "#include <unistd.h>
 728 $ WS "int main()
 729 $ WS "{"
 730 $ WS "gid_t foo;
 731 $ WS "exit(0);
 732 $ WS "}"
 733 $ CS
 734 $   DEFINE SYS$ERROR _NLA0:
 735 $   DEFINE SYS$OUTPUT _NLA0:
 736 $   on error then continue
 737 $   on warning then continue
 738 $   'Checkcc' temp.c
 739 $   teststatus = f$extract(9,1,$status)
 740 $   DEASSIGN SYS$OUTPUT
 741 $   DEASSIGN SYS$ERROR
 742 $   if (teststatus.nes."1")
 743 $   THEN
 744 $!   Okay, gid_t failed. Must be unsigned int
 745 $     perl_gidtype = "unsigned int"
 746 $   ELSE
 747 $     perl_gidtype = "gid_t"
 748 $   ENDIF
 749 $ WRITE_RESULT "Gid_t is ''perl_gidtype'"
 750 $!
 751 $! Check to see if we've got dev_t
 752 $!
 753 $ OS
 754 $ WS "#ifdef __DECC
 755 $ WS "#include <stdlib.h>
 756 $ WS "#endif
 757 $ WS "#include <stdio.h>
 758 $ WS "#include <types.h>
 759 $ WS "#include <unistd.h>
 760 $ WS "int main()
 761 $ WS "{"
 762 $ WS "dev_t foo;
 763 $ WS "exit(0);
 764 $ WS "}"
 765 $ CS
 766 $   DEFINE SYS$ERROR _NLA0:
 767 $   DEFINE SYS$OUTPUT _NLA0:
 768 $   on error then continue
 769 $   on warning then continue
 770 $   'Checkcc' temp.c
 771 $   teststatus = f$extract(9,1,$status)
 772 $   DEASSIGN SYS$OUTPUT
 773 $   DEASSIGN SYS$ERROR
 774 $   if (teststatus.nes."1")
 775 $   THEN
 776 $!   Okay, dev_t failed. Must be unsigned int
 777 $     perl_devtype = "unsigned int"
 778 $   ELSE
 779 $     perl_devtype = "dev_t"
 780 $   ENDIF
 781 $ WRITE_RESULT "Dev_t is ''perl_devtype'"
 782 $!
 783 $! Check to see if we've got unistd.h (which we ought to, but you never know)
 784 $!
 785 $ OS
 786 $ WS "#ifdef __DECC
 787 $ WS "#include <stdlib.h>
 788 $ WS "#endif
 789 $ WS "#include <unistd.h>
 790 $ WS "int main()
 791 $ WS "{"
 792 $ WS "exit(0);
 793 $ WS "}"
 794 $ CS
 795 $   DEFINE SYS$ERROR _NLA0:
 796 $   DEFINE SYS$OUTPUT _NLA0:
 797 $   on error then continue
 798 $   on warning then continue
 799 $   'Checkcc' temp.c
 800 $   teststatus = f$extract(9,1,$status)
 801 $   DEASSIGN SYS$OUTPUT
 802 $   DEASSIGN SYS$ERROR
 803 $   if (teststatus.nes."1")
 804 $   THEN
 805 $!   Okay, failed. Must not have it
 806 $     perl_i_unistd = "undef"
 807 $   ELSE
 808 $     perl_i_unistd = "define"
 809
 810 $   ENDIF
 811 $ WRITE_RESULT "i_unistd is ''perl_i_unistd'"
 812 $!
 813 $! Check to see if we've got shadow.h (probably not, but...)
 814 $!
 815 $ OS
 816 $ WS "#ifdef __DECC
 817 $ WS "#include <stdlib.h>
 818 $ WS "#endif
 819 $ WS "#include <shadow.h>
 820 $ WS "int main()
 821 $ WS "{"
 822 $ WS "exit(0);
 823 $ WS "}"
 824 $ CS
 825 $   DEFINE SYS$ERROR _NLA0:
 826 $   DEFINE SYS$OUTPUT _NLA0:
 827 $   on error then continue
 828 $   on warning then continue
 829 $   'Checkcc' temp.c
 830 $   teststatus = f$extract(9,1,$status)
 831 $   DEASSIGN SYS$OUTPUT
 832 $   DEASSIGN SYS$ERROR
 833 $   if (teststatus.nes."1")
 834 $   THEN
 835 $!   Okay, failed. Must not have it
 836 $     perl_i_shadow = "undef"
 837 $   ELSE
 838 $     perl_i_shadow = "define"
 839
 840 $   ENDIF
 841 $ WRITE_RESULT "i_shadow is ''perl_i_shadow'"
 842 $!
 843 $! Check to see if we've got socks.h (probably not, but...)
 844 $!
 845 $ OS
 846 $ WS "#ifdef __DECC
 847 $ WS "#include <stdlib.h>
 848 $ WS "#endif
 849 $ WS "#include <socks.h>
 850 $ WS "int main()
 851 $ WS "{"
 852 $ WS "exit(0);
 853 $ WS "}"
 854 $ CS
 855 $   DEFINE SYS$ERROR _NLA0:
 856 $   DEFINE SYS$OUTPUT _NLA0:
 857 $   on error then continue
 858 $   on warning then continue
 859 $   'Checkcc' temp.c
 860 $   teststatus = f$extract(9,1,$status)
 861 $   DEASSIGN SYS$OUTPUT
 862 $   DEASSIGN SYS$ERROR
 863 $   if (teststatus.nes."1")
 864 $   THEN
 865 $!   Okay, failed. Must not have it
 866 $     perl_i_socks = "undef"
 867 $   ELSE
 868 $     perl_i_socks = "define"
 869
 870 $   ENDIF
 871 $ WRITE_RESULT "i_socks is ''perl_i_socks'"
 872 $!
 873 $! Check the prototype for select
 874 $!
 875 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
 876 $ THEN
 877 $ OS
 878 $ WS "#ifdef __DECC
 879 $ WS "#include <stdlib.h>
 880 $ WS "#endif
 881 $ WS "#include <stdio.h>
 882 $ WS "#include <types.h>
 883 $ WS "#include <unistd.h>
 884 $ if ("''Has_Socketshr'".eqs."T")
 885 $ THEN
 886 $  WS "#include <socketshr.h>"
 887 $ else
 888 $  WS "#include <time.h>
 889 $  WS "#include <socket.h>
 890 $ endif
 891 $ WS "int main()
 892 $ WS "{"
 893 $ WS "fd_set *foo;
 894 $ WS "int bar;
 895 $ WS "foo = NULL;
 896 $ WS "bar = select(2, foo, foo, foo, NULL);
 897 $ WS "exit(0);
 898 $ WS "}"
 899 $ CS
 900 $   DEFINE SYS$ERROR _NLA0:
 901 $   DEFINE SYS$OUTPUT _NLA0:
 902 $   on error then continue
 903 $   on warning then continue
 904 $   'Checkcc' temp.c
 905 $   teststatus = f$extract(9,1,$status)
 906 $   DEASSIGN SYS$OUTPUT
 907 $   DEASSIGN SYS$ERROR
 908 $   if (teststatus.nes."1")
 909 $   THEN
 910 $!   Okay, fd_set failed. Must be an int
 911 $     perl_selecttype = "int *"
 912 $   ELSE
 913 $     perl_selecttype="fd_set *"
 914 $   ENDIF
 915 $ ELSE
 916 $   ! No sockets, so stick in an int *
 917 $   perl_selecttype = "int *"
 918 $ ENDIF
 919 $ WRITE_RESULT "selectype is ''perl_selecttype'"
 920 $!
 921 $! Check to see if fd_set exists
 922 $!
 923 $ OS
 924 $ WS "#ifdef __DECC
 925 $ WS "#include <stdlib.h>
 926 $ WS "#endif
 927 $ WS "#include <stdio.h>
 928 $ WS "#include <types.h>
 929 $ WS "#include <unistd.h>
 930 $ if ("''Has_Socketshr'".eqs."T")
 931 $ THEN
 932 $  WS "#include <socketshr.h>"
 933 $ ENDIF
 934 $ IF ("''Has_Dec_C_Sockets'".eqs."T")
 935 $ THEN
 936 $  WS "#include <time.h>
 937 $  WS "#include <socket.h>
 938 $ endif
 939 $ WS "int main()
 940 $ WS "{"
 941 $ WS "fd_set *foo;
 942 $ WS "int bar;
 943 $ WS "exit(0);
 944 $ WS "}"
 945 $ CS
 946 $ DEFINE SYS$ERROR _NLA0:
 947 $ DEFINE SYS$OUTPUT _NLA0:
 948 $ on error then continue
 949 $ on warning then continue
 950 $ 'Checkcc' temp.c
 951 $ teststatus = f$extract(9,1,$status)
 952 $ DEASSIGN SYS$OUTPUT
 953 $ DEASSIGN SYS$ERROR
 954 $ if (teststatus.nes."1")
 955 $ THEN
 956 $!  Okay, fd_set failed. Must not exist
 957 $   perl_d_fd_set = "undef"
 958 $ ELSE
 959 $   perl_d_fd_set="define"
 960 $ ENDIF
 961 $ WRITE_RESULT "d_fd_set is ''perl_d_fd_set'"
 962 $!
 963 $! Check for inttypes.h
 964 $!
 965 $ OS
 966 $ WS "#ifdef __DECC
 967 $ WS "#include <stdlib.h>
 968 $ WS "#endif
 969 $ WS "#include <stdio.h>
 970 $ WS "#include <unistd.h>
 971 $ WS "#include <inttypes.h>
 972 $ WS "int main()
 973 $ WS "{"
 974 $ WS "exit(0);
 975 $ WS "}"
 976 $ CS
 977 $   DEFINE SYS$ERROR _NLA0:
 978 $   DEFINE SYS$OUTPUT _NLA0:
 979 $   on error then continue
 980 $   on warning then continue
 981 $   'Checkcc' temp.c
 982 $   savedstatus = $status
 983 $   teststatus = f$extract(9,1,savedstatus)
 984 $   if (teststatus.nes."1")
 985 $   THEN
 986 $     perl_i_inttypes="undef"
 987 $     DEASSIGN SYS$OUTPUT
 988 $     DEASSIGN SYS$ERROR
 989 $   ELSE
 990 $     If (Needs_Opt.eqs."Yes")
 991 $     THEN
 992 $       link temp.obj,temp.opt/opt
 993 $     else
 994 $       link temp.obj
 995 $     endif
 996 $     savedstatus = $status
 997 $     teststatus = f$extract(9,1,savedstatus)
 998 $     DEASSIGN SYS$OUTPUT
 999 $     DEASSIGN SYS$ERROR
1000 $     if (teststatus.nes."1")
1001 $     THEN
1002 $       perl_i_inttypes="undef"
1003 $     ELSE
1004 $       perl_i_inttypes="define"
1005 $     ENDIF
1006 $   ENDIF
1007 $ WRITE_RESULT "i_inttypes is ''perl_i_inttypes'"
1008 $!
1009 $! Check to see if int64_t exists
1010 $!
1011 $ OS
1012 $ WS "#ifdef __DECC
1013 $ WS "#include <stdlib.h>
1014 $ WS "#endif
1015 $ WS "#include <stdio.h>
1016 $ WS "#include <types.h>
1017 $ WS "#''perl_i_inttypes IIH
1018 $ WS "#ifdef IIH
1019 $ WS "#include <inttypes.h>
1020 $ WS "#endif
1021 $ WS "#include <unistd.h>
1022 $ WS "int main()
1023 $ WS "{"
1024 $ WS "int64_t bar;
1025 $ WS "exit(0);
1026 $ WS "}"
1027 $ CS
1028 $ DEFINE SYS$ERROR _NLA0:
1029 $ DEFINE SYS$OUTPUT _NLA0:
1030 $ on error then continue
1031 $ on warning then continue
1032 $ 'Checkcc' temp.c
1033 $ teststatus = f$extract(9,1,$status)
1034 $ DEASSIGN SYS$OUTPUT
1035 $ DEASSIGN SYS$ERROR
1036 $ if (teststatus.nes."1")
1037 $ THEN
1038 $!  Okay, int64_t failed. Must not exist
1039 $   perl_d_int64_t = "undef"
1040 $ ELSE
1041 $   perl_d_int64_t="define"
1042 $ ENDIF
1043 $ WRITE_RESULT "d_int64_t is ''perl_d_int64_t'"
1044 $!
1045 $! Check to see if off64_t exists
1046 $!
1047 $ OS
1048 $ WS "#ifdef __DECC
1049 $ WS "#include <stdlib.h>
1050 $ WS "#endif
1051 $ WS "#include <stdio.h>
1052 $ WS "#include <types.h>
1053 $ WS "#''perl_i_inttypes IIH
1054 $ WS "#ifdef IIH
1055 $ WS "#include <inttypes.h>
1056 $ WS "#endif
1057 $ WS "#include <unistd.h>
1058 $ WS "int main()
1059 $ WS "{"
1060 $ WS "off64_t bar;
1061 $ WS "exit(0);
1062 $ WS "}"
1063 $ CS
1064 $ DEFINE SYS$ERROR _NLA0:
1065 $ DEFINE SYS$OUTPUT _NLA0:
1066 $ on error then continue
1067 $ on warning then continue
1068 $ 'Checkcc' temp.c
1069 $ teststatus = f$extract(9,1,$status)
1070 $ DEASSIGN SYS$OUTPUT
1071 $ DEASSIGN SYS$ERROR
1072 $ if (teststatus.nes."1")
1073 $ THEN
1074 $!  Okay, off64_t failed. Must not exist
1075 $   perl_d_off64_t = "undef"
1076 $ ELSE
1077 $   perl_d_off64_t="define"
1078 $ ENDIF
1079 $ WRITE_RESULT "d_off64_t is ''perl_d_off64_t'"
1080 $!
1081 $! Check to see if fpos64_t exists
1082 $!
1083 $ OS
1084 $ WS "#ifdef __DECC
1085 $ WS "#include <stdlib.h>
1086 $ WS "#endif
1087 $ WS "#include <stdio.h>
1088 $ WS "#include <types.h>
1089 $ WS "#''perl_i_inttypes IIH
1090 $ WS "#ifdef IIH
1091 $ WS "#include <inttypes.h>
1092 $ WS "#endif
1093 $ WS "#include <unistd.h>
1094 $ WS "int main()
1095 $ WS "{"
1096 $ WS "fpos64_t bar;
1097 $ WS "exit(0);
1098 $ WS "}"
1099 $ CS
1100 $ DEFINE SYS$ERROR _NLA0:
1101 $ DEFINE SYS$OUTPUT _NLA0:
1102 $ on error then continue
1103 $ on warning then continue
1104 $ 'Checkcc' temp.c
1105 $ teststatus = f$extract(9,1,$status)
1106 $ DEASSIGN SYS$OUTPUT
1107 $ DEASSIGN SYS$ERROR
1108 $ if (teststatus.nes."1")
1109 $ THEN
1110 $!  Okay, fpos64_t failed. Must not exist
1111 $   perl_d_fpos64_t = "undef"
1112 $ ELSE
1113 $   perl_d_fpos64_t="define"
1114 $ ENDIF
1115 $ WRITE_RESULT "d_fpos64_t is ''perl_d_fpos64_t'"
1116 $!
1117 $! Check to see if gethostname exists
1118 $!
1119 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
1120 $ THEN
1121 $ OS
1122 $ WS "#ifdef __DECC
1123 $ WS "#include <stdlib.h>
1124 $ WS "#endif
1125 $ WS "#include <stdio.h>
1126 $ WS "#include <types.h>
1127 $ WS "#include <unistd.h>
1128 $ if ("''Has_Socketshr'".eqs."T")
1129 $ THEN
1130 $  WS "#include <socketshr.h>"
1131 $ else
1132 $  WS "#include <time.h>
1133 $  WS "#include <socket.h>
1134 $ endif
1135 $ WS "int main()
1136 $ WS "{"
1137 $ WS "char name[100];
1138 $ WS "int bar, baz;
1139 $ WS "bar = 100;
1140 $ WS "baz = gethostname(name, bar);
1141 $ WS "exit(0);
1142 $ WS "}"
1143 $ CS
1144 $   DEFINE SYS$ERROR _NLA0:
1145 $   DEFINE SYS$OUTPUT _NLA0:
1146 $   on error then continue
1147 $   on warning then continue
1148 $   'Checkcc' temp.c
1149 $   teststatus = f$extract(9,1,$status)
1150 $   DEASSIGN SYS$OUTPUT
1151 $   DEASSIGN SYS$ERROR
1152 $   if (teststatus.nes."1")
1153 $   THEN
1154 $!   Okay, compile failed. Must not have it
1155 $     perl_dgethname = "undef"
1156 $   ELSE
1157 $     If (Needs_Opt.eqs."Yes")
1158 $     THEN
1159 $       link temp.obj,temp.opt/opt
1160 $     else
1161 $       link temp.obj
1162 $     endif
1163 $     savedstatus = $status
1164 $     teststatus = f$extract(9,1,savedstatus)
1165 $     if (teststatus.nes."1")
1166 $     THEN
1167 $       perl_d_gethname="undef"
1168 $     ELSE
1169 $       perl_d_gethname="define"
1170 $     ENDIF
1171 $   ENDIF
1172 $ ELSE
1173 $   ! No sockets, so no gethname
1174 $   perl_d_gethname = "undef"
1175 $ ENDIF
1176 $ WRITE_RESULT "d_gethname is ''perl_d_gethname'"
1177 $!
1178 $! Check for sys/file.h
1179 $!
1180 $ OS
1181 $ WS "#ifdef __DECC
1182 $ WS "#include <stdlib.h>
1183 $ WS "#endif
1184 $ WS "#include <stdio.h>
1185 $ WS "#include <unistd.h>
1186 $ WS "#include <sys/file.h>
1187 $ WS "int main()
1188 $ WS "{"
1189 $ WS "exit(0);
1190 $ WS "}"
1191 $ CS
1192 $   DEFINE SYS$ERROR _NLA0:
1193 $   DEFINE SYS$OUTPUT _NLA0:
1194 $   on error then continue
1195 $   on warning then continue
1196 $   'Checkcc' temp.c
1197 $   savedstatus = $status
1198 $   teststatus = f$extract(9,1,savedstatus)
1199 $   if (teststatus.nes."1")
1200 $   THEN
1201 $     perl_i_sysfile="undef"
1202 $     DEASSIGN SYS$OUTPUT
1203 $     DEASSIGN SYS$ERROR
1204 $   ELSE
1205 $     If (Needs_Opt.eqs."Yes")
1206 $     THEN
1207 $       link temp.obj,temp.opt/opt
1208 $     else
1209 $       link temp.obj
1210 $     endif
1211 $     savedstatus = $status
1212 $     teststatus = f$extract(9,1,savedstatus)
1213 $     DEASSIGN SYS$OUTPUT
1214 $     DEASSIGN SYS$ERROR
1215 $     if (teststatus.nes."1")
1216 $     THEN
1217 $       perl_i_sysfile="undef"
1218 $     ELSE
1219 $       perl_i_sysfile="define"
1220 $     ENDIF
1221 $   ENDIF
1222 $ WRITE_RESULT "i_sysfile is ''perl_i_sysfile'"
1223 $!
1224 $! Check for sys/utsname.h
1225 $!
1226 $ OS
1227 $ WS "#ifdef __DECC
1228 $ WS "#include <stdlib.h>
1229 $ WS "#endif
1230 $ WS "#include <stdio.h>
1231 $ WS "#include <unistd.h>
1232 $ WS "#include <sys/utsname.h>
1233 $ WS "int main()
1234 $ WS "{"
1235 $ WS "exit(0);
1236 $ WS "}"
1237 $ CS
1238 $   DEFINE SYS$ERROR _NLA0:
1239 $   DEFINE SYS$OUTPUT _NLA0:
1240 $   on error then continue
1241 $   on warning then continue
1242 $   'Checkcc' temp.c
1243 $   savedstatus = $status
1244 $   teststatus = f$extract(9,1,savedstatus)
1245 $   if (teststatus.nes."1")
1246 $   THEN
1247 $     perl_i_sysutsname="undef"
1248 $     DEASSIGN SYS$OUTPUT
1249 $     DEASSIGN SYS$ERROR
1250 $   ELSE
1251 $     If (Needs_Opt.eqs."Yes")
1252 $     THEN
1253 $       link temp.obj,temp.opt/opt
1254 $     else
1255 $       link temp.obj
1256 $     endif
1257 $     savedstatus = $status
1258 $     teststatus = f$extract(9,1,savedstatus)
1259 $     DEASSIGN SYS$OUTPUT
1260 $     DEASSIGN SYS$ERROR
1261 $     if (teststatus.nes."1")
1262 $     THEN
1263 $       perl_i_sysutsname="undef"
1264 $     ELSE
1265 $       perl_i_sysutsname="define"
1266 $     ENDIF
1267 $   ENDIF
1268 $ WRITE_RESULT "i_sysutsname is ''perl_i_sysutsname'"
1269 $!
1270 $! Check for syslog.h
1271 $!
1272 $ OS
1273 $ WS "#ifdef __DECC
1274 $ WS "#include <stdlib.h>
1275 $ WS "#endif
1276 $ WS "#include <stdio.h>
1277 $ WS "#include <unistd.h>
1278 $ WS "#include <syslog.h>
1279 $ WS "int main()
1280 $ WS "{"
1281 $ WS "exit(0);
1282 $ WS "}"
1283 $ CS
1284 $   DEFINE SYS$ERROR _NLA0:
1285 $   DEFINE SYS$OUTPUT _NLA0:
1286 $   on error then continue
1287 $   on warning then continue
1288 $   'Checkcc' temp.c
1289 $   savedstatus = $status
1290 $   teststatus = f$extract(9,1,savedstatus)
1291 $   if (teststatus.nes."1")
1292 $   THEN
1293 $     perl_i_syslog="undef"
1294 $     DEASSIGN SYS$OUTPUT
1295 $     DEASSIGN SYS$ERROR
1296 $   ELSE
1297 $     If (Needs_Opt.eqs."Yes")
1298 $     THEN
1299 $       link temp.obj,temp.opt/opt
1300 $     else
1301 $       link temp.obj
1302 $     endif
1303 $     savedstatus = $status
1304 $     teststatus = f$extract(9,1,savedstatus)
1305 $     DEASSIGN SYS$OUTPUT
1306 $     DEASSIGN SYS$ERROR
1307 $     if (teststatus.nes."1")
1308 $     THEN
1309 $       perl_i_syslog="undef"
1310 $     ELSE
1311 $       perl_i_syslog="define"
1312 $     ENDIF
1313 $   ENDIF
1314 $ WRITE_RESULT "i_syslog is ''perl_i_syslog'"
1315 $!
1316 $! Check for poll.h
1317 $!
1318 $ OS
1319 $ WS "#ifdef __DECC
1320 $ WS "#include <stdlib.h>
1321 $ WS "#endif
1322 $ WS "#include <stdio.h>
1323 $ WS "#include <unistd.h>
1324 $ WS "#include <poll.h>
1325 $ WS "int main()
1326 $ WS "{"
1327 $ WS "exit(0);
1328 $ WS "}"
1329 $ CS
1330 $   DEFINE SYS$ERROR _NLA0:
1331 $   DEFINE SYS$OUTPUT _NLA0:
1332 $   on error then continue
1333 $   on warning then continue
1334 $   'Checkcc' temp.c
1335 $   savedstatus = $status
1336 $   teststatus = f$extract(9,1,savedstatus)
1337 $   if (teststatus.nes."1")
1338 $   THEN
1339 $     perl_i_poll="undef"
1340 $     DEASSIGN SYS$OUTPUT
1341 $     DEASSIGN SYS$ERROR
1342 $   ELSE
1343 $     If (Needs_Opt.eqs."Yes")
1344 $     THEN
1345 $       link temp.obj,temp.opt/opt
1346 $     else
1347 $       link temp.obj
1348 $     endif
1349 $     savedstatus = $status
1350 $     teststatus = f$extract(9,1,savedstatus)
1351 $     DEASSIGN SYS$OUTPUT
1352 $     DEASSIGN SYS$ERROR
1353 $     if (teststatus.nes."1")
1354 $     THEN
1355 $       perl_i_poll="undef"
1356 $     ELSE
1357 $       perl_i_poll="define"
1358 $     ENDIF
1359 $   ENDIF
1360 $ WRITE_RESULT "i_poll is ''perl_i_poll'"
1361 $!
1362 $! Check for sys/uio.h
1363 $!
1364 $ OS
1365 $ WS "#ifdef __DECC
1366 $ WS "#include <stdlib.h>
1367 $ WS "#endif
1368 $ WS "#include <stdio.h>
1369 $ WS "#include <unistd.h>
1370 $ WS "#include <sys/uio.h>
1371 $ WS "int main()
1372 $ WS "{"
1373 $ WS "exit(0);
1374 $ WS "}"
1375 $ CS
1376 $   DEFINE SYS$ERROR _NLA0:
1377 $   DEFINE SYS$OUTPUT _NLA0:
1378 $   on error then continue
1379 $   on warning then continue
1380 $   'Checkcc' temp.c
1381 $   savedstatus = $status
1382 $   teststatus = f$extract(9,1,savedstatus)
1383 $   if (teststatus.nes."1")
1384 $   THEN
1385 $     perl_i_sysuio="undef"
1386 $     DEASSIGN SYS$OUTPUT
1387 $     DEASSIGN SYS$ERROR
1388 $   ELSE
1389 $     If (Needs_Opt.eqs."Yes")
1390 $     THEN
1391 $       link temp.obj,temp.opt/opt
1392 $     else
1393 $       link temp.obj
1394 $     endif
1395 $     savedstatus = $status
1396 $     teststatus = f$extract(9,1,savedstatus)
1397 $     DEASSIGN SYS$OUTPUT
1398 $     DEASSIGN SYS$ERROR
1399 $     if (teststatus.nes."1")
1400 $     THEN
1401 $       perl_i_sysuio="undef"
1402 $     ELSE
1403 $       perl_i_sysuio="define"
1404 $     ENDIF
1405 $   ENDIF
1406 $ WRITE_RESULT "i_sysuio is ''perl_i_sysuio'"
1407 $!
1408 $! Check for sys/mode.h
1409 $!
1410 $ OS
1411 $ WS "#ifdef __DECC
1412 $ WS "#include <stdlib.h>
1413 $ WS "#endif
1414 $ WS "#include <stdio.h>
1415 $ WS "#include <unistd.h>
1416 $ WS "#include <sys/mode.h>
1417 $ WS "int main()
1418 $ WS "{"
1419 $ WS "exit(0);
1420 $ WS "}"
1421 $ CS
1422 $   DEFINE SYS$ERROR _NLA0:
1423 $   DEFINE SYS$OUTPUT _NLA0:
1424 $   on error then continue
1425 $   on warning then continue
1426 $   'Checkcc' temp.c
1427 $   savedstatus = $status
1428 $   teststatus = f$extract(9,1,savedstatus)
1429 $   if (teststatus.nes."1")
1430 $   THEN
1431 $     perl_i_sysmode="undef"
1432 $     DEASSIGN SYS$OUTPUT
1433 $     DEASSIGN SYS$ERROR
1434 $   ELSE
1435 $     If (Needs_Opt.eqs."Yes")
1436 $     THEN
1437 $       link temp.obj,temp.opt/opt
1438 $     else
1439 $       link temp.obj
1440 $     endif
1441 $     savedstatus = $status
1442 $     teststatus = f$extract(9,1,savedstatus)
1443 $     DEASSIGN SYS$OUTPUT
1444 $     DEASSIGN SYS$ERROR
1445 $     if (teststatus.nes."1")
1446 $     THEN
1447 $       perl_i_sysmode="undef"
1448 $     ELSE
1449 $       perl_i_sysmode="define"
1450 $     ENDIF
1451 $   ENDIF
1452 $ WRITE_RESULT "i_sysmode is ''perl_i_sysmode'"
1453 $!
1454 $! Check for sys/access.h
1455 $!
1456 $ OS
1457 $ WS "#ifdef __DECC
1458 $ WS "#include <stdlib.h>
1459 $ WS "#endif
1460 $ WS "#include <stdio.h>
1461 $ WS "#include <unistd.h>
1462 $ WS "#include <sys/access.h>
1463 $ WS "int main()
1464 $ WS "{"
1465 $ WS "exit(0);
1466 $ WS "}"
1467 $ CS
1468 $   DEFINE SYS$ERROR _NLA0:
1469 $   DEFINE SYS$OUTPUT _NLA0:
1470 $   on error then continue
1471 $   on warning then continue
1472 $   'Checkcc' temp.c
1473 $   savedstatus = $status
1474 $   teststatus = f$extract(9,1,savedstatus)
1475 $   if (teststatus.nes."1")
1476 $   THEN
1477 $     perl_i_sysaccess="undef"
1478 $     DEASSIGN SYS$OUTPUT
1479 $     DEASSIGN SYS$ERROR
1480 $   ELSE
1481 $     If (Needs_Opt.eqs."Yes")
1482 $     THEN
1483 $       link temp.obj,temp.opt/opt
1484 $     else
1485 $       link temp.obj
1486 $     endif
1487 $     savedstatus = $status
1488 $     teststatus = f$extract(9,1,savedstatus)
1489 $     DEASSIGN SYS$OUTPUT
1490 $     DEASSIGN SYS$ERROR
1491 $     if (teststatus.nes."1")
1492 $     THEN
1493 $       perl_i_sysaccess="undef"
1494 $     ELSE
1495 $       perl_i_sysaccess="define"
1496 $     ENDIF
1497 $   ENDIF
1498 $ WRITE_RESULT "i_sysaccess is ''perl_i_sysaccess'"
1499 $!
1500 $! Check for sys/security.h
1501 $!
1502 $ OS
1503 $ WS "#ifdef __DECC
1504 $ WS "#include <stdlib.h>
1505 $ WS "#endif
1506 $ WS "#include <stdio.h>
1507 $ WS "#include <unistd.h>
1508 $ WS "#include <sys/security.h>
1509 $ WS "int main()
1510 $ WS "{"
1511 $ WS "exit(0);
1512 $ WS "}"
1513 $ CS
1514 $   DEFINE SYS$ERROR _NLA0:
1515 $   DEFINE SYS$OUTPUT _NLA0:
1516 $   on error then continue
1517 $   on warning then continue
1518 $   'Checkcc' temp.c
1519 $   savedstatus = $status
1520 $   teststatus = f$extract(9,1,savedstatus)
1521 $   if (teststatus.nes."1")
1522 $   THEN
1523 $     perl_i_syssecrt="undef"
1524 $     DEASSIGN SYS$OUTPUT
1525 $     DEASSIGN SYS$ERROR
1526 $   ELSE
1527 $     If (Needs_Opt.eqs."Yes")
1528 $     THEN
1529 $       link temp.obj,temp.opt/opt
1530 $     else
1531 $       link temp.obj
1532 $     endif
1533 $     savedstatus = $status
1534 $     teststatus = f$extract(9,1,savedstatus)
1535 $     DEASSIGN SYS$OUTPUT
1536 $     DEASSIGN SYS$ERROR
1537 $     if (teststatus.nes."1")
1538 $     THEN
1539 $       perl_i_syssecrt="undef"
1540 $     ELSE
1541 $       perl_i_syssecrt="define"
1542 $     ENDIF
1543 $   ENDIF
1544 $ WRITE_RESULT "i_syssecrt is ''perl_i_syssecrt'"
1545 $!
1546 $! Check for fcntl.h
1547 $!
1548 $ OS
1549 $ WS "#ifdef __DECC
1550 $ WS "#include <stdlib.h>
1551 $ WS "#endif
1552 $ WS "#include <stdio.h>
1553 $ WS "#include <unistd.h>
1554 $ WS "#include <fcntl.h>
1555 $ WS "int main()
1556 $ WS "{"
1557 $ WS "exit(0);
1558 $ WS "}"
1559 $ CS
1560 $   DEFINE SYS$ERROR _NLA0:
1561 $   DEFINE SYS$OUTPUT _NLA0:
1562 $   on error then continue
1563 $   on warning then continue
1564 $   'Checkcc' temp.c
1565 $   savedstatus = $status
1566 $   teststatus = f$extract(9,1,savedstatus)
1567 $   if (teststatus.nes."1")
1568 $   THEN
1569 $     perl_i_fcntl="undef"
1570 $     DEASSIGN SYS$OUTPUT
1571 $     DEASSIGN SYS$ERROR
1572 $   ELSE
1573 $     If (Needs_Opt.eqs."Yes")
1574 $     THEN
1575 $       link temp.obj,temp.opt/opt
1576 $     else
1577 $       link temp.obj
1578 $     endif
1579 $     savedstatus = $status
1580 $     teststatus = f$extract(9,1,savedstatus)
1581 $     DEASSIGN SYS$OUTPUT
1582 $     DEASSIGN SYS$ERROR
1583 $     if (teststatus.nes."1")
1584 $     THEN
1585 $       perl_i_fcntl="undef"
1586 $     ELSE
1587 $       perl_i_fcntl="define"
1588 $     ENDIF
1589 $   ENDIF
1590 $ WRITE_RESULT "i_fcntl is ''perl_i_fcntl'"
1591 $!
1592 $! Check for fcntl
1593 $!
1594 $ OS
1595 $ WS "#ifdef __DECC
1596 $ WS "#include <stdlib.h>
1597 $ WS "#endif
1598 $ WS "#include <stdio.h>
1599 $ WS "#include <unistd.h>
1600 $ WS "#include <fcntl.h>
1601 $ WS "int main()
1602 $ WS "{"
1603 $ WS "fcntl(1,2,3);
1604 $ WS "exit(0);
1605 $ WS "}"
1606 $ CS
1607 $   DEFINE SYS$ERROR _NLA0:
1608 $   DEFINE SYS$OUTPUT _NLA0:
1609 $   on error then continue
1610 $   on warning then continue
1611 $   'Checkcc' temp.c
1612 $   savedstatus = $status
1613 $   teststatus = f$extract(9,1,savedstatus)
1614 $   if (teststatus.nes."1")
1615 $   THEN
1616 $     perl_d_fcntl="undef"
1617 $     DEASSIGN SYS$OUTPUT
1618 $     DEASSIGN SYS$ERROR
1619 $   ELSE
1620 $     If (Needs_Opt.eqs."Yes")
1621 $     THEN
1622 $       link temp.obj,temp.opt/opt
1623 $     else
1624 $       link temp.obj
1625 $     endif
1626 $     savedstatus = $status
1627 $     teststatus = f$extract(9,1,savedstatus)
1628 $     DEASSIGN SYS$OUTPUT
1629 $     DEASSIGN SYS$ERROR
1630 $     if (teststatus.nes."1")
1631 $     THEN
1632 $       perl_d_fcntl="undef"
1633 $     ELSE
1634 $       perl_d_fcntl="define"
1635 $     ENDIF
1636 $   ENDIF
1637 $ WRITE_RESULT "d_fcntl is ''perl_d_fcntl'"
1638 $!
1639 $! Check for memchr
1640 $!
1641 $ OS
1642 $ WS "#ifdef __DECC
1643 $ WS "#include <stdlib.h>
1644 $ WS "#endif
1645 $ WS "#include <string.h>
1646 $ WS "int main()
1647 $ WS "{"
1648 $ WS "char * place;
1649 $ WS "place = memchr(""foo"", 47, 3)
1650 $ WS "exit(0);
1651 $ WS "}"
1652 $ CS
1653 $   DEFINE SYS$ERROR _NLA0:
1654 $   DEFINE SYS$OUTPUT _NLA0:
1655 $   on error then continue
1656 $   on warning then continue
1657 $   'Checkcc' temp.c
1658 $   savedstatus = $status
1659 $   teststatus = f$extract(9,1,savedstatus)
1660 $   if (teststatus.nes."1")
1661 $   THEN
1662 $     perl_d_memchr="undef"
1663 $     DEASSIGN SYS$OUTPUT
1664 $     DEASSIGN SYS$ERROR
1665 $   ELSE
1666 $     If (Needs_Opt.eqs."Yes")
1667 $     THEN
1668 $       link temp.obj,temp.opt/opt
1669 $     else
1670 $       link temp.obj
1671 $     endif
1672 $     savedstatus = $status
1673 $     teststatus = f$extract(9,1,savedstatus)
1674 $     DEASSIGN SYS$OUTPUT
1675 $     DEASSIGN SYS$ERROR
1676 $     if (teststatus.nes."1")
1677 $     THEN
1678 $       perl_d_memchr="undef"
1679 $     ELSE
1680 $       perl_d_memchr="define"
1681 $     ENDIF
1682 $   ENDIF
1683 $ WRITE_RESULT "d_memchr is ''perl_d_memchr'"
1684 $!
1685 $! Check for strtoull
1686 $!
1687 $ OS
1688 $ WS "#ifdef __DECC
1689 $ WS "#include <stdlib.h>
1690 $ WS "#endif
1691 $ WS "#include <string.h>
1692 $ WS "int main()
1693 $ WS "{"
1694 $ WS "unsigned __int64 result;
1695 $ WS "result = strtoull(""123123"", NULL, 10);
1696 $ WS "exit(0);
1697 $ WS "}"
1698 $ CS
1699 $   DEFINE SYS$ERROR _NLA0:
1700 $   DEFINE SYS$OUTPUT _NLA0:
1701 $   on error then continue
1702 $   on warning then continue
1703 $   'Checkcc' temp.c
1704 $   savedstatus = $status
1705 $   teststatus = f$extract(9,1,savedstatus)
1706 $   if (teststatus.nes."1")
1707 $   THEN
1708 $     perl_d_strtoull="undef"
1709 $     DEASSIGN SYS$OUTPUT
1710 $     DEASSIGN SYS$ERROR
1711 $   ELSE
1712 $     If (Needs_Opt.eqs."Yes")
1713 $     THEN
1714 $       link temp.obj,temp.opt/opt
1715 $     else
1716 $       link temp.obj
1717 $     endif
1718 $     savedstatus = $status
1719 $     teststatus = f$extract(9,1,savedstatus)
1720 $     DEASSIGN SYS$OUTPUT
1721 $     DEASSIGN SYS$ERROR
1722 $     if (teststatus.nes."1")
1723 $     THEN
1724 $       perl_d_strtoull="undef"
1725 $     ELSE
1726 $       perl_d_strtoull="define"
1727 $     ENDIF
1728 $   ENDIF
1729 $ WRITE_RESULT "d_strtoull is ''perl_d_strtoull'"
1730 $!
1731 $! Check for strtouq
1732 $!
1733 $ OS
1734 $ WS "#ifdef __DECC
1735 $ WS "#include <stdlib.h>
1736 $ WS "#endif
1737 $ WS "#include <string.h>
1738 $ WS "int main()
1739 $ WS "{"
1740 $ WS "unsigned __int64 result;
1741 $ WS "result = strtouq(""123123"", NULL, 10);
1742 $ WS "exit(0);
1743 $ WS "}"
1744 $ CS
1745 $   DEFINE SYS$ERROR _NLA0:
1746 $   DEFINE SYS$OUTPUT _NLA0:
1747 $   on error then continue
1748 $   on warning then continue
1749 $   'Checkcc' temp.c
1750 $   savedstatus = $status
1751 $   teststatus = f$extract(9,1,savedstatus)
1752 $   if (teststatus.nes."1")
1753 $   THEN
1754 $     perl_d_strtouq="undef"
1755 $     DEASSIGN SYS$OUTPUT
1756 $     DEASSIGN SYS$ERROR
1757 $   ELSE
1758 $     If (Needs_Opt.eqs."Yes")
1759 $     THEN
1760 $       link temp.obj,temp.opt/opt
1761 $     else
1762 $       link temp.obj
1763 $     endif
1764 $     savedstatus = $status
1765 $     teststatus = f$extract(9,1,savedstatus)
1766 $     DEASSIGN SYS$OUTPUT
1767 $     DEASSIGN SYS$ERROR
1768 $     if (teststatus.nes."1")
1769 $     THEN
1770 $       perl_d_strtouq="undef"
1771 $     ELSE
1772 $       perl_d_strtouq="define"
1773 $     ENDIF
1774 $   ENDIF
1775 $ WRITE_RESULT "d_strtouq is ''perl_d_strtouq'"
1776 $!
1777 $! Check for strtoll
1778 $!
1779 $ OS
1780 $ WS "#ifdef __DECC
1781 $ WS "#include <stdlib.h>
1782 $ WS "#endif
1783 $ WS "#include <string.h>
1784 $ WS "int main()
1785 $ WS "{"
1786 $ WS "__int64 result;
1787 $ WS "result = strtoll(""123123"", NULL, 10);
1788 $ WS "exit(0);
1789 $ WS "}"
1790 $ CS
1791 $   DEFINE SYS$ERROR _NLA0:
1792 $   DEFINE SYS$OUTPUT _NLA0:
1793 $   on error then continue
1794 $   on warning then continue
1795 $   'Checkcc' temp.c
1796 $   savedstatus = $status
1797 $   teststatus = f$extract(9,1,savedstatus)
1798 $   if (teststatus.nes."1")
1799 $   THEN
1800 $     perl_d_strtoll="undef"
1801 $     DEASSIGN SYS$OUTPUT
1802 $     DEASSIGN SYS$ERROR
1803 $   ELSE
1804 $     If (Needs_Opt.eqs."Yes")
1805 $     THEN
1806 $       link temp.obj,temp.opt/opt
1807 $     else
1808 $       link temp.obj
1809 $     endif
1810 $     savedstatus = $status
1811 $     teststatus = f$extract(9,1,savedstatus)
1812 $     DEASSIGN SYS$OUTPUT
1813 $     DEASSIGN SYS$ERROR
1814 $     if (teststatus.nes."1")
1815 $     THEN
1816 $       perl_d_strtoll="undef"
1817 $     ELSE
1818 $       perl_d_strtoll="define"
1819 $     ENDIF
1820 $   ENDIF
1821 $ WRITE_RESULT "d_strtoll is ''perl_d_strtoll'"
1822 $!
1823 $! Check for strtold
1824 $!
1825 $ OS
1826 $ WS "#ifdef __DECC
1827 $ WS "#include <stdlib.h>
1828 $ WS "#endif
1829 $ WS "#include <string.h>
1830 $ WS "int main()
1831 $ WS "{"
1832 $ WS "long double result;
1833 $ WS "result = strtold(""123123"", NULL, 10);
1834 $ WS "exit(0);
1835 $ WS "}"
1836 $ CS
1837 $   DEFINE SYS$ERROR _NLA0:
1838 $   DEFINE SYS$OUTPUT _NLA0:
1839 $   on error then continue
1840 $   on warning then continue
1841 $   'Checkcc' temp.c
1842 $   savedstatus = $status
1843 $   teststatus = f$extract(9,1,savedstatus)
1844 $   if (teststatus.nes."1")
1845 $   THEN
1846 $     perl_d_strtold="undef"
1847 $     DEASSIGN SYS$OUTPUT
1848 $     DEASSIGN SYS$ERROR
1849 $   ELSE
1850 $     If (Needs_Opt.eqs."Yes")
1851 $     THEN
1852 $       link temp.obj,temp.opt/opt
1853 $     else
1854 $       link temp.obj
1855 $     endif
1856 $     savedstatus = $status
1857 $     teststatus = f$extract(9,1,savedstatus)
1858 $     DEASSIGN SYS$OUTPUT
1859 $     DEASSIGN SYS$ERROR
1860 $     if (teststatus.nes."1")
1861 $     THEN
1862 $       perl_d_strtold="undef"
1863 $     ELSE
1864 $       perl_d_strtold="define"
1865 $     ENDIF
1866 $   ENDIF
1867 $ WRITE_RESULT "d_strtold is ''perl_d_strtold'"
1868 $!
1869 $! Check for atoll
1870 $!
1871 $ OS
1872 $ WS "#ifdef __DECC
1873 $ WS "#include <stdlib.h>
1874 $ WS "#endif
1875 $ WS "#include <string.h>
1876 $ WS "int main()
1877 $ WS "{"
1878 $ WS " __int64 result;
1879 $ WS "result = atoll(""123123"");
1880 $ WS "exit(0);
1881 $ WS "}"
1882 $ CS
1883 $   DEFINE SYS$ERROR _NLA0:
1884 $   DEFINE SYS$OUTPUT _NLA0:
1885 $   on error then continue
1886 $   on warning then continue
1887 $   'Checkcc' temp.c
1888 $   savedstatus = $status
1889 $   teststatus = f$extract(9,1,savedstatus)
1890 $   if (teststatus.nes."1")
1891 $   THEN
1892 $     perl_d_atoll="undef"
1893 $     DEASSIGN SYS$OUTPUT
1894 $     DEASSIGN SYS$ERROR
1895 $   ELSE
1896 $     If (Needs_Opt.eqs."Yes")
1897 $     THEN
1898 $       link temp.obj,temp.opt/opt
1899 $     else
1900 $       link temp.obj
1901 $     endif
1902 $     savedstatus = $status
1903 $     teststatus = f$extract(9,1,savedstatus)
1904 $     DEASSIGN SYS$OUTPUT
1905 $     DEASSIGN SYS$ERROR
1906 $     if (teststatus.nes."1")
1907 $     THEN
1908 $       perl_d_atoll="undef"
1909 $     ELSE
1910 $       perl_d_atoll="define"
1911 $     ENDIF
1912 $   ENDIF
1913 $ WRITE_RESULT "d_atoll is ''perl_d_atoll'"
1914 $!
1915 $! Check for atoll
1916 $!
1917 $ OS
1918 $ WS "#ifdef __DECC
1919 $ WS "#include <stdlib.h>
1920 $ WS "#endif
1921 $ WS "#include <string.h>
1922 $ WS "int main()
1923 $ WS "{"
1924 $ WS "long double
1925 $ WS "result = atolf(""123123"");
1926 $ WS "exit(0);
1927 $ WS "}"
1928 $ CS
1929 $   DEFINE SYS$ERROR _NLA0:
1930 $   DEFINE SYS$OUTPUT _NLA0:
1931 $   on error then continue
1932 $   on warning then continue
1933 $   'Checkcc' temp.c
1934 $   savedstatus = $status
1935 $   teststatus = f$extract(9,1,savedstatus)
1936 $   if (teststatus.nes."1")
1937 $   THEN
1938 $     perl_d_atolf="undef"
1939 $     DEASSIGN SYS$OUTPUT
1940 $     DEASSIGN SYS$ERROR
1941 $   ELSE
1942 $     If (Needs_Opt.eqs."Yes")
1943 $     THEN
1944 $       link temp.obj,temp.opt/opt
1945 $     else
1946 $       link temp.obj
1947 $     endif
1948 $     savedstatus = $status
1949 $     teststatus = f$extract(9,1,savedstatus)
1950 $     DEASSIGN SYS$OUTPUT
1951 $     DEASSIGN SYS$ERROR
1952 $     if (teststatus.nes."1")
1953 $     THEN
1954 $       perl_d_atolf="undef"
1955 $     ELSE
1956 $       perl_d_atolf="define"
1957 $     ENDIF
1958 $   ENDIF
1959 $ WRITE_RESULT "d_atolf is ''perl_d_atolf'"
1960 $!
1961 $! Check for access
1962 $!
1963 $ OS
1964 $ WS "#ifdef __DECC
1965 $ WS "#include <stdlib.h>
1966 $ WS "#endif
1967 $ WS "#include <stdio.h>
1968 $ WS "#include <unistd.h>
1969 $ WS "int main()
1970 $ WS "{"
1971 $ WS "access("foo", F_OK);
1972 $ WS "exit(0);
1973 $ WS "}"
1974 $ CS
1975 $   DEFINE SYS$ERROR _NLA0:
1976 $   DEFINE SYS$OUTPUT _NLA0:
1977 $   on error then continue
1978 $   on warning then continue
1979 $   'Checkcc' temp.c
1980 $   savedstatus = $status
1981 $   teststatus = f$extract(9,1,savedstatus)
1982 $   if (teststatus.nes."1")
1983 $   THEN
1984 $     perl_d_access="undef"
1985 $     DEASSIGN SYS$OUTPUT
1986 $     DEASSIGN SYS$ERROR
1987 $   ELSE
1988 $     If (Needs_Opt.eqs."Yes")
1989 $     THEN
1990 $       link temp.obj,temp.opt/opt
1991 $     else
1992 $       link temp.obj
1993 $     endif
1994 $     savedstatus = $status
1995 $     teststatus = f$extract(9,1,savedstatus)
1996 $     DEASSIGN SYS$OUTPUT
1997 $     DEASSIGN SYS$ERROR
1998 $     if (teststatus.nes."1")
1999 $     THEN
2000 $       perl_d_access="undef"
2001 $     ELSE
2002 $       perl_d_access="define"
2003 $     ENDIF
2004 $   ENDIF
2005 $ WRITE_RESULT "d_access is ''perl_d_access'"
2006 $!
2007 $! Check for bzero
2008 $!
2009 $ OS
2010 $ WS "#ifdef __DECC
2011 $ WS "#include <stdlib.h>
2012 $ WS "#endif
2013 $ WS "#include <stdio.h>
2014 $ WS "#include <strings.h>
2015 $ WS "int main()
2016 $ WS "{"
2017 $ WS "char foo[10];
2018 $ WS "bzero(foo, 10);
2019 $ WS "exit(0);
2020 $ WS "}"
2021 $ CS
2022 $   DEFINE SYS$ERROR _NLA0:
2023 $   DEFINE SYS$OUTPUT _NLA0:
2024 $   on error then continue
2025 $   on warning then continue
2026 $   'Checkcc' temp.c
2027 $   savedstatus = $status
2028 $   teststatus = f$extract(9,1,savedstatus)
2029 $   if (teststatus.nes."1")
2030 $   THEN
2031 $     perl_d_bzero="undef"
2032 $     DEASSIGN SYS$OUTPUT
2033 $     DEASSIGN SYS$ERROR
2034 $   ELSE
2035 $     If (Needs_Opt.eqs."Yes")
2036 $     THEN
2037 $       link temp.obj,temp.opt/opt
2038 $     else
2039 $       link temp.obj
2040 $     endif
2041 $     savedstatus = $status
2042 $     teststatus = f$extract(9,1,savedstatus)
2043 $     DEASSIGN SYS$OUTPUT
2044 $     DEASSIGN SYS$ERROR
2045 $     if (teststatus.nes."1")
2046 $     THEN
2047 $       perl_d_bzero="undef"
2048 $     ELSE
2049 $       perl_d_bzero="define"
2050 $     ENDIF
2051 $   ENDIF
2052 $ WRITE_RESULT "d_bzero is ''perl_d_bzero'"
2053 $!
2054 $! Check for bcopy
2055 $!
2056 $ OS
2057 $ WS "#ifdef __DECC
2058 $ WS "#include <stdlib.h>
2059 $ WS "#endif
2060 $ WS "#include <stdio.h>
2061 $ WS "#include <strings.h>
2062 $ WS "int main()
2063 $ WS "{"
2064 $ WS "char foo[10], bar[10];
2065 $ WS "bcopy(""foo"", bar, 3);
2066 $ WS "exit(0);
2067 $ WS "}"
2068 $ CS
2069 $   DEFINE SYS$ERROR _NLA0:
2070 $   DEFINE SYS$OUTPUT _NLA0:
2071 $   on error then continue
2072 $   on warning then continue
2073 $   'Checkcc' temp.c
2074 $   savedstatus = $status
2075 $   teststatus = f$extract(9,1,savedstatus)
2076 $   if (teststatus.nes."1")
2077 $   THEN
2078 $     perl_d_bcopy="undef"
2079 $     DEASSIGN SYS$OUTPUT
2080 $     DEASSIGN SYS$ERROR
2081 $   ELSE
2082 $     If (Needs_Opt.eqs."Yes")
2083 $     THEN
2084 $       link temp.obj,temp.opt/opt
2085 $     else
2086 $       link temp.obj
2087 $     endif
2088 $     savedstatus = $status
2089 $     teststatus = f$extract(9,1,savedstatus)
2090 $     DEASSIGN SYS$OUTPUT
2091 $     DEASSIGN SYS$ERROR
2092 $     if (teststatus.nes."1")
2093 $     THEN
2094 $       perl_d_bcopy="undef"
2095 $     ELSE
2096 $       perl_d_bcopy="define"
2097 $     ENDIF
2098 $   ENDIF
2099 $ WRITE_RESULT "d_bcopy is ''perl_d_bcopy'"
2100 $!
2101 $! Check for mkstemp
2102 $!
2103 $ OS
2104 $ WS "#ifdef __DECC
2105 $ WS "#include <stdlib.h>
2106 $ WS "#endif
2107 $ WS "#include <stdio.h>
2108 $ WS "int main()
2109 $ WS "{"
2110 $ WS "mkstemp(""foo"");
2111 $ WS "exit(0);
2112 $ WS "}"
2113 $ CS
2114 $   DEFINE SYS$ERROR _NLA0:
2115 $   DEFINE SYS$OUTPUT _NLA0:
2116 $   on error then continue
2117 $   on warning then continue
2118 $   'Checkcc' temp.c
2119 $   If (Needs_Opt.eqs."Yes")
2120 $   THEN
2121 $     link temp.obj,temp.opt/opt
2122 $   else
2123 $     link temp.obj
2124 $   endif
2125 $   savedstatus = $status
2126 $   teststatus = f$extract(9,1,savedstatus)
2127 $   DEASSIGN SYS$OUTPUT
2128 $   DEASSIGN SYS$ERROR
2129 $   if (teststatus.nes."1")
2130 $   THEN
2131 $     perl_d_mkstemp="undef"
2132 $   ELSE
2133 $     perl_d_mkstemp="define"
2134 $   ENDIF
2135 $ WRITE_RESULT "d_mkstemp is ''perl_d_mkstemp'"
2136 $!
2137 $! Check for mkstemps
2138 $!
2139 $ OS
2140 $ WS "#ifdef __DECC
2141 $ WS "#include <stdlib.h>
2142 $ WS "#endif
2143 $ WS "#include <stdio.h>
2144 $ WS "int main()
2145 $ WS "{"
2146 $ WS "mkstemps(""foo"", 1);
2147 $ WS "exit(0);
2148 $ WS "}"
2149 $ CS
2150 $   DEFINE SYS$ERROR _NLA0:
2151 $   DEFINE SYS$OUTPUT _NLA0:
2152 $   on error then continue
2153 $   on warning then continue
2154 $   'Checkcc' temp.c
2155 $   If (Needs_Opt.eqs."Yes")
2156 $   THEN
2157 $     link temp.obj,temp.opt/opt
2158 $   else
2159 $     link temp.obj
2160 $   endif
2161 $   savedstatus = $status
2162 $   teststatus = f$extract(9,1,savedstatus)
2163 $   DEASSIGN SYS$OUTPUT
2164 $   DEASSIGN SYS$ERROR
2165 $   if (teststatus.nes."1")
2166 $   THEN
2167 $     perl_d_mkstemps="undef"
2168 $   ELSE
2169 $     perl_d_mkstemps="define"
2170 $   ENDIF
2171 $ WRITE_RESULT "d_mkstemps is ''perl_d_mkstemps'"
2172 $!
2173 $! Check for iconv
2174 $!
2175 $ OS
2176 $ WS "#ifdef __DECC
2177 $ WS "#include <stdlib.h>
2178 $ WS "#endif
2179 $ WS "#include <stdio.h>
2180 $ WS "#include <iconv.h>
2181 $ WS "int main()
2182 $ WS "{"
2183 $ WS "  iconv_t cd;"
2184 $ WS "  char *inbuf, *outbuf;"
2185 $ WS "  size_t inleft, outleft;"
2186 $ WS "  iconv(cd, &inbuf, &inleft, &outbuf, &outleft);"
2187 $ WS "exit(0);
2188 $ WS "}"
2189 $ CS
2190 $   DEFINE SYS$ERROR _NLA0:
2191 $   DEFINE SYS$OUTPUT _NLA0:
2192 $   on error then continue
2193 $   on warning then continue
2194 $   'Checkcc' temp.c
2195 $   savedstatus = $status
2196 $   teststatus = f$extract(9,1,savedstatus)
2197 $   if (teststatus.nes."1")
2198 $   THEN
2199 $     perl_d_iconv="undef"
2200 $     perl_i_iconv="undef"
2201 $     DEASSIGN SYS$OUTPUT
2202 $     DEASSIGN SYS$ERROR
2203 $   ELSE
2204 $     If (Needs_Opt.eqs."Yes")
2205 $     THEN
2206 $       link temp.obj,temp.opt/opt
2207 $     else
2208 $       link temp.obj
2209 $     endif
2210 $     savedstatus = $status
2211 $     teststatus = f$extract(9,1,savedstatus)
2212 $     DEASSIGN SYS$OUTPUT
2213 $     DEASSIGN SYS$ERROR
2214 $     if (teststatus.nes."1")
2215 $  THEN
2216 $       perl_d_iconv="undef"
2217 $       perl_i_iconv="undef"
2218 $     ELSE
2219 $       perl_d_iconv="define"
2220 $       perl_i_iconv="define"
2221 $     ENDIF
2222 $   ENDIF
2223 $ WRITE_RESULT "d_iconv is ''perl_d_iconv'"
2224 $ WRITE_RESULT "i_iconv is ''perl_i_iconv'"
2225 $!
2226 $! Check for mkdtemp
2227 $!
2228 $ OS
2229 $ WS "#ifdef __DECC
2230 $ WS "#include <stdlib.h>
2231 $ WS "#endif
2232 $ WS "#include <stdio.h>
2233 $ WS "int main()
2234 $ WS "{"
2235 $ WS "mkdtemp(""foo"");
2236 $ WS "exit(0);
2237 $ WS "}"
2238 $ CS
2239 $   DEFINE SYS$ERROR _NLA0:
2240 $   DEFINE SYS$OUTPUT _NLA0:
2241 $   on error then continue
2242 $   on warning then continue
2243 $   'Checkcc' temp.c
2244 $   If (Needs_Opt.eqs."Yes")
2245 $   THEN
2246 $     link temp.obj,temp.opt/opt
2247 $   else
2248 $     link temp.obj
2249 $   endif
2250 $   savedstatus = $status
2251 $   teststatus = f$extract(9,1,savedstatus)
2252 $   DEASSIGN SYS$OUTPUT
2253 $   DEASSIGN SYS$ERROR
2254 $   if (teststatus.nes."1")
2255 $   THEN
2256 $     perl_d_mkdtemp="undef"
2257 $   ELSE
2258 $     perl_d_mkdtemp="define"
2259 $   ENDIF
2260 $ WRITE_RESULT "d_mkdtemp is ''perl_d_mkdtemp'"
2261 $!
2262 $! Check for setvbuf
2263 $!
2264 $ OS
2265 $ WS "#ifdef __DECC
2266 $ WS "#include <stdlib.h>
2267 $ WS "#endif
2268 $ WS "#include <stdio.h>
2269 $ WS "int main()
2270 $ WS "{"
2271 $ WS "FILE *foo;
2272 $ WS "char Buffer[99];
2273 $ WS "foo = fopen(""foo"", ""r"");
2274 $ WS "setvbuf(foo, Buffer, 0, 0);
2275 $ WS "exit(0);
2276 $ WS "}"
2277 $ CS
2278 $   DEFINE SYS$ERROR _NLA0:
2279 $   DEFINE SYS$OUTPUT _NLA0:
2280 $   on error then continue
2281 $   on warning then continue
2282 $   'Checkcc' temp.c
2283 $   If (Needs_Opt.eqs."Yes")
2284 $   THEN
2285 $     link temp.obj,temp.opt/opt
2286 $   else
2287 $     link temp.obj
2288 $   endif
2289 $   teststatus = f$extract(9,1,$status)
2290 $   DEASSIGN SYS$OUTPUT
2291 $   DEASSIGN SYS$ERROR
2292 $   if (teststatus.nes."1")
2293 $   THEN
2294 $     perl_d_setvbuf="undef"
2295 $   ELSE
2296 $     perl_d_setvbuf="define"
2297 $   ENDIF
2298 $ WRITE_RESULT "d_setvbuf is ''perl_d_setvbuf'"
2299 $!
2300 $! Check for setenv
2301 $!
2302 $ OS
2303 $ WS "#ifdef __DECC
2304 $ WS "#include <stdlib.h>
2305 $ WS "#endif
2306 $ WS "#include <stdio.h>
2307 $ WS "int main()
2308 $ WS "{"
2309 $ WS "setenv(""FOO"", ""BAR"", 0);
2310 $ WS "exit(0);
2311 $ WS "}"
2312 $ CS
2313 $   DEFINE SYS$ERROR _NLA0:
2314 $   DEFINE SYS$OUTPUT _NLA0:
2315 $   on error then continue
2316 $   on warning then continue
2317 $   'Checkcc' temp
2318 $   If (Needs_Opt.eqs."Yes")
2319 $   THEN
2320 $     link temp,temp/opt
2321 $   else
2322 $     link temp
2323 $   endif
2324 $   teststatus = f$extract(9,1,$status)
2325 $   DEASSIGN SYS$OUTPUT
2326 $   DEASSIGN SYS$ERROR
2327 $   if (teststatus.nes."1")
2328 $   THEN
2329 $     perl_d_setenv="undef"
2330 $   ELSE
2331 $     perl_d_setenv="define"
2332 $   ENDIF
2333 $ WRITE_RESULT "d_setenv is ''perl_d_setenv'"
2334 $!
2335 $! Check for <netinet/in.h>
2336 $!
2337 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2338 $ THEN
2339 $ OS
2340 $ WS "#ifdef __DECC
2341 $ WS "#include <stdlib.h>
2342 $ WS "#endif
2343 $ WS "#include <stdio.h>
2344 $ if ("''Has_Socketshr'".eqs."T")
2345 $ THEN
2346 $  WS "#include <socketshr.h>"
2347 $ else
2348 $  WS "#include <netdb.h>
2349 $ endif
2350 $ WS "#include <netinet/in.h>"
2351 $ WS "int main()
2352 $ WS "{"
2353 $ WS "exit(0);
2354 $ WS "}"
2355 $ CS
2356 $   DEFINE SYS$ERROR _NLA0:
2357 $   DEFINE SYS$OUTPUT _NLA0:
2358 $   on error then continue
2359 $   on warning then continue
2360 $   'Checkcc' temp.c
2361 $   If (Needs_Opt.eqs."Yes")
2362 $   THEN
2363 $     link temp.obj,temp.opt/opt
2364 $   else
2365 $     link temp.obj
2366 $   endif
2367 $   teststatus = f$extract(9,1,$status)
2368 $   DEASSIGN SYS$OUTPUT
2369 $   DEASSIGN SYS$ERROR
2370 $   if (teststatus.nes."1")
2371 $   THEN
2372 $     perl_i_niin="undef"
2373 $   ELSE
2374 $     perl_i_niin="define"
2375 $   ENDIF
2376 $ ELSE
2377 $   perl_i_niin="undef"
2378 $ ENDIF
2379 $ WRITE_RESULT "i_niin is ''perl_i_niin'"
2380 $!
2381 $! Check for <netinet/tcp.h>
2382 $!
2383 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2384 $ THEN
2385 $ OS
2386 $ WS "#ifdef __DECC
2387 $ WS "#include <stdlib.h>
2388 $ WS "#endif
2389 $ WS "#include <stdio.h>
2390 $ if ("''Has_Socketshr'".eqs."T")
2391 $ THEN
2392 $  WS "#include <socketshr.h>"
2393 $ else
2394 $  WS "#include <netdb.h>
2395 $ endif
2396 $ WS "#include <netinet/tcp.h>"
2397 $ WS "int main()
2398 $ WS "{"
2399 $ WS "exit(0);
2400 $ WS "}"
2401 $ CS
2402 $   DEFINE SYS$ERROR _NLA0:
2403 $   DEFINE SYS$OUTPUT _NLA0:
2404 $   on error then continue
2405 $   on warning then continue
2406 $   'Checkcc' temp.c
2407 $   If (Needs_Opt.eqs."Yes")
2408 $   THEN
2409 $     link temp.obj,temp.opt/opt
2410 $   else
2411 $     link temp.obj
2412 $   endif
2413 $   teststatus = f$extract(9,1,$status)
2414 $   DEASSIGN SYS$OUTPUT
2415 $   DEASSIGN SYS$ERROR
2416 $   if (teststatus.nes."1")
2417 $   THEN
2418 $     perl_i_netinettcp="undef"
2419 $   ELSE
2420 $     perl_i_netinettcp="define"
2421 $   ENDIF
2422 $ ELSE
2423 $   perl_i_netinettcp="undef"
2424 $ ENDIF
2425 $ WRITE_RESULT "i_netinettcp is ''perl_i_netinettcp'"
2426 $!
2427 $! Check for endhostent
2428 $!
2429 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2430 $ THEN
2431 $ OS
2432 $ WS "#ifdef __DECC
2433 $ WS "#include <stdlib.h>
2434 $ WS "#endif
2435 $ WS "#include <stdio.h>
2436 $ if ("''Has_Socketshr'".eqs."T")
2437 $ THEN
2438 $  WS "#include <socketshr.h>"
2439 $ else
2440 $  WS "#include <netdb.h>
2441 $ endif
2442 $ WS "int main()
2443 $ WS "{"
2444 $ WS "endhostent();
2445 $ WS "exit(0);
2446
2447 $ CS
2448 $   DEFINE SYS$ERROR _NLA0:
2449 $   DEFINE SYS$OUTPUT _NLA0:
2450 $   on error then continue
2451 $   on warning then continue
2452 $   'Checkcc' temp.c
2453 $   If (Needs_Opt.eqs."Yes")
2454 $   THEN
2455 $     link temp.obj,temp.opt/opt
2456 $   else
2457 $     link temp.obj
2458 $   endif
2459 $   teststatus = f$extract(9,1,$status)
2460 $   DEASSIGN SYS$OUTPUT
2461 $   DEASSIGN SYS$ERROR
2462 $   if (teststatus.nes."1")
2463 $   THEN
2464 $     perl_d_endhent="undef"
2465 $   ELSE
2466 $     perl_d_endhent="define"
2467 $   ENDIF
2468 $ ELSE
2469 $ perl_d_endhent="undef"
2470 $ ENDIF
2471 $ WRITE_RESULT "d_endhent is ''perl_d_endhent'"
2472 $!
2473 $! Check for endnetent
2474 $!
2475 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2476 $ THEN
2477 $ OS
2478 $ WS "#ifdef __DECC
2479 $ WS "#include <stdlib.h>
2480 $ WS "#endif
2481 $ WS "#include <stdio.h>
2482 $ if ("''Has_Socketshr'".eqs."T")
2483 $ THEN
2484 $  WS "#include <socketshr.h>"
2485 $ else
2486 $  WS "#include <netdb.h>
2487 $ endif
2488 $ WS "int main()
2489 $ WS "{"
2490 $ WS "endnetent();
2491 $ WS "exit(0);
2492 $ WS "}"
2493 $ CS
2494 $   DEFINE SYS$ERROR _NLA0:
2495 $   DEFINE SYS$OUTPUT _NLA0:
2496 $   on error then continue
2497 $   on warning then continue
2498 $   'Checkcc' temp.c
2499 $   If (Needs_Opt.eqs."Yes")
2500 $   THEN
2501 $     link temp.obj,temp.opt/opt
2502 $   else
2503 $     link temp.obj
2504 $   endif
2505 $   teststatus = f$extract(9,1,$status)
2506 $   DEASSIGN SYS$OUTPUT
2507 $   DEASSIGN SYS$ERROR
2508 $   if (teststatus.nes."1")
2509 $   THEN
2510 $     perl_d_endnent="undef"
2511 $   ELSE
2512 $     perl_d_endnent="define"
2513 $   ENDIF
2514 $ ELSE
2515 $ perl_d_endnent="undef"
2516 $ ENDIF
2517 $ WRITE_RESULT "d_endnent is ''perl_d_endnent'"
2518 $!
2519 $! Check for endprotoent
2520 $!
2521 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2522 $ THEN
2523 $ OS
2524 $ WS "#ifdef __DECC
2525 $ WS "#include <stdlib.h>
2526 $ WS "#endif
2527 $ WS "#include <stdio.h>
2528 $ if ("''Has_Socketshr'".eqs."T")
2529 $ THEN
2530 $  WS "#include <socketshr.h>"
2531 $ else
2532 $  WS "#include <netdb.h>
2533 $ endif
2534 $ WS "int main()
2535 $ WS "{"
2536 $ WS "endprotoent();
2537 $ WS "exit(0);
2538 $ WS "}"
2539 $ CS
2540 $   DEFINE SYS$ERROR _NLA0:
2541 $   DEFINE SYS$OUTPUT _NLA0:
2542 $   on error then continue
2543 $   on warning then continue
2544 $   'Checkcc' temp.c
2545 $   If (Needs_Opt.eqs."Yes")
2546 $   THEN
2547 $     link temp.obj,temp.opt/opt
2548 $   else
2549 $     link temp.obj
2550 $   endif
2551 $   teststatus = f$extract(9,1,$status)
2552 $   DEASSIGN SYS$OUTPUT
2553 $   DEASSIGN SYS$ERROR
2554 $   if (teststatus.nes."1")
2555 $   THEN
2556 $     perl_d_endpent="undef"
2557 $   ELSE
2558 $     perl_d_endpent="define"
2559 $   ENDIF
2560 $ ELSE
2561 $ perl_d_endpent="undef"
2562 $ ENDIF
2563 $ WRITE_RESULT "d_endpent is ''perl_d_endpent'"
2564 $!
2565 $! Check for endservent
2566 $!
2567 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2568 $ THEN
2569 $ OS
2570 $ WS "#ifdef __DECC
2571 $ WS "#include <stdlib.h>
2572 $ WS "#endif
2573 $ WS "#include <stdio.h>
2574 $ if ("''Has_Socketshr'".eqs."T")
2575 $ THEN
2576 $  WS "#include <socketshr.h>"
2577 $ else
2578 $  WS "#include <netdb.h>
2579 $ endif
2580 $ WS "int main()
2581 $ WS "{"
2582 $ WS "endservent();
2583 $ WS "exit(0);
2584 $ WS "}"
2585 $ CS
2586 $   DEFINE SYS$ERROR _NLA0:
2587 $   DEFINE SYS$OUTPUT _NLA0:
2588 $   on error then continue
2589 $   on warning then continue
2590 $   'Checkcc' temp.c
2591 $   If (Needs_Opt.eqs."Yes")
2592 $   THEN
2593 $     link temp.obj,temp.opt/opt
2594 $   else
2595 $     link temp.obj
2596 $   endif
2597 $   teststatus = f$extract(9,1,$status)
2598 $   DEASSIGN SYS$OUTPUT
2599 $   DEASSIGN SYS$ERROR
2600 $   if (teststatus.nes."1")
2601 $   THEN
2602 $     perl_d_endsent="undef"
2603 $   ELSE
2604 $     perl_d_endsent="define"
2605 $   ENDIF
2606 $ ELSE
2607 $ perl_d_endsent="undef"
2608 $ ENDIF
2609 $ WRITE_RESULT "d_endsent is ''perl_d_endsent'"
2610 $!
2611 $! Check for sethostent
2612 $!
2613 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2614 $ THEN
2615 $ OS
2616 $ WS "#ifdef __DECC
2617 $ WS "#include <stdlib.h>
2618 $ WS "#endif
2619 $ WS "#include <stdio.h>
2620 $ if ("''Has_Socketshr'".eqs."T")
2621 $ THEN
2622 $  WS "#include <socketshr.h>"
2623 $ else
2624 $  WS "#include <netdb.h>
2625 $ endif
2626 $ WS "int main()
2627 $ WS "{"
2628 $ WS "sethostent(1);
2629 $ WS "exit(0);
2630 $ WS "}"
2631 $ CS
2632 $   DEFINE SYS$ERROR _NLA0:
2633 $   DEFINE SYS$OUTPUT _NLA0:
2634 $   on error then continue
2635 $   on warning then continue
2636 $   'Checkcc' temp.c
2637 $   If (Needs_Opt.eqs."Yes")
2638 $   THEN
2639 $     link temp.obj,temp.opt/opt
2640 $   else
2641 $     link temp.obj
2642 $   endif
2643 $   teststatus = f$extract(9,1,$status)
2644 $   DEASSIGN SYS$OUTPUT
2645 $   DEASSIGN SYS$ERROR
2646 $   if (teststatus.nes."1")
2647 $   THEN
2648 $     perl_d_sethent="undef"
2649 $   ELSE
2650 $     perl_d_sethent="define"
2651 $   ENDIF
2652 $ ELSE
2653 $ perl_d_sethent="undef"
2654 $ ENDIF
2655 $ WRITE_RESULT "d_sethent is ''perl_d_sethent'"
2656 $!
2657 $! Check for setnetent
2658 $!
2659 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2660 $ THEN
2661 $ OS
2662 $ WS "#ifdef __DECC
2663 $ WS "#include <stdlib.h>
2664 $ WS "#endif
2665 $ WS "#include <stdio.h>
2666 $ if ("''Has_Socketshr'".eqs."T")
2667 $ THEN
2668 $  WS "#include <socketshr.h>"
2669 $ else
2670 $  WS "#include <netdb.h>
2671 $ endif
2672 $ WS "int main()
2673 $ WS "{"
2674 $ WS "setnetent(1);
2675 $ WS "exit(0);
2676 $ WS "}"
2677 $ CS
2678 $   DEFINE SYS$ERROR _NLA0:
2679 $   DEFINE SYS$OUTPUT _NLA0:
2680 $   on error then continue
2681 $   on warning then continue
2682 $   'Checkcc' temp.c
2683 $   If (Needs_Opt.eqs."Yes")
2684 $   THEN
2685 $     link temp.obj,temp.opt/opt
2686 $   else
2687 $     link temp.obj
2688 $   endif
2689 $   teststatus = f$extract(9,1,$status)
2690 $   DEASSIGN SYS$OUTPUT
2691 $   DEASSIGN SYS$ERROR
2692 $   if (teststatus.nes."1")
2693 $   THEN
2694 $     perl_d_setnent="undef"
2695 $   ELSE
2696 $     perl_d_setnent="define"
2697 $   ENDIF
2698 $ ELSE
2699 $ perl_d_setnent="undef"
2700 $ ENDIF
2701 $ WRITE_RESULT "d_setnent is ''perl_d_setnent'"
2702 $!
2703 $! Check for setprotoent
2704 $!
2705 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2706 $ THEN
2707 $ OS
2708 $ WS "#ifdef __DECC
2709 $ WS "#include <stdlib.h>
2710 $ WS "#endif
2711 $ WS "#include <stdio.h>
2712 $ if ("''Has_Socketshr'".eqs."T")
2713 $ THEN
2714 $  WS "#include <socketshr.h>"
2715 $ else
2716 $  WS "#include <netdb.h>
2717 $ endif
2718 $ WS "int main()
2719 $ WS "{"
2720 $ WS "setprotoent(1);
2721 $ WS "exit(0);
2722 $ WS "}"
2723 $ CS
2724 $   DEFINE SYS$ERROR _NLA0:
2725 $   DEFINE SYS$OUTPUT _NLA0:
2726 $   on error then continue
2727 $   on warning then continue
2728 $   'Checkcc' temp.c
2729 $   If (Needs_Opt.eqs."Yes")
2730 $   THEN
2731 $     link temp.obj,temp.opt/opt
2732 $   else
2733 $     link temp.obj
2734 $   endif
2735 $   teststatus = f$extract(9,1,$status)
2736 $   DEASSIGN SYS$OUTPUT
2737 $   DEASSIGN SYS$ERROR
2738 $   if (teststatus.nes."1")
2739 $   THEN
2740 $     perl_d_setpent="undef"
2741 $   ELSE
2742 $     perl_d_setpent="define"
2743 $   ENDIF
2744 $ ELSE
2745 $ perl_d_setpent="undef"
2746 $ ENDIF
2747 $ WRITE_RESULT "d_setpent is ''perl_d_setpent'"
2748 $!
2749 $! Check for setservent
2750 $!
2751 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2752 $ THEN
2753 $ OS
2754 $ WS "#ifdef __DECC
2755 $ WS "#include <stdlib.h>
2756 $ WS "#endif
2757 $ WS "#include <stdio.h>
2758 $ if ("''Has_Socketshr'".eqs."T")
2759 $ THEN
2760 $  WS "#include <socketshr.h>"
2761 $ else
2762 $  WS "#include <netdb.h>
2763 $ endif
2764 $ WS "int main()
2765 $ WS "{"
2766 $ WS "setservent(1);
2767 $ WS "exit(0);
2768 $ WS "}"
2769 $ CS
2770 $   DEFINE SYS$ERROR _NLA0:
2771 $   DEFINE SYS$OUTPUT _NLA0:
2772 $   on error then continue
2773 $   on warning then continue
2774 $   'Checkcc' temp.c
2775 $   If (Needs_Opt.eqs."Yes")
2776 $   THEN
2777 $     link temp.obj,temp.opt/opt
2778 $   else
2779 $     link temp.obj
2780 $   endif
2781 $   teststatus = f$extract(9,1,$status)
2782 $   DEASSIGN SYS$OUTPUT
2783 $   DEASSIGN SYS$ERROR
2784 $   if (teststatus.nes."1")
2785 $   THEN
2786 $     perl_d_setsent="undef"
2787 $   ELSE
2788 $     perl_d_setsent="define"
2789 $   ENDIF
2790 $ ELSE
2791 $ perl_d_setsent="undef"
2792 $ ENDIF
2793 $ WRITE_RESULT "d_setsent is ''perl_d_setsent'"
2794 $!
2795 $! Check for gethostent
2796 $!
2797 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2798 $ THEN
2799 $ OS
2800 $ WS "#ifdef __DECC
2801 $ WS "#include <stdlib.h>
2802 $ WS "#endif
2803 $ WS "#include <stdio.h>
2804 $ if ("''Has_Socketshr'".eqs."T")
2805 $ THEN
2806 $  WS "#include <socketshr.h>"
2807 $ else
2808 $  WS "#include <netdb.h>
2809 $ endif
2810 $ WS "int main()
2811 $ WS "{"
2812 $ WS "gethostent();
2813 $ WS "exit(0);
2814 $ WS "}"
2815 $ CS
2816 $   DEFINE SYS$ERROR _NLA0:
2817 $   DEFINE SYS$OUTPUT _NLA0:
2818 $   on error then continue
2819 $   on warning then continue
2820 $   'Checkcc' temp.c
2821 $   If (Needs_Opt.eqs."Yes")
2822 $   THEN
2823 $     link temp.obj,temp.opt/opt
2824 $   else
2825 $     link temp.obj
2826 $   endif
2827 $   teststatus = f$extract(9,1,$status)
2828 $   DEASSIGN SYS$OUTPUT
2829 $   DEASSIGN SYS$ERROR
2830 $   if (teststatus.nes."1")
2831 $   THEN
2832 $     perl_d_gethent="undef"
2833 $   ELSE
2834 $     perl_d_gethent="define"
2835 $   ENDIF
2836 $ ELSE
2837 $ perl_d_gethent="undef"
2838 $ ENDIF
2839 $ WRITE_RESULT "d_gethent is ''perl_d_gethent'"
2840 $!
2841 $! Check for getnetent
2842 $!
2843 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2844 $ THEN
2845 $ OS
2846 $ WS "#ifdef __DECC
2847 $ WS "#include <stdlib.h>
2848 $ WS "#endif
2849 $ WS "#include <stdio.h>
2850 $ if ("''Has_Socketshr'".eqs."T")
2851 $ THEN
2852 $  WS "#include <socketshr.h>"
2853 $ else
2854 $  WS "#include <netdb.h>
2855 $ endif
2856 $ WS "int main()
2857 $ WS "{"
2858 $ WS "getnetent();
2859 $ WS "exit(0);
2860 $ WS "}"
2861 $ CS
2862 $   DEFINE SYS$ERROR _NLA0:
2863 $   DEFINE SYS$OUTPUT _NLA0:
2864 $   on error then continue
2865 $   on warning then continue
2866 $   'Checkcc' temp.c
2867 $   If (Needs_Opt.eqs."Yes")
2868 $   THEN
2869 $     link temp.obj,temp.opt/opt
2870 $   else
2871 $     link temp.obj
2872 $   endif
2873 $   teststatus = f$extract(9,1,$status)
2874 $   DEASSIGN SYS$OUTPUT
2875 $   DEASSIGN SYS$ERROR
2876 $   if (teststatus.nes."1")
2877 $   THEN
2878 $     perl_d_getnent="undef"
2879 $   ELSE
2880 $     perl_d_getnent="define"
2881 $   ENDIF
2882 $ ELSE
2883 $ perl_d_getnent="undef"
2884 $ ENDIF
2885 $ WRITE_RESULT "d_getnent is ''perl_d_getnent'"
2886 $!
2887 $! Check for getprotoent
2888 $!
2889 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2890 $ THEN
2891 $ OS
2892 $ WS "#ifdef __DECC
2893 $ WS "#include <stdlib.h>
2894 $ WS "#endif
2895 $ WS "#include <stdio.h>
2896 $ if ("''Has_Socketshr'".eqs."T")
2897 $ THEN
2898 $  WS "#include <socketshr.h>"
2899 $ else
2900 $  WS "#include <netdb.h>
2901 $ endif
2902 $ WS "int main()
2903 $ WS "{"
2904 $ WS "getprotoent();
2905 $ WS "exit(0);
2906 $ WS "}"
2907 $ CS
2908 $   DEFINE SYS$ERROR _NLA0:
2909 $   DEFINE SYS$OUTPUT _NLA0:
2910 $   on error then continue
2911 $   on warning then continue
2912 $   'Checkcc' temp.c
2913 $   If (Needs_Opt.eqs."Yes")
2914 $   THEN
2915 $     link temp.obj,temp.opt/opt
2916 $   else
2917 $     link temp.obj
2918 $   endif
2919 $   teststatus = f$extract(9,1,$status)
2920 $   DEASSIGN SYS$OUTPUT
2921 $   DEASSIGN SYS$ERROR
2922 $   if (teststatus.nes."1")
2923 $   THEN
2924 $     perl_d_getpent="undef"
2925 $   ELSE
2926 $     perl_d_getpent="define"
2927 $   ENDIF
2928 $ ELSE
2929 $ perl_d_getpent="undef"
2930 $ ENDIF
2931 $ WRITE_RESULT "d_getpent is ''perl_d_getpent'"
2932 $!
2933 $! Check for getservent
2934 $!
2935 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2936 $ THEN
2937 $ OS
2938 $ WS "#ifdef __DECC
2939 $ WS "#include <stdlib.h>
2940 $ WS "#endif
2941 $ WS "#include <stdio.h>
2942 $ if ("''Has_Socketshr'".eqs."T")
2943 $ THEN
2944 $  WS "#include <socketshr.h>"
2945 $ else
2946 $  WS "#include <netdb.h>
2947 $ endif
2948 $ WS "int main()
2949 $ WS "{"
2950 $ WS "getservent();
2951 $ WS "exit(0);
2952 $ WS "}"
2953 $ CS
2954 $   DEFINE SYS$ERROR _NLA0:
2955 $   DEFINE SYS$OUTPUT _NLA0:
2956 $   on error then continue
2957 $   on warning then continue
2958 $   'Checkcc' temp.c
2959 $   If (Needs_Opt.eqs."Yes")
2960 $   THEN
2961 $     link temp.obj,temp.opt/opt
2962 $   else
2963 $     link temp.obj
2964 $   endif
2965 $   teststatus = f$extract(9,1,$status)
2966 $   DEASSIGN SYS$OUTPUT
2967 $   DEASSIGN SYS$ERROR
2968 $   if (teststatus.nes."1")
2969 $   THEN
2970 $     perl_d_getsent="undef"
2971 $   ELSE
2972 $     perl_d_getsent="define"
2973 $   ENDIF
2974 $ ELSE
2975 $ perl_d_getsent="undef"
2976 $ ENDIF
2977 $ WRITE_RESULT "d_getsent is ''perl_d_getsent'"
2978 $!
2979 $! Check for socklen_t
2980 $!
2981 $ if ("''Has_Dec_C_Sockets'".eqs."T").or.("''Has_Socketshr'".eqs."T")
2982 $ THEN
2983 $   OS
2984 $   WS "#ifdef __DECC
2985 $   WS "#include <stdlib.h>
2986 $   WS "#endif
2987 $   WS "#include <stdio.h>
2988 $   IF ("''Has_Socketshr'".eqs."T")
2989 $   THEN
2990 $     WS "#include <socketshr.h>"
2991 $   ELSE
2992 $     WS "#include <netdb.h>
2993 $   ENDIF
2994 $   WS "int main()
2995 $   WS "{"
2996 $   WS "socklen_t x = 16;
2997 $   WS "exit(0);
2998 $   WS "}"
2999 $   CS
3000 $   DEFINE SYS$ERROR _NLA0:
3001 $   DEFINE SYS$OUTPUT _NLA0:
3002 $   on error then continue
3003 $   on warning then continue
3004 $   'Checkcc' temp.c
3005 $   If (Needs_Opt.eqs."Yes")
3006 $   THEN
3007 $     link temp.obj,temp.opt/opt
3008 $   else
3009 $     link temp.obj
3010 $   endif
3011 $   teststatus = f$extract(9,1,$status)
3012 $   DEASSIGN SYS$OUTPUT
3013 $   DEASSIGN SYS$ERROR
3014 $   if (teststatus.nes."1")
3015 $   THEN
3016 $     perl_d_socklen_t="undef"
3017 $   ELSE
3018 $     perl_d_socklen_t="define"
3019 $   ENDIF
3020 $ ELSE
3021 $   perl_d_socklen_t="undef"
3022 $ ENDIF
3023 $ WRITE_RESULT "d_socklen_t is ''perl_d_socklen_t'"
3024 $!
3025 $! Check for pthread_yield
3026 $!
3027 $ if ("''use_threads'".eqs."T")
3028 $ THEN
3029 $ OS
3030 $ WS "#ifdef __DECC
3031 $ WS "#include <stdlib.h>
3032 $ WS "#endif
3033 $ WS "#include <pthread.h>
3034 $ WS "#include <stdio.h>
3035 $ WS "int main()
3036 $ WS "{"
3037 $ WS "pthread_yield();
3038 $ WS "exit(0);
3039 $ WS "}"
3040 $ CS
3041 $   DEFINE SYS$ERROR _NLA0:
3042 $   DEFINE SYS$OUTPUT _NLA0:
3043 $   on error then continue
3044 $   on warning then continue
3045 $   'Checkcc' temp.c
3046 $   teststatus = f$extract(9,1,$status)
3047 $   DEASSIGN SYS$OUTPUT
3048 $   DEASSIGN SYS$ERROR
3049 $   if (teststatus.nes."1")
3050 $   THEN
3051 $     perl_d_pthread_yield="undef"
3052 $   ELSE
3053 $     perl_d_pthread_yield="define"
3054 $   ENDIF
3055 $ ELSE
3056 $   perl_d_pthread_yield="undef"
3057 $ ENDIF
3058 $ WRITE_RESULT "d_pthread_yield is ''perl_d_pthread_yield'"
3059 $!
3060 $! Check for sched_yield
3061 $!
3062 $ if ("''use_threads'".eqs."T")
3063 $ THEN
3064 $ OS
3065 $ WS "#ifdef __DECC
3066 $ WS "#include <stdlib.h>
3067 $ WS "#endif
3068 $ WS "#include <pthread.h>
3069 $ WS "#include <stdio.h>
3070 $ WS "int main()
3071 $ WS "{"
3072 $ WS "sched_yield();
3073 $ WS "exit(0);
3074 $ WS "}"
3075 $ CS
3076 $   DEFINE SYS$ERROR _NLA0:
3077 $   DEFINE SYS$OUTPUT _NLA0:
3078 $   on error then continue
3079 $   on warning then continue
3080 $   'Checkcc' temp.c
3081 $   teststatus = f$extract(9,1,$status)
3082 $   DEASSIGN SYS$OUTPUT
3083 $   DEASSIGN SYS$ERROR
3084 $   if (teststatus.nes."1")
3085 $   THEN
3086 $     perl_d_sched_yield="undef"
3087 $     perl_sched_yield = " "
3088 $   ELSE
3089 $     perl_d_sched_yield="define"
3090 $     perl_sched_yield = "sched_yield"
3091 $   ENDIF
3092 $ ELSE
3093 $   perl_d_sched_yield="undef"
3094 $   perl_sched_yield = " "
3095 $ ENDIF
3096 $ WRITE_RESULT "d_sched_yield is ''perl_d_sched_yield'"
3097 $ WRITE_RESULT "sched_yield is ''perl_sched_yield'"
3098 $!
3099 $! Check for generic pointer size
3100 $!
3101 $ OS
3102 $ WS "#ifdef __DECC
3103 $ WS "#include <stdlib.h>
3104 $ WS "#endif
3105 $ WS "#include <stdio.h>
3106 $ WS "int main()
3107 $ WS "{"
3108 $ WS "int foo;
3109 $ WS "foo = sizeof(char *);
3110 $ WS "printf(""%d\n"", foo);
3111 $ WS "exit(0);
3112 $ WS "}"
3113 $ CS
3114 $ DEFINE SYS$ERROR _NLA0:
3115 $ DEFINE SYS$OUTPUT _NLA0:
3116 $ ON ERROR THEN CONTINUE
3117 $ ON WARNING THEN CONTINUE
3118 $ 'Checkcc' temp.c
3119 $ If (Needs_Opt.eqs."Yes")
3120 $ THEN
3121 $   link temp.obj,temp.opt/opt
3122 $ ELSE
3123 $   link temp.obj
3124 $ ENDIF
3125 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3126 $ DEASSIGN SYS$OUTPUT
3127 $ DEASSIGN SYS$ERROR
3128 $ DEFINE SYS$ERROR TEMPOUT
3129 $ DEFINE SYS$OUTPUT TEMPOUT
3130 $ mcr []temp.exe
3131 $ CLOSE TEMPOUT
3132 $ DEASSIGN SYS$OUTPUT
3133 $ DEASSIGN SYS$ERROR
3134 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3135 $ READ TEMPOUT line
3136 $ CLOSE TEMPOUT
3137 $ DELETE/NOLOG [-.uu]tempout.lis;
3138 $
3139 $ perl_ptrsize=line
3140 $ WRITE_RESULT "ptrsize is ''perl_ptrsize'"
3141 $!
3142 $! Check rand48 and its ilk
3143 $!
3144 $ OS
3145 $ WS "#ifdef __DECC
3146 $ WS "#include <stdlib.h>
3147 $ WS "#endif
3148 $ WS "#include <stdio.h>
3149 $ WS "int main()
3150 $ WS "{"
3151 $ WS "srand48(12L);"
3152 $ WS "exit(0);
3153 $ WS "}"
3154 $ CS
3155 $!
3156 $   DEFINE SYS$ERROR _NLA0:
3157 $   DEFINE SYS$OUTPUT _NLA0:
3158 $   ON ERROR THEN CONTINUE
3159 $   ON WARNING THEN CONTINUE
3160 $   'Checkcc' temp
3161 $   If (Needs_Opt.eqs."Yes")
3162 $   THEN
3163 $     link temp,temp.opt/opt
3164 $   else
3165 $     link temp
3166 $   endif
3167 $   teststatus = f$extract(9,1,$status)
3168 $   DEASSIGN SYS$OUTPUT
3169 $   DEASSIGN SYS$ERROR
3170 $   if (teststatus.nes."1")
3171 $   THEN
3172 $     perl_drand01="random()"
3173 $     perl_randseedtype = "unsigned"
3174 $     perl_seedfunc = "srandom"
3175 $   ENDIF
3176 $ OS
3177 $ WS "#ifdef __DECC
3178 $ WS "#include <stdlib.h>
3179 $ WS "#endif
3180 $ WS "#include <stdio.h>
3181 $ WS "int main()
3182 $ WS "{"
3183 $ WS "srandom(12);"
3184 $ WS "exit(0);
3185 $ WS "}"
3186 $ CS
3187 $! copy temp.c sys$output
3188 $!
3189 $   DEFINE SYS$ERROR _NLA0:
3190 $   DEFINE SYS$OUTPUT _NLA0:
3191 $   ON ERROR THEN CONTINUE
3192 $   ON WARNING THEN CONTINUE
3193 $   'Checkcc' temp
3194 $   If (Needs_Opt.eqs."Yes")
3195 $   THEN
3196 $     link temp,temp.opt/opt
3197 $   else
3198 $     link temp
3199 $   endif
3200 $   teststatus = f$extract(9,1,$status)
3201 $   DEASSIGN SYS$OUTPUT
3202 $   DEASSIGN SYS$ERROR
3203 $   if (teststatus.nes."1")
3204 $   THEN
3205 $     perl_drand01="(((float)rand())/((float)RAND_MAX))"
3206 $     perl_randseedtype = "unsigned"
3207 $     perl_seedfunc = "srand"
3208 $   ENDIF
3209 $ WRITE_RESULT "drand01 is ''perl_drand01'"
3210 $!
3211 $ set nover
3212 $! Done with compiler checks. Clean up.
3213 $ if f$search("temp.c").nes."" then DELETE/NOLOG temp.c;*
3214 $ if f$search("temp.obj").nes."" then DELETE/NOLOG temp.obj;*
3215 $ if f$search("temp.exe").nes."" then DELETE/NOLOG temp.exe;*
3216 $ if f$search("temp.opt").nes."" then DELETE/NOLOG Temp.opt;*
3217 $!
3218 $!
3219 $! Some that are compiler or VMS version sensitive
3220 $!
3221 $! Gnu C stuff
3222 $ IF "''Using_Gnu_C'".EQS."Yes"
3223 $ THEN
3224 $   perl_d_attribut="define"
3225 $   perl_vms_cc_type="gcc"
3226 $ ELSE
3227 $   perl_vms_cc_type="cc"
3228 $   perl_d_attribut="undef"
3229 $ ENDIF
3230 $
3231 $! Dec C >= 5.2 and VMS ver >= 7.0
3232 $ IF ("''Using_Dec_C'".EQS."Yes").AND.(F$INTEGER(Dec_C_Version).GE.50200000).AND.("''VMS_VER'".GES."7.0")
3233 $ THEN
3234 $ perl_d_bcmp="define"
3235 $ perl_d_gettimeod="define"
3236 $ perl_d_uname="define"
3237 $ perl_d_sigaction="define"
3238 $ perl_d_truncate="define"
3239 $ perl_d_wait4="define"
3240 $ perl_d_index="define"
3241 $ perl_pidtype="pid_t"
3242 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2 SPARE18 SPARE19 CHLD CONT STOP TSTP TTIN TTOU DEBUG SPARE27 SPARE28 SPARE29 SPARE30 SPARE31 SPARE32 RTMIN RTMAX"",0"
3243 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3244 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",""SPARE18"",""SPARE19"",""CHLD"",""CONT"",""STOP"",""TSTP"","
3245 $ psnwc3="""TTIN"",""TTOU"",""DEBUG"",""SPARE27"",""SPARE28"",""SPARE29"",""SPARE30"",""SPARE31"",""SPARE32"",""RTMIN"",""RTMAX"",0"
3246 $perl_sig_name_with_commas = psnwc1 + psnwc2 + psnwc3
3247 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 64"","0"
3248 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,64,0"
3249 $ perl_sig_num_with_commas=perl_sig_num_init
3250 $ perl_uidtype="uid_t"
3251 $ perl_d_pathconf="define"
3252 $ perl_d_fpathconf="define"
3253 $ perl_d_sysconf="define"
3254 $ perl_d_sigsetjmp="define"
3255 $ ELSE
3256 $ perl_pidtype="unsigned int"
3257 $ perl_d_gettimeod="undef"
3258 $ perl_d_bcmp="undef"
3259 $ perl_d_uname="undef"
3260 $ perl_d_sigaction="undef"
3261 $ perl_d_truncate="undef"
3262 $ perl_d_wait4="undef"
3263 $ perl_d_index="undef"
3264 $ perl_sig_name="ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM ABRT USR1 USR2"",0"
3265 $ psnwc1="""ZERO"",""HUP"",""INT"",""QUIT"",""ILL"",""TRAP"",""IOT"",""EMT"",""FPE"",""KILL"",""BUS"",""SEGV"",""SYS"","
3266 $ psnwc2="""PIPE"",""ALRM"",""TERM"",""ABRT"",""USR1"",""USR2"",0"
3267 $ perl_sig_name_with_commas = psnwc1 + psnwc2
3268 $ perl_sig_num="0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 6 16 17"",0"
3269 $ perl_sig_num_init="0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,6,16,17,0"
3270 $ perl_sig_num_with_commas=perl_sig_num_init
3271 $ perl_uidtype="unsigned int"
3272 $ perl_d_pathconf="undef"
3273 $ perl_d_fpathconf="undef"
3274 $ perl_d_sysconf="undef"
3275 $ perl_d_sigsetjmp="undef"
3276 $ ENDIF
3277 $!
3278 $! Dec C alone
3279 $ IF ("''Using_Dec_C'".EQS."Yes")
3280 $ THEN
3281 $ perl_d_mbstowcs="define"
3282 $ perl_d_mbtowc="define"
3283 $ perl_d_stdiobase="define"
3284 $ perl_d_stdio_ptr_lval="define"
3285 $ perl_d_stdio_cnt_lval="define"
3286 $ perl_d_stdstdio="define"
3287 $ perl_d_wcstombs="define"
3288 $ perl_d_mblen="define"
3289 $ perl_d_mktime="define"
3290 $ perl_d_strcoll="define"
3291 $ perl_d_strxfrm="define"
3292 $ perl_d_wctomb="define"
3293 $ perl_i_locale="define"
3294 $ perl_d_locconv="define"
3295 $ perl_d_setlocale="define"
3296 $ perl_vms_cc_type="decc"
3297 $ ELSE
3298 $ perl_d_mbstowcs="undef"
3299 $ perl_d_mbtowc="undef"
3300 $ perl_d_stdiobase="undef"
3301 $ perl_d_stdio_ptr_lval="undef"
3302 $ perl_d_stdio_cnt_lval="undef"
3303 $ perl_d_stdstdio="undef"
3304 $ perl_d_wcstombs="undef"
3305 $ perl_d_mblen="undef"
3306 $ perl_d_mktime="undef"
3307 $ perl_d_strcoll="undef"
3308 $ perl_d_strxfrm="undef"
3309 $ perl_d_wctomb="undef"
3310 $ perl_i_locale="undef"
3311 $ perl_d_locconv="undef"
3312 $ perl_d_setlocale="undef"
3313 $ ENDIF
3314 $!
3315 $! Vax C stuff
3316 $ if ("''Using_Vax_C'".EQS."Yes")
3317 $ THEN
3318 $ perl_vms_cc_type="vaxc"
3319 $ ENDIF
3320 $!
3321 $! Sockets?
3322 $ if ("''Has_Socketshr'".EQS."T").OR.("''Has_Dec_C_Sockets'".EQS."T")
3323 $ THEN
3324 $ perl_d_vms_do_sockets="define"
3325 $ perl_d_htonl="define"
3326 $ perl_d_socket="define"
3327 $ perl_d_select="define"
3328 $ perl_netdb_host_type="char *"
3329 $ perl_netdb_hlen_type="int"
3330 $ perl_netdb_name_type="char *"
3331 $ perl_netdb_net_type="long"
3332 $ perl_d_gethbyaddr="define"
3333 $ perl_d_gethbyname="define"
3334 $ perl_d_getnbyaddr="define"
3335 $ perl_d_getnbyname="define"
3336 $ perl_d_getpbynumber="define"
3337 $ perl_d_getpbyname="define"
3338 $ perl_d_getsbyport="define"
3339 $ perl_d_getsbyname="define"
3340 $ perl_d_gethostprotos="define"
3341 $ perl_d_getnetprotos="define"
3342 $ perl_d_getprotoprotos="define"
3343 $ perl_d_getservprotos="define"
3344 $ ELSE
3345 $ perl_d_vms_do_sockets="undef"
3346 $ perl_d_htonl="undef"
3347 $ perl_d_socket="undef"
3348 $ perl_d_select="undef"
3349 $ perl_netdb_host_type="char *"
3350 $ perl_netdb_hlen_type="int"
3351 $ perl_netdb_name_type="char *"
3352 $ perl_netdb_net_type="long"
3353 $ perl_d_gethbyaddr="undef"
3354 $ perl_d_gethbyname="undef"
3355 $ perl_d_getnbyaddr="undef"
3356 $ perl_d_getnbyname="undef"
3357 $ perl_d_getpbynumber="undef"
3358 $ perl_d_getpbyname="undef"
3359 $ perl_d_getsbyport="undef"
3360 $ perl_d_getsbyname="undef"
3361 $ perl_d_gethostprotos="undef"
3362 $ perl_d_getnetprotos="undef"
3363 $ perl_d_getprotoprotos="undef"
3364 $ perl_d_getservprotos="undef"
3365 $ ENDIF
3366 $! Threads
3367 $ if ("''use_threads'".eqs."T")
3368 $ THEN
3369 $   perl_usethreads="define"
3370 $   perl_d_pthreads_created_joinable="define"
3371 $   if ("''VMS_VER'".ges."7.0")
3372 $   THEN
3373 $     perl_d_oldpthreads="undef"
3374 $   ELSE
3375 $     perl_d_oldpthreads="define"
3376 $   ENDIF
3377 $ ELSE
3378 $   perl_d_oldpthreads="undef"
3379 $   perl_usethreads="undef"
3380 $
3381 $   perl_d_pthreads_created_joinable="undef"
3382 $ ENDIF
3383 $!
3384 $! new (5.005_62++) typedefs for primitives
3385 $!
3386 $ perl_ivtype="long"
3387 $ perl_uvtype="unsigned long"
3388 $ perl_i8type="char"
3389 $ perl_u8type="unsigned char"
3390 $ perl_i16type="short"
3391 $ perl_u16type="unsigned short"
3392 $ perl_i32type="int"
3393 $ perl_u32type="unsigned int"
3394 $ perl_i64type="long long"
3395 $ perl_u64type="unsigned long long"
3396 $ perl_nvtype="double"
3397 $!
3398 $ GOTO beyond_type_size_check
3399 $!
3400 $type_size_check:
3401 $!
3402 $! Check for type sizes
3403 $!
3404 $ OS
3405 $ WS "#ifdef __DECC
3406 $ WS "#include <stdlib.h>
3407 $ WS "#endif
3408 $ WS "#include <stdio.h>
3409 $ WS "int main()
3410 $ WS "{"
3411 $ WS "printf(""%d\n"", sizeof(''type'));"
3412 $ WS "exit(0);
3413 $ WS "}"
3414 $ CS
3415 $ DEFINE SYS$ERROR _NLA0:
3416 $ DEFINE SYS$OUTPUT _NLA0:
3417 $ ON ERROR THEN CONTINUE
3418 $ ON WARNING THEN CONTINUE
3419 $ 'Checkcc' temp.c
3420 $ If (Needs_Opt.eqs."Yes")
3421 $ THEN
3422 $   link temp.obj,temp.opt/opt
3423 $ ELSE
3424 $   link temp.obj
3425 $ ENDIF
3426 $ OPEN/WRITE TEMPOUT [-.uu]tempout.lis
3427 $ DEASSIGN SYS$OUTPUT
3428 $ DEASSIGN SYS$ERROR
3429 $ DEFINE SYS$ERROR TEMPOUT
3430 $ DEFINE SYS$OUTPUT TEMPOUT
3431 $ mcr []temp.exe
3432 $ CLOSE TEMPOUT
3433 $ DEASSIGN SYS$OUTPUT
3434 $ DEASSIGN SYS$ERROR
3435 $ OPEN/READ TEMPOUT [-.uu]tempout.lis
3436 $ READ TEMPOUT line
3437 $ CLOSE TEMPOUT
3438 $ DELETE/NOLOG [-.uu]tempout.lis;
3439 $ WRITE_RESULT "''size_name' is ''line'"
3440 $ DS
3441 $ RETURN
3442 $!
3443 $beyond_type_size_check:
3444 $!
3445 $ line = ""
3446 $ type = "''perl_ivtype'"
3447 $ size_name = "ivsize"
3448 $ gosub type_size_check
3449 $ perl_ivsize="''line'"
3450 $ IF type .eqs. "long"
3451 $ THEN perl_longsize = "''line'"
3452 $ ELSE
3453 $   type = "long"
3454 $   size_name = "longsize"
3455 $   gosub type_size_check
3456 $   perl_longsize="''line'"
3457 $ ENDIF
3458 $
3459 $ type = "''perl_uvtype'"
3460 $ size_name = "uvsize"
3461 $ gosub type_size_check
3462 $ perl_uvsize="''line'"
3463 $
3464 $ type = "''perl_i8type'"
3465 $ size_name = "i8size"
3466 $ gosub type_size_check
3467 $ perl_i8size="''line'"
3468 $
3469 $ type = "''perl_u8type'"
3470 $ size_name = "u8size"
3471 $ gosub type_size_check
3472 $ perl_u8size="''line'"
3473 $
3474 $ type = "''perl_i16type'"
3475 $ size_name = "i16size"
3476 $ gosub type_size_check
3477 $ perl_i16size="''line'"
3478 $ IF type .eqs. "short"
3479 $ THEN perl_shortsize="''line'"
3480 $ ELSE
3481 $   type = "''perl_i16type'"
3482 $   size_name = "shortsize"
3483 $   gosub type_size_check
3484 $   perl_shortsize="''line'"
3485 $ ENDIF
3486 $
3487 $ type = "''perl_u16type'"
3488 $ size_name = "u16size"
3489 $ gosub type_size_check
3490 $ perl_u16size="''line'"
3491 $
3492 $ type = "''perl_i32type'"
3493 $ size_name = "i32size"
3494 $ gosub type_size_check
3495 $ perl_i32size="''line'"
3496 $ IF type .eqs. "int"
3497 $ THEN perl_intsize="''perl_i32size'"
3498 $ ELSE
3499 $   type = "int"
3500 $   size_name = "intsize"
3501 $   gosub type_size_check
3502 $   perl_intsize="''line'"
3503 $ ENDIF
3504 $
3505 $ type = "''perl_u32type'"
3506 $ size_name = "u32size"
3507 $ gosub type_size_check
3508 $ perl_u32size="''line'"
3509 $
3510 $ type = "''perl_i64type'"
3511 $ size_name = "i64size"
3512 $ gosub type_size_check
3513 $ perl_i64size="''line'"
3514 $
3515 $ type = "''perl_u64type'"
3516 $ size_name = "u64size"
3517 $ gosub type_size_check
3518 $ perl_u64size="''line'"
3519 $!
3520 $ perl_ivdformat="""ld"""
3521 $ perl_uvuformat="""lu"""
3522 $ perl_uvoformat="""lo"""
3523 $ perl_uvxformat="""lx"""
3524 $!
3525 $! Finally the composite ones. All config
3526 $ perl_installarchlib="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3527 $ perl_installsitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3528 $ perl_myhostname="''myhostname'"
3529 $ perl_mydomain="''mydomain'"
3530 $ perl_perladmin="''perladmin'"
3531 $ perl_cf_email="''cf_email'"
3532 $ perl_myuname:="VMS ''myname' ''f$edit(perl_osvers, "TRIM")' ''f$edit(hwname, "TRIM")'"
3533 $ perl_archlibexp="''perl_prefix':[lib.''perl_arch'.''localperlver']"
3534 $ perl_archlib="''perl_prefix':[lib.''perl_arch'.''lovalperlver']"
3535 $ perl_oldarchlibexp="''perl_prefix':[lib.''perl_arch']"
3536 $ perl_oldarchlib="''perl_prefix':[lib.''perl_arch']"
3537 $ perl_sitearchexp="''perl_prefix':[lib.site_perl.''perl_arch']"
3538 $ perl_sitearch="''perl_prefix':[lib.site_perl.''perl_arch']"
3539 $ if "''Using_Dec_C'" .eqs. "Yes"
3540 $ THEN
3541 $ perl_ccflags="/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=''perl_obj_ext'/NoList''cc_flags'"
3542 $ ELSE
3543 $   IF "''Using_Vax_C'" .eqs. "Yes"
3544 $   THEN
3545 $     perl_ccflags="/Include=[]/Obj=''perl_obj_ext'/NoList''cc_flags'"
3546 $   ENDIF
3547 $ ENDIF
3548 $ if use_vmsdebug_perl .eqs. "Y"
3549 $ then
3550 $     perl_optimize="/Debug/NoOpt"
3551 $     perl_dbgprefix = "DBG"
3552 $ else
3553 $     perl_optimize= ""
3554 $     perl_dbgprefix = ""
3555 $ endif
3556 $!
3557 $! Finally clean off any leading zeros from the patchlevel or subversion
3558 $ perl_patchlevel = perl_patchlevel + 0
3559 $ perl_subversion = perl_subversion + 0
3560 $!
3561 $! Okay, we've got everything configured. Now go write out a config.sh.
3562 $ open/write CONFIGSH [-]config.sh
3563 $ WC := "write CONFIGSH"
3564 $!
3565 $ WC "# This file generated by Configure.COM on a VMS system."
3566 $ WC "# Time: " + perl_cf_time
3567 $ WC ""
3568 $ WC "CONFIGDOTSH=true"
3569 $ WC "package='" + perl_package + "'"
3570 $ WC "d_nv_preserves_uv='" + perl_d_nv_preserves_uv + "'"
3571 $ WC "use5005threads='" + perl_use5005threads + "'"
3572 $ WC "useithreads='" + perl_useithreads + "'"
3573 $ WC "CONFIG='" + perl_config + "'"
3574 $ WC "cf_time='" + perl_cf_time + "'"
3575 $ WC "cf_by='" + perl_cf_by+ "'"
3576 $ WC "cpp_stuff='" + perl_cpp_stuff + "'"
3577 $ WC "ccdlflags='" + perl_ccdlflags + "'"
3578 $ WC "cccdlflags='" + perl_cccdlflags + "'"
3579 $ WC "mab='" + perl_mab + "'"
3580 $ WC "libpth='" + perl_libpth + "'"
3581 $ WC "ld='" + perl_ld + "'"
3582 $ WC "lddlflags='" + perl_lddlflags + "'"
3583 $ WC "ranlib='" + perl_ranlib + "'"
3584 $ WC "ar='" + perl_ar + "'"
3585 $ WC "full_ar='" + perl_full_ar + "'"
3586 $ WC "eunicefix='" + perl_eunicefix + "'"
3587 $ WC "hint='" + perl_hint +"'"
3588 $ WC "hintfile='" + perl_hintfile + "'"
3589 $ WC "shrplib='" + perl_shrplib + "'"
3590 $ WC "usemymalloc='" + perl_usemymalloc + "'"
3591 $ WC "usevfork='" + perl_usevfork + "'"
3592 $ WC "useposix='false'"
3593 $ WC "spitshell='write sys$output '"
3594 $ WC "dlsrc='dl_vms.c'"
3595 $ WC "binexp='" + perl_binexp + "'"
3596 $ WC "man1ext='" + perl_man1ext + "'"
3597 $ WC "man3ext='" + perl_man3ext + "'"
3598 $ WC "arch='" + perl_arch + "'"
3599 $ WC "archname='" + perl_archname + "'"
3600 $ WC "osvers='" + perl_osvers + "'"
3601 $ WC "prefix='" + perl_prefix + "'"
3602 $ WC "builddir='" + perl_builddir + "'"
3603 $ WC "installbin='" + perl_installbin + "'"
3604 $ WC "installscript='" + perl_installscript + "'"
3605 $ WC "installman1dir='" + perl_installman1dir + "'"
3606 $ WC "installman3dir='" + perl_installman3dir + "'"
3607 $ WC "installprivlib='" + perl_installprivlib + "'"
3608 $ WC "installarchlib='" + perl_installarchlib + "'"
3609 $ WC "installsitelib='" + perl_installsitelib + "'"
3610 $ WC "installsitearch='" + perl_installsitearch + "'"
3611 $ WC "path_sep='" + perl_path_sep + "'"
3612 $ WC "vms_cc_type='" + perl_vms_cc_type + "'"
3613 $ WC "d_attribut='" + perl_d_attribut + "'"
3614 $ WC "cc='" + perl_cc + "'"
3615 $ WC "ccflags='" + perl_ccflags + "'"
3616 $ WC "optimize='" + perl_optimize + "'"
3617 $ WC "dbgprefix='" + perl_dbgprefix + "'"
3618 $ WC "d_vms_do_sockets='" + perl_d_vms_do_sockets + "'"
3619 $ WC "d_socket='" + perl_d_socket + "'"
3620 $ WC "d_sockpair='" + perl_d_sockpair + "'"
3621 $ WC "d_gethent='" + perl_d_gethent + "'"
3622 $ WC "d_getsent='" + perl_d_getsent + "'"
3623 $ WC "d_socklen_t='" + perl_d_socklen_t + "'"
3624 $ WC "d_select='" + perl_d_select + "'"
3625 $ WC "i_niin='" + perl_i_niin + "'"
3626 $ WC "i_netinettcp='" + perl_i_netinettcp + "'"
3627 $ WC "i_neterrno='" + perl_i_neterrno + "'"
3628 $ WC "d_stdstdio='" + perl_d_stdstdio + "'"
3629 $ WC "d_stdio_ptr_lval='" + perl_d_stdio_ptr_lval + "'"
3630 $ WC "d_stdio_cnt_lval='" + perl_d_stdio_cnt_lval + "'"
3631 $ WC "d_stdiobase='" + perl_d_stdiobase + "'"
3632 $ WC "d_locconv='" + perl_d_locconv + "'"
3633 $ WC "d_setlocale='" + perl_d_setlocale + "'"
3634 $ WC "i_locale='" + perl_i_locale + "'"
3635 $ WC "d_mbstowcs='" + perl_d_mbstowcs + "'"
3636 $ WC "d_mbtowc='" + perl_d_mbtowc + "'"
3637 $ WC "d_wcstombs='" + perl_d_wcstombs + "'"
3638 $ WC "d_wctomb='" + perl_d_wctomb + "'"
3639 $ WC "d_mblen='" + perl_d_mblen + "'"
3640 $ WC "d_mktime='" + perl_d_mktime + "'"
3641 $ WC "d_strcoll='" + perl_d_strcoll + "'"
3642 $ WC "d_strxfrm='" + perl_d_strxfrm  + "'"
3643 $ WC "ldflags='" + perl_ldflags + "'"
3644 $ WC "dlobj='" + perl_dlobj + "'"
3645 $ WC "obj_ext='" + perl_obj_ext + "'"
3646 $ WC "so='" + perl_so + "'"
3647 $ WC "dlext='" + perl_dlext + "'"
3648 $ WC "exe_ext='" + perl_exe_ext + "'"
3649 $ WC "lib_ext='" + perl_lib_ext + "'"
3650 $ WC "myhostname='" + perl_myhostname + "'"
3651 $ WC "mydomain='" + perl_mydomain + "'"
3652 $ WC "perladmin='" + perl_perladmin + "'"
3653 $ WC "cf_email='" + perl_cf_email + "'"
3654 $ WC "myuname='" + perl_myuname + "'"
3655 $ WC "alignbytes='" + perl_alignbytes + "'"
3656 $ WC "osname='" + perl_osname + "'"
3657 $ WC "d_archlib='" + perl_d_archlib + "'"
3658 $ WC "archlibexp='" + perl_archlibexp + "'"
3659 $ WC "archlib='" + perl_archlib + "'"
3660 $ WC "archname='" + perl_archname + "'"
3661 $ WC "d_bincompat3='" + perl_d_bincompat3 + "'"
3662 $ WC "cppstdin='" + perl_cppstdin + "'"
3663 $ WC "cppminus='" + perl_cppminus + "'"
3664 $ WC "d_bcmp='" + perl_d_bcmp + "'"
3665 $ WC "d_bcopy='" + perl_d_bcopy + "'"
3666 $ WC "d_bzero='" + perl_d_bzero + "'"
3667 $ WC "d_castneg='" + perl_d_castneg + "'"
3668 $ WC "castflags='" + perl_castflags + "'"
3669 $ WC "d_chsize='" + perl_d_chsize + "'"
3670 $ WC "d_const='" + perl_d_const + "'"
3671 $ WC "d_crypt='" + perl_d_crypt + "'"
3672 $ WC "byteorder='" + perl_byteorder + "'"
3673 $ WC "full_csh='" + perl_full_csh + "'"
3674 $ WC "d_csh='" + perl_d_csh + "'"
3675 $ WC "d_dup2='" + perl_d_dup2 + "'"
3676 $ WC "d_fchmod='" + perl_d_fchmod + "'"
3677 $ WC "d_fchown='" + perl_d_fchown + "'"
3678 $ WC "d_fcntl='" + perl_d_fcntl + "'"
3679 $ WC "d_fgetpos='" + perl_d_fgetpos + "'"
3680 $ WC "d_flexfnam='" + perl_d_flexfnam + "'"
3681 $ WC "d_flock='" + perl_d_flock + "'"
3682 $ WC "d_fsetpos='" + perl_d_fsetpos + "'"
3683 $ WC "d_gettimeod='" + perl_d_gettimeod + "'"
3684 $ WC "d_getgrps='" + perl_d_getgrps + "'"
3685 $ WC "d_setgrps='" + perl_d_setgrps + "'"
3686 $ WC "d_uname='" + perl_d_uname + "'"
3687 $ WC "d_getprior='" + perl_d_getprior + "'"
3688 $ WC "d_killpg='" + perl_d_killpg + "'"
3689 $ WC "d_link='" + perl_d_link + "'"
3690 $ WC "d_lstat='" + perl_d_lstat + "'"
3691 $ WC "d_lockf='" + perl_d_lockf + "'"
3692 $ WC "d_memcmp='" + perl_d_memcmp + "'"
3693 $ WC "d_memcpy='" + perl_d_memcpy + "'"
3694 $ WC "d_memmove='" + perl_d_memmove + "'"
3695 $ WC "d_memset='" + perl_d_memset + "'"
3696 $ WC "d_mkdir='" + perl_d_mkdir + "'"
3697 $ WC "d_msg='" + perl_d_msg + "'"
3698 $ WC "d_open3='" + perl_d_open3 + "'"
3699 $ WC "d_poll='" + perl_d_poll + "'"
3700 $ WC "d_readdir='" + perl_d_readdir + "'"
3701 $ WC "d_seekdir='" + perl_d_seekdir + "'"
3702 $ WC "d_telldir='" + perl_d_telldir + "'"
3703 $ WC "d_rewinddir='" + perl_d_rewinddir + "'"
3704 $ WC "d_rename='" + perl_d_rename + "'"
3705 $ WC "d_rmdir='" + perl_d_rmdir + "'"
3706 $ WC "d_sem='" + perl_d_sem + "'"
3707 $ WC "d_setegid='" + perl_d_setegid + "'"
3708 $ WC "d_seteuid='" + perl_d_seteuid + "'"
3709 $ WC "d_setprior='" + perl_d_setprior + "'"
3710 $ WC "d_setregid='" + perl_d_setregid + "'"
3711 $ WC "d_setresgid='" + perl_d_setresgid + "'"
3712 $ WC "d_setreuid='" + perl_d_setreuid + "'"
3713 $ WC "d_setresuid='" + perl_d_setresuid + "'"
3714 $ WC "d_setrgid='" + perl_d_setrgid + "'"
3715 $ WC "d_setruid='" + perl_d_setruid + "'"
3716 $ WC "d_setsid='" + perl_d_setsid + "'"
3717 $ WC "d_shm='" + perl_d_shm + "'"
3718 $ WC "d_shmatprototype='" + perl_d_shmatprototype + "'"
3719 $ WC "d_sigaction='" + perl_d_sigaction + "'"
3720 $ WC "d_statblks='" + perl_d_statblks + "'"
3721 $ WC "stdio_ptr='" + perl_stdio_ptr + "'"
3722 $ WC "stdio_cnt='" + perl_stdio_cnt + "'"
3723 $ WC "stdio_base='" + perl_stdio_base + "'"
3724 $ WC "stdio_bufsiz='" + perl_stdio_bufsiz + "'"
3725 $ WC "d_strctcpy='" + perl_d_strctcpy + "'"
3726 $ WC "d_strerror='" + perl_d_strerror + "'"
3727 $ WC "d_syserrlst='" + perl_d_syserrlst + "'"
3728 $ WC "d_strerrm='" + perl_d_strerrm + "'"
3729 $ WC "d_symlink='" + perl_d_symlink + "'"
3730 $ WC "d_syscall='" + perl_d_syscall + "'"
3731 $ WC "d_system='" + perl_d_system + "'"
3732 $ WC "timetype='" + perl_timetype + "'"
3733 $ WC "d_truncate='" + perl_d_truncate + "'"
3734 $ WC "d_vfork='" + perl_d_vfork + "'"
3735 $ WC "signal_t='" + perl_signal_t + "'"
3736 $ WC "d_volatile='" + perl_d_volatile + "'"
3737 $ WC "d_vprintf='" + perl_d_vprintf + "'"
3738 $ WC "d_charvspr='" + perl_d_charvspr + "'"
3739 $ WC "d_wait4='" + perl_d_wait4 + "'"
3740 $ WC "d_waitpid='" + perl_d_waitpid + "'"
3741 $ WC "i_dirent='" + perl_i_dirent + "'"
3742 $ WC "d_dirnamlen='" + perl_d_dirnamlen + "'"
3743 $ WC "direntrytype='" + perl_direntrytype + "'"
3744 $ WC "i_fcntl='" + perl_i_fcntl + "'"
3745 $ WC "i_grp='" + perl_i_grp + "'"
3746 $ WC "i_limits='" + perl_i_limits + "'"
3747 $ WC "i_memory='" + perl_i_memory + "'"
3748 $ WC "i_ndbm='" + perl_i_ndbm + "'"
3749 $ WC "i_stdarg='" + perl_i_stdarg + "'"
3750 $ WC "i_pwd='" + perl_i_pwd + "'"
3751 $ WC "d_pwquota='" + perl_d_pwquota + "'"
3752 $ WC "d_pwage='" + perl_d_pwage + "'"
3753 $ WC "d_pwchange='" + perl_d_pwchange + "'"
3754 $ WC "d_pwclass='" + perl_d_pwclass + "'"
3755 $ WC "d_pwexpire='" + perl_d_pwexpire + "'"
3756 $ WC "d_pwcomment='" + perl_d_pwcomment + "'"
3757 $ WC "i_stddef='" + perl_i_stddef + "'"
3758 $ WC "i_stdlib='" + perl_i_stdlib + "'"
3759 $ WC "i_string='" + perl_i_string + "'"
3760 $ WC "i_sysdir='" + perl_i_sysdir + "'"
3761 $ WC "i_sysfile='" + perl_i_sysfile + "'"
3762 $ WC "i_sysioctl='" + perl_i_sysioctl + "'"
3763 $ WC "i_sysndir='" + perl_i_sysndir + "'"
3764 $ WC "i_sysresrc='" + perl_i_sysresrc + "'"
3765 $ WC "i_sysselct='" + perl_i_sysselct + "'"
3766 $ WC "i_dbm='" + perl_i_dbm + "'"
3767 $ WC "i_rpcsvcdbm='" + perl_i_rpcsvcdbm + "'"
3768 $ WC "i_sfio='" + perl_i_sfio + "'"
3769 $ WC "i_sysstat='" + perl_i_sysstat + "'"
3770 $ WC "i_systimes='" + perl_i_systimes + "'"
3771 $ WC "i_systypes='" + perl_i_systypes + "'"
3772 $ WC "i_sysun='" + perl_i_sysun + "'"
3773 $ WC "i_syswait='" + perl_i_syswait + "'"
3774 $ WC "i_termio='" + perl_i_termio + "'"
3775 $ WC "i_sgtty='" + perl_i_sgtty + "'"
3776 $ WC "i_termios='" + perl_i_termios + "'"
3777 $ WC "i_time='" + perl_i_time + "'"
3778 $ WC "i_systime='" + perl_i_systime + "'"
3779 $ WC "i_systimek='" + perl_i_systimek + "'"
3780 $ WC "i_unistd='" + perl_i_unistd + "'"
3781 $ WC "i_utime='" + perl_i_utime + "'"
3782 $ WC "i_varargs='" + perl_i_varargs + "'"
3783 $ WC "i_vfork='" + perl_i_vfork + "'"
3784 $ WC "prototype='" + perl_prototype + "'"
3785 $ WC "randbits='" + perl_randbits +"'"
3786 $ WC "selecttype='" + perl_selecttype + "'"
3787 $ WC "stdchar='" + perl_stdchar + "'"
3788 $ WC "d_unlink_all_versions='" + perl_d_unlink_all_versions + "'"
3789 $ WC "full_sed='" + perl_full_sed + "'"
3790 $ WC "bin='" + perl_bin + "'"
3791 $ WC "binexp='" + perl_binexp + "'"
3792 $ WC "d_alarm='" + perl_d_alarm + "'"
3793 $ WC "d_casti32='" + perl_d_casti32 + "'"
3794 $ WC "d_chown='" + perl_d_chown + "'"
3795 $ WC "d_chroot='" + perl_d_chroot + "'"
3796 $ WC "d_cuserid='" + perl_d_cuserid + "'"
3797 $ WC "d_dbl_dig='" + perl_d_dbl_dig + "'"
3798 $ WC "d_ldbl_dig='" + perl_d_ldbl_dig + "'"
3799 $ WC "d_difftime='" + perl_d_difftime + "'"
3800 $ WC "d_fork='" + perl_d_fork + "'"
3801 $ WC "d_getlogin='" + perl_d_getlogin + "'"
3802 $ WC "d_getppid='" + perl_d_getppid + "'"
3803 $ WC "d_htonl='" + perl_d_htonl + "'"
3804 $ WC "d_nice='" + perl_d_nice + "'"
3805 $ WC "d_pause='" + perl_d_pause + "'"
3806 $ WC "d_pipe='" + perl_d_pipe + "'"
3807 $ WC "d_readlink='" + perl_d_readlink + "'"
3808 $ WC "d_setlinebuf='" + perl_d_setlinebuf + "'"
3809 $ WC "d_strchr='" + perl_d_strchr + "'"
3810 $ WC "d_index='" + perl_d_index + "'"
3811 $ WC "d_strtod='" + perl_d_strtod + "'"
3812 $ WC "d_strtol='" + perl_d_strtol + "'"
3813 $ WC "d_strtoul='" + perl_d_strtoul + "'"
3814 $ WC "d_tcgetpgrp='" + perl_d_tcgetpgrp + "'"
3815 $ WC "d_tcsetpgrp='" + perl_d_tcsetpgrp + "'"
3816 $ WC "d_times='" + perl_d_times + "'"
3817 $ WC "d_tzname='" + perl_d_tzname + "'"
3818 $ WC "d_umask='" + perl_d_umask + "'"
3819 $ WC "fpostype='" + perl_fpostype + "'"
3820 $ WC "i_dlfcn='" + perl_i_dlfcn + "'"
3821 $ WC "i_float='" + perl_i_float + "'"
3822 $ WC "i_math='" + perl_i_math + "'"
3823 $ WC "intsize='" + perl_intsize + "'"
3824 $ WC "longsize='" + perl_longsize + "'"
3825 $ WC "shortsize='" + perl_shortsize + "'"
3826 $ WC "lseektype='" + perl_lseektype + "'"
3827 $ WC "lseeksize='4'"
3828 $ WC "i_values='" + perl_i_values + "'"
3829 $ WC "malloctype='" + perl_malloctype + "'"
3830 $ WC "freetype='" + perl_freetype + "'"
3831 $ WC "d_mymalloc='" + perl_d_mymalloc + "'"
3832 $ WC "sh='" + perl_sh + "'"
3833 $ WC "sig_name='" + perl_sig_name + "'"
3834 $ WC "sig_num='" + perl_sig_num + "'"
3835 $ tempsym = "sig_name_init='" + perl_sig_name_with_commas + "'"
3836 $ WC/symbol tempsym
3837 $ WC "modetype='" + perl_modetype + "'"
3838 $ WC "ssizetype='" + perl_ssizetype + "'"
3839 $ WC "o_nonblock='" + perl_o_nonblock + "'"
3840 $ WC "eagain='" + perl_eagain + "'"
3841 $ WC "rd_nodata='" + perl_rd_nodata + "'"
3842 $ WC "d_eofnblk='" + perl_d_eofnblk + "'"
3843 $ WC "d_oldarchlib='" + perl_d_oldarchlib + "'"
3844 $ WC "oldarchlibexp='" + perl_oldarchlibexp + "'"
3845 $ WC "oldarchlib='" + perl_oldarchlib + "'"
3846 $ WC "privlibexp='" + perl_privlibexp + "'"
3847 $ WC "privlib='" + perl_privlib + "'"
3848 $ WC "sitelibexp='" + perl_sitelibexp + "'"
3849 $ WC "sitelib='" + perl_sitelib + "'"
3850 $ WC "sitearchexp='" + perl_sitearchexp + "'"
3851 $ WC "sitearch='" + perl_sitearch + "'"
3852 $ WC "sizetype='" + perl_sizetype + "'"
3853 $ WC "i_sysparam='" + perl_i_sysparam + "'"
3854 $ WC "d_void_closedir='" + perl_d_void_closedir + "'"
3855 $ WC "d_dlerror='" + perl_d_dlerror + "'"
3856 $ WC "d_dlsymun='" + perl_d_dlsymun + "'"
3857 $ WC "d_suidsafe='" + perl_d_suidsafe + "'"
3858 $ WC "d_dosuid='" + perl_d_dosuid + "'"
3859 $ WC "d_inetaton='" + perl_d_inetaton + "'"
3860 $ WC "d_int64_t='" + perl_d_int64_t + "'"
3861 $ WC "d_isascii='" + perl_d_isascii + "'"
3862 $ WC "d_mkfifo='" + perl_d_mkfifo + "'"
3863 $ WC "d_pathconf='" + perl_d_pathconf + "'"
3864 $ WC "d_fpathconf='" + perl_d_fpathconf + "'"
3865 $ WC "d_safebcpy='" + perl_d_safebcpy + "'"
3866 $ WC "d_safemcpy='" + perl_d_safemcpy + "'"
3867 $ WC "d_sanemcmp='" + perl_d_sanemcmp + "'"
3868 $ WC "d_setpgrp='" + perl_d_setpgrp + "'"
3869 $ WC "d_bsdsetpgrp='" + perl_d_bsdsetpgrp + "'"
3870 $ WC "d_bsdpgrp='" + perl_d_bsdpgrp + "'"
3871 $ WC "d_setpgid='" + perl_d_setpgid + "'"
3872 $ WC "d_setpgrp2='" + perl_d_setpgrp2 + "'"
3873 $ WC "d_sysconf='" + perl_d_sysconf + "'"
3874 $ WC "d_Gconvert='" + perl_d_Gconvert + "'"
3875 $ WC "d_getpgid='" + perl_d_getpgid + "'"
3876 $ WC "d_getpgrp='" + perl_d_getpgrp + "'"
3877 $ WC "d_bsdgetpgrp='" + perl_d_bsdgetpgrp + "'"
3878 $ WC "d_getpgrp2='" + perl_d_getpgrp2 + "'"
3879 $ WC "d_sfio='" + perl_d_sfio + "'"
3880 $ WC "d_sigsetjmp='" + perl_d_sigsetjmp + "'"
3881 $ WC "usedl='" + perl_usedl + "'"
3882 $ WC "startperl=" + perl_startperl ! This one's special--no enclosing single quotes
3883 $ WC "db_hashtype='" + perl_db_hashtype + "'"
3884 $ WC "db_prefixtype='" + perl_db_prefixtype + "'"
3885 $ WC "useperlio='" + perl_useperlio + "'"
3886 $ WC "defvoidused='" + perl_defvoidused + "'"
3887 $ WC "voidflags='" + perl_voidflags + "'"
3888 $ WC "d_eunice='" + perl_d_eunice + "'"
3889 $ WC "libs='" + perl_libs + "'"
3890 $ WC "libc='" + perl_libc + "'"
3891 $ tempstring = "PERL_VERSION='" + "''perl_patchlevel'" + "'"
3892 $ WC tempstring
3893 $ tempstring = "PERL_SUBVERSION='" + "''perl_patchlevel'" + "'"
3894 $ WC tempstring
3895 $ tempstring = "PATCHLEVEL='" + "''perl_patchlevel'" + "'"
3896 $ WC tempstring
3897 $ tempstring = "SUBVERSION='" + "''perl_SUBVERSION'" + "'"
3898 $ WC tempstring
3899 $ WC "pager='" + perl_pager + "'"
3900 $ WC "uidtype='" + perl_uidtype + "'"
3901 $ WC "gidtype='" + perl_gidtype + "'"
3902 $ WC "usethreads='" + perl_usethreads + "'"
3903 $ WC "d_pthread_yield='" + perl_d_pthread_yield + "'"
3904 $ WC "d_pthreads_created_joinable='" + perl_d_pthreads_created_joinable + "'"
3905 $ WC "d_gnulibc='" + perl_d_gnulibc + "'"
3906 $ WC "i_netdb='" + perl_i_netdb + "'"
3907 $ WC "pidtype='" + perl_pidtype + "'"
3908 $ WC "netdb_host_type='" + perl_netdb_host_type + "'"
3909 $ WC "netdb_hlen_type='" + perl_netdb_hlen_type + "'"
3910 $ WC "netdb_name_type='" + perl_netdb_name_type + "'"
3911 $ WC "netdb_net_type='" + perl_netdb_net_type + "'"
3912 $ WC "baserev='" + perl_baserev + "'"
3913 $ WC "doublesize='" + perl_doublesize + "'"
3914 $ WC "ptrsize='" + perl_ptrsize + "'"
3915 $ WC "d_gethbyaddr='" + perl_d_gethbyaddr + "'"
3916 $ WC "d_gethbyname='" + perl_d_gethbyname + "'"
3917 $ WC "d_getnbyaddr='" + perl_d_getnbyaddr + "'"
3918 $ WC "d_getnbyname='" + perl_d_getnbyname + "'"
3919 $ WC "d_getpbynumber='" + perl_d_getpbynumber + "'"
3920 $ WC "d_getpbyname='" + perl_d_getpbyname + "'"
3921 $ WC "d_getsbyport='" + perl_d_getsbyport + "'"
3922 $ WC "d_getsbyname='" + perl_d_getsbyname + "'"
3923 $ WC "d_sethent='" + perl_d_sethent + "'"
3924 $ WC "d_oldpthreads='" + perl_d_oldpthreads + "'"
3925 $ WC "d_longdbl='" + perl_d_longdbl + "'"
3926 $ WC "longdblsize='" + perl_longdblsize + "'"
3927 $ WC "d_longlong='" + perl_d_longlong + "'"
3928 $ WC "longlongsize='" + perl_longlongsize + "'"
3929 $ WC "d_mkstemp='" + perl_d_mkstemp + "'"
3930 $ WC "d_mkstemps='" + perl_d_mkstemps + "'"
3931 $ WC "d_mkdtemp='" + perl_d_mkdtemp + "'"
3932 $ WC "d_setvbuf='" + perl_d_setvbuf + "'"
3933 $ WC "d_setenv='" + perl_d_setenv + "'"
3934 $ WC "d_endhent='" + perl_d_endhent + "'"
3935 $ WC "d_endnent='" + perl_d_endsent + "'"
3936 $ WC "d_endpent='" + perl_d_endpent + "'"
3937 $ WC "d_endsent='" + perl_d_endsent + "'"
3938 $ WC "d_gethent='" + perl_d_gethent + "'"
3939 $ WC "d_getnent='" + perl_d_getsent + "'"
3940 $ WC "d_getpent='" + perl_d_getpent + "'"
3941 $ WC "d_getsent='" + perl_d_getsent + "'"
3942 $ WC "d_sethent='" + perl_d_sethent + "'"
3943 $ WC "d_setnent='" + perl_d_setsent + "'"
3944 $ WC "d_setpent='" + perl_d_setpent + "'"
3945 $ WC "ebcdic='" + perl_ebcdic + "'"
3946 $ WC "d_setsent='" + perl_d_setsent + "'"
3947 $ WC "d_gethostprotos='" + perl_d_gethostprotos + "'"
3948 $ WC "d_getnetprotos='" + perl_d_getnetprotos + "'"
3949 $ WC "d_getprotoprotos='" + perl_d_getprotoprotos + "'"
3950 $ WC "d_getservprotos='" + perl_d_getservprotos + "'"
3951 $ WC "d_pwgecos='" + perl_d_pwgecos + "'"
3952 $ WC "d_sched_yield='" + perl_d_sched_yield + "'"
3953 $ WC "d_lchown='" + perl_d_lchown + "'"
3954 $ WC "d_union_semun='" + perl_d_union_semun + "'"
3955 $ WC "i_arpainet='" + perl_i_arpainet + "'"
3956 $ WC "d_grpasswd='" + perl_d_grpasswd + "'"
3957 $ WC "d_setgrent='" + perl_d_setgrent + "'"
3958 $ WC "d_getgrent='" + perl_d_getgrent + "'"
3959 $ WC "d_endgrent='" + perl_d_endgrent + "'"
3960 $ WC "d_pwpasswd='" + perl_d_pwpasswd + "'"
3961 $ WC "d_setpwent='" + perl_d_setpwent + "'"
3962 $ WC "d_getpwent='" + perl_d_getpwent + "'"
3963 $ WC "d_endpwent='" + perl_d_endpwent + "'"
3964 $ WC "d_semctl_semun='" + perl_d_semctl_semun + "'"
3965 $ WC "d_semctl_semid_ds='" + perl_d_semctl_semid_ds + "'"
3966 $ WC "extensions='" + perl_extensions + "'"
3967 $ WC "known_extensions='" + perl_known_extensions + "'"
3968 $ WC "static_ext='" + "'"
3969 $ WC "dynamic_ext='" + perl_extensions + "'"
3970 $ WC "d_mknod='" + perl_d_mknod + "'"
3971 $ WC "devtype='" + perl_devtype + "'"
3972 $ WC "d_gethname='" + perl_d_gethname + "'"
3973 $ WC "d_phostname='" + perl_d_phostname + "'"
3974 $ WC "d_accessx='" + perl_d_accessx + "'"
3975 $ WC "d_eaccess='" + perl_d_eaccess + "'"
3976 $ WC "i_sysaccess='" + perl_i_sysaccess + "'"
3977 $ WC "i_syssecrt='" + perl_i_syssecrt + "'"
3978 $ WC "d_fd_set='" + perl_d_fd_set + "'"
3979 $ WC "d_access='" + perl_d_access + "'"
3980 $ WC "d_msg_ctrunc='" + perl_d_msg_ctrunc + "'"
3981 $ WC "d_msg_dontroute='" + perl_d_msg_dontroute + "'"
3982 $ WC "d_msg_oob='" + perl_d_msg_oob + "'"
3983 $ WC "d_msg_peek='" + perl_d_msg_peek + "'"
3984 $ WC "d_msg_proxy='" + perl_d_msg_proxy + "'"
3985 $ WC "d_scm_rights='" + perl_d_scm_rights + "'"
3986 $ WC "d_sendmsg='" + perl_d_sendmsg + "'"
3987 $ WC "d_recvmsg='" + perl_d_recvmsg + "'"
3988 $ WC "d_msghdr_s='" + perl_d_msghdr_s + "'"
3989 $ WC "d_cmsghdr_s='" + perl_d_cmsghdr_s + "'"
3990 $ WC "i_sysuio='" + perl_i_sysuio + "'"
3991 $ WC "d_fseeko='" + perl_d_fseeko + "'"
3992 $ WC "d_ftello='" + perl_d_ftello + "'"
3993 $ WC "d_readv='" + perl_d_readv + "'"
3994 $ WC "d_writev='" + perl_d_writev + "'"
3995 $ WC "i_machcthr='" + perl_i_machcthr + "'"
3996 $ WC "usemultiplicity='" + perl_usemultiplicity + "'"
3997 $ WC "i_poll='" + perl_i_poll + "'"
3998 $ WC "i_inttypes='" + perl_i_inttypes + "'"
3999 $ WC "d_off64_t='" + perl_d_off64_t + "'"
4000 $ WC "d_fpos64_t='" + perl_d_fpos64_t + "'"
4001 $ WC "use64bits='" + perl_use64bits + "'"
4002 $ WC "d_drand48proto='" + perl_d_drand48proto + "'"
4003 $ WC "d_old_pthread_create_joinable='" + perl_d_old_pthread_create_joinable + "'"
4004 $ WC "old_pthread_create_joinable='" + perl_old_pthread_create_joinable + "'"
4005 $ WC "drand01='" + perl_drand01 + "'"
4006 $ WC "randseedtype='" + perl_randseedtype + "'"
4007 $ WC "seedfunc='" + perl_seedfunc + "'"
4008 $ WC "sig_num_init='" + perl_sig_num_with_commas + "'"
4009 $ WC "i_sysmount='" + perl_i_sysmount + "'"
4010 $ WC "d_fstatfs='" + perl_d_fstatfs + "'"
4011 $ WC "d_memchr='" + perl_d_memchr + "'"
4012 $ WC "d_statfsflags='" + perl_d_statfsflags + "'"
4013 $ WC "fflushNULL='define'"
4014 $ WC "fflushall='undef'"
4015 $ WC "d_stdio_stream_array='undef'"
4016 $ WC "i_sysstatvfs='" + perl_i_sysstatvfs + "'"
4017 $ WC "i_syslog='" + perl_i_syslog + "'"
4018 $ WC "i_sysmode='" + perl_i_sysmode + "'"
4019 $ WC "i_sysutsname='" + perl_i_sysutsname + "'"
4020 $ WC "i_machcthreads='" + perl_i_machcthreads + "'"
4021 $ WC "i_pthread='" + perl_i_pthread + "'"
4022 $ WC "d_fstatvfs='" + perl_d_fstatvfs + "'"
4023 $ WC "i_mntent='" + perl_i_mntent + "'"
4024 $ WC "d_getmntent='" + perl_d_getmntent + "'"
4025 $ WC "d_hasmntopt='" + perl_d_hasmntopt + "'"
4026 $ WC "d_telldirproto='" + perl_d_telldirproto + "'"
4027 $ WC "d_madvise='" + perl_d_madvise + "'"
4028 $ WC "d_msync='" + perl_d_msync + "'"
4029 $ WC "d_mprotect='" + perl_d_mprotect + "'"
4030 $ WC "d_munmap='" + perl_d_munmap + "'"
4031 $ WC "d_mmap='" + perl_d_mmap + "'"
4032 $ WC "i_sysmman='" + perl_i_sysmman + "'"
4033 $ WC "installusrbinperl='" + perl_installusrbinperl + "'"
4034 $! WC "selectminbits='" + perl_selectminbits + "'"
4035 $ WC "crosscompile='" + perl_crosscompile + "'"
4036 $ WC "multiarch='" + perl_multiarch + "'"
4037 $ WC "sched_yield='" + perl_sched_yield + "'"
4038 $ WC "d_strtoull='" + perl_d_strtoull + "'"
4039 $ WC "d_strtouq='" + perl_d_strtouq + "'"
4040 $ WC "d_strtoll='" + perl_d_strtoll + "'"
4041 $ WC "d_strtold='" + perl_d_strtold + "'"
4042 $ WC "usesocks='" + perl_usesocks + "'"
4043 $ WC "d_vendorlib='" + perl_d_vendorlib + "'"
4044 $ WC "vendorlibexp='" + perl_vendorlibexp + "'"
4045 $ WC "d_atolf='" + perl_d_atolf + "'"
4046 $ WC "d_atoll='" + perl_d_atoll + "'"
4047 $ WC "d_bincompat5005='" + perl_d_bincompat + "'"
4048 $ WC "d_endspent='" + perl_d_endspent + "'"
4049 $ WC "d_getspent='" + perl_d_getspent + "'"
4050 $ WC "d_getspnam='" + perl_d_getspnam + "'"
4051 $ WC "d_setspent='" + perl_d_setspent + "'"
4052 $ WC "i_shadow='" + perl_i_shadow + "'"
4053 $ WC "i_socks='" + perl_i_socks + "'"
4054 $ WC "d_PRIfldbl='" + perl_d_PRIfldbl + "'"
4055 $ WC "d_PRIgldbl='" + perl_d_PRIgldbl + "'"
4056 $ WC "d_PRId64='" + perl_d_PRId64 + "'"
4057 $ WC "d_PRIu64='" + perl_d_PRIu64 + "'"
4058 $ WC "d_PRIo64='" + perl_d_PRIo64 + "'"
4059 $ WC "d_PRIx64='" + perl_d_PRIx64 + "'"
4060 $ WC "sPRIfldbl='" + perl_sPRIfldbl + "'"
4061 $ WC "sPRIgldbl='" + perl_sPRIgldbl + "'"
4062 $ WC "sPRId64='" + perl_sPRId64 + "'"
4063 $ WC "sPRIu64='" + perl_sPRIu64 + "'"
4064 $ WC "sPRIo64='" + perl_sPRIo64 + "'"
4065 $ WC "sPRIx64='" + perl_sPRIx64 + "'"
4066 $ WC "d_llseek='" + perl_d_llseek + "'"
4067 $ WC "d_iconv='" + perl_d_iconv +"'"
4068 $ WC "i_iconv='" + perl_i_iconv +"'"
4069 $ WC "inc_version_list_init='""""'"
4070 $ WC "uselargefiles='" + perl_uselargefiles + "'"
4071 $ WC "uselongdouble='" + perl_uselongdouble + "'"
4072 $ WC "usemorebits='" + perl_usemorebits + "'"
4073 $ WC "d_quad='" + perl_d_quad + "'"
4074 $ if (use_64bit .eqs. "Y")
4075 $ THEN
4076 $   WC "quadtype='" + perl_quadtype + "'"
4077 $   WC "uquadtype='" + perl_uquadtype + "'"
4078 $ ENDIF
4079 $ WC "d_fs_data_s='" + perl_d_fs_data_s + "'"
4080 $ WC "d_getcwd='" + perl_d_getcwd + "'"
4081 $ WC "d_getmnt='" + perl_d_getmnt + "'"
4082 $ WC "d_sqrtl='" + perl_d_sqrtl + "'"
4083 $ WC "d_statfs_f_flags='" + perl_d_statfs_f_flags + "'"
4084 $ WC "d_statfs_s='" + perl_d_statfs_s + "'"
4085 $ WC "d_ustat='" + perl_d_ustat + "'"
4086 $ WC "i_sysstatfs='" + perl_i_sysstatfs + "'"
4087 $ WC "i_sysvfs='" + perl_i_sysvfs + "'"
4088 $ WC "i_ustat='" + perl_i_ustat + "'"
4089 $ WC "ivtype='" + perl_ivtype + "'"
4090 $ WC "uvtype='" + perl_uvtype + "'"
4091 $ WC "i8type='" + perl_i8type + "'"
4092 $ WC "i16type='" + perl_i16type + "'"
4093 $ WC "u8type='" + perl_u8type + "'"
4094 $ WC "u16type='" + perl_u16type + "'"
4095 $ WC "i32type='" + perl_i32type + "'"
4096 $ WC "u32type='" + perl_u32type + "'"
4097 $ WC "i64type='" + perl_i64type + "'"
4098 $ WC "u64type='" + perl_u64type + "'"
4099 $ WC "nvtype='" + perl_nvtype + "'"
4100 $ WC "ivsize='" + perl_ivsize + "'"
4101 $ WC "uvsize='" + perl_uvsize + "'"
4102 $ WC "i8size='" + perl_i8size + "'"
4103 $ WC "u8size='" + perl_u8size + "'"
4104 $ WC "i16size='" + perl_i16size + "'"
4105 $ WC "u16size='" + perl_u16size + "'"
4106 $ WC "i32size='" + perl_i32size + "'"
4107 $ WC "u32size='" + perl_u32size + "'"
4108 $ WC "i64size='" + perl_i64size + "'"
4109 $ WC "u64size='" + perl_u64size + "'"
4110 $ WC "ivdformat='" + perl_ivdformat + "'"
4111 $ WC "uvuformat='" + perl_uvuformat + "'"
4112 $ WC "uvoformat='" + perl_uvoformat + "'"
4113 $ WC "uvxformat='" + perl_uvxformat + "'"
4114 $!
4115 $! ##WRITE NEW CONSTANTS HERE##
4116 $!
4117 $ Close CONFIGSH
4118 $
4119 $! Okay, we've gotten here. Build munchconfig and run it
4120 $ 'Perl_CC' munchconfig.c
4121 $ If (Needs_Opt.eqs."Yes")
4122 $ THEN
4123 $   open/write OPTCHAN []munchconfig.opt
4124 $   IF ("''using_gnu_c'".eqs."Yes")
4125 $   THEN
4126 $     write OPTCHAN "Gnu_CC:[000000]gcclib.olb/library"
4127 $   endif
4128 $   write OPTCHAN "Sys$Share:VAXCRTL/Share"
4129 $   Close OPTCHAN
4130 $   link munchconfig.obj,munchconfig.opt/opt
4131 $   delete munchconfig.opt;*
4132 $ else
4133 $   link munchconfig.obj
4134 $ endif
4135 $ echo ""
4136 $ echo "Writing config.h"
4137 $ !
4138 $ ! we need an fdl file
4139 $ CREATE [-]CONFIG.FDL
4140 RECORD
4141   FORMAT STREAM_LF
4142 $ CREATE /FDL=[-]CONFIG.FDL [-]CONFIG.LOCAL
4143 $ ! First spit out the header info with the local defines (to get
4144 $ ! around the 255 character command line limit)
4145 $ OPEN/APPEND CONFIG [-]config.local
4146 $ if use_debugging_perl.eqs."Y"
4147 $ THEN
4148 $   WRITE CONFIG "#define DEBUGGING"
4149 $ ENDIF
4150 $ if use_two_pot_malloc.eqs."Y"
4151 $ THEN
4152 $    WRITE CONFIG "#define TWO_POT_OPTIMIZE"
4153 $ endif
4154 $ if mymalloc.eqs."Y"
4155 $ THEN
4156 $    WRITE CONFIG "#define EMBEDMYMALLOC"
4157 $ ENDIF
4158 $ if use_pack_malloc.eqs."Y"
4159 $ THEN
4160 $    WRITE CONFIG "#define PACK_MALLOC"
4161 $ endif
4162 $ if use_debugmalloc.eqs."Y"
4163 $ THEN
4164 $    write config "#define DEBUGGING_MSTATS"
4165 $ ENDIF
4166 $ if "''Using_Gnu_C'" .eqs."Yes"
4167 $ THEN
4168 $   WRITE CONFIG "#define GNUC_ATTRIBUTE_CHECK"
4169 $ ENDIF
4170 $ if "''Has_Dec_C_Sockets'".eqs."T"
4171 $ THEN
4172 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
4173 $    WRITE CONFIG "#define DECCRTL_SOCKETS"
4174 $ ENDIF
4175 $ if "''Has_Socketshr'".eqs."T"
4176 $ THEN
4177 $    WRITE CONFIG "#define VMS_DO_SOCKETS"
4178 $ ENDIF
4179 $! This is VMS-specific for now
4180 $ WRITE CONFIG "#''perl_d_setenv' HAS_SETENV"
4181 $ if d_alwdeftype.eqs."Y"
4182 $ THEN
4183 $    WRITE CONFIG "#define SECURE_INTERNAL_GETENV"
4184 $ ELSE
4185 $    WRITE CONFIG "#undef SECURE_INTERNAL_GETENV"
4186 $ ENDIF
4187 $ if d_secintgenv.eqs."Y"
4188 $ THEN
4189 $    WRITE CONFIG "#define ALWAYS_DEFTYPES"
4190 $ ELSE
4191 $    WRITE CONFIG "#undef ALWAYS_DEFTYPES"
4192 $ ENDIF
4193 $ if use_64bit.eqs."Y"
4194 $ THEN
4195 $    WRITE CONFIG "#define USE_64_BITS"
4196 $    WRITE CONFIG "#define USE_LONG_DOUBLE"
4197 $ ENDIF
4198 $ WRITE CONFIG "#define HAS_ENVGETENV"
4199 $ WRITE CONFIG "#define PERL_EXTERNAL_GLOB"
4200 $ CLOSE CONFIG
4201 $!
4202 $! Now build the normal config.h
4203 $ define/user sys$output [-]config.main
4204 $ mcr []munchconfig [-]config.sh [-]config_h.sh
4205 $ ! Concatenate them together
4206 $ copy [-]config.local,[-]config.main [-]config.h
4207 $! Clean up
4208 $ DELETE/NOLOG [-]CONFIG.MAIN;*
4209 $ DELETE/NOLOG [-]CONFIG.LOCAL;*
4210 $ DELETE/NOLOG [-]CONFIG.FDL;*
4211 $!
4212 $ if "''Using_Dec_C'" .eqs."Yes"
4213 $ THEN
4214 $ DECC_REPLACE = "DECC=decc=1"
4215 $ ELSE
4216 $ DECC_REPLACE = "DECC="
4217 $ ENDIF
4218 $ if "''Using_Gnu_C'" .eqs."Yes"
4219 $ THEN
4220 $ GNUC_REPLACE = "GNUC=gnuc=1"
4221 $ ELSE
4222 $ GNUC_REPLACE = "GNUC="
4223 $ ENDIF
4224 $ if "''Has_Dec_C_Sockets'" .eqs."T"
4225 $ THEN
4226 $   SOCKET_REPLACE = "SOCKET=DECC_SOCKETS=1"
4227 $ ELSE
4228 $   if "''Has_Socketshr'" .eqs."T"
4229 $   THEN
4230 $     SOCKET_REPLACE = "SOCKET=SOCKETSHR_SOCKETS=1"
4231 $   ELSE
4232 $     SOCKET_REPLACE = "SOCKET="
4233 $   ENDIF
4234 $ ENDIF
4235 $ IF ("''Use_Threads'".eqs."T")
4236 $ THEN
4237 $   if ("''VMS_VER'".LES."6.2")
4238 $   THEN
4239 $     THREAD_REPLACE = "THREAD=OLDTHREADED=1"
4240 $   ELSE
4241 $     THREAD_REPLACE = "THREAD=THREADED=1"
4242 $   ENDIF
4243 $ ELSE
4244 $   THREAD_REPLACE = "THREAD="
4245 $ ENDIF
4246 $ if mymalloc.eqs."Y"
4247 $ THEN
4248 $   MALLOC_REPLACE = "MALLOC=MALLOC=1"
4249 $ ELSE
4250 $   MALLOC_REPLACE = "MALLOC="
4251 $ ENDIF
4252 $ if f$getsyi("HW_MODEL").ge.1024
4253 $ THEN
4254 $ ARCH_TYPE = "ARCH-TYPE=__AXP__"
4255 $ ELSE
4256 $ ARCH_TYPE = "ARCH-TYPE=__VAX__"
4257 $ ENDIF
4258 $ echo "Writing DESCRIP.MMS"
4259 $!set ver
4260 $ define/user sys$output [-]descrip.mms
4261 $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'"
4262 $ echo "Extracting Build_Ext.Com"
4263 $ Create Sys$Disk:[-]Build_Ext.Com
4264 $ Deck/Dollar="$EndOfTpl$"
4265 $!++ Build_Ext.Com
4266 $!   NOTE: This file is extracted as part of the VMS configuration process.
4267 $!   Any changes made to it directly will be lost.  If you need to make any
4268 $!   changes, please edit the template in [.vms]SubConfigure.Com instead.
4269 $    def = F$Environment("Default")
4270 $    exts1 = F$Edit(p1,"Compress")
4271 $    p2 = F$Edit(p2,"Upcase,Compress,Trim")
4272 $    If F$Locate("MCR ",p2).eq.0 Then p2 = F$Extract(3,255,p2)
4273 $    miniperl = "$" + F$Search(F$Parse(p2,".Exe"))
4274 $    makeutil = p3
4275 $    if f$type('p3') .nes. "" then makeutil = 'p3'
4276 $    targ = F$Edit(p4,"Lowercase")
4277 $    i = 0
4278 $ next_ext:
4279 $    ext = F$Element(i," ",p1)
4280 $    If ext .eqs. " " Then Goto done
4281 $    Define/User Perl_Env_Tables CLISYM_LOCAL
4282 $    miniperl
4283      ($extdir = $ENV{'ext'}) =~ s/::/./g;
4284      if ($extdir =~ /^vms/i) { $extdir =~ s/vms/.vms.ext/i; }
4285      else                    { $extdir = ".ext.$extdir";   }
4286      ($ENV{'extdir'} = "[$extdir]");
4287      ($ENV{'up'} = ('-') x ($extdir =~ tr/././));
4288 $    Set Default &extdir
4289 $    redesc = 0
4290 $    If F$Locate("clean",targ) .eqs. F$Length(targ)
4291 $    Then
4292 $      Write Sys$Output "Building ''ext' . . ."
4293 $      On Error Then Goto done
4294 $      If F$Search("Descrip.MMS") .eqs. ""
4295 $      Then
4296 $        redesc = 1
4297 $      Else
4298 $        If F$CvTime(F$File("Descrip.MMS","rdt")) .lts. -
4299             F$CvTime(F$File("Makefile.PL","rdt")) Then redesc = 1
4300 $      EndIf
4301 $    Else
4302 $      Write Sys$Output "''targ'ing ''ext' . . ."
4303 $      On Error Then Continue
4304 $    EndIf
4305 $    If redesc Then -
4306        miniperl "-I[''up'.lib]" Makefile.PL "INST_LIB=[''up'.lib]" "INST_ARCHLIB=[''up'.lib]"
4307 $    makeutil 'targ'
4308 $    i = i + 1
4309 $    Set Def &def
4310 $    Goto next_ext
4311 $ done:
4312 $    sts = $Status
4313 $    Set Def &def
4314 $    Exit sts
4315 $!-- Build_Ext.Com
4316 $EndOfTpl$
4317 $
4318 $! set nover
4319 $!
4320 $! Clean up after ourselves
4321 $ delete/nolog munchconfig.exe;*
4322 $ delete/nolog munchconfig.obj;*