share/redhat/gui/def.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
}