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