Question

我已经看过Passing list to Tcl procedure，我不太明白如何正确地做到这一点。把它放在上下文中，这就是我传递列表的方式：

switch $choice {
    n {
        set ptable [new_partition {$ptable}]
    }
    d {
        set ptable [delete_partition {$ptable}]
    }
    p {
        set ptable [print_table {$ptable}]
    }
    w {
        set ptable [write_table {$ptable $fn}]
        puts "Saving file...\nExiting..."
        break
    }
    q {
        puts "Exiting..."
        break
    }
    default {
        puts "Illegal option"
    }
}

这是其中一个程序

的示例

proc print_table {ptable} {
    # Set format string
    set formatStr {%-16s%-8s%-8s%-8s%-8s%-8s}
    # Print the contents of ptable to stdout
    puts [format $formatStr "\nPartition" "Start" "End" "Blocks" "ID" "System"]
    puts "--------------------------------------------------------"
    foreach item $ptable {
        set parts [lindex $item 0]
        set sCyl [lindex $item 1]
        set eCyl [lindex $item 2]
        set blok [lindex $item 3]
        set id [lindex $item 4]
        set sys [lindex $item 5]
        puts [format $formatStr $parts $sCyl $eCyl $blok $id $sys]
    }
    return $ptable
}

Ptable正在被正确创建，但是一旦我将其传递给其中一个程序，它就会丢失所有信息。我尝试用“{*} $ ptable”传递它，但它返回一个错误。我程序中的其他所有内容都工作得很好（如果我从任何一个程序中获取代码并将其单独放置，一切正常），我似乎无法让它正确地通过列表。

Answer 1

不要在这里使用大括号：new_partition {$ptable} - 大括号禁止变量扩展，并且你传递7个字符的字符串 $ P 吨 一 B'/ KBD> 升电子

请参阅http://tcl.tk/man/tcl8.6/TclCmd/Tcl.htm

中的规则＃6

只需传递变量：new_partition $ptable

类似地：

delete_partition $ptable
print_partition $ptable
write_partition $ptable $fn

您显示的print_table过程实际上并未修改传递给它的参数，因此您实际上不需要返回值。此外，如果您只是将ptable行传递给format，则不需要将ptable行分解为单个变量。你可以把那个proc变成

# Print the contents of ptable to stdout
proc print_table {ptable} {
    set formatStr {%-16s%-8s%-8s%-8s%-8s%-8s}
    puts [format $formatStr "\nPartition" Start End Blocks ID System]
    puts "--------------------------------------------------------"
    foreach item $ptable {
        puts [format $formatStr {*}$item]
    }
}

不要这样做

set ptable [print_table $ptable]

但是这样做

print_table $ptable

将列表传递给proc tcl

1 个答案: