टीसीएल प्रक्रिया

Question

को पास करने की सूची टीसीएल प्रक्रिया में एक सूची पास करने का कैननिक तरीका क्या है?

अगर मैं इसे प्राप्त कर सकता हूं तो मुझे वास्तव में यह पसंद आएगा ताकि एक सूची स्वचालित रूप से तर्कों की एक चर संख्या में विस्तारित हो।

तो तरह है कि कुछ:

set a {b c} 
myprocedure option1 option2 $a 

और

myprocedure option1 option2 b c 

बराबर हैं।

मुझे यकीन है कि मैंने इसे पहले देखा था, लेकिन मुझे इसे कहीं भी ऑनलाइन नहीं मिल रहा है। दोनों मामलों के बराबर बनाने के लिए कोई मदद (और कोड) की सराहना की जाएगी।

क्या यह एक मानक टीसीएल सम्मेलन माना जाता है। या मैं भी गलत पेड़ को भड़क रहा हूँ?

Answer 1

यह आप का उपयोग कर रहे Tcl के संस्करण पर निर्भर करता है, लेकिन: 8.5 के लिए:

set mylist {a b c} 
myprocedure option1 option2 {*}$mylist 

8,4 और नीचे के लिए:

set mylist {a b c} 
eval myprocedure option1 option2 $mylist 
# or, if option1 and 2 are variables 
eval myprocedure [list $option1] [list $option2] $mylist 
# or, as Bryan prefers 
eval myprocedure \$option1 \$option2 $mylist 

Answer 2

RHSeeger के जवाब पर विस्तार के लिए, आपको कोड होगा विशेष args के साथ myprocedure इस तरह तर्क:

proc myprocedure {opt1 opt2 args} { 
    puts "opt1=$opt1" 
    puts "opt2=$opt2" 
    puts "args=[list $args]" ;# just use [list] for output formatting 
    puts "args has [llength $args] elements" 
} 

Answer 3

यह ध्यान रखें कि catch करने के लिए अपने आदेश पारित करने को भी इस समस्या का समाधान होगा उपयोगी हो सकता है:

set a {b c} 
if [catch "myprocedure option1 option2 $a"] { 
    # handle errors 
} 

यह शायद ही आप ताकि आप डॉन 'अपने कोड में इस बिंदु पर myprocedure में त्रुटियों को संभालने के लिए चाहते हैं, तो इस्तेमाल किया जाना चाहिए पकड़े गए किसी भी त्रुटि को पुनर्स्थापित करने के बारे में चिंता करने की ज़रूरत नहीं है।