proc宣言のTclグローバル変数

Question

私はこの継承されたTclコードを持っています。基本的に次のことを行います。

set LOG_ALL  0 
set LOG_DEBUG 1 
set LOG_INFO 2 
set LOG_WARN 3 
set LOG_ERROR 4 
set LOG_FATAL 5 
set LOG_SILENT 6 

proc v2 {vimm {log LOG_DEBUG}} { 
    global LOG_DEBUG 
    if {$log == $LOG_DEBUG} { 
     puts "log" 
    } else { 
     puts "no log" 
    } 
} 

は、私が設計し、元のアイデアはログパラメータのデフォルト値のためのグローバル変数を使用していたと思われます。しかし、それは期待どおりに動作していないと私はそれを可能と仮定して、正しく書く方法を見つけることができません。

正しい構文は次のとおりです。

ありがとうございました。

proc v2 [list vimm [list log $LOG_DEBUG]] { 
    # ... body same as before 
} 

しかし、それはただ醜いです：

Answer 1

まあ、これは正しいだろう。

proc v2 {vimm {log ""}} { # Any dummy value would do... 
    global LOG_DEBUG 
    if {[llength [info level 0]] < 3} { 
     set log $LOG_DEBUG 
    } 
    # ... as before 
} 

しかし、Tclの真の禅は、このすべてのタスクのための番号を使用しないことですが、むしろ名前：滑らかな印象の方法です

proc v2 {vimm {log "debug"}} { 
    if {$log eq "debug"} { 
     puts "log" 
    } else { 
     puts "no log" 
    } 
}