/
niceSOFT
/
openssl
Обзор
Документация
Войти
/
niceSOFT
/
openssl
Код
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
VMS/test-includes.com
27 строк
752 B
Richard Levitte
A test script to check on the header files
18 янв 2000, 11:10
18 янв 2000, 11:10
c89cb36
Код
Авторство
О чём код?
$! 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