diff options
author | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-07-20 19:30:57 +0100 |
---|---|---|
committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-07-20 19:30:57 +0100 |
commit | 04664087ad66f5614f82a2cfba3ae4eda15e792b (patch) | |
tree | 332090b15fd2db1b93abf40dccf06211d9aba297 /vms/mod_dep.com | |
download | zip-04664087ad66f5614f82a2cfba3ae4eda15e792b.tar.gz |
Tarball conversion
Diffstat (limited to 'vms/mod_dep.com')
-rw-r--r-- | vms/mod_dep.com | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/vms/mod_dep.com b/vms/mod_dep.com new file mode 100644 index 0000000..bbc6d2d --- /dev/null +++ b/vms/mod_dep.com @@ -0,0 +1,33 @@ +$! 3 March 2005. SMS. +$! +$! Info-ZIP VMS accessory procedure. +$! +$! Modify a dependencies file (P1), changing the object file name to +$! P2. +$! P3 = output file specification. +$! +$! +$ prefix = f$edit( p3, "COLLAPSE") +$! +$! Strip any device:[directory] from P2. +$! +$ obj_name = f$parse( P2, , , "NAME", "SYNTAX_ONLY")+ - + f$parse( P2, , , "TYPE", "SYNTAX_ONLY") +$! +$ open /read /error = end_main deps_in 'p1' +$ open /write /error = end_main deps_out 'p3' +$ on error then goto loop_main_end +$ loop_main_top: +$ read /error = loop_main_end deps_in line +$ line_reduced = f$edit( line, "COMPRESS, TRIM") +$ colon = f$locate( " : ", line_reduced) +$ line = obj_name+ f$extract( colon, 2000, line) +$ write deps_out "''line'" +$ goto loop_main_top +$! +$ loop_main_end: +$ close deps_in +$ close deps_out +$! +$ end_main: +$! |