1$! 3 March 2005. SMS. 2$! 3$! Info-ZIP VMS accessory procedure. 4$! 5$! Modify a dependencies file (P1), changing the object file name to 6$! P2. 7$! P3 = output file specification. 8$! 9$! 10$ prefix = f$edit( p3, "COLLAPSE") 11$! 12$! Strip any device:[directory] from P2. 13$! 14$ obj_name = f$parse( P2, , , "NAME", "SYNTAX_ONLY")+ - 15 f$parse( P2, , , "TYPE", "SYNTAX_ONLY") 16$! 17$ open /read /error = end_main deps_in 'p1' 18$ open /write /error = end_main deps_out 'p3' 19$ on error then goto loop_main_end 20$ loop_main_top: 21$ read /error = loop_main_end deps_in line 22$ line_reduced = f$edit( line, "COMPRESS, TRIM") 23$ colon = f$locate( " : ", line_reduced) 24$ line = obj_name+ f$extract( colon, 2000, line) 25$ write deps_out "''line'" 26$ goto loop_main_top 27$! 28$ loop_main_end: 29$ close deps_in 30$ close deps_out 31$! 32$ end_main: 33$! 34