|
| IrisRAM is (c) Andrew Rawnsley, 2022 and published by RISC OS Developments Ltd
| Thanks to MSA and RB for additional input
| It is provided and distributed free of charge to all supporters of RISC OS Developments Ltd
|
Set IrisCopy$Dir <Obey$Dir>
IconSprites <IrisCopy$Dir>.!Sprites22
|
| Check if Iris is actually where it says it is
|
SetEval Iris$present 0
If "<Iris$Dir>"<>"" Then IfThere <Iris$Dir>.!Run Then SetEval Iris$present 1
If <Iris$Present> Then Else Unset Iris$Dir
|
| If related apps seen, set IrisCopy variable
If "<PineBrowse$Dir>"<>"" Then If "<PineBrowse$Dir>"="<Iris$Dir>" Then Set IrisCopy$AppName !PineBrowse
If "<4teBrowse$Dir>"<>"" Then If "<4teBrowse$Dir>"="<Iris$Dir>" Then Set IrisCopy$AppName !4teBrowse
|
| Suggestion from MSA - load from RAM if present
|
IfThere RAM::0.$.!4teBrowse.!Run Then Set IrisCopy$RAMdir RAM::RamDisc0.$.!4teBrowse
IfThere RAM::0.$.!PineBrowse.!Run Then Set IrisCopy$RAMdir RAM::RamDisc0.$.!PineBrowse
IfThere RAM::0.$.!Iris.!Run Then Set IrisCopy$RAMdir RAM::RamDisc0.$.!Iris
If "<IrisCopy$RAMdir>"<>"" Then IfThere <IrisCopy$RAMdir> Then Run <IrisCopy$RAMdir>
|
| If Iris not seen, try and locate it
|
If "<Iris$Dir>"="" Then Set IrisCopy$AppName !Iris
If "<Iris$Dir>"="" Then IfThere Boot:^.Apps.!Iris Then Set Iris$Dir Boot:^.Apps.!Iris
If "<Iris$Dir>"="" Then IfThere Boot:^.Apps.Iris.!Iris Then Set Iris$Dir Boot:^.Apps.Iris.!Iris
If "<Iris$Dir>"="" Then IfThere Boot:^.Network.!Iris Then Set Iris$Dir Boot:^.Network.!Iris
If "<Iris$Dir>"="" Then IfThere Boot:^.Network.Iris.!Iris Then Set Iris$Dir Boot:^.Network.Iris.!Iris
If "<Iris$Dir>"="" Then IfThere Boot:^.Internet.!Iris Then Set Iris$Dir Boot:^.Internet.!Iris
If "<Iris$Dir>"="" Then IfThere Boot:^.Internet.Iris.!Iris Then Set Iris$Dir Boot:^.Internet.Iris.!Iris
If "<Iris$Dir>"="" Then IfThere Boot:^.Iris.!Iris Then Set Iris$Dir Boot:^.Iris.!Iris
|
| Also check same directory (or one above) as !IrisRAM (Suggestion from MSA)
If "<Iris$Dir>"="" Then IfThere <IrisCopy$Dir>.^.!Iris Then Set Iris$Dir <IrisCopy$Dir>.^.!Iris
If "<Iris$Dir>"="" Then IfThere <IrisCopy$Dir>.^.^.!Iris Then Set Iris$Dir <IrisCopy$Dir>.^.^.!Iris
|
| Accommodate Iris-related apps
If "<Iris$Dir>"="" Then Set IrisCopy$AppName !4teBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Apps.!4teBrowse Then Set Iris$Dir Boot:^.Apps.!4teBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Apps.4teBrowse.!4teBrowse Then Set Iris$Dir Boot:^.Apps.4teBrowse.!4teBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Network.!4teBrowse Then Set Iris$Dir Boot:^.Network.!4teBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Network.4teBrowse.!4teBrowse Then Set Iris$Dir Boot:^.Network.4teBrowse.!4teBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Internet.!4teBrowse Then Set Iris$Dir Boot:^.Internet.!4teBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Internet.4teBrowse.!4teBrowse Then Set Iris$Dir Boot:^.Internet.4teBrowse.!4teBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.4teBrowse.!4teBrowse Then Set Iris$Dir Boot:^.4teBrowse.!4teBrowse
|
If "<Iris$Dir>"="" Then IfThere <IrisCopy$Dir>.^.!4teBrowse Then Set Iris$Dir <IrisCopy$Dir>.^.!4teBrowse
If "<Iris$Dir>"="" Then IfThere <IrisCopy$Dir>.^.^.!4teBrowse Then Set Iris$Dir <IrisCopy$Dir>.^.^.!4teBrowse
|
If "<Iris$Dir>"="" Then Set IrisCopy$AppName !PineBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Apps.!PineBrowse Then Set Iris$Dir Boot:^.Apps.!PineBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Apps.PineBrowse.!PineBrowse Then Set Iris$Dir Boot:^.Apps.PineBrowse.!PineBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Network.!PineBrowse Then Set Iris$Dir Boot:^.Network.!PineBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Network.PineBrowse.!PineBrowse Then Set Iris$Dir Boot:^.Network.PineBrowse.!PineBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Internet.!PineBrowse Then Set Iris$Dir Boot:^.Internet.!PineBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.Internet.PineBrowse.!PineBrowse Then Set Iris$Dir Boot:^.Internet.PineBrowse.!PineBrowse
If "<Iris$Dir>"="" Then IfThere Boot:^.PineBrowse.!PineBrowse Then Set Iris$Dir Boot:^.PineBrowse.!PineBrowse
|
If "<Iris$Dir>"="" Then IfThere <IrisCopy$Dir>.^.!PineBrowse Then Set Iris$Dir <IrisCopy$Dir>.^.!PineBrowse
If "<Iris$Dir>"="" Then IfThere <IrisCopy$Dir>.^.^.!PineBrowse Then Set Iris$Dir <IrisCopy$Dir>.^.^.!PineBrowse
|
| MSA Added to notify user if Iris cannot be found
If "<Iris$Dir>"="" Then Error !Iris (or a related application) has not been seen by this computer so it cannot be copied to RAM disc
|
| Create comparison string
If "<IrisCopy$AppName>"="" Then Set IrisCopy$AppName !Iris
Set IrisCopy$RAMdir RAM::RamDisc0.$.<IrisCopy$AppName>
|
If "<Iris$Dir>"<> "<IrisCopy$RAMdir>" Then <IrisCopy$Dir>.BannerLoad.<IrisCopy$AppName> <IrisCopy$Dir>.!Run2 %*0
