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