एक TCL proc तर्क का डिफ़ॉल्ट मान

Question

मैं एक चर है कि मैं एक बहस के लिए डिफ़ॉल्ट मान के रूप में उपयोग करना चाहते हैं मिल गया है के रूप में एक चर का उपयोग कैसे करें:

proc log {message {output $::output}} { 
    .... 
} 

वहाँ यह करने के लिए एक रास्ता है या मुझे अपनी proc के अंदर चर का मूल्यांकन करने की आवश्यकता है?

Answer 1

हां, लेकिन आप अपनी तर्क सूची के लिए घुंघराले ब्रेसिज़ ({}) का उपयोग नहीं कर सकते हैं। आप प्रक्रिया की घोषणा करते हैं उदा। इस तरह से:

proc log [list message [list output $::output]] { 
    .... 
} 

लेकिन ध्यान रखें:
चर समय था जब प्रक्रिया घोषित किया जाता है पर मूल्यांकन किया जाता है, जब यह मार डाला जाता है नहीं!

Answer 2

यदि आप एक डिफ़ॉल्ट तर्क चाहते हैं जो केवल आपके द्वारा कॉल किए जाने पर मूल्य में परिभाषित किया गया है, तो आपको और अधिक कठिन होना होगा। जब तर्कों की सूची की जाँच,

proc log {message {output ""}} { 
    if {[llength [info level 0]] < 3} { 
     set output $::output 
    } 
    ... 
} 

याद रखें, पहले एक: महत्वपूर्ण यह है कि आप info level 0 उपयोग कर सकते हैं वर्तमान प्रक्रिया कॉल करने के लिए तर्कों की सूची प्राप्त करने के लिए, और फिर आप सिर्फ इतना है कि सूची की लंबाई की जाँच है आदेश का नाम ही है।

Answer 3

एक और तरीका है यह करने के लिए:

proc log {message {output ""}} { 
    if {$output eq ""} { 
     set output $::output 
    } 
}