[SLOF] [PATCH v2] scsi: Remove debug functions from scsi-loader.fs

Thomas Huth thuth at redhat.com
Fri Oct 14 22:50:57 AEDT 2016


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 at redhat.com>
---
 slof/fs/scsi-loader.fs | 27 ---------------------------
 1 file changed, 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
 ;
-
-
-- 
1.8.3.1



More information about the SLOF mailing list