| Richard Levitte | c89cb36 | 2000-01-18 08:10:28 +0000 | [diff] [blame] | 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 | |
