TCL proc中lappend失效及HDL Designer获取包含文件列表问题求助

Let's break down your two Tcl problems and walk through the solutions step by step:

1. lappend Not Working Inside a Proc #

The root cause here is almost always variable scope confusion. By default, any variable you reference inside a Tcl proc is treated as a local variable—even if a global variable with the same name exists. So when you run lappend filenames ... inside your procedure, you're actually modifying a temporary local variable that gets discarded once the proc finishes, not the global one you intended.

2. Global filenames Variable Remaining Empty After Proc Execution #

This is directly tied to the scope issue above. Your puts line works because it prints the computed file path directly, but the lappend is writing to a local filenames variable instead of the global one. Here are two reliable fixes:

Solution 1: Explicitly Declare the Global Variable Inside the Proc #

Add a global filenames line at the start of your proc to tell Tcl you want to use the global variable instead of creating a local one. Also, make sure you initialize the global variable outside the proc first:

# Initialize the global file list (run this before calling your proc)
set filenames [list]

proc collect_hdl_files {lib} {
    # Declare that we're using the global 'filenames' variable
    global filenames
    
    foreach file [$lib getFiles] {
        set full_path "[$lib configure hardHdlDir]/[$file configure relativePathname]"
        # Now this lappend modifies the GLOBAL filenames variable
        lappend filenames $full_path
        
        # Optional: Verify the append works in real-time
        # puts "Added file: $full_path"
    }
}

# Call the proc to collect files
collect_hdl_files your_target_library

# Check the final collected list
puts "Collected include files: $filenames"

Solution 2: Avoid Global Variables (Better Practice) #

Global variables can lead to unexpected side effects in complex scripts. Instead, have your proc return the collected file list and assign it to your variable outside:

proc collect_hdl_files {lib} {
    # Use a local variable inside the proc to build the list
    set local_files [list]
    
    foreach file [$lib getFiles] {
        lappend local_files "[$lib configure hardHdlDir]/[$file configure relativePathname]"
    }
    
    # Return the populated list to the caller
    return $local_files
}

# Assign the proc's return value to your variable
set filenames [collect_hdl_files your_target_library]

# View the final collected list
puts "Collected include files: $filenames"

Why Your Original puts Worked but lappend Didn't #

The puts line directly outputs the computed file path string without relying on variable scope. The lappend was modifying a local filenames variable that vanished as soon as the proc completed—your global filenames was never touched at all.

内容的提问来源于stack exchange，提问作者Андрей Кущенко