|
|
1.1 ! root 1: $ ! VMS command file to recompile a .C file which needs recompilation. ! 2: $ ! This is a .C files that has no .OBJ file or that is newer ! 3: $ ! than the corresponding .OBJ file. This file is self contained ! 4: $ ! and does not require you to do anything before running it. ! 5: $ ! 6: $ file = f$search(f$parse(p1, ".C"), 1) ! 7: $ cmd = p2 ! 8: $ if cmd .nes. "" then goto havcmd ! 9: $ if "''ccom'" .eqs. "" then @precomp ! 10: $ cmd = "ccom" ! 11: $havcmd: ! 12: $ name = f$parse(file,,,"NAME") ! 13: $ obj = name + ".OBJ" ! 14: $ if f$search(obj) .eqs. "" then goto docmd ! 15: $ if f$cvtime(f$file(file, "RDT")) .les. f$cvtime(f$file(obj, "RDT")) then - ! 16: exit ! 17: $ docmd: ! 18: $ write sys$output "Compiling ''name'..." ! 19: $ 'cmd' 'file' ! 20: $ purge /nolog 'obj' ! 21: $ write sys$output "---------------"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.