workbench/s/Startup-Sequence

   1 SetClock LOAD
   2
   3 FailAt 21
   4
   5 Makedir RAM:Clipboards RAM:ENV RAM:ENV/SYS
   6 If NOT EXISTS RAM:T
   7     Makedir RAM:T
   8 EndIf
   9
  10 Assign ENV:     RAM:ENV
  11 Assign T:       RAM:T
  12 Assign CLIPS:   RAM:Clipboards
  13
  14 Assign KEYMAPS: DEVS:Keymaps
  15 Assign LOCALE:  SYS:Locale
  16 Assign LIBS:    SYS:Classes ADD
  17 Assign FONTS:   SYS:Fonts
  18 Assign >NIL: Fonts: SYS:Fonts/Russian ADD
  19 Assign HELP:    LOCALE:Help DEFER
  20 Assign THEMES:  SYS:System/Themes
  21 Assign IMAGES:  SYS:System/Images DEFER
  22 ;Assign PRINTERS: DEVS:Printers
  23 Assign WANDERER: SYS:System/Wanderer DEFER
  24
  25 Mount >NIL: DEVS:DOSDrivers/~(#?.info)
  26
  27 If EXISTS SYS:Classes/USB
  28     Assign USBCLASSES: SYS:Classes/USB
  29 EndIf
  30
  31 If EXISTS SYS:DiskImages
  32     Assign FDSK: SYS:DiskImages
  33 EndIf
  34
  35 Touch PIPEFS:systempipe
  36 Assign PIPE:    PIPEFS:systempipe
  37
  38 Path C: SYS:System S: SYS:Prefs SYS:Tools SYS:Utilities QUIET
  39
  40 If EXISTS SYS:Tools/Commodities
  41     Path SYS:Tools/Commodities QUIET ADD
  42 EndIf
  43
  44 If EXISTS SYS:Demos
  45     Path SYS:Demos ADD QUIET
  46 EndIf
  47
  48 If EXISTS Sys:Rexxc
  49     Path Sys:Rexxc ADD QUIET
  50 Endif
  51
  52 Copy >NIL: ENVARC: ENV: ALL NOPRO NOREQ
  53
  54 Assign THEME: $SYS/theme.var
  55
  56 Touch >NIL: FONTS:__TEST__
  57 If WARN
  58     Makedir RAM:Fonts
  59     Assign FONTS: RAM:Fonts
  60     Copy >NIL: SYS:Fonts FONTS: ALL CLONE NOREQ
  61 Endif
  62
  63 IF EXISTS FONTS:__TEST__
  64     Delete FONTS:__TEST__ QUIET
  65 Endif
  66
  67 If NOT EXISTS FONTS:fixed.font
  68     FixFonts
  69 EndIf
  70
  71 AddDatatypes REFRESH QUIET
  72 IPrefs
  73 Run <NIL: >NIL: ConClip
  74
  75 If EXISTS C:RexxMast
  76     Assign REXX: S:
  77     Run <NIL: >NIL: C:RexxMast
  78 EndIf
  79
  80 C:Decoration <NIL: >NIL:
  81
  82 Assign EXISTS Extras: >nil:
  83 If WARN
  84     If Exists $EXTRASPATH
  85         Assign Extras: $EXTRASPATH
  86     EndIf
  87 Endif
  88 Assign EXISTS Extras: >nil:
  89 If WARN
  90     Assign Extras: sys:Extras
  91 EndIf
  92
  93 If EXISTS ENV:SYS/Packages
  94     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"
  95     Execute T:P
  96     Delete T:P QUIET
  97     CD SYS:
  98 EndIf
  99
 100 If EXISTS S:User-Startup
 101     Execute S:User-Startup
 102 EndIf
 103
 104 WANDERER:Wanderer
 105
 106 If NOT ERROR
 107     EndCLI
 108 EndIf