diff options
Diffstat (limited to 'tests/pkg1')
| -rw-r--r-- | tests/pkg1/direct1.tcl | 23 | ||||
| -rw-r--r-- | tests/pkg1/pkgIndex.tcl | 11 |
2 files changed, 34 insertions, 0 deletions
diff --git a/tests/pkg1/direct1.tcl b/tests/pkg1/direct1.tcl new file mode 100644 index 0000000..cc10330 --- /dev/null +++ b/tests/pkg1/direct1.tcl @@ -0,0 +1,23 @@ +# std.tcl -- +# +# Test support package for pkg_mkIndex. +# This is referenced by pkgIndex.tcl as a -direct script. +# +# Copyright (c) 1998 by Scriptics Corporation. +# All rights reserved. +# +# RCS: @(#) $Id: direct1.tcl,v 1.1 1998/10/17 00:21:44 escoffon Exp $ + +package provide direct1 1.0 + +namespace eval direct1 { + namespace export pd1 pd2 +} + +proc direct1::pd1 { stg } { + return [string tolower $stg] +} + +proc direct1::pd2 { stg } { + return [string toupper $stg] +} diff --git a/tests/pkg1/pkgIndex.tcl b/tests/pkg1/pkgIndex.tcl new file mode 100644 index 0000000..5dc1d5e --- /dev/null +++ b/tests/pkg1/pkgIndex.tcl @@ -0,0 +1,11 @@ +# Tcl package index file, version 1.1 +# This file is generated by the "pkg_mkIndex -direct" command +# and sourced either when an application starts up or +# by a "package unknown" script. It invokes the +# "package ifneeded" command to set up package-related +# information so that packages will be loaded automatically +# in response to "package require" commands. When this +# script is sourced, the variable $dir must contain the +# full path name of this file's directory. + +package ifneeded direct1 1.0 [list source [file join $dir direct1.tcl]] |