You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
378 B
Tcl
14 lines
378 B
Tcl
15 years ago
|
# gensym.tcl - Generate new symbols.
|
||
|
|
# Copyright (C) 1997 Cygnus Solutions.
|
||
|
|
# Written by Tom Tromey <tromey@cygnus.com>.
|
||
|
|
|
||
|
|
# Internal counter used to provide new symbol names.
|
||
|
|
defvar GENSYM_counter 0
|
||
|
|
|
||
|
|
# Return a new "symbol". This proc hopes that nobody else decides to
|
||
|
|
# use its prefix.
|
||
|
|
proc gensym {} {
|
||
|
|
global GENSYM_counter
|
||
|
|
return __gensym_symbol_[incr GENSYM_counter]
|
||
|
|
}
|