arch/m68k-amiga/s/Startup-Sequence

   1 boot/AROSBootstrap ROM boot/aros.hunk.gz
   2 SetPatch QUIET
   3 SetClock LOAD
   4
   5 FailAt 21
   6
   7 Makedir RAM:Clipboards
   8 If NOT EXISTS RAM:T
   9     Makedir RAM:T
  10 EndIf
  11 If NOT EXISTS RAM:ENV
  12     Makedir RAM:ENV
  13     Assign ENV: RAM:ENV
  14 EndIf
  15
  16 Assign T:       RAM:T
  17 Assign CLIPS:   RAM:Clipboards
  18
  19 Assign KEYMAPS: DEVS:Keymaps
  20 Assign LOCALE:  SYS:Locale
  21 Assign LIBS:    SYS:Classes ADD
  22 Assign FONTS:   SYS:Fonts
  23 Assign HELP:    LOCALE:Help DEFER
  24 Assign THEMES:  SYS:System/Themes >NIL:
  25 Assign IMAGES:  SYS:System/Images DEFER
  26 ;Assign PRINTERS: DEVS:Printers
  27 Assign WANDERER: SYS:System/Wanderer DEFER
  28
  29 If EXISTS SYS:Classes/USB
  30     Assign USBCLASSES: SYS:Classes/USB
  31     AddUSBClasses >NIL:
  32 EndIf
  33
  34 If EXISTS SYS:DiskImages
  35     Assign FDSK: SYS:DiskImages
  36 EndIf
  37
  38 Mount DEVS:DOSDrivers/~(#?.info|PIPEFS|XPIPE)
  39
  40 Path C: SYS:System S: SYS:Prefs SYS:Tools SYS:Utilities QUIET
  41
  42 If EXISTS SYS:Tools/Commodities
  43     Path SYS:Tools/Commodities QUIET ADD
  44 EndIf
  45
  46 If EXISTS SYS:Demos
  47     Path SYS:Demos ADD QUIET
  48 EndIf
  49
  50 If EXISTS Sys:Rexxc
  51     Path Sys:Rexxc ADD QUIET
  52 Endif
  53
  54 Copy >NIL: ENVARC: ENV: ALL NOPRO NOREQ PAT ~(def_#?.info)
  55
  56 If EXISTS ENV:SYS/theme.var
  57     Assign THEME: ${SYS/theme.var}
  58 else
  59     Assign THEME: THEMES:OS3.1/
  60 endif
  61
  62 Touch >NIL: FONTS:__TEST__
  63 If WARN
  64     Makedir RAM:Fonts
  65     Assign FONTS: RAM:Fonts
  66     Copy >NIL: SYS:Fonts FONTS: ALL CLONE NOREQ
  67 Endif
  68
  69 Assign >NIL: FONTS: FONTS:Russian ADD
  70
  71 IF EXISTS FONTS:__TEST__
  72     Delete FONTS:__TEST__ QUIET
  73 Endif
  74
  75 AddDatatypes REFRESH QUIET
  76 IPrefs
  77 Run >NIL: QUIET ConClip
  78
  79 If EXISTS C:RexxMast
  80     Assign REXX: S:
  81     Run >NIL: QUIET C:RexxMast
  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 If EXISTS ENV:SYS/Packages
 108     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"
 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 >NIL:
 122 EndIf