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