vms/subconfigure.com

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