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