|
| $Source: /ADFS::4/\044/Shared/unix/cvs/MiniDisc/Release/Currentbuild/!MiniDisc/!Run,feb,v $
|
| $Revision: 1.7 $
| $Date: 2003/09/08 23:30:01 $
|
|
| 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 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
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
|
| 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>
