1# no-op.tcl -- 2# 3# The [no-op] command of the package "control". 4# It accepts any number of arguments and does nothing. 5# It returns an empty string. 6# 7# RCS: @(#) $Id: no-op.tcl,v 1.2 2004/01/15 06:36:12 andreas_kupries Exp $ 8 9namespace eval ::control { 10 11 proc no-op args {} 12 13} 14 15