tcl/tests/pkg/pkg5.tcl

   1 # pkg5.tcl --
   2 #
   3 #  Test package for pkg_mkIndex. This package requires pkg2, and it calls
   4 #  a pkg2 proc in the code that is executed by the file.
   5 #  Pkg2 is a split package.
   6 #
   7 # Copyright (c) 1998 by Scriptics Corporation.
   8 # All rights reserved.
   9 #
  10 # RCS: @(#) $Id$
  11
  12 package require pkg2 1.0
  13
  14 package provide pkg5 1.0
  15
  16 namespace eval pkg5 {
  17     namespace export p5-1 p5-2
  18     variable m2 [pkg2::p2-1 10]
  19     variable m3 [pkg2::p2-2 10]
  20 }
  21
  22 proc pkg5::p5-1 { num } {
  23     variable m2
  24     return [expr {$m2 * $num}]
  25 }
  26
  27 proc pkg5::p5-2 { num } {
  28     variable m2
  29     return [expr {$m2 * $num}]
  30 }