home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / System / EASys / InstallPack_47 / EASys!_inst / EASys!_iGuide / Init / ModAS.sseq < prev   
Text File  |  1999-11-05  |  2KB  |  70 lines
  1.  
  2. ;BEGIN ModAS © TNE)  Startup Phases
  3.  
  4. ;Startup Phase  a_Init
  5. ;Initialize System before starting GUI. Assigns, Pathes, Presets, special hardware drivers.
  6. set startdir a_Init
  7. copy SYS:StartSys/$startdir/~(_#?|#?.info) T:$startdir CLONE ALL QUIET
  8. list >T:ScriptList T:$startdir FILES LFORMAT "execute *"T:$startdir/%n*""
  9. sort T:ScriptList to T:PhaseScript
  10. execute T:PhaseScript
  11. delete T:PhaseScript T:ScriptList T:$startdir ALL QUIET
  12. setenv Flags/DONE_StartupA 1
  13.  
  14. ;Startup Phase b_GUI
  15. ;Intuition launch and GUI-Settings are now located in b_GUI/1_IntuitionStartup
  16. set startdir b_GUI
  17. copy SYS:StartSys/$startdir/~(_#?|#?.info) T:$startdir CLONE ALL QUIET
  18. list >T:ScriptList T:$startdir FILES LFORMAT "execute *"T:$startdir/%n*""
  19. sort T:ScriptList to T:PhaseScript
  20. execute T:PhaseScript
  21. delete T:PhaseScript T:ScriptList T:$startdir ALL QUIET
  22. setenv Flags/DONE_StartupB 1
  23.  
  24. ;Startup Phase c_Prepare
  25. ;execute former user startup entries as modular scripts
  26. IF ${Flags/StartVerbose} EQ 1
  27.  echo "*n*e[1m Preparing and profiling Apps ...*e[0m*n*n"
  28. endif
  29. set startdir c_prepare
  30. copy SYS:StartSys/$startdir/~(_#?|#?.info) T:$startdir CLONE ALL QUIET
  31. list >T:ScriptList T:$startdir FILES LFORMAT "execute *"T:$startdir/%n*""
  32. sort T:ScriptList to T:PhaseScript
  33. execute T:PhaseScript
  34. delete T:PhaseScript T:ScriptList T:$startdir ALL QUIET
  35. setenv Flags/DONE_StartupC 1
  36.  
  37. ;keep user startup for backwards compatibility
  38. IF EXISTS s:user-startup
  39.   Execute s:user-startup
  40. EndIF
  41.  
  42. ;Startup Phase d_System
  43. ;initialize System, Drivers, ...
  44. IF ${Flags/StartVerbose} EQ 1
  45.  echo "*ec*n*n*e[1m System Profiling ...*e[0m*n*n"
  46. endif
  47. set startdir d_System
  48. copy SYS:StartSys/$startdir/~(_#?|#?.info) T:$startdir CLONE ALL QUIET
  49. list >T:ScriptList T:$startdir FILES LFORMAT "execute *"T:$startdir/%n*""
  50. sort T:ScriptList to T:PhaseScript
  51. execute T:PhaseScript
  52. delete T:PhaseScript T:ScriptList T:$startdir ALL QUIET
  53. setenv Flags/DONE_StartupD 1
  54.  
  55. ;Startup Phase e_WB
  56. ;Workbench is now loaded by e_WB/1_Workbench. Workbench related stuff.
  57. if ${Flags/MAINcontinue} eq 1; durch Boot-Menu als Flag gesetzt
  58.   delete ENV:Flags/MAINcontinue quiet
  59.  
  60.   ;Startup Phase e_WB
  61.   set startdir e_WB
  62.   copy SYS:StartSys/$startdir/~(_#?|#?.info) T:$startdir CLONE ALL QUIET
  63.   list >T:ScriptList T:$startdir FILES LFORMAT "execute *"T:$startdir/%n*""
  64.   sort T:ScriptList to T:PhaseScript
  65.   run >NIL: execute T:PhaseScript
  66. endif
  67.  
  68. ;END ModAS Phases
  69.  
  70.