release/src/router/openssl/VMS/test-includes.com

   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