blob: e2cf9603d189b247ce39046e0fea537ffbc42962 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# pkg1.tcl --
#
# Test package for pkg_mkIndex. This package requires pkg3, but it does
# not use any of pkg3's procs in the code that is executed by the file
# (i.e. references to pkg3's procs are in the proc bodies only).
#
# Copyright (c) 1998 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @(#) $Id: pkg1.tcl,v 1.1 1998/10/17 00:21:40 escoffon Exp $
package require pkg3 1.0
package provide pkg1 1.0
namespace eval pkg1 {
namespace export p1-1 p1-2
}
proc pkg1::p1-1 { num } {
return [pkg3::p3-1 $num]
}
proc pkg1::p1-2 { num } {
return [pkg3::p3-2 $num]
}
|
