diff options
Diffstat (limited to 'tcllib/modules/control/no-op.tcl')
| -rw-r--r-- | tcllib/modules/control/no-op.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tcllib/modules/control/no-op.tcl b/tcllib/modules/control/no-op.tcl new file mode 100644 index 0000000..2400303 --- /dev/null +++ b/tcllib/modules/control/no-op.tcl @@ -0,0 +1,14 @@ +# no-op.tcl -- +# +# The [no-op] command of the package "control". +# It accepts any number of arguments and does nothing. +# It returns an empty string. +# +# RCS: @(#) $Id: no-op.tcl,v 1.2 2004/01/15 06:36:12 andreas_kupries Exp $ + +namespace eval ::control { + + proc no-op args {} + +} + |