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