vms/subconfigure.com

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