tests/pkg1/direct1.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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]
}