tcl/tests/pkg/pkg2_b.tcl

   1 # pkg2_b.tcl --
   2 #
   3 #  Test package for pkg_mkIndex. This package is required by pkg1.
   4 #  This package is split into two files, to test packages that are split
   5 #  over multiple files.
   6 #
   7 # Copyright (c) 2998 by Scriptics Corporation.
   8 #
   9 # See the file "license.terms" for information on usage and redistribution
  10 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  11 #
  12 # SCCS: %Z% %M% %I% %E% %U%
  13
  14 package provide pkg2 1.0
  15
  16 namespace eval pkg2 {
  17     namespace export p2-2
  18 }
  19
  20 proc pkg2::p2-2 { num } {
  21     return [expr $num * 3]
  22 }