workbench/s/Startup-Sequence

   1 SetClock LOAD
   2
   3 FailAt 21
   4
   5 Makedir RAM:Clipboards
   6 If NOT EXISTS RAM:T
   7     Makedir RAM:T
   8 EndIf
   9 If NOT EXISTS RAM:ENV
  10     Makedir RAM:ENV
  11     Assign ENV: RAM:ENV
  12 EndIf
  13
  14 Assign T:       RAM:T
  15 Assign CLIPS:   RAM:Clipboards
  16
  17 Assign KEYMAPS: DEVS:Keymaps
  18 Assign LOCALE:  SYS:Locale
  19 Assign LIBS:    SYS:Classes ADD
  20 Assign FONTS:   SYS:Fonts
  21 Assign HELP:    LOCALE:Help DEFER
  22 Assign THEMES:  SYS:System/Themes >NIL:
  23 Assign IMAGES:  SYS:System/Images DEFER
  24 ;Assign PRINTERS: DEVS:Printers
  25 Assign WANDERER: SYS:System/Wanderer DEFER
  26
  27 If EXISTS SYS:Classes/USB
  28     Assign USBCLASSES: SYS:Classes/USB
  29     AddUSBClasses >NIL:
  30 EndIf
  31
  32 If EXISTS SYS:DiskImages
  33     Assign FDSK: SYS:DiskImages
  34 EndIf
  35
  36 Mount >NIL: DEVS:DOSDrivers/~(#?.info)
  37
  38 Touch >NIL: PIPEFS:systempipe
  39 Assign >NIL: PIPE:    PIPEFS:systempipe
  40
  41 Path C: SYS:System S: SYS:Prefs SYS:Tools SYS:Utilities QUIET
  42
  43 If EXISTS SYS:Tools/Commodities
  44     Path SYS:Tools/Commodities QUIET ADD
  45 EndIf
  46
  47 If EXISTS SYS:Demos
  48     Path SYS:Demos ADD QUIET
  49 EndIf
  50
  51 If EXISTS Sys:Rexxc
  52     Path Sys:Rexxc ADD QUIET
  53 Endif
  54
  55 Copy >NIL: ENVARC: ENV: ALL NOPRO NOREQ PAT ~(def_#?.info)
  56
  57 If EXISTS ENV:SYS/theme.var
  58     Assign THEME: ${SYS/theme.var}
  59 else
  60     Assign THEME: THEMES:OS3.1/
  61 endif
  62
  63 Touch >NIL: FONTS:__TEST__
  64 If WARN
  65     Makedir RAM:Fonts
  66     Assign FONTS: RAM:Fonts
  67     Copy >NIL: SYS:Fonts FONTS: ALL CLONE NOREQ
  68 Endif
  69 Assign >NIL: FONTS: FONTS:Russian ADD
  70
  71 IF EXISTS FONTS:__TEST__
  72     Delete FONTS:__TEST__ QUIET
  73 Endif
  74
  75 If NOT EXISTS FONTS:fixed.font
  76     FixFonts
  77 EndIf
  78
  79 AddDatatypes REFRESH QUIET
  80 IPrefs
  81 Run <NIL: >NIL: ConClip
  82
  83 If EXISTS C:RexxMast
  84     Assign REXX: S:
  85     Run <NIL: >NIL: C:RexxMast
  86 EndIf
  87
  88 If EXISTS C:Decoration
  89     If EXISTS ENV:SYS/theme.var
  90         C:Decoration <NIL: >NIL:
  91     EndIf
  92 Endif
  93
  94 Assign EXISTS Extras: >NIL:
  95 If WARN
  96     If Exists $EXTRASPATH
  97         Assign Extras: $EXTRASPATH
  98     Else
  99         Assign Extras: SYS:Extras >NIL:
 100         If WARN
 101             Assign Extras: NIL: >NIL:
 102         EndIf
 103     EndIf
 104 Endif
 105
 106 Assign EXISTS Development: >NIL:
 107 If WARN
 108     If Exists $DEVELPATH
 109         Assign Development: $DEVELPATH
 110     EndIf
 111 Endif
 112 Assign EXISTS Development: >NIL:
 113 If WARN
 114     Assign Development: SYS:Development >NIL:
 115 EndIf
 116
 117
 118 If EXISTS ENV:SYS/Packages
 119     List ENV:SYS/Packages NOHEAD FILES TO T:P LFORMAT="If EXISTS ${SYS/Packages/%N}*NCD ${SYS/Packages/%N}*NIf EXISTS S/Package-Startup*NExecute S/Package-Startup*NEndif*NEndif*N"
 120     Execute T:P
 121     Delete T:P QUIET
 122     CD SYS:
 123 EndIf
 124
 125 Protect S:PCD s ADD QUIET
 126 Protect S:SPat s ADD QUIET
 127
 128 If EXISTS S:User-Startup
 129     Execute S:User-Startup
 130 EndIf
 131
 132 WANDERER:Wanderer
 133
 134 If NOT ERROR
 135     EndCLI
 136 EndIf