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