source: vbox/trunk/src/libs/openssl-3.1.5/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