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