home *** CD-ROM | disk | FTP | other *** search
/ RISC User... in a Nutshell / RISC User... in a Nutshell.iso / !Nutshell / !SparkFS / !Run < prev    next >
Encoding:
Text File  |  2000-02-10  |  2.2 KB  |  78 lines
  1. |>$.SparkFS.!SparkFS.!Run
  2. |
  3. | Startup file for SparkFS
  4. |
  5. If "<Boot$OSVersion>" < "400" Then IconSprites <Obey$Dir>.!Sprites Else IconSprites <Obey$Dir>.4Sprites
  6. |
  7. Set Alias$@RunType_DDC SparkFSFiler_OpenDir %%*0
  8. Set Alias$@RunType_C46 SparkFSFiler_OpenDir %%*0
  9. Set Alias$@RunType_68E SparkFSFiler_OpenDir %%*0
  10. Set Alias$@RunType_ABF SparkFSFiler_OpenDir %%*0
  11. Set Alias$@RunType_ABA SparkFSFiler_OpenDir %%*0
  12. Set File$Type_DDC Archive
  13. Set File$Type_C46 Tar
  14. Set File$Type_68E PackdDir
  15. Set File$Type_ABF Cabinet
  16. Set File$Type_ABA CPIO
  17. |
  18. |
  19. WimpSlot -min 128K -max 128K
  20. |
  21. SetMacro Alias$RunSparkFS SparkFSFiler_OpenDir <Obey$Dir>
  22. |
  23. |
  24. SetEval SparkFS$Memory -2
  25. RMEnsure UtilityModule 3.50 SetEval SparkFS$Memory -1
  26. |SetEval SparkFS$Memory &40000
  27. |
  28. |
  29. If "<System$Path>" = "" then Error 0 System resources cannot be found
  30. |
  31. RMEnsure SharedCLibrary 0.00 RMLoad System:Modules.CLib
  32. RMEnsure SharedCLibrary 3.75 Error You need SharedCLibrary 3.75 or later
  33. |
  34. Set SparkFS$Dir     <Obey$Dir>
  35. |
  36. |
  37. If "<InetDBase$Path>" <> "" Then If "<Inet$MimeMappings>" = "" Then <SparkFS$Dir>.Resources.IfExists InetDBase:Mimemap Then Set Inet$MimeMappings InetDBase:Mimemap
  38. |
  39. RMEnsure MimeMap 0.05 If "<Inet$MimeMappings>" <> "" Then <SparkFS$Dir>.Resources.IfExists System:Modules.Network.MimeMap Then RMLoad System:Modules.Network.MimeMap
  40. |
  41. |
  42. Run <SparkFS$Dir>.Resources.Resfind SparkFS
  43. Set SparkFS$Templates Templates
  44. |
  45. WimpSlot -min 128K
  46. |
  47. RMEnsure UtilityModule 3.60 RMEnsure SparkFS 1.36 Run <SparkFS$Dir>.Resources.UK.SparkFS
  48. RMEnsure SparkFS 1.36 Run <SparkFS$Dir>.Resources.SparkFS
  49. |
  50. | Uncomment the next line to enable RISC OS 3 image filing system support
  51. SparkFSImage 1
  52. |
  53. | Uncomment the next line to make image files look like applications
  54. RMEnsure ImageFSFix 0.05 Run <SparkFS$Dir>.Resources.ImageFSFix
  55. |
  56. SparkFSTruncate 255
  57. |
  58. SparkFSBuffers  32
  59. |
  60. SparkFSImageTimeout 5
  61. |
  62. | Change the 0 to a 1 in the next line to allow SparkFS to cache changes to archives
  63. SparkFSCache 1
  64. |
  65. |
  66. | Map ArcFS to filetype 0x3FB - uncomment the next three lines
  67. | (see also !Boot and AtExit files).
  68. | SparkFSMapFiletype 0x8 0x3FB
  69. | Set Alias$@RunType_3FB SparkFSFiler_OpenDir %%*0
  70. | Set File$Type_3FB ArcFSArc
  71. |
  72. |
  73. Set Spark$Template <SparkFSRes$Dir>.Temp
  74. |
  75. SparkFSAtExit <Obey$Dir>.Config.AtExit
  76. |
  77. Run "<SparkFS$Dir>.!RunImage" %*0
  78.