Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  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.