home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / blabla / bed_defs&macros / rexx / file_startup.bed
Text File  |  1998-01-24  |  982b  |  54 lines
  1. /*
  2. ** $VER: File_Startup.bed 1.02 (21.01.97)
  3. **
  4. ** by Marco Negri with small modifications by Karol Bryd
  5. **
  6. ** ARexx Macro executed at the opening of a file of Blacks Editor
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. GetFileInfo
  12. PARSE VAR RESULT . . '"'name'"'
  13.  
  14. IF NAME ~= "" THEN DO
  15.     dotpos = LASTPOS('.', name)
  16.  
  17.     IF dotpos = 0 THEN
  18.         ext = ""
  19.     ELSE
  20.         ext = SUBSTR(name, dotpos+1)
  21.     END
  22.  
  23.     SELECT
  24.  
  25. /*
  26. ** You can insert here how many extensions you want:
  27. **
  28. ** For example:
  29. **
  30. ** WHEN (ext = 'asm') | (ext = 's') | (ext = 'a') THEN DO
  31. **     OpenPrefs "BED:Support/Assembler.prf"
  32. **     OpenDefinitions "BED:Support/Assembler.dfn"
  33. ** END
  34. **
  35. */
  36.  
  37.         WHEN (ext = 'c') | (ext = 'h') THEN DO
  38.             OpenPrefs "BED:Support/Startup.prf"
  39.             OpenDefinitions "BED:Support/Startup.dfn"
  40.         END
  41.  
  42.         WHEN (ext = 'e') THEN DO
  43.             OpenPrefs "BED:Support/StartupE.prf"
  44.             OpenDefinitions "BED:Support/StartupE.dfn"
  45.         END
  46.  
  47.         OTHERWISE DO
  48.             OpenPrefs "BED:Support/Startup.prf"
  49.             OpenDefinitions "BED:Support/Startup.dfn"
  50.         END
  51.  
  52.     END
  53. END
  54.