टीसीएल उस प्रो नाम को प्राप्त करता है जिसमें मैं

Question

जानता हूं कि मैं जिस प्रोसेस का नाम हूं उसका नाम क्या है। मेरा मतलब है कि मुझे इसकी आवश्यकता है:

proc nameOfTheProc {} { 

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

इसलिए मैं "nameOfTheProc" प्राप्त करना चाहता हूं लेकिन हार्ड कोड नहीं। ताकि जब कोई व्यक्ति proc नाम बदल देगा तो यह अभी भी ठीक से काम करेगा। भीतरी info level साथ

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]'" 
} 

आप प्रक्रिया कॉल गहराई का स्तर मिल जाएगा आप में हैं बाहरी एक प्रक्रिया के नाम वापस आ जाएगी:

Answer 1

आप अपनी समस्या के लिए info level आदेश का उपयोग कर सकते हैं। अपने आप।

Answer 2

यदि आपका चल रहा टीसीएल 8.5 या बाद में info frame कमांड सूची के बजाए एक नियम लौटाएगा। तो कोड इस प्रकार संशोधित:

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

Answer 3

क्या अपने प्रश्न में गर्भित return -code error $message इस तरह उपयोग करने के लिए है प्राप्त करने के लिए सही रास्ता मुहावरेदार:

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

इस तरह आप अपने प्रक्रिया एक में बिल्कुल वैसा ही व्यवहार करेंगे वैसे स्टॉक टीसीएल कमांड तब करते हैं जब वे उनसे संतुष्ट नहीं होते हैं जिनके साथ उन्हें कॉल किया गया है: इससे कॉल साइट पर कोई त्रुटि होगी।