BootNet,feb 1.81 KB
Newer Older
Neil Turton's avatar
Neil Turton committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14
|================================================================|
| Simple AUN BootNet - used only for softloading AUN onto a      |
| standard AUN station.                                          |
|                                                                |
| Only for use of InetSetup-generated startup scripts.           |
|                                                                |
| Copyright (C) Acorn Computers Ltd., 1996                       |
|=================================================================
IF "<Inet$HostName>" <> "" AND "<Inet$HostName>" <> "ARM_NoName" THEN Error BootNet should not be run after !Internet. Use InetSetup to configure AUN + TCP/IP.
IF "<Wimp$State>" = "desktop" THEN Error BootNet should only be run outside the desktop
Set Alias$RMIfThere SetEval Test$Eval 1|MRMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval THEN %%0 %%1|MUnset Test$Eval
|
| Check for RISC OS 3.50 or later
|
15
RMEnsure UtilityModule 3.50 Error This AUN BootNet requires RISC OS 3.50 or later
Neil Turton's avatar
Neil Turton committed
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
Set System$Path_Message System resources not found. Please run !System before !BootNet
IF "<System$Path>" = "" THEN IfThere Boot:Resources.!System then Run Boot:Resources.!System
|
| Boot !Internet
|
Run <Obey$Dir>.^.!Boot
|
| Required to get Net to load
|
Set BootNet$File Net
|
| Load Net
|
RMEnsure Net 6.17 RMLoad System:Modules.Network.Net
RMEnsure Net 6.17 Error you need Net 6.17 or later to use AUN
|
| Load a device driver, if required
|
IF "<Net$Device>" <> "" THEN Run System:Modules.Network.<Net$Device>
|
| If necessary, restart Access
|
RMIfThere RMReInit ShareFS
|
| Start up NetFS, etc.
|
RMEnsure NetFS 0 RMReInit NetFS
RMEnsure NetFS 5.79 RMEnsure NetUtils 0.99 Run System:Modules.Network.NetUtils
RMEnsure NetPrint 0 RMReInit NetPrint
RMEnsure NetFiler 0 RMReInit NetFiler

Unset Inet$Restart
Unset Alias$RMIfThere