1# procshd5.tcl -- 2# 3# Test file for compilation. 4# This file contains a proc definintion, where the body is shared among 5# several procs. The args are different for same, the same for others 6# It checks that the compiler detects that the object is shared and creates a 7# copy that it will then compile. 8# 9# Copyright (c) 1998-2000 by Ajuba Solutions. 10# 11# See the file "license.terms" for information on usage and redistribution 12# of this file, and for a DISCLAIMER OF ALL WARRANTIES. 13# 14# RCS: @(#) $Id: procshd5.tcl,v 1.2 2000/05/30 22:19:13 wart Exp $ 15 16proc a { x } { 17 return "$x : $x" 18} 19 20proc b { x {y dummy} } { 21 return "$x : $x" 22} 23 24proc c { x y } { 25 return "$x : $x" 26} 27 28proc d { x {y dummy} } { 29 return "$x : $x" 30} 31 32proc e { x } { 33 return "$x > $x" 34} 35 36proc f { x } { 37 return "$x < $x" 38} 39 40list [a TEST] [b TEST] [c TEST dummy] [d TEST] [e TEST] [f TEST] 41