TCL lấy tên proc trong đó tôi là

Question

Làm thế nào để biết tên của proc là gì. Ý tôi là tôi cần điều này:

proc nameOfTheProc {} { 

    #a lot of code here 
    puts "ERROR: You are using 'nameOfTheProc' proc wrongly" 
} 

vì vậy tôi muốn lấy "nameOfTheProc" nhưng không phải là mã cứng. Vì vậy, khi ai đó sẽ thay đổi tên proc, nó sẽ vẫn hoạt động bình thường.

Answer 1

Bạn có thể sử dụng lệnh info level cho vấn đề của bạn:

proc nameOfTheProc {} { 

    #a lot of code here 
    puts "ERROR: You are using '[lindex [info level [info level]] 0]' proc wrongly" 
    puts "INFO: You specified the arguments: '[lrange [info level [info level]] 1 end]'" 
} 

Với khu vực nội info level bạn sẽ nhận được mức độ sâu gọi thủ tục mà bạn đang xem trong Người ngoài sẽ trở lại với tên của các thủ tục. chinh no.

Answer 2

Nếu bạn chạy Tcl 8.5 trở lên, lệnh info frame sẽ trả về giá trị dict thay vì danh sách. Vì vậy, thay đổi mã như sau:

proc nameOfTheProc {} { 
    puts "This is [dict get [info frame [info frame]] proc]" 
} 

Answer 3

Cách thành ngữ đúng để đạt được những gì ngụ ý trong câu hỏi của bạn là sử dụng return -code error $message như thế này:

proc nameOfTheProc {} { 
    #a lot of code here 
    return -code error "Wrong sequence of blorbs passed" 
} 

Bằng cách này thủ tục của bạn sẽ cư xử một cách chính xác trong một cách các lệnh Tcl thực hiện khi chúng không hài lòng với những gì chúng đã được gọi: nó sẽ gây ra lỗi tại trang cuộc gọi.