1# procvar2.tcl -- 2# 3# Test file for compilation. 4# Simple procedure with local variables. Used to test that the local 5# variables count is set correctly in the proc struct created for the 6# procedure. 7# 8# Copyright (c) 1998-2000 by Ajuba Solutions. 9# 10# See the file "license.terms" for information on usage and redistribution 11# of this file, and for a DISCLAIMER OF ALL WARRANTIES. 12# 13# RCS: @(#) $Id: procvar2.tcl,v 1.2 2000/05/30 22:19:13 wart Exp $ 14 15proc a { x y } { 16 set l [string tolower $x ] 17 set m [string toupper $y ] 18 19 return [list $x $l $y $m] 20} 21 22a TEST test 23