head	1.8;
access;
symbols
	tcllib-1-13:1.8
	tcllib-1-12:1.8
	tklib-0-5:1.8
	tcllib-1-11-1:1.8
	tcllib-1-11:1.8
	tcllib-1-10:1.8
	tcllib-1-9:1.8
	tcllib-1-8:1.8
	tcllib-1-7:1.8
	tcllib-1-6-1:1.8
	tcllib-1-6-branch:1.8.0.2
	tcllib-1-6:1.8
	tcllib-1-4-0:1.8
	tcllib-1-3-0:1.8
	DEVELOPMENT:1.7.0.6
	tcllib-1-2-0:1.7.0.4
	RELEASES:1.7.0.2
	tcllib-1-1-0:1.2;
locks; strict;
comment	@# @;


1.8
date	2002.02.21.21.44.18;	author dgp;	state Exp;
branches;
next	1.7;

1.7
date	2001.11.09.04.59.45;	author dgp;	state Exp;
branches
	1.7.6.1;
next	1.6;

1.6
date	2001.11.07.21.59.24;	author dgp;	state Exp;
branches;
next	1.5;

1.5
date	2001.11.07.10.40.01;	author rmax;	state Exp;
branches;
next	1.4;

1.4
date	2001.11.03.03.45.58;	author dgp;	state Exp;
branches;
next	1.3;

1.3
date	2001.11.03.01.11.28;	author patthoyts;	state Exp;
branches;
next	1.2;

1.2
date	2001.08.23.04.53.15;	author dgp;	state Exp;
branches;
next	1.1;

1.1
date	2001.08.21.22.54.15;	author dgp;	state Exp;
branches;
next	;

1.7.6.1
date	2005.05.24.14.21.00;	author dgp;	state Exp;
branches;
next	1.7.6.2;

1.7.6.2
date	2005.05.24.15.08.51;	author dgp;	state Exp;
branches;
next	;


desc
@@


1.8
log
@	updated tclIndex with genIndex
@
text
@# Tcl autoload index file, version 2.0
# This file is generated by the "auto_mkindex" command
# and sourced to set up indexing information for one or
# more commands.  Typically each line is a command that
# sets an element in the auto_index array, where the
# element name is the name of a command and the value is
# a script that loads the command.

set auto_index(::control::CommandAsCaller) [list source [file join $dir ascaller.tcl]]
set auto_index(::control::BodyAsCaller) [list source [file join $dir ascaller.tcl]]
set auto_index(::control::ErrorInfoAsCaller) [list source [file join $dir ascaller.tcl]]
set auto_index(::control::assert::EnabledAssert) [list source [file join $dir assert.tcl]]
set auto_index(::control::assert::enabled) [list source [file join $dir assert.tcl]]
set auto_index(::control::assert::callback) [list source [file join $dir assert.tcl]]
set auto_index(::control::AssertSwitch) [list source [file join $dir assert.tcl]]
set auto_index(::control::assert) [list source [file join $dir assert.tcl]]
set auto_index(::control::do) [list source [file join $dir do.tcl]]
set auto_index(::control::no-op) [list source [file join $dir no-op.tcl]]
@


1.7
log
@        * ascaller.tcl (ErrorInfoAsCaller): new utility proc that provides
        only ::errorInfo management, leaving return code matters to the caller.
        * do.tcl: At the prompting of Reinhard Max, replaced use of the
        [BodyAsCaller] and [CommandAsCaller] routines with the simpler
        [ErrorInfoAsCaller] with big performance improvement.
        * do.test: New tests from Reinhard Max for testing ::errorInfo.
        * tclIndex: generated
@
text
@d9 3
d17 1
a18 5
set auto_index(::control::CommandAsCaller) [list source [file join $dir ascaller.tcl]]
set auto_index(::control::BodyAsCaller) [list source [file join $dir ascaller.tcl]]
set auto_index(::control::ErrorInfoAsCaller) [list source [file join $dir ascaller.tcl]]
set auto_index(::control::do) [list source [file join $dir do.tcl]]
set auto_index(::control::rswitch) [list source [file join $dir rswitch.tcl]]
@


1.7.6.1
log
@merge updates from HEAD
@
text
@a8 3
set auto_index(::control::CommandAsCaller) [list source [file join $dir ascaller.tcl]]
set auto_index(::control::BodyAsCaller) [list source [file join $dir ascaller.tcl]]
set auto_index(::control::ErrorInfoAsCaller) [list source [file join $dir ascaller.tcl]]
d14 4
d19 1
a19 1
set auto_index(::control::no-op) [list source [file join $dir no-op.tcl]]
@


1.7.6.2
log
@        * wait-for-any.tcl:     New command: control::waitForAny.
        * wait-for-any.test:
        * tclIndex:

        * control.tcl:          Bump to version 0.2
        * pkgIndex.tcl:

        * do.test (do-2.3):     Update to accept newer error message format.
@
text
@a18 1
set auto_index(::control::waitForAny) [list source [file join $dir wait-for-any.tcl]]
@


1.6
log
@        * do.tcl: updated to use [BodyAsCaller] and [CommandAsCaller]
        so that proper ::errorInfo management is achieved.

        * rswitch.tcl:
        * ascaller.tcl (new-file): factored out utility procs from
        rswitch.tcl so they can be used by other conotrol commands.
        * tclIndex: generated
@
text
@d17 1
@


1.5
log
@	* control: added implementation for a 'do ... while/until' loop.
@
text
@a8 4
set auto_index(::control::no-op) [list source [file join $dir no-op.tcl]]
set auto_index(::control::CommandAsCaller) [list source [file join $dir rswitch.tcl]]
set auto_index(::control::BodyAsCaller) [list source [file join $dir rswitch.tcl]]
set auto_index(::control::rswitch) [list source [file join $dir rswitch.tcl]]
d14 3
d18 1
@


1.4
log
@
        * pkgIndex.tcl:
        * control.tcl: Addition of rswitch means bump 0.0 -> 0.1.

        * genIndex (new file):
        * index.tcl (deleted file): renamed index.tcl -> genIndex so
        it won't be mistakenly installed anymore.  Purpose of genIndex
        is to regenerate the tclIndex file.
        * tclIndex: Generated.
@
text
@d9 4
d18 1
a18 4
set auto_index(::control::no-op) [list source [file join $dir no-op.tcl]]
set auto_index(::control::CommandAsCaller) [list source [file join $dir rswitch.tcl]]
set auto_index(::control::BodyAsCaller) [list source [file join $dir rswitch.tcl]]
set auto_index(::control::rswitch) [list source [file join $dir rswitch.tcl]]
@


1.3
log
@Added in the rswitch command posted to clt by Don Porter and wrote some tests. More tests required.
@
text
@a8 1
set auto_index(::control::no-op) [list source [file join $dir no-op.tcl]]
d14 3
@


1.2
log
@New commands: control::control and control::assert
@
text
@d15 1
@


1.1
log
@	* Added package 'control'.
@
text
@d10 5
@

