home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsa / bootnet / !BootNet / !Run < prev    next >
Encoding:
Text File  |  1995-10-16  |  2.9 KB  |  78 lines
  1. |================================================================|
  2. | Run file for AUN !BootNet (16th October 1995)                  |
  3. |                                                                |
  4. | Copyright (C) Acorn Computers Ltd., 1995                       |
  5. |=================================================================
  6. Set Alias$RMIfThere SetEval Test$Eval 1|MRMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval THEN %%0 %%1|MUnset Test$Eval
  7. |
  8. Set BootNet$Dir <Obey$Dir>
  9. IconSprites <Obey$Dir>.!Sprites
  10. |
  11. | Check for RISC OS 3.10 or later
  12. |
  13. RMEnsure UtilityModule 3.10 Error AUN requires RISC OS 3 (v3.10) or later
  14. Set System$Path_Message System resources not found. Please run !System before !BootNet
  15. |
  16. | If any DCI 2 modules are loaded then kill them
  17. |
  18. RMIfThere RMKill InternetA
  19. RMIfThere RMKill Accmsgs
  20. RMIfThere RMKill Netmsgs
  21. |
  22. | Decide what driver is needed
  23. |
  24. Run <BootNet$Dir>.!Configure
  25. |
  26. | Load networking messages
  27. |
  28. RMEnsure AUNMsgs 0.06 RMLoad System:Modules.Network.AUNMsgs
  29. RMEnsure AUNMsgs 0.06 Error Failed to load suitable network messages file.
  30. |
  31. | Kill Net or Neti as appropriate
  32. |
  33. IF "<Inet$HostName>" = "" THEN RMIfThere RMKill NetI ELSE RMIfThere RMKill Net 
  34. |
  35. | If !Internet hasn't been run then load Mbuf Manager & our device driver
  36. |
  37. IF "<Inet$HostName>" = "" THEN RMEnsure MbufManager 0.13 Run System:Modules.Network.MManager
  38. RMEnsure MbufManager 0.13 Error You need Mbuf Manager 0.13 or later to use AUN
  39. IF "<Inet$HostName>" = "" AND "<Net$Device>" <> "" THEN Run System:Modules.Network.<Net$Device>
  40. |
  41. | Ensure we have Internet 4.07. If we load a new Internet module we must
  42. | restart Access, if it is present.
  43. |
  44. SetEval Inet$Restart 0
  45. IF "<Inet$HostName>" = "" THEN RMEnsure Internet 4.07 SetEval Inet$Restart 1
  46. IF "<Inet$HostName>" = "" THEN RMEnsure Internet 4.07 RMLoad System:Modules.Network.Internet
  47. IF "<Inet$HostName>" = "" THEN RMEnsure Internet 4.07 Error You need Internet 4.07 or later to use AUN
  48. |
  49. | Load Net or NetI as appropriate
  50. |
  51. IF "<Inet$HostName>" = "" THEN RMEnsure Net 6.15 Run System:Modules.Network.Net ELSE RMEnsure NetI 6.15 Run System:Modules.Network.NetI
  52. IF "<Inet$HostName>" = "" THEN RMEnsure Net 6.15 Error you need Net 6.15 or later to use AUN ELSE RMEnsure NetI 6.15 Error you need NetI 6.15 or later to use AUN
  53. |
  54. | Run AddMaps if needed
  55. |
  56. IF "<Inet$HostName>" <> "" THEN Run <BootNet$Dir>.Files.AddMaps
  57. |
  58. | If necessary, restart Access
  59. |
  60. IF Inet$Restart THEN RMIfThere RMReInit Freeway
  61. IF Inet$Restart THEN RMIfThere RMReInit ShareFS
  62. SetEval Inet$KickFiler Inet$Restart
  63. RMEnsure ShareFS 0 SetEval Inet$KickFiler 0
  64. |
  65. | Start up NetFS, etc.
  66. |
  67. RMEnsure NetFS 0 SetEval Inet$KickFiler 1
  68. RMEnsure NetFS 0 RMReInit NetFS
  69. RMEnsure NetFS 5.79 RMEnsure NetUtils 0.99 Run System:Modules.Network.NetUtils
  70. RMEnsure NetPrint 0 RMReInit NetPrint
  71. RMEnsure NetFiler 0 RMReInit NetFiler
  72.  
  73. IF "<Wimp$State>" = "desktop" AND Inet$KickFiler THEN Filer_Run <BootNet$Dir>.Resources.utils.NewFiler
  74.  
  75. Unset Inet$KickFiler
  76. Unset Inet$Restart
  77. Unset Alias$RMIfThere
  78.