tcl/tests/pkg/pkg3.tcl

   1 # pkg3.tcl --
   2 #
   3 #  Test package for pkg_mkIndex.
   4 #
   5 # Copyright (c) 1998 by Scriptics Corporation.
   6 # All rights reserved.
   7 #
   8 # RCS: @(#) $Id$
   9
  10 package provide pkg3 1.0
  11
  12 namespace eval pkg3 {
  13     namespace export p3-1 p3-2
  14 }
  15
  16 proc pkg3::p3-1 { num } {
  17     return {[expr $num * 2]}
  18 }
  19
  20 proc pkg3::p3-2 { num } {
  21     return {[expr $num * 3]}
  22 }