URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [tests/] [pkg/] [simple.tcl] - Blame information for rev 1774

Go to most recent revision | Details | Compare with Previous | View Log


# simple.tcl --
#
#  Test package for pkg_mkIndex. This is a simple package, just to check
#  basic functionality.
#
# Copyright (c) 1998 by Scriptics Corporation.
# All rights reserved.
# 
# RCS: @(#) $Id: simple.tcl,v 1.1.1.1 2002-01-16 10:25:36 markom Exp $
 
package provide simple 1.0
 
namespace eval simple {
    namespace export lower upper
}
 
proc simple::lower { stg } {
    return [string tolower $stg]
}
 
proc simple::upper { stg } {
    return [string toupper $stg]
}

Line No.	Rev	Author	Line
1	578	markom	`# simple.tcl --`
2			`#`
3			`# Test package for pkg_mkIndex. This is a simple package, just to check`
4			`# basic functionality.`
5			`#`
6			`# Copyright (c) 1998 by Scriptics Corporation.`
7			`# All rights reserved.`
8			`#`
9			`# RCS: @(#) $Id: simple.tcl,v 1.1.1.1 2002-01-16 10:25:36 markom Exp $`
10
11			`package provide simple 1.0`
12
13			`namespace eval simple {`
14			`namespace export lower upper`
15			`}`
16
17			`proc simple::lower { stg } {`
18			`return [string tolower $stg]`
19			`}`
20
21			`proc simple::upper { stg } {`
22			`return [string toupper $stg]`
23			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [tests/] [pkg/] [simple.tcl] - Blame information for rev 1774