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