| !Run file for MimeMan

| Standard stuff. CarryOn is used later as a way of stopping MimeMan from here,
| without having to resort to a nasty, non-multitasking Error command
Set MimeMan$Dir <Obey$Dir>
Set MimeMan$CarryOn "True"
IconSprites <MimeMan$Dir>.!Sprites

| Set minimum wimpslot for ResFind
WimpSlot -Min 40K

| Internationalisation stuff
Run <MimeMan$Dir>.Resources.ResFind MimeMan

| Set up the location of the Help variables
Set MimeMan$Meta MimeManRes:!Meta

| Set minimum wimpslot for MultiError
WimpSlot -Min 40K
| We need RISC OS 4 at least (long file names)
RMEnsure UtilityModule 4.0 Run MimeManRes:MultiError -l MimeMan -t MimeManRes:Templates -m MimeManRes:Messages -k error_minimumos
RMEnsure UtilityModule 4.0 UnSet MimeMan$CarryOn

| Need to RmEnsure 1.07 of SUL
RMEnsure SharedUnixLibrary 1.07 IfThere System:Modules.SharedULib Then RMLoad System:Modules.SharedULib
RMEnsure SharedUnixLibrary 1.07 Run MimeManRes:MultiError -l MimeMan -t MimeManRes:Templates -m MimeManRes:Messages -k error_minimumunixlib
RMEnsure SharedUnixLibrary 1.07 UnSet MimeMan$CarryOn

| We require SysLog. It needs all sorts of convolusion to check if it can be loaded, then load it.
| Combining this with the use of MultiError gives a quite messy result... :-(
If "<SysLog$Dir>" = "" Then MimeManRes:MultiError -l MimeMan -t MimeManRes:Templates -m MimeManRes:Messages -k error_needsyslog
If "<SysLog$Dir>" = "" Then Unset MimeMan$CarryOn
If "<SysLog$Dir>" <> "" Then RMEnsure SysLog 0.17 IfThere <SysLog$Dir>.!Run Then Run <SysLog$Dir>.!Run
If "<SysLog$Dir>" <> "" Then RMEnsure SysLog 0.17 MimeManRes:MultiError -l MimeMan -t MimeManRes:Templates -m MimeManRes:Messages -k error_needsyslog
If "<SysLog$Dir>" <> "" Then RMEnsure SysLog 0.17 Unset MimeMan$CarryOn

| This is used for links which open directories etc in the HTML help file.
If "<Alias$URLOpen_HTMLAction>" = "" Then Set Alias$URLOpen_HTMLAction Run MimeManRes:HTMLAction %%*0

WimpSlot -Min 1200k -Max 1200k
If "<MimeMan$CarryOn>" = "True" Then Run <MimeMan$Dir>.!RunImage
| 2>Mem::Memphis.$.ErrorLog
Unset MimeMan$FromConfigure
UnSet MimeMan$CarryOn
IfThere <Wimp$ScrapDir>.MimeMan.UpdateScript Then Filer_Run <Wimp$ScrapDir>.MimeMan.UpdateScript