Danh sách chuyển tới thủ tục Tcl

Question

Cách kinh điển để chuyển danh sách sang quy trình Tcl là gì?

Tôi thực sự thích nếu tôi có thể lấy nó để danh sách được tự động mở rộng thành số lượng đối số thay đổi.

Vì vậy mà cái gì đó như:

set a {b c} 
myprocedure option1 option2 $a 

và

myprocedure option1 option2 b c 

là tương đương.

Tôi chắc chắn rằng tôi đã thấy điều này trước đây, nhưng tôi không thể tìm thấy nó ở bất cứ nơi nào trực tuyến. Bất kỳ trợ giúp nào (và mã) để làm cho cả hai trường hợp tương đương sẽ được đánh giá cao.

Đây có phải là một quy ước Tcl tiêu chuẩn hay không. Hay tôi thậm chí còn sủa cây sai?

Answer 1

Nó phụ thuộc vào phiên bản của Tcl bạn đang sử dụng, nhưng: Đối 8,5:

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

Đối với 8,4 và dưới đây:

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

Để mở rộng về câu trả lời RHSeeger, bạn sẽ mã myprocedure với đối số đặc biệt args như sau:

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

Nó có thể là hữu ích để lưu ý rằng thông qua lệnh của bạn để catch cũng sẽ giải quyết vấn đề này:

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

này nên có lẽ chỉ được sử dụng nếu bạn muốn xử lý những sai sót trong myprocedure vào thời điểm này trong mã của bạn để bạn don' t phải lo lắng về việc làm lại bất kỳ lỗi nào bị bắt.