tcl/tests/pkg/circ1.tcl

   1 # circ1.tcl --
   2 #
   3 #  Test package for pkg_mkIndex. This package requires circ2, and circ2
   4 #  requires circ3, which in turn requires circ1.
   5 #  In case of cirularities, pkg_mkIndex should give up when it gets stuck.
   6 #
   7 # Copyright (c) 1998 by Scriptics Corporation.
   8 # All rights reserved.
   9 #
  10 # RCS: @(#) $Id$
  11
  12 package require circ2 1.0
  13
  14 package provide circ1 1.0
  15
  16 namespace eval circ1 {
  17     namespace export c1-1 c1-2 c1-3 c1-4
  18 }
  19
  20 proc circ1::c1-1 { num } {
  21     return [circ2::c2-1 $num]
  22 }
  23
  24 proc circ1::c1-2 { num } {
  25     return [circ2::c2-2 $num]
  26 }
  27
  28 proc circ1::c1-3 {} {
  29     return 10
  30 }
  31
  32 proc circ1::c1-4 {} {
  33     return 20
  34 }