From c89cb36dbf9f1ed49884cc773c8d4ac2358dfcb1 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Tue, 18 Jan 2000 08:10:28 +0000 Subject: [PATCH] A test script to check on the header files --- VMS/test-includes.com | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 VMS/test-includes.com diff --git a/VMS/test-includes.com b/VMS/test-includes.com new file mode 100644 index 0000000000..c1d7ccd0ee --- /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 " +$ write foo "#include " +$ 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 + -- 2.34.1