mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-06-26 22:38:30 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

add make-4.3.tar.gz

Browse source
This commit is contained in:
ahgamut 2021-10-26 23:19:30 +05:30 • committed by Justine Tunney
parent 0a0997a872
commit 19f70a154e
458 changed files with 239669 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

37
third_party/make/vms_export_symbol_test.com vendored Normal file
View file

@ -0,0 +1,37 @@
$! VMS_EXPORT_SYMBOL_TEST.COM
$!
$! Verify the VMS_EXPORT_SYMBOL.C module
$!
$! 22-May-2014 J. Malmberg
$!
$!=========================================================================
$!
$ cc/names=(as_is)/define=(DEBUG=1,_POSIX_EXIT=1) vms_export_symbol.c
$!
$ link vms_export_symbol
$!
$ delete vms_export_symbol.obj;*
$!
$! Need a foreign command to test.
$ vms_export_symbol := $sys$disk:[]vms_export_symbol.exe
$ save_export_symbol = vms_export_symbol
$!
$ vms_export_symbol
$ if $severity .ne. 1
$ then
$ write sys$output "Test program failed!";
$ endif
$!
$ if vms_export_symbol .nes. save_export_symbol
$ then
$ write sys$output "Test failed to restore foreign command!"
$ endif
$ if f$type(test_export_symbol) .nes. ""
$ then
$ write sys$output "Test failed to clear exported symbol!"
$ endif
$ if f$type(test_putenv_symbol) .nes. ""
$ then
$ write sys$output "Test failed to clear putenv exported symbol!"
$ endif
$!