文件操作 - test-includes.com
返回文件管理
返回主菜单
删除本文件
文件: /usr/local/src/openssl-1.1.1w/VMS/test-includes.com
编辑文件内容
$! 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
修改文件时间
将文件时间修改为当前时间的前一年
删除文件