TCL脚本生成指定数据结构的代码问题及修正请求

原代码核心问题 #

• 递归死循环：add_bus_type过程内部重复调用自身，无终止条件，会直接导致程序崩溃
• 全局变量未声明：bus_counter是全局变量，但过程内未通过global声明，无法正确递增计数
• 参数冗余无效：过程定义的参数完全未使用，内部自行赋值，参数形同虚设
• 缺失输出逻辑：仅处理变量，未生成并输出需求的type和bus结构文本

修改后的代码 #

set bus_counter -1

# 假设已提前初始化好的全局字典
set keyword_numbers {
    BITS_CLK2QDLY {bit_start 0 bit_end 1}
    BITS_DCC_MAIN {bit_start 0 bit_end 6}
    BITS_FIXDLY_MAIN {bit_start 0 bit_end 7}
    BITS_NDE_DLY {bit_start 0 bit_end 7}
}

proc generate_bus_structures {} {
    global bus_counter keyword_numbers

    foreach {bus_name bit_info} [dict sort $keyword_numbers] {
        # 递增计数器并生成bus类型名
        incr bus_counter
        set bus_type "bus$bus_counter"

        # 提取起止位并计算参数
        dict with bit_info {}
        set bit_width [expr {$bit_end - $bit_start + 1}]
        set bit_from $bit_end
        set bit_to $bit_start

        # 输出type块
        puts "type ($bus_type) {"
        puts "      base_type : array ;"
        puts "      data_type : bit ;"
        puts "      bit_width :  $bit_width;"
        puts "      bit_from :  $bit_from;"
        puts "      bit_to :  $bit_to;"
        puts "      downto : true ;"
        puts "    }"

        # 输出bus块
        puts "bus ($bus_name) {"
        puts "  bus_type : $bus_type"
        puts "}"
        puts "" # 空行分隔提升可读性
    }
}

# 执行生成逻辑
generate_bus_structures

修改说明 #

1. 移除递归调用：替换为直接输出目标文本的逻辑，彻底解决死循环问题
2. 声明全局变量：通过global关键字让过程能访问并修改全局的计数器和字典数据
3. 精简无效参数：删除原过程中未使用的参数，逻辑更清晰
4. 完善输出逻辑：通过puts语句生成完全匹配需求的type和bus结构文本
5. 简化字典取值：用dict with直接提取起止位，代码更简洁高效

内容的提问来源于stack exchange，提问作者user21186716