diff options
| author | dcs <dcs@FreeBSD.org> | 2000-09-16 21:04:49 +0000 |
|---|---|---|
| committer | dcs <dcs@FreeBSD.org> | 2000-09-16 21:04:49 +0000 |
| commit | 3383919e3fcc70f38d021287ac97515f03c3c9cb (patch) | |
| tree | f56be1d3751dd10df9f663a636c759a6a547c9ef /sys/boot/forth/loader.4th | |
| parent | 39399239a0550131088f051a0e993f6b2c7b9290 (diff) | |
| download | FreeBSD-src-3383919e3fcc70f38d021287ac97515f03c3c9cb.zip FreeBSD-src-3383919e3fcc70f38d021287ac97515f03c3c9cb.tar.gz | |
Use _ instead or - where proper, according to the style I have been
using.
Overload "?" so it will also show loader.4th commands.
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 3ac4bf7..d063368 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 |
