[thirdparty/openssl.git] / VMS / 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
Commit	Line	Data
c89cb36d RL	1	$! Quick script to check how well including individual header files works
	2	$! on VMS, even when the VMS macro isn't defined.
	3	$
	4	$ sav_def = f$env("DEFAULT")
	5	$ here = f$parse("A.;0",f$ENV("PROCEDURE")) - "A.;0"
	6	$ set default 'here'
	7	$ set default [-.include.openssl]
	8	$ define openssl 'f$env("DEFAULT")'
	9	$ set default [--]
	10	$
	11	$ loop:
	12	$ f = f$search("openssl:*.h")
	13	$ if f .eqs. "" then goto loop_end
	14	$ write sys$output "Checking ",f
	15	$ open/write foo foo.c
	16	$ write foo "#undef VMS"
	17	$ write foo "#include <stdio.h>"
	18	$ write foo "#include <openssl/",f$parse(f,,,"NAME"),".h>"
	19	$ write foo "main()"
	20	$ write foo "{printf(""foo\n"");}"
	21	$ close foo
	22	$ cc/STANDARD=ANSI89/NOLIST/PREFIX=ALL foo.c
	23	$ delete foo.c;
	24	$ goto loop
	25	$ loop_end:
	26	$ set default 'save_def'
	27	$ exit
	28