|>$.SparkFS.!SparkFS.!Run
|
| Startup file for SparkFS
|
If "<Boot$OSVersion>" >= "500" Then IconSprites <Obey$Dir>.5Sprites Else If "<Boot$OSVersion>" >= "400" Then IconSprites <Obey$Dir>.4Sprites Else IconSprites <Obey$Dir>.!Sprites
|
Set Alias$@RunType_DDC SparkFSFiler_OpenDir %%*0
Set Alias$@RunType_C46 SparkFSFiler_OpenDir %%*0
Set Alias$@RunType_68E SparkFSFiler_OpenDir %%*0
Set Alias$@RunType_ABF SparkFSFiler_OpenDir %%*0
Set Alias$@RunType_ABA SparkFSFiler_OpenDir %%*0
Set Alias$@RunType_A91 SparkFSFiler_OpenDir %%*0
Set File$Type_DDC Archive
Set File$Type_C46 Tar
Set File$Type_68E PackdDir
Set File$Type_ABF Cabinet
Set File$Type_ABA CPIO
Set File$Type_A91 Zip
|
|
WimpSlot -min 128K -max 128K
|
SetMacro Alias$RunSparkFS SparkFSFiler_OpenDir <Obey$Dir>
|
|
SetEval SparkFS$Memory -2
RMEnsure UtilityModule 3.50 SetEval SparkFS$Memory -1
|SetEval SparkFS$Memory &40000
|
|
If "<System$Path>" = "" then Error 0 System resources cannot be found
|
RMEnsure UtilityModule 3.10 Error This application requires RISC OS 3.10 or later
|RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 RMLoad System:Modules.CallASWI
|RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 Error This application requires CallASWI 0.02 or later
|RMEnsure FPEmulator 4.03 RMLoad System:Modules.FPEmulator
|RMEnsure FPEmulator 4.03 Error This application requires FPEmulator 4.03 or later
|RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
|RMEnsure SharedCLibrary 5.34 Error This application requires SharedCLibrary 5.34 or later
|
Set SparkFS$Dir     <Obey$Dir>
|
|
If "<InetDBase$Path>" <> "" Then If "<Inet$MimeMappings>" = "" Then <SparkFS$Dir>.Resources.IfExists InetDBase:Mimemap Then Set Inet$MimeMappings InetDBase:Mimemap
|
RMEnsure MimeMap 0.05 If "<Inet$MimeMappings>" <> "" Then <SparkFS$Dir>.Resources.IfExists System:Modules.Network.MimeMap Then RMLoad System:Modules.Network.MimeMap
|
|
Run <SparkFS$Dir>.Resources.Resfind SparkFS
Set SparkFS$Templates Templates
|
WimpSlot -min 128K
|
RMEnsure UtilityModule 3.60 RMEnsure SparkFS 1.36 Run <SparkFS$Dir>.Resources.UK.SparkFS
RMEnsure SparkFS 1.36 Run <SparkFS$Dir>.Resources.SparkFS
|
| Uncomment the next line to enable RISC OS 3 image filing system support
SparkFSImage 1
|
| Uncomment the next line to make image files look like applications
RMEnsure ImageFSFix 0.05 Run <SparkFS$Dir>.Resources.ImageFSFix
|
SparkFSTruncate 255
|
SparkFSBuffers  32
|
SparkFSImageTimeout 5
|
| Change the 0 to a 1 in the next line to allow SparkFS to cache changes to archives
SparkFSCache 1
|
|
| Map ArcFS to filetype 0x3FB - uncomment the next three lines
| (see also !Boot and AtExit files).
| SparkFSMapFiletype 0x8 0x3FB
| Set Alias$@RunType_3FB SparkFSFiler_OpenDir %%*0
| Set File$Type_3FB ArcFSArc
|
|
Set Spark$Template <SparkFSRes$Dir>.Temp
|
SparkFSAtExit <Obey$Dir>.Config.AtExit
|
Run "<SparkFS$Dir>.!RunImage" %*0
