home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / loadscript.self next >
Encoding:
Text File  |  1993-07-22  |  1.9 KB  |  55 lines
  1. " Load scripts on a specific path given in lobby searchPath "
  2. " By Michael Richardson <mcr@sandelman.ocunix.on.ca> "
  3. " Modified by Danny Epstein for to be compatible with Self 1.3 beta "
  4. " Version 1 "
  5. " For Self 1.3 beta "
  6. "
  7. * $Id: loadscript.self,v 1.1 1993/05/03 19:17:32 richards Exp richards $
  8. * 
  9. * $Log: loadscript.self,v $
  10. # Revision 1.1  1993/05/03  19:17:32  richards
  11. # Initial revision
  12. #
  13. *
  14. "
  15.  
  16. "Note that _OpenMode searches relative to the directory containing the
  17. snapshot whereas _RunScript searches relative to the SELFDIR
  18. environment variable.  This code assumes that SELFDIR is
  19. ~/self1.3-beta/source and that the snapshot is in ~/self1.3-beta.
  20. Also, _OpenMode assumes the full filname is specified, whereas
  21. _RunScript adds the '.self' suffix itself if it is left out.  This
  22. code also assumes that all Self files use the '.self' suffix."
  23.  
  24. _AddSlotsIfAbsent: ( | _ filein* = () | )
  25. filein _Define: ( |
  26.     ^ searchPath <- list copy.
  27.     ^ loadVerbose <- false.
  28.     ^ load = (
  29.     searchPath do: [ | :aDir. fullname. |
  30.         fullname: aDir, self ,'.self'.
  31.         loadVerbose ifTrue: [ ('Testing for ',fullname) printLine. ].
  32.         (unixFile exists: fullname) ifTrue: [
  33.         loadVerbose ifTrue: [('Loading script: ', fullname) printLine].
  34.         ^ fullname canonicalize _RunScript.
  35.         ].
  36.         ].
  37.     searchPath do: [ | :aDir. fullname. |
  38.         fullname: aDir, self.
  39.         loadVerbose ifTrue: [ ('Testing for ',fullname) printLine. ].
  40.         (unixFile exists: fullname) ifTrue: [
  41.         loadVerbose ifTrue: [('Loading script: ',fullname) printLine].
  42.         ^ fullname canonicalize _RunScript.
  43.         ].
  44.     ].
  45.     ('\'', self, '\' not found in searchPath.') printLine.
  46.     'File not loaded.' printLine.
  47.     nil
  48.     ).
  49. | )
  50.  
  51. searchPath addLast: ''           "~/self/"            "temporary changes"
  52. searchPath addLast: 'mcrhack/'    "~/self/mcrhack/"    "local hacks"
  53. searchPath addLast: 'changes/'   "~/self/changes/"    "changes"
  54.  
  55.