Merge from vendor branch OPENSSL:
[dragonfly.git] / sys / boot / forth / fred.4th
1 \ Copyright (c) 2003 Scott Long <scottl@freebsd.org>
2 \ Copyright (c) 2003 Aleksander Fafula <alex@fafula.com>
3 \ All rights reserved.
4 \
5 \ Redistribution and use in source and binary forms, with or without
6 \ modification, are permitted provided that the following conditions
7 \ are met:
8 \ 1. Redistributions of source code must retain the above copyright
9 \    notice, this list of conditions and the following disclaimer.
10 \ 2. Redistributions in binary form must reproduce the above copyright
11 \    notice, this list of conditions and the following disclaimer in the
12 \    documentation and/or other materials provided with the distribution.
13 \
14 \ THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 \ ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 \ IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 \ ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 \ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 \ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 \ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 \ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 \ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 \ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24 \ SUCH DAMAGE.
25 \
26 \ $FreeBSD: src/sys/boot/forth/beastie.4th,v 1.7 2003/10/28 17:18:42 scottl Exp $
27 \ $DragonFly: src/sys/boot/forth/Attic/fred.4th,v 1.6 2004/01/22 12:04:58 eirikn Exp $
28
29 marker task-beastie.4th
30
31 include /boot/screen.4th
32 include /boot/frames.4th
33
34 hide
35
36 variable menuidx
37 variable menubllt
38 variable menuX
39 variable menuY
40 variable promptwidth
41
42 variable bootkey
43 variable bootacpikey
44 variable bootsafekey
45 variable bootverbosekey
46 variable bootsinglekey
47 variable escapekey
48 variable rebootkey
49
50 46 constant dot
51
52 \ The BSD Daemon.  He is 19 rows high and 34 columns wide
53 : technicolor-beastie ( x y -- )
54 2dup at-xy ."               \e[1;31m,        ," 1+
55 2dup at-xy ."              /(        )`" 1+
56 2dup at-xy ."              \ \___   / |" 1+
57 2dup at-xy ."              /- \e[37m_\e[31m  `-/  '" 1+
58 2dup at-xy ."             (\e[37m/\/ \\e[31m \   /\" 1+
59 2dup at-xy ."             \e[37m/ /   |\e[31m `    \" 1+
60 2dup at-xy ."             \e[34mO O   \e[37m) \e[31m/    |" 1+
61 2dup at-xy ."             \e[37m`-^--'\e[31m`<     '" 1+
62 2dup at-xy ."            (_.)  _  )   /" 1+
63 2dup at-xy ."             `.___/`    /       " 1+
64 2dup at-xy ."               `-----' /" 1+
65 2dup at-xy ."  \e[33m<----.\e[31m     __ / __   \" 1+
66 2dup at-xy ."  \e[33m<----|====\e[31mO)))\e[33m==\e[31m) \) /\e[33m====|" 1+
67 2dup at-xy ."  \e[33m<----'\e[31m    `--' `.__,' \" 1+
68 2dup at-xy ."               |        |" 1+
69 2dup at-xy ."                \       /       /\" 1+
70 2dup at-xy ."           \e[36m______\e[31m( (_  / \______/" 1+
71 2dup at-xy ."         \e[36m,'  ,-----'   |" 1+
72 at-xy ."         `--{__________) \e[0m" 1+
73 ;
74
75 : boring-fred ( x y -- )
76         2dup at-xy ." " 1+
77         2dup at-xy ." " 1+
78         2dup at-xy ." ,--,           |           ,--," 1+
79         2dup at-xy ." |   `-,       ,^,       ,-'   |" 1+
80         2dup at-xy ."  `,    `-,   (/ \)   ,-`    ,-'" 1+
81         2dup at-xy ."    `-,    `-,/   \,-`    ,-`" 1+
82         2dup at-xy ."       `------(   )------'" 1+
83         2dup at-xy ."   ,----------(   )-----------," 1+
84         2dup at-xy ."  |        _,-(   )-,_        |" 1+
85         2dup at-xy ."   `-,__,-`   \   /   `-,__,-'" 1+
86         2dup at-xy ."               | |" 1+
87         2dup at-xy ."               | |" 1+
88         2dup at-xy ."               | |" 1+
89         2dup at-xy ."               | |" 1+
90         2dup at-xy ."               | |" 1+
91         2dup at-xy ."               | |" 1+
92         2dup at-xy ."               `|'" 1+
93         2dup at-xy ." " 1+
94              at-xy ."
95 ;
96
97 : print-beastie ( x y -- )
98         s" loader_color" getenv
99         dup -1 = if
100                 drop
101                 boring-fred
102                 exit
103         then
104         s" YES" compare-insensitive 0<> if
105                 boring-fred
106                 exit
107         then
108         technicolor-beastie
109 ;
110
111 : acpienabled? ( -- flag )
112         s" acpi_load" getenv
113         dup -1 = if
114                 drop false exit
115         then
116         s" YES" compare-insensitive 0<> if
117                 false exit
118         then
119         s" hint.acpi.0.disabled" getenv
120         dup -1 <> if
121                 s" 0" compare 0<> if
122                         false exit
123                 then
124         then
125         true
126 ;
127
128 : printmenuitem ( -- n )
129         menuidx @
130         1+ dup
131         menuidx !
132         menuY @ + dup menuX @ swap at-xy
133         menuidx @ .
134         menuX @ 1+ swap at-xy
135         menubllt @ emit
136         menuidx @ 48 +
137 ;
138
139 : beastie-menu ( -- )
140         0 menuidx !
141         dot menubllt !
142         8 menuY !
143         5 menuX !
144         clear
145         46 4 print-beastie
146         42 20 2 2 box
147         13 6 at-xy ." Welcome to DragonFly!"
148         printmenuitem ."  Boot DragonFly [default]" bootkey !
149         s" arch-i386" environment? if
150                 printmenuitem ."  Boot DragonFly with ACPI " bootacpikey !
151                 acpienabled? if
152                         ." disabled"
153                 else
154                         ." enabled"
155                 then
156         else
157                 -2 bootacpikey !
158         then
159         printmenuitem ."  Boot DragonFly in Safe Mode" bootsafekey !
160         printmenuitem ."  Boot DragonFly in single user mode" bootsinglekey !
161         printmenuitem ."  Boot DragonFly with verbose logging" bootverbosekey !
162         printmenuitem ."  Escape to loader prompt" escapekey !
163         printmenuitem ."  Reboot" rebootkey !
164         menuX @ 20 at-xy
165         ." Select option, [Enter] for default"
166         menuX @ 21 at-xy
167         s" or [Space] to pause timer    " dup 2 - promptwidth !
168         type
169 ;
170
171 : tkey
172         dup
173         seconds +
174         begin 1 while
175                 over 0<> if
176                         dup seconds u< if
177                                 drop
178                                 -1
179                                 exit
180                         then
181                         menuX @ promptwidth @ + 21 at-xy dup seconds - .
182                 then
183                 key? if
184                         drop
185                         key
186                         exit
187                 then
188         50 ms
189         repeat
190 ;
191
192 set-current
193
194 : beastie-start
195         s" beastie_disable" getenv
196         dup -1 <> if
197                 s" YES" compare-insensitive 0= if
198                         exit
199                 then
200         then
201         beastie-menu
202         s" autoboot_delay" getenv
203         dup -1 = if
204                 drop
205                 10
206         else
207                 0 0 2swap >number drop drop drop
208         then
209         begin true while
210                 dup tkey
211                 0 25 at-xy
212                 dup 32 = if nip 0 swap then
213                 dup -1 = if 0 boot then
214                 dup 13 = if 0 boot then
215                 dup bootkey @ = if 0 boot then
216                 dup bootacpikey @ = if
217                         acpienabled? if
218                                 s" acpi_load" unsetenv
219                                 s" 1" s" hint.acpi.0.disabled" setenv
220                                 s" 1" s" loader.acpi_disabled_by_user" setenv
221                         else
222                                 s" YES" s" acpi_load" setenv
223                                 s" 0" s" hint.acpi.0.disabled" setenv
224                         then
225                         0 boot
226                 then
227                 dup bootsafekey @ = if
228                         s" arch-i386" environment? if
229                                 s" acpi_load" unsetenv
230                                 s" 1" s" hint.acpi.0.disabled" setenv
231                                 s" 1" s" loader.acpi_disabled_by_user" setenv
232                         then
233                         s" 0" s" hw.ata.ata_dma" setenv
234                         s" 0" s" hw.ata.atapi_dma" setenv
235                         s" 0" s" hw.ata.wc" setenv
236                         s" 0" s" hw.eisa_slots" setenv
237                         0 boot
238                 then
239                 dup bootverbosekey @ = if
240                         s" YES" s" boot_verbose" setenv
241                         0 boot
242                 then
243                 dup bootsinglekey @ = if
244                         s" YES" s" boot_single" setenv
245                         0 boot
246                 then
247                 dup escapekey @ = if
248                         2drop
249                         s" NO" s" autoboot_delay" setenv
250                         exit
251                 then
252                 rebootkey @ = if 0 reboot then
253         repeat
254 ;
255
256 previous