diff options
| author | Thomas Huth <thuth@redhat.com> | 2016-10-14 13:50:57 +0200 |
|---|---|---|
| committer | Alexey Kardashevskiy <aik@ozlabs.ru> | 2016-10-17 11:36:42 +1100 |
| commit | 4fd2fd7f29fd790a886514cb05911741f318f890 (patch) | |
| tree | 954f95d7229852d5c443210a37764b7584be6b16 /slof | |
| parent | 686cd5c5ad58a4e16b4f487e2c651f0b8ae75e87 (diff) | |
| download | SLOF-4fd2fd7f29fd790a886514cb05911741f318f890.zip SLOF-4fd2fd7f29fd790a886514cb05911741f318f890.tar.gz SLOF-4fd2fd7f29fd790a886514cb05911741f318f890.tar.bz2 | |
scsi: Remove debug functions from scsi-loader.fs
The ".context" function is just a colorful, but otherwise useless
and unused wrapper around "context @", so this can be removed
safely. Also the .ansi-* functions are way too fancy for just
colorizing the output of the debug function ".wordlist" in a
different color than the default one, so remove these .ansi-*
functions, too.
Signed-off-by: Thomas Huth <thuth@redhat.com>
Signed-off-by: Alexey Kardashevskiy <aik@ozlabs.ru>
Diffstat (limited to 'slof')
| -rw-r--r-- | slof/fs/scsi-loader.fs | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/slof/fs/scsi-loader.fs b/slof/fs/scsi-loader.fs index fec1f78..eee0aec 100644 --- a/slof/fs/scsi-loader.fs +++ b/slof/fs/scsi-loader.fs @@ -10,16 +10,6 @@ \ * IBM Corporation - initial implementation \ ****************************************************************************/ -\ ************************************** -\ Last change: MiR 13.11.2007 10:55:57 -\ ************************************** - -: .ansi-attr-off 1b emit ." [0m" ; \ ESC Sequence: all terminal attributes off -: .ansi-blue 1b emit ." [34m" ; \ ESC Sequence: foreground-color = blue -: .ansi-green 1b emit ." [32m" ; \ ESC Sequence: foreground-color = green -: .ansi-red 1b emit ." [31m" ; \ ESC Sequence: foreground-color = green -: .ansi-bold 1b emit ." [1m" ; \ ESC Sequence: foreground-color bold - false VALUE scsi-supp-present? : scsi-xt-err ." SCSI-ERROR (Intern) " ; @@ -29,7 +19,6 @@ false VALUE scsi-supp-present? \ utility to show all active word-lists \ ************************************* : .wordlists ( -- ) - .ansi-red get-order ( -- wid1 .. widn n ) dup space 28 emit .d ." word lists : " 0 DO @@ -42,23 +31,9 @@ false VALUE scsi-supp-present? @ 5b emit . 8 emit 5d emit space ." / Current: " current . - .ansi-attr-off cr ; -\ ************************************* -\ utility to show first word-lists -\ ************************************* -: .context ( num -- ) - .ansi-red - space - 5b emit - 23 emit . 3a emit - context @ - . 8 emit 5d emit space - .ansi-attr-off -; - \ **************************************************************************** \ open scsi-support by adding a new word list on top of search path \ first check if scsi-support.fs must be included (first call) @@ -73,5 +48,3 @@ false VALUE scsi-supp-present? THEN scsi-open-xt execute ; - - |