vms/subconfigure.com

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