gensym.tcl

来自「windows下的GDB insight前端」· TCL 代码 · 共 14 行

# gensym.tcl - Generate new symbols.
# Copyright (C) 1997 Cygnus Solutions.
# Written by Tom Tromey <[e-mail]>.

# 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]
}