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