home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilst / wt_070 / !SysUpdate / RO3 < prev    next >
Text File  |  1995-03-25  |  1KB  |  48 lines
  1. | RO3 version for !SysUpdate of Wacky-Talky v0.50 or newer,
  2. | by GUS, © Aroma 1995.
  3. |
  4.  
  5. | Get Wacky-Talky internal version (real time of assembly)
  6. /<Obey$Dir>.IV System:Modules.WackyTalky tempsys
  7. /<Obey$Dir>.IV <Obey$Dir>.WackyTalky tempoby
  8. /<Obey$Dir>.IV WT:WackyTalky tempwt
  9. If tempsys=0 Then /<Obey$Dir>.IV System:Modules.Aroma.WackyTalky tempsys
  10.  
  11. | Ensure that manager is loaded
  12. Set WTModuleLoad$Path System:Modules.,System:.Modules.Aroma.,<Obey$Dir>.,WT:,
  13. RMEnsure Wacky-Talky 0.50 RMLoad WTModuleLoad:WackyTalky
  14. Unset WTModuleLoad
  15.  
  16. | Find best module's path
  17. Set temps ""
  18. SetMacro tempsu$path System:Modules.,System:Modules.Aroma.
  19. If tempoby<=tempsys Then Goto NextCheck
  20. Set temps <Obey$Dir>.
  21. SetEval tempsys <tempoby>
  22. |NextCheck
  23. If tempwt<=tempsys Then Goto NextCheck
  24. SetMacro temps WT:
  25. SetEval tempsys <tempwt>
  26. SetMacro tempsu$path WT:
  27. |NextCheck
  28.  
  29. | Update !SysUpdate !!!
  30. If "<temps>"<>"<Obey$Dir>." Then Copy tempsu:WackyTalky <Obey$Dir>.WackyTalky A~C~DF~L~N~S~T~V
  31. Unset tempsu$path
  32.  
  33. | Check if !System is updated
  34. If "<temps>" = "" Then Error 0 The current '!System.Modules.' directory is up to date.
  35.  
  36. | Check if SystemTidy utility keeps !System tidy
  37. Set tempa Aroma.
  38. WTIfNotFoundD <System$Dir>.Modules.Aroma Set tempa ""
  39.  
  40. | Update !System
  41. Copy <temps>WackyTalky <System$Dir>.Modules.<tempa>WackyTalky A~C~DF~L~N~S~T~V
  42.  
  43. Unset tempsys
  44. Unset tempoby
  45. Unset tempwt
  46. Unset tempa
  47. Unset temps
  48. Unset tempy