tclfile.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

package require Tclpd 0.2.3

package provide tclfile 0.1
namespace eval ::tclfile {
}

proc tclfile::make_symbol {argslist} {
    set output [pd::strip_selectors $argslist]
    set selector [lindex $output 0]
    if {$selector eq "list" || $selector eq "float"} {
        set output [lrange $output 1 end]
    }
    return $output
}