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