30 lines
603 B
Tcl
30 lines
603 B
Tcl
|
# def.tcl - Definining commands.
|
||
|
|
# Copyright (C) 1997 Cygnus Solutions.
|
||
|
|
# Written by Tom Tromey <tromey@cygnus.com>.
|
||
|
|
|
||
|
|
# Define a global array.
|
||
|
|
proc defarray {name {value {}}} {
|
||
|
|
upvar \#0 $name ary
|
||
|
|
|
||
|
|
if {! [info exists ary]} then {
|
||
|
|
set ary(_) {}
|
||
|
|
unset ary(_)
|
||
|
|
array set ary $value
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Define a global variable.
|
||
|
|
proc defvar {name {value {}}} {
|
||
|
|
upvar \#0 $name var
|
||
|
|
if {! [info exists var]} then {
|
||
|
|
set var $value
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Define a "constant". For now this is just a pretty way to declare a
|
||
|
|
# global variable.
|
||
|
|
proc defconst {name value} {
|
||
|
|
upvar \#0 $name var
|
||
|
|
set var $value
|
||
|
|
}
|