Skip to main content
  • Home
  • login
  • Browse the archive

    swh mirror partner logo
swh logo
SoftwareHeritage
Software
Heritage
Mirror
Features
  • Search

  • Downloads

  • Save code now

  • Add forge now

  • Help

  • 3c7376c
  • /
  • VMS
  • /
  • test-includes.com
Raw File
Permalinks

To reference or cite the objects present in the Software Heritage archive, permalinks based on SoftWare Hash IDentifiers (SWHIDs) must be used.
Select below a type of object currently browsed in order to display its associated SWHID and permalink.

  • content
  • directory
content badge Iframe embedding
swh:1:cnt:c1d7ccd0ee8cc348e64930f4740d7c9a1ee9b674
directory badge Iframe embedding
swh:1:dir:0f05a051c687cbf3a7090c9605c0767fcf7ede7e
test-includes.com
$! Quick script to check how well including individual header files works
$! on VMS, even when the VMS macro isn't defined.
$
$	sav_def = f$env("DEFAULT")
$	here = f$parse("A.;0",f$ENV("PROCEDURE")) - "A.;0"
$	set default 'here'
$	set default [-.include.openssl]
$	define openssl 'f$env("DEFAULT")'
$	set default [--]
$
$ loop:
$	f = f$search("openssl:*.h")
$	if f .eqs. "" then goto loop_end
$	write sys$output "Checking ",f
$	open/write foo foo.c
$	write foo "#undef VMS"
$	write foo "#include <stdio.h>"
$	write foo "#include <openssl/",f$parse(f,,,"NAME"),".h>"
$	write foo "main()"
$	write foo "{printf(""foo\n"");}"
$	close foo
$	cc/STANDARD=ANSI89/NOLIST/PREFIX=ALL foo.c
$	delete foo.c;
$	goto loop
$ loop_end:
$	set default 'save_def'
$	exit

ENEA — Copyright (C), ENEA. License: GNU AGPLv3+.
Legal notes  ::  JavaScript license information ::  Web API

back to top