tcl/tests/pkg/circ2.tcl

   1 # circ2.tcl --
   2 #
   3 #  Test package for pkg_mkIndex. This package is required by circ1, and
   4 #  requires circ3. Circ3, in turn, requires circ1 to give us a circularity.
   5 #
   6 # Copyright (c) 1998 by Scriptics Corporation.
   7 # All rights reserved.
   8 #
   9 # RCS: @(#) $Id$
  10
  11 package require circ3 1.0
  12
  13 package provide circ2 1.0
  14
  15 namespace eval circ2 {
  16     namespace export c2-1 c2-2
  17 }
  18
  19 proc circ2::c2-1 { num } {
  20     return [expr $num * [circ3::c3-1]]
  21 }
  22
  23 proc circ2::c2-2 { num } {
  24     return [expr $num * [circ3::c3-2]]
  25 }