vms/subconfigure.com

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