| Prepare RISC OS Direct disc image for upgrade
|
If "<Boot$Dir>"="" Then Error !Boot must have been run before you can use this update script
|
echo Preparing your drive for upgrade to the latest RISC OS software
echo
echo Creating folder on desktop for backups of any files we overwrite
echo
|
IfThere <Choices$Write>.Pinboard Then Else cdir <Choices$Write>.Pinboard
IfThere <Choices$Write>.Pinboard.SavedFiles Then Else cdir <Choices$Write>.Pinboard.SavedFiles
Set rodirect$backupdir <Choices$Write>.Pinboard.SavedFiles.DirectBackups
IfThere <rodirect$backupdir> Then Else cdir <rodirect$backupdir>
|
Echo Backing up files...
|
IfThere <Inet$MimeMappings> Then Copy <Inet$MimeMappings> <rodirect$backupdir>.MimeMap ~CF~NR~V
IfThere Choices:NetRadio Then Copy Choices:NetRadio <rodirect$backupdir>.NetRadio ~CF~NR~V
IfThere Choices:Boot.Tasks.Pinboard Then Copy Choices:Boot.Tasks.Pinboard <rodirect$backupdir>.Pinboard ~CF~NR~V
IfThere Choices:Boot.Desktop Then Copy Choices:Boot.Desktop <rodirect$backupdir>.Desktop ~CF~NR~V
IfThere Choices:Boot.PreDesktop Then Copy Choices:Boot.PreDesktop <rodirect$backupdir>.PreDesktop ~CF~NR~V
IfThere Choices:Boot.PreDesk.KeyMapper Then Copy Choices:Boot.PreDesk.KeyMapper <rodirect$backupdir>.KeyMapper ~CF~NR~V
IfThere Choices:Internet Then Copy Choices:Internet <rodirect$backupdir>.Internet ~CF~NR~V
IfThere Boot:^.Network.!Otter-browser Then cdir <rodirect$backupdir>.Network
IfThere Boot:^.Network.!Otter-browser Then Rename Boot:^.Network.!Otter-browser <rodirect$backupdir>.Network.!Otter-browser
IfThere Boot:^.Programming.Python.Python3Alpha4 Then cdir <rodirect$backupdir>.Programming
IfThere Boot:^.Programming.Python.Python3Alpha4 Then Rename Boot:^.Programming.Python.Python3Alpha4 <rodirect$backupdir>.Programming.Python3Alpha4
|
| Remove old Disclaimer - it will be replaced during upgrade
IfThere Boot:^.Documents.Disclaimer/txt Then *Remove Boot:^.Documents.Disclaimer/txt
|
echo
Echo Preparing files on disc so they can be updated correctly...
|
| Can't copy zips on top of zips with SparkFS
|
IfThere Boot:^.Diversions.!ScummVM.data.helpdialog/zip Then SetType Boot:^.Diversions.!ScummVM.data.helpdialog/zip &FFD
IfThere Boot:^.Diversions.!ScummVM.data.residualvm/zip Then SetType Boot:^.Diversions.!ScummVM.data.residualvm/zip &FFD
IfThere Boot:^.Diversions.!ScummVM.data.scummclassic/zip Then SetType Boot:^.Diversions.!ScummVM.data.scummclassic/zip &FFD
IfThere Boot:^.Diversions.!ScummVM.data.scummmodern/zip Then SetType Boot:^.Diversions.!ScummVM.data.scummmodern/zip &FFD
IfThere Boot:^.Diversions.!ScummVM.data.scummremastered/zip Then SetType Boot:^.Diversions.!ScummVM.data.scummremastered/zip &FFD
IfThere Boot:^.Diversions.!ScummVM.data.wintermute/zip Then SetType Boot:^.Diversions.!ScummVM.data.wintermute/zip &FFD
|
| StrongEd needs to overwrite a file with a folder
|
IfThere Boot:^.Utilities.Text.StrongED.!StrongED.Defaults.Tools.!ExportSED Then Rename Boot:^.Utilities.Text.StrongED.!StrongED.Defaults.Tools.!ExportSED Boot:^.Utilities.Text.StrongED.!StrongED.Defaults.Tools.o!ExportSED
IfThere Boot:^.Utilities.Text.StrongED.!StrongED.Defaults.Tools.!ScriptSED.!RunImage Then Rename Boot:^.Utilities.Text.StrongED.!StrongED.Defaults.Tools.!ScriptSED.!RunImage Boot:^.Utilities.Text.StrongED.!StrongED.Defaults.Tools.!ScriptSED.o!RunImage
|
| Lots of !Printers tends to be locked
|
IfThere Boot:^.Printing.!Printers Then Access Boot:^.Printing.!Printers.* RW
IfThere Boot:^.Printing.!Printers Then Access Boot:^.Printing.!Printers.ps.* RW
IfThere Boot:^.Printing.!Printers Then Access Boot:^.Printing.!Printers.ps.PSFiles.Level1.* RW
IfThere Boot:^.Printing.!Printers Then Access Boot:^.Printing.!Printers.ps.PSFiles.Level2.* RW
IfThere Boot:^.Printing.!PrintEdit Then Access Boot:^.Printing.!PrintEdit.* RW
|
| Also ChangeFSI
|
IfThere Boot:^.Utilities.!ChangeFSI Then Access Boot:^.Utilities.!ChangeFSI.* RW
IfThere Boot:^.Utilities.!ChangeFSI.djpeg Then Access Boot:^.Utilities.!ChangeFSI.djpeg.* RW
IfThere Boot:^.Utilities.!ChangeFSI Then Access Boot:^.Utilities.!ChangeFSI.Documents.* RW
|
| Also !Patch
|
IfThere Boot:^.Utilities.Patches.!Patch Then Access Boot:^.Utilities.Patches.!Patch.* RW
IfThere Boot:^.Utilities.Patches.!Patch Then Access Boot:^.Utilities.Patches.!Patch.Modules.* RW
|
| NetRadio has revised list of stations
|
IfThere <Choices$Write>.NetRadio.List Then Rename <Choices$Write>.NetRadio.List <Choices$Write>.NetRadio.OldList
|
| Do quick-n-dirty preparation for 5.30 just in case
|
SetEval rodirect$530notready 1
IfThere Boot:RO530Hook Then SetEval rodirect$530notready 0
If <rodirect$530notready> THEN cdir <Boot$Dir>.RO530Hook
If <rodirect$530notready> THEN cdir <Boot$Dir>.RO530Hook.Apps
If <rodirect$530notready> THEN cdir <Boot$Dir>.RO530Hook.Boot
If <rodirect$530notready> THEN cdir <Boot$Dir>.RO530Hook.Res
Unset rodirect$530notready
|
echo Preparations complete - you may now go ahead and update your copy of RISC OS Direct
