diff options
| author | Daniel C. Sobral <dcs@FreeBSD.org> | 2000-09-16 21:04:49 +0000 |
|---|---|---|
| committer | Daniel C. Sobral <dcs@FreeBSD.org> | 2000-09-16 21:04:49 +0000 |
| commit | 818c39998ed7789491c4ab6be234818e07710dd8 (patch) | |
| tree | eab41e57080498f7529a5f1405e31f60c3c5b14a /sys/boot/forth/loader.4th | |
| parent | ae7c64e46686e0314ab79da767ba3de2ac8dcf5c (diff) | |
Notes
Diffstat (limited to 'sys/boot/forth/loader.4th')
| -rw-r--r-- | sys/boot/forth/loader.4th | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/sys/boot/forth/loader.4th b/sys/boot/forth/loader.4th index 3ac4bf7c853e..d0633682388d 100644 --- a/sys/boot/forth/loader.4th +++ b/sys/boot/forth/loader.4th @@ -57,7 +57,7 @@ include /boot/support.4th only forth also support-functions also builtins definitions : boot - 0= if ( interpreted ) get-arguments then + 0= if ( interpreted ) get_arguments then \ Unload only if a path was passed dup if @@ -83,7 +83,7 @@ only forth also support-functions also builtins definitions ; : boot-conf - 0= if ( interpreted ) get-arguments then + 0= if ( interpreted ) get_arguments then 0 1 unload drop load_kernel_and_modules ?dup 0= if 0 1 autoboot then @@ -282,5 +282,23 @@ only forth definitions also support-functions \ Return to strict forth vocabulary +: #type + over - >r + type + r> spaces +; + +: .? 2 spaces 2swap 15 #type 2 spaces type cr ; + +: ? + ['] ? execute + s" boot-conf" s" load kernel and modules, then autoboot" .? + s" read-conf" s" read a configuration file" .? + s" enable-module" s" enable loading of a module" .? + s" disable-module" s" disable loading of a module" .? + s" toggle-module" s" toggle loading of a module" .? + s" show-module" s" show module load data" .? +; + only forth also |