Lines Matching +full:boot +full:- +full:page +full:- +full:step
1 \ Copyright (c) 2006-2015 Devin Teske <dteske@FreeBSD.org>
29 marker task-menu-commands.4th
31 include /boot/forth/menusets.4th
42 also menu-namespace also menu-command-helpers
45 \ Boot
48 : init_boot ( N -- N )
53 s" boot_single" getenv -1 <> if
54 drop ( n n c-addr -- n n ) \ unused
55 toggle_menuitem ( n n -- n n )
66 \ Alternate Boot
69 : init_altboot ( N -- N )
74 s" boot_single" getenv -1 <> if
75 drop ( n c-addr -- n ) \ unused
76 toggle_menuitem ( n -- n )
86 : altboot ( N -- NOTREACHED )
88 s" alt-boot-args" getenv dup -1 <> if
89 s" boot-args" setenv ( c-addr/u -- )
91 ." NoInstall/Recovery mode boot. login/pw: root/root" cr
93 s" boot_single" 2dup getenv -1 <> if
94 drop ( c-addr/u c-addr -- c-addr/u ) \ unused
95 unsetenv ( c-addr/u -- )
97 2drop ( c-addr/u -- ) \ unused
101 0 boot ( state -- )
108 : singleuser_enabled? ( -- flag )
109 s" boot_single" getenv -1 <> dup if
110 swap drop ( c-addr flag -- flag )
114 : singleuser_enable ( -- )
118 : singleuser_disable ( -- )
122 : init_singleuser ( N -- N )
124 toggle_menuitem ( n -- n )
128 : toggle_singleuser ( N -- N TRUE )
130 menu-redraw
144 \ Verbose Boot
147 : verbose_enabled? ( -- flag )
148 s" boot_verbose" getenv -1 <> dup if
149 swap drop ( c-addr flag -- flag )
153 : verbose_enable ( -- )
157 : verbose_disable ( -- )
161 : init_verbose ( N -- N )
163 toggle_menuitem ( n -- n )
167 : toggle_verbose ( N -- N TRUE )
169 menu-redraw
183 \ Reconfiguration boot
186 : reconfigure_enabled? ( -- flag )
187 s" boot_reconfigure" getenv -1 <> dup if
188 swap drop ( c-addr flag -- flag )
192 : reconfigure_enable ( -- )
196 : reconfigure_disable ( -- )
200 : init_reconfigure ( N -- N )
202 toggle_menuitem ( n -- n )
206 : toggle_reconfigure ( N -- N TRUE )
208 menu-redraw
225 : init_framebuffer ( N -- N )
227 toggle_menuitem ( n -- n )
231 : toggle_framebuffer ( N -- N TRUE )
240 draw-beastie
241 draw-brand
242 menu-init \ needed to reset menu position
243 menu-redraw
252 : goto_prompt ( N -- N FALSE )
258 ." or type `boot' and press ENTER to start illumos." cr
268 : init_cyclestate ( N K -- N )
269 over cycle_stateN ( n k -- n k addr )
271 tuck @ ( n k addr -- n addr k c )
272 over <> ( n addr k c -- n addr k 0|-1 )
274 rot ( n addr k -- addr k n )
276 swap rot ( addr k n -- n k addr )
278 2drop ( n k addr -- n )
287 : init_osconsole ( N -- N )
288 s" os_console" getenv dup -1 = if
290 s" console" getenv dup -1 = if
293 then ( n c-addr/u | n 0 )
295 dup 0<> if ( n c-addr/u )
314 : activate_osconsole ( N -- N )
315 dup cycle_stateN @ ( n -- n n2 )
316 dup osconsole_state ! ( n n2 -- n n2 ) \ copy for re-initialization
329 : cycle_osconsole ( N -- N TRUE )
332 menu-redraw \ redraw menu
339 : init_acpi ( N -- N )
340 s" acpi-user-options" getenv dup -1 <> if
341 evaluate \ use ?number parse step
356 : activate_acpi ( N -- N )
357 dup cycle_stateN @ ( n -- n n2 )
358 dup acpi_state ! ( n n2 -- n n2 ) \ copy for re-initialization
363 s" acpi-user-options" unsetenv
371 s" acpi-user-options" setenv
375 : cycle_acpi ( N -- N TRUE )
378 menu-redraw \ redraw menu
391 : init_kmdb ( N -- N )
393 ( N -- N c-addr/u )
394 s" nmi" getenv dup -1 <> if else drop s" panic" then
396 \ (to support re-entering the menu from the loader prompt)
400 ( N caddr/u -- N flag )
403 s" boot_kmdb" getenv -1 <> if
405 s" boot_drop_into_kmdb" getenv -1 <> if
418 : activate_kmdb ( N -- N )
419 dup cycle_stateN @ ( n -- n n2 )
420 dup kmdb_state ! ( n n2 -- n n2 )
444 : cycle_kmdb ( N -- N TRUE )
447 menu-redraw \ redraw menu
455 : goto_menu ( N M -- N TRUE )
456 menu-unset
457 menuset-loadsetnum ( n m -- n )
458 menu-redraw
468 s" acpi-user-options" unsetenv
469 s" boot-args" unsetenv
477 : set_default_boot_options ( N -- N TRUE )
483 \ Set boot environment defaults
487 : init_bootenv ( -- )
502 print_version \ print version string (bottom-right; see version.4th)
503 draw-beastie \ Draw FreeBSD logo at right (in beastie.4th)
504 draw-brand \ Draw brand.4th logo at top (in brand.4th)
505 menu-init \ Initialize menu and draw bounding box (in menu.4th)
509 \ Select a boot environment
512 : set_bootenv ( N -- N TRUE )
522 free-module-options
524 s" /boot/defaults/loader.conf" read-conf
525 s" /boot/loader.conf" read-conf
526 s" /boot/loader.conf.local" read-conf
530 s" be-set-page" evaluate
535 menu-redraw
544 : set_be_chain ( N -- no return | N TRUE )
547 menu-redraw
552 \ Switch to the next page of boot environments
555 : set_be_page ( N -- N TRUE )
556 s" zfs_be_currpage" getenv dup -1 = if
560 1+ \ increment the page number
569 s" be-set-page" evaluate