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