Subversion Repositories or1k

# 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

}