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 HELP:    LOCALE:Help DEFER
  19 Assign THEMES:  SYS:System/Themes >NIL:
  20 Assign IMAGES:  SYS:System/Images DEFER
  21 ;Assign PRINTERS: DEVS:Printers
  22 Assign WANDERER: SYS:System/Wanderer DEFER
  23
  24 If EXISTS SYS:Classes/USB
  25     Assign USBCLASSES: SYS:Classes/USB
  26 EndIf
  27
  28 If EXISTS SYS:DiskImages
  29     Assign FDSK: SYS:DiskImages
  30 EndIf
  31
  32 Mount >NIL: DEVS:DOSDrivers/~(#?.info)
  33
  34 Touch PIPEFS:systempipe
  35 Assign PIPE:    PIPEFS:systempipe
  36
  37 Path C: SYS:System S: SYS:Prefs SYS:Tools SYS:Utilities QUIET
  38
  39 If EXISTS SYS:Tools/Commodities
  40     Path SYS:Tools/Commodities QUIET ADD
  41 EndIf
  42
  43 If EXISTS SYS:Demos
  44     Path SYS:Demos ADD QUIET
  45 EndIf
  46
  47 If EXISTS Sys:Rexxc
  48     Path Sys:Rexxc ADD QUIET
  49 Endif
  50
  51 Copy >NIL: ENVARC: ENV: ALL NOPRO NOREQ
  52
  53 Assign THEME: $SYS/theme.var
  54
  55 Touch >NIL: FONTS:__TEST__
  56 If WARN
  57     Makedir RAM:Fonts
  58     Assign FONTS: RAM:Fonts
  59     Copy >NIL: SYS:Fonts FONTS: ALL CLONE NOREQ
  60 Endif
  61 Assign >NIL: FONTS: FONTS:Russian ADD
  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 If EXISTS C:Decoration
  81     C:Decoration <NIL: >NIL:
  82 Endif
  83
  84 Assign EXISTS Extras: >NIL:
  85 If WARN
  86     If Exists $EXTRASPATH
  87         Assign Extras: $EXTRASPATH
  88     Else
  89         Assign Extras: SYS:Extras >NIL:
  90         If WARN
  91             Assign Extras: NIL: >NIL:
  92         EndIf
  93     EndIf
  94 Endif
  95
  96 Assign EXISTS Development: >NIL:
  97 If WARN
  98     If Exists $DEVELPATH
  99         Assign Development: $DEVELPATH
 100     EndIf
 101 Endif
 102 Assign EXISTS Development: >NIL:
 103 If WARN
 104     Assign Development: SYS:Development >NIL:
 105 EndIf
 106
 107
 108 If EXISTS ENV:SYS/Packages
 109     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"
 110     Execute T:P
 111     Delete T:P QUIET
 112     CD SYS:
 113 EndIf
 114
 115 If EXISTS S:User-Startup
 116     Execute S:User-Startup
 117 EndIf
 118
 119 WANDERER:Wanderer
 120
 121 If NOT ERROR
 122     EndCLI
 123 EndIf