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 Mount >NIL: DEVS:DOSDrivers/~(#?.info)
  25
  26 If EXISTS SYS:Classes/USB
  27     Assign USBCLASSES: SYS:Classes/USB
  28 EndIf
  29
  30 If EXISTS SYS:DiskImages
  31     Assign FDSK: SYS:DiskImages
  32 EndIf
  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     EndIf
  89 Endif
  90 Assign EXISTS Extras: >NIL:
  91 If WARN
  92     Assign Extras: SYS:Extras >NIL:
  93 EndIf
  94
  95 Assign EXISTS Development: >NIL:
  96 If WARN
  97     If Exists $DEVELPATH
  98         Assign Development: $DEVELPATH
  99     EndIf
 100 Endif
 101 Assign EXISTS Development: >NIL:
 102 If WARN
 103     Assign Development: SYS:Development >NIL:
 104 EndIf
 105
 106
 107 If EXISTS ENV:SYS/Packages
 108     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"
 109     Execute T:P
 110     Delete T:P QUIET
 111     CD SYS:
 112 EndIf
 113
 114 If EXISTS S:User-Startup
 115     Execute S:User-Startup
 116 EndIf
 117
 118 WANDERER:Wanderer
 119
 120 If NOT ERROR
 121     EndCLI
 122 EndIf