home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / irclient / !IRClient / Scripts / Docs / BuildHeads next >
Encoding:
Text File  |  1997-01-18  |  1.5 KB  |  39 lines
  1. | Build the database of all the file headers
  2. Set This$Dir <Obey$Dir>
  3. Create <This$Dir>.Heads
  4. Echo Magrathea modules currently available (<Sys$Date> <Sys$Time>) { >> <This$Dir>.Heads }
  5. Echo ===================================== { >> <This$Dir>.Heads }
  6.  
  7. | The internal routines
  8. Alias DBHead "Echo|MBasHead "
  9. Echo { >> <This$Dir>.Heads }
  10. Echo Internals { >> <This$Dir>.Heads }
  11. Echo --------- { >> <This$Dir>.Heads }
  12. Repeat DBHead <This$Dir>.^.Internal -Type FFB -CommandTail "{ >> <This$Dir>.Heads }"
  13.  
  14. | The default modules
  15. Echo { >> <This$Dir>.Heads }
  16. Echo Default Magrathea { >> <This$Dir>.Heads }
  17. Echo ----------------- { >> <This$Dir>.Heads }
  18. Repeat DBHead <This$Dir>.^.Default -Type FFB -CommandTail "{ >> <This$Dir>.Heads }"
  19.  
  20. | Magrathea modules
  21. Echo { >> <This$Dir>.Heads }
  22. Echo Magrathea Modules { >> <This$Dir>.Heads }
  23. Echo ----------------- { >> <This$Dir>.Heads }
  24.  
  25. Repeat DBHead <This$Dir>.^.Modules -Type FFB -CommandTail "{ >> <This$Dir>.Heads }"
  26. Alias DBHead "Echo|MBasHead %%0.!Module"
  27. Repeat DBHead <This$Dir>.^.Modules -Directories -CommandTail "{ >> <This$Dir>.Heads }"
  28.  
  29. | Obsolete modules
  30. Echo { >> <This$Dir>.Heads }
  31. Echo Obsolete Modules { >> <This$Dir>.Heads }
  32. Echo ---------------- { >> <This$Dir>.Heads }
  33.  
  34. Alias DBHead "Echo|MBasHead "
  35. Repeat DBHead <This$Dir>.^.Obsolete -Type FFB -CommandTail "{ >> <This$Dir>.Heads }"
  36. Alias DBHead "Echo|MBasHead %%0.!Module"
  37. Repeat DBHead <This$Dir>.^.Obsolete -Directories -CommandTail "{ >> <This$Dir>.Heads }"
  38.  
  39. Settype <This$Dir>.Heads Text