vms/subconfigure.com

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