home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
RiscOS
/
APP
/
DEVS
/
C
/
QSYSTE.ZIP
/
!QSystem
/
!Run
< prev
next >
Wrap
Text File
|
1997-11-12
|
1KB
|
50 lines
|
| !Run file for !QSystem
|
| QSystem ⌐ Stu Smith 1997
|
Set QSystem$Dir <Obey$Dir>
Set Q$Dir <Obey$Dir>
IconSprites <QSystem$Dir>.!Sprites
If "<Qbin$Path>" = "" Then Set Run$Path <Run$Path>,Qbin:
Set Qbin$Path <Q$Dir>.bin.
Set Q$Path <Q$Dir>.lib.
|
| Assume we're using UnixLibQ
| (port of UnixLib)
|
| If "<UnixLibQ$Dir>" = "" Then Error Can't find UnixLib libraries.
| Set the return code limit. Unixlib encodes information within this range
Set Sys$RCLimit 65536
| Place to store temporary files
If "<UnixFS$/tmp>" = "" Then Set UnixFS$/tmp <Wimp$ScrapDir>
|
| We need some sort of DDEUtils
|
RMEnsure DDEUtils 0.02 IfThere System:Modules.DDEUtils RMLoad System:Modules.DDEUtils
|
| If you have GCC, an alternative can be loaded
| RMEnsure DDEUtils 0.01 %Obey -c <GCC$Dir>.support.DDEUtilsCy.InitDDECy
| RMEnsure DDEUtils 0.01 RMRun <GCC$Dir>.support.DDEUtilsCy.DDEUtilsCy
RMEnsure DDEUtils 0.01 Error Can't find DDEUtils module
RMEnsure UtilityModule 3.10 Obey
| Details specific to RISC OS 3.10 and above
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 RMLoad System:Modules.CallASWI
|
| I find this useful
|
| If "<UnixLibQ$Dir>" <> "" Then Obey <UnixLibQ$Dir>.!Run
|Filer_OpenDir <QSystem$Dir>.src.qas
|Filer_OpenDir <QSystem$Dir>.src.qlink