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

Subversion Repositories or1k

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

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


# pkga.tcl --
#
#  Test package for pkg_mkIndex. This package provides Pkga,
#  which is also provided by a DLL.
#
# Copyright (c) 1998 by Scriptics Corporation.
# All rights reserved.
# 
# RCS: @(#) $Id: pkga.tcl,v 1.1.1.1 2002-01-16 10:25:36 markom Exp $
 
package provide Pkga 1.0
 
proc pkga_neq { x } {
    return [expr {! [pkgq_eq $x]}]
}

Line No.	Rev	Author	Line
1	578	markom	`# pkga.tcl --`
2			`#`
3			`# Test package for pkg_mkIndex. This package provides Pkga,`
4			`# which is also provided by a DLL.`
5			`#`
6			`# Copyright (c) 1998 by Scriptics Corporation.`
7			`# All rights reserved.`
8			`#`
9			`# RCS: @(#) $Id: pkga.tcl,v 1.1.1.1 2002-01-16 10:25:36 markom Exp $`
10
11			`package provide Pkga 1.0`
12
13			`proc pkga_neq { x } {`
14			`return [expr {! [pkgq_eq $x]}]`
15			`}`

Browse

Tools

Subversion Repositories or1k

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