🚀 go-pugleaf

新田@rd.enicomです。

Tclでローカル変数やFORTRANのCOMMONの様なものが欲しいとのことですが、
むかし作ったものがありましたので投稿します。

====================================================================
proc local {args} {
        set name [lindex [info level -1] 0]
        set command "upvar #0"
        foreach arg $args {append command " $name->$arg $arg"}
        uplevel 1 $command
}

proc common {name args} {
        set command "upvar #0"
        foreach arg $args {append command " $name->$arg $arg"}
        uplevel 1 $command
}

proc test {x} {
        local a
        common group1 b
        if ![info exist a] {set a 0}
        incr a $x
        puts a=$a
        set b $a
}
proc test2 {} {
        common group1 b
        puts b=$b
}

test 100
test2
test 200
test2

=====================================================================

---
　　nitta@rd.enicom.co.jp
Re: [Q] Local-array edit