|
| Acorn DCI4 Internet TCP/IP Stack StartUp for RISC OS 3.7
|

%Set Alias$RMIfThere SetEval Test$Eval 1|M RMEnsure %%1 0 SetEval Test$Eval 0|MIf Test$Eval Then %%0 %%1|M Unset Test$Eval

Set Inet$Path <Obey$Dir>.^.^.^.^.
Set InetStack$Path <Obey$Dir>.
Set FreeUser$Dir <Obey$Dir>.^.^.^.^
IconSprites Inet:!Sprites

|
| Configure host name driver type etc.
|
|Set Inet$HostName <Inet$NodeName>
Unset Inet$EtherIPAddr
Unset Inet$EtherIPMask
Unset Inet$EtherDevice
Unset Inet$EcoIPAddr
Unset Inet$EcoIPMask
Unset Inet$RouteDOptions
Set Inet$IsGateway ""

|
| Load up the required modules.
|
RMEnsure AUNMsgs 0.07 RMReInit AUNMsgs
RMEnsure MbufManager 0.17 RMReinit MbufManager

|
| Ensure we have Internet 5.02. If we load a new Internet module we must
| restart Access, if it is present.
|
SetEval Inet$Restart 0
RMEnsure Internet 5.02 SetEval Inet$Restart 1
RMEnsure Internet 5.02 RMReInit Internet
If Inet$Restart = 0 AND "<Inet$Gateway>" = "Yes" Then InetGateway on
If Inet$Restart Then RMIfThere RMReInit Freeway
If Inet$Restart Then RMIfThere RMReInit ShareFS
SetEval Inet$KickFiler Inet$Restart
RMEnsure ShareFS 0 SetEval Inet$KickFiler 0
If "<Wimp$State>" = "desktop" AND Inet$KickFiler Then Filer_Run Inet:Utils.NewFiler
Unset Inet$KickFiler
Unset Inet$Restart

|
| Load the DNS resolvers
|
Set Inet$ResolverDelay 5
Set Inet$ResolverRetries 3
Set Inet$Resolvers <Inet$NameServer1IP> <Inet$NameServer2IP> <Inet$NameServer3IP>
RMEnsure Resolver 0 RMRun System:Modules.Network.Resolver
ResolverConfig
|RMEnsure InetDB 0 RMRun FreeNet:INetDB

|
| Configure the loopback driver
|
ifconfig lo0 inet 127.0.0.1 netmask 255.0.0.0 up

|
| Start RouteD [currently unused]
|
If "<Inet$RouteDOptions>" <> "" Then RMLoad System:Modules.Network.RouteD

Set Inet$StackLoaded AcornDCI4