tcl/tests/pkg/pkga.tcl

   1 # 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$
  10
  11 package provide Pkga 1.0
  12
  13 proc pkga_neq { x } {
  14     return [expr {! [pkgq_eq $x]}]
  15 }