Deleted Added
full compact
loader.4th (50477) loader.4th (53672)
1\ Copyright (c) 1999 Daniel C. Sobral <dcs@freebsd.org>
2\ All rights reserved.
3\
4\ Redistribution and use in source and binary forms, with or without
5\ modification, are permitted provided that the following conditions
6\ are met:
7\ 1. Redistributions of source code must retain the above copyright
8\ notice, this list of conditions and the following disclaimer.

--- 8 unchanged lines hidden (view full) ---

17\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23\ SUCH DAMAGE.
24\
1\ Copyright (c) 1999 Daniel C. Sobral <dcs@freebsd.org>
2\ All rights reserved.
3\
4\ Redistribution and use in source and binary forms, with or without
5\ modification, are permitted provided that the following conditions
6\ are met:
7\ 1. Redistributions of source code must retain the above copyright
8\ notice, this list of conditions and the following disclaimer.

--- 8 unchanged lines hidden (view full) ---

17\ FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18\ DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19\ OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20\ HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21\ LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22\ OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23\ SUCH DAMAGE.
24\
25\ $FreeBSD: head/sys/boot/forth/loader.4th 50477 1999-08-28 01:08:13Z peter $
25\ $FreeBSD: head/sys/boot/forth/loader.4th 53672 1999-11-24 17:56:40Z dcs $
26
27include /boot/support.4th
28
29only forth definitions also support-functions
30
31\ ***** boot-conf
32\
33\ Prepares to boot as specified by loaded configuration files.
34
35: boot-conf
36 load_kernel
37 load_modules
38 0 autoboot
39;
40
26
27include /boot/support.4th
28
29only forth definitions also support-functions
30
31\ ***** boot-conf
32\
33\ Prepares to boot as specified by loaded configuration files.
34
35: boot-conf
36 load_kernel
37 load_modules
38 0 autoboot
39;
40
41\ ***** check-password
42\
43\ If a password was defined, execute autoboot and ask for
44\ password if autoboot returns.
45
46: check-password
47 password .addr @ if
48 0 autoboot
49 false >r
50 begin
51 bell emit bell emit
52 ." Password: "
53 password .len @ read-password
54 dup password .len @ = if
55 2dup password .addr @ password .len @
56 compare 0= if r> drop true >r then
57 then
58 drop free drop
59 r@
60 until
61 r> drop
62 then
63;
64
41\ ***** start
42\
43\ Initializes support.4th global variables, sets loader_conf_files,
44\ process conf files, and, if any one such file was succesfully
45\ read to the end, load kernel and modules.
46
47: start ( -- ) ( throws: abort & user-defined )
48 s" /boot/defaults/loader.conf" initialize

--- 156 unchanged lines hidden ---
65\ ***** start
66\
67\ Initializes support.4th global variables, sets loader_conf_files,
68\ process conf files, and, if any one such file was succesfully
69\ read to the end, load kernel and modules.
70
71: start ( -- ) ( throws: abort & user-defined )
72 s" /boot/defaults/loader.conf" initialize

--- 156 unchanged lines hidden ---