A test script to check on the header files

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