Blame VMS/test-includes.com

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