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