home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / RiscOS / APP / DEVS / C / QSYSTE.ZIP / !QSystem / !Run < prev    next >
Text File  |  1997-11-12  |  1KB  |  50 lines
  1. |
  2. | !Run file for !QSystem
  3. |
  4. | QSystem ⌐ Stu Smith 1997
  5. |
  6.  
  7. Set QSystem$Dir <Obey$Dir>
  8. Set Q$Dir <Obey$Dir>
  9. IconSprites <QSystem$Dir>.!Sprites
  10. If "<Qbin$Path>" = "" Then Set Run$Path <Run$Path>,Qbin:
  11. Set Qbin$Path <Q$Dir>.bin.
  12. Set Q$Path <Q$Dir>.lib.
  13.  
  14. |
  15. | Assume we're using UnixLibQ
  16. | (port of UnixLib)
  17. |
  18.  
  19. | If "<UnixLibQ$Dir>" = "" Then Error Can't find UnixLib libraries.
  20.  
  21. | Set the return code limit. Unixlib encodes information within this range
  22. Set Sys$RCLimit 65536
  23.  
  24. | Place to store temporary files
  25. If "<UnixFS$/tmp>" = "" Then Set UnixFS$/tmp <Wimp$ScrapDir>
  26.  
  27. |
  28. | We need some sort of DDEUtils
  29. |
  30.  
  31. RMEnsure DDEUtils 0.02 IfThere System:Modules.DDEUtils RMLoad System:Modules.DDEUtils
  32. |
  33. | If you have GCC, an alternative can be loaded
  34. | RMEnsure DDEUtils 0.01 %Obey -c <GCC$Dir>.support.DDEUtilsCy.InitDDECy
  35. | RMEnsure DDEUtils 0.01 RMRun <GCC$Dir>.support.DDEUtilsCy.DDEUtilsCy
  36. RMEnsure DDEUtils 0.01 Error Can't find DDEUtils module
  37.  
  38. RMEnsure UtilityModule 3.10 Obey
  39. | Details specific to RISC OS 3.10 and above
  40. RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 RMLoad System:Modules.CallASWI
  41.  
  42. |
  43. | I find this useful
  44. |
  45.  
  46. | If "<UnixLibQ$Dir>" <> "" Then Obey <UnixLibQ$Dir>.!Run
  47.  
  48. |Filer_OpenDir <QSystem$Dir>.src.qas
  49. |Filer_OpenDir <QSystem$Dir>.src.qlink
  50.