Rebolの色付きテキストコンソール出力

Question

いくつかの言語では、テキストのまわりにEsc codesを置くことで、Linuxのコンソール/ターミナルで色を付けることができます。しかし、これはREBOLの中で動作していないよう：

\e[0;31mred text\e[0m 

は、Linux端末上でREBOLので着色されたテキスト出力印刷することができます：上記のコード

NORMAL: "\e[0m" 
RED: "\e[0;31m" 

print rejoin["\e[0;31m" "red text" "\e[0m"] 

は黒のみ（通常色）テキスト出力を生成しますか？

Answer 1

同様に、Rebol/Redでカラーコードを使用することもできます。

print "This text is ^[[0;31mred^[[0m text." 

#"^["は、Rebol/Redのエスケープ文字です。

あなたは、例えば、以下のコードで赤のプロンプトを変更することができます：あなたは、以下の（同様の）コードとのプロンプトを変更することができREBOLの3のレン-Cブランチで

system/console/prompt: "^[[31m^[[5D>>^[(B^[[m " 
system/console/result: "^[[32m^[[5D==^[(B^[[m" 

を：

system/console/prompt: "^[[31m^[[5D>>^[(B^[[m " 
system/console/result: "^[[32m^[[5D==^[(B^[[m " 

Answer 2

REBOL [ 
     Title: "colorebol" 
     Date: 14-Jul-2013 
     File: %colorebol.reb 
     Version: 1.0.0 
     Purpose: "Enable switching of terminal font colors and backgrounds etc" 
     Note: "Includes the clr func for clearing the screen" 
    ] 

    clr: does [prin "^(page)"] 

    coloreb: func [ 
    {Use Fore/Red /Green /Yellow /Blue /Magenta /Cyan /White /Reset and even /Black. Viola! Font-color 
    Similarly Background/Blue etc..., then Style/bright /dim /normal /reset_all and finally Cyclor, which 
    randomly picks a font color. It needs some polishing} 
    ][cyclor print ["this is all i do. that, and provide a help doc-string"] cyclor] 

    Fore: make object! [ 

     Colors: ["black" "red" "green" "yellow" "blue" "magenta" "cyan" "white" "reset"] 
     BLACK: does [prin "^[[30m"] 
     RED:  does [prin "^[[31m"] 
     GREEN: does [prin "^[[32m"] 
     YELLOW: does [prin "^[[33m"] 
     BLUE:  does [prin "^[[34m"] 
     MAGENTA: does [prin "^[[35m"] 
     CYAN:  does [prin "^[[36m"] 
     WHITE: does [prin "^[[37m"] 
     RESET: does [prin "^[[39m"] 
    ] 

    Background: make object! [ 
     Colors: ["black" "red" "green" "yellow" "blue" "magenta" "cyan" "white" "reset"] 
     BLACK: does [prin "^[[40m"] 
     RED:  does [prin "^[[41m"] 
     GREEN: does [prin "^[[42m"] 
     YELLOW: does [prin "^[[43m"] 
     BLUE:  does [prin "^[[44m"] 
     MAGENTA: does [prin "^[[45m"] 
     CYAN:  does [prin "^[[46m"] 
     WHITE: does [prin "^[[47m"] 
     RESET: does [prin "^[[49m"] 
    ] 

    Style: make object! [ 
     Styles: ["bright" "dim" "normal" "reset_all"] 
     BRIGHT: does [prin "^[[1m"] 
     DIM:  does [prin "^[[2m"] 
     NORMAL: does [prin "^[[22m"] 
     RESET_ALL: does [prin "^[[0m"] 
    ] 

    cyclor: func [] [fore/(to-word fore/colors/(random/only [2 3 4 5 6 7 8]))] 

はあなたの他のスクリプトファイルでこれを入れて：

do %colorebol.reb 

その後、

などのようにそれを使用します。

 col: has [ 
     "Wrap the colorebol.reb wrappers to reduce visual clutter" 
     color /red /green /blue /yellow /cyan /magenta /black /white][ 
     if red [color: 'red] 
     if green [color: 'green] 
     if blue [color: 'blue] 
     if yellow [color: 'yellow] 
     if cyan [color: 'cyan] 
     if magenta [color: 'magenta] 
     if black [color: 'black] 
     if white [color: 'white] 

     if unixy-os? [fore/(color)] 
    ] 

    ;test it: 
    col/magenta print "magenta" ;(it works). Maybe just mod /%colorebol.reb? 

私はREBOLの中でその流暢じゃない - 私はもっと簡潔な方法があることを確認しています。しかしこれはGNU/Linux上で私にとってうまくいっています。スクリプトを移植性を保つために、私はOS検出機能を持っていて、色分けコードはそれに依存しています。