|
| $Source: /ADFS::4/\044/Shared/unix/cvs/MiniDisc/Release/Currentbuild/!MiniDisc/!Run,feb,v $
|
| $Revision: 1.8 $
| $Date: 2004/04/14 14:40:59 $
|
|
| Ensure application variables are all set via !Boot
/<Obey$Dir>.!Boot
|
| MiniDisc choices directory
If "<Choices$Write>" = "" Then Error MiniDisc requires a newer Boot sequence, please upgrade
SetMacro MiniDisc$Choices <Choices$Write>.MiniDisc
|
| Create a choices folder if required
IfThere <MiniDisc$Choices> Then Else CDir <MiniDisc$Choices>
|
| MiniDisc virual desktop save folder
SetMacro MiniDisc$Desktop <MiniDisc$Choices>.Desktop
|
| MiniDisc trash-can
SetMacro MiniDisc$Trash <MiniDisc$Choices>.Trash
|
| Shortcuts library
SetMacro MiniDiscLib$Dir  <MiniDisc$Dir>.bin.SC-Library
SetMacro MiniDiscLib$Path <MiniDiscLib$Dir>.
|
| Set the default configuration files (so long as they haven't already been set previously).
If "<MiniDisc$Shortcuts>" = "" Then SetMacro MiniDisc$Shortcuts <MiniDisc$Choices>.Shortcuts
If "<MiniDisc$Options>"   = "" Then SetMacro MiniDisc$Options   <MiniDisc$Choices>.Choices
|
| Ensure System resources have been seen by the filer.
If "<System$Path>"   = "" Then Error System resources cannot be found
If "<Wimp$ScrapDir>" = "" Then Error Scrap directory cannot be found
|
| Lock & Load required modules...
RMEnsure UtilityModule  3.10 Error MiniDisc requires RISC OS 3.10 or later
RMEnsure UtilityModule  5.00 RMEnsure CallASWI 0.03 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule  5.00 RMEnsure CallASWI 0.03 Error MiniDisc requires CallASWI 0.03 or later
RMEnsure FPEmulator     4.03 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator     4.03 Error MiniDisc requires FPEmulator 4.03 or later
RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 5.45 Error MiniDisc requires SharedCLibrary 5.45 or later
RMEnsure FilterManager  0.09 RMLoad System:modules.FilterMgr
RMEnsure FilterManager  0.09 Error MiniDisc requires filter manager 0.09 or later
RMEnsure WindowManager  3.98 RMLoad System:Modules.Wimp
RMEnsure WindowManager  3.98 Error MiniDisc requires Window Manager 3.98 or later
|
| Re-pin files from the desktop
/<MiniDisc$Dir>.bin.PinDesk
|
| Load WimpSWIVe
/<MiniDisc$Dir>.bin.WimpSWIVe
|
| IconSprites
IconSprites MiniDiscRes:Sprites.<MiniDiscSprite$Dir>.Icons
|
| Load any additional user sprites
IfThere <MiniDisc$Choices>.Sprites Then IconSprites <MiniDisc$Choices>.Sprites
|
| Re-apply saved Access shares
IfThere <MiniDisc$Choices>.Shares Then Obey <MiniDisc$Choices>.Shares
|
| Unload any existing copy of MiniDisc...
Set MiniDisc$Running True
RMEnsure MiniDisc 0.01 Set MiniDisc$Running False
If "<MiniDisc$Running>" = "True" Then MD_TaskQuit MiniDisc
If "<MiniDisc$Running>" = "True" Then RMKill MiniDisc
UnSet MiniDisc$Running
|
| Ensure that we know what module to load.
If "<MiniDisc$ModuleName>" = "" Then Set MiniDisc$ModuleName "MiniDisc"
|
| Rock n roll!
WimpSlot -min 64K -max 256k
RMRun <MiniDisc$Dir>.RMStore.<MiniDisc$ModuleName>
