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 If EXISTS ENV:SYS/theme.var
  54     Assign THEME: ${SYS/theme.var}
  55 else
  56     Assign THEME: THEMES:OS3.1/
  57 endif
  58
  59 Touch >NIL: FONTS:__TEST__
  60 If WARN
  61     Makedir RAM:Fonts
  62     Assign FONTS: RAM:Fonts
  63     Copy >NIL: SYS:Fonts FONTS: ALL CLONE NOREQ
  64 Endif
  65 Assign >NIL: FONTS: FONTS:Russian ADD
  66
  67 IF EXISTS FONTS:__TEST__
  68     Delete FONTS:__TEST__ QUIET
  69 Endif
  70
  71 If NOT EXISTS FONTS:fixed.font
  72     FixFonts
  73 EndIf
  74
  75 AddDatatypes REFRESH QUIET
  76 IPrefs
  77 Run <NIL: >NIL: ConClip
  78
  79 If EXISTS C:RexxMast
  80     Assign REXX: S:
  81     Run <NIL: >NIL: C:RexxMast
  82 EndIf
  83
  84 If EXISTS C:Decoration
  85     If EXISTS ENV:SYS/theme.var
  86         C:Decoration <NIL: >NIL:
  87     EndIf
  88 Endif
  89
  90 Assign EXISTS Extras: >NIL:
  91 If WARN
  92     If Exists $EXTRASPATH
  93         Assign Extras: $EXTRASPATH
  94     Else
  95         Assign Extras: SYS:Extras >NIL:
  96         If WARN
  97             Assign Extras: NIL: >NIL:
  98         EndIf
  99     EndIf
 100 Endif
 101
 102 Assign EXISTS Development: >NIL:
 103 If WARN
 104     If Exists $DEVELPATH
 105         Assign Development: $DEVELPATH
 106     EndIf
 107 Endif
 108 Assign EXISTS Development: >NIL:
 109 If WARN
 110     Assign Development: SYS:Development >NIL:
 111 EndIf
 112
 113
 114 If EXISTS ENV:SYS/Packages
 115     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"
 116     Execute T:P
 117     Delete T:P QUIET
 118     CD SYS:
 119 EndIf
 120
 121 Protect S:PCD s ADD QUIET
 122
 123 If EXISTS S:User-Startup
 124     Execute S:User-Startup
 125 EndIf
 126
 127 WANDERER:Wanderer
 128
 129 If NOT ERROR
 130     EndCLI
 131 EndIf