workbench/s/Startup-Sequence

   1 SetClock LOAD
   2
   3 Mount PIPEFS:
   4
   5 FailAt 21
   6
   7 Makedir RAM:Clipboards RAM:ENV RAM:ENV/SYS
   8 If NOT EXISTS RAM:T
   9     Makedir RAM:T
  10 EndIf
  11
  12 Assign ENV:     RAM:ENV
  13 Assign T:       RAM:T
  14 Assign CLIPS:   RAM:Clipboards
  15
  16 Assign KEYMAPS: DEVS:Keymaps
  17 Assign LOCALE:  SYS:Locale
  18 Assign LIBS:    SYS:Classes ADD
  19 Assign FONTS:   SYS:Fonts
  20 Assign >NIL: Fonts: SYS:Fonts/Russian ADD
  21 Assign HELP:    LOCALE:Help DEFER
  22 Assign THEMES:  SYS:System/Themes
  23 Assign THEME:   THEMES:Mason
  24 Assign IMAGES:  SYS:System/Images DEFER
  25 ;Assign PRINTERS: DEVS:Printers
  26 Assign WANDERER: SYS:System/Wanderer DEFER
  27
  28 If EXISTS SYS:DiskImages
  29     Assign FDSK: SYS:DiskImages
  30 EndIf
  31
  32 Touch PIPEFS:systempipe
  33 Assign PIPE:    PIPEFS:systempipe
  34
  35 Path C: SYS:System S: SYS:Prefs SYS:Tools SYS:Utilities QUIET
  36
  37 If EXISTS SYS:Tools/Commodities
  38     Path SYS:Tools/Commodities QUIET ADD
  39 EndIf
  40
  41 If EXISTS SYS:Demos
  42     Path SYS:Demos ADD QUIET
  43 EndIf
  44
  45 If EXISTS Sys:Rexxc
  46     Path Sys:Rexxc ADD QUIET
  47 Endif
  48
  49 Copy >NIL: ENVARC: ENV: ALL CLONE NOREQ
  50
  51 Touch >NIL: FONTS:__TEST__
  52 If WARN
  53     Makedir RAM:Fonts
  54     Assign FONTS: RAM:Fonts
  55     Copy >NIL: SYS:Fonts FONTS: ALL CLONE NOREQ
  56 Endif
  57
  58 IF EXISTS FONTS:__TEST__
  59     Delete FONTS:__TEST__ QUIET
  60 Endif
  61
  62 If NOT EXISTS FONTS:fixed.font
  63     FixFonts
  64 EndIf
  65
  66 AddDatatypes REFRESH QUIET
  67 IPrefs
  68 Run <NIL: >NIL: ConClip
  69
  70 If EXISTS C:RexxMast
  71     Assign REXX: S:
  72     Run <NIL: >NIL: C:RexxMast
  73 EndIf
  74
  75 If EXISTS ENV:SYS/Packages
  76     List ENV:SYS/Packages NOHEAD FILES TO T:P LFORMAT="If EXISTS $SYS/Packages/%s*NCD $SYS/Packages/%s*NIf EXISTS S/Package-Startup*NExecute S/Package-Startup*NEndif*NEndif*N"
  77     Execute T:P
  78     Delete T:P QUIET
  79     CD SYS:
  80 EndIf
  81
  82 If EXISTS S:User-Startup
  83     Execute S:User-Startup
  84 EndIf
  85
  86 WANDERER:Wanderer
  87
  88 If NOT ERROR
  89     EndCLI
  90 EndIf