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