diff options
| -rw-r--r-- | AUTHORS | 10 | ||||
| -rw-r--r-- | LICENSE | 10 | ||||
| -rw-r--r-- | README | 10 | ||||
| -rw-r--r-- | README.oo | 2 | ||||
| -rw-r--r-- | README.sqlite | 4 | ||||
| -rw-r--r-- | README.utf-8 | 2 | ||||
| -rw-r--r-- | Tcl_shipped.html | 54 | ||||
| -rw-r--r-- | jim.c | 4 | ||||
| -rw-r--r-- | jim_tcl.txt | 32 | ||||
| -rw-r--r-- | stdlib.tcl | 2 | ||||
| -rw-r--r-- | tcl.license.terms | 4 | ||||
| -rw-r--r-- | tclcompat.tcl | 2 | ||||
| -rw-r--r-- | tree.tcl | 12 |
13 files changed, 81 insertions, 67 deletions
@@ -29,13 +29,13 @@ Also the following ideas are due to the following authors: current-iteartion result, providing in one command the power of [map] and [filter] together. - -ChangeLog committers to be identified. Tentative list: - + +ChangeLog committers to be identified. Tentative list: + antirez - Salvatore Sanfilippo <antirez@gmail.com> -patthoyts - Pat Thoyts <patthoyts@users.sf.net> +patthoyts - Pat Thoyts <patthoyts@users.sf.net> oharboe - Øyvind Harboe - soyvind.harboe@zylin.com -Andrew Lunn <andrew@lunn.ch> +Andrew Lunn <andrew@lunn.ch> Duane Ellis <openocd@duaneellis.com> Uwe Klein <uklein@klein-messgeraete.de> Clemens Hintze ml-jim@qiao.in-berlin.de aka chi @@ -5,7 +5,7 @@ under following license: * * Copyright 2005 Salvatore Sanfilippo <antirez@invece.org> * Copyright 2005 Clemens Hintze <c.hintze@gmx.net> - * Copyright 2005 patthoyts - Pat Thoyts <patthoyts@users.sf.net> + * Copyright 2005 patthoyts - Pat Thoyts <patthoyts@users.sf.net> * Copyright 2008 oharboe - Øyvind Harboe - oyvind.harboe@zylin.com * Copyright 2008 Andrew Lunn <andrew@lunn.ch> * Copyright 2008 Duane Ellis <openocd@duaneellis.com> @@ -14,18 +14,18 @@ under following license: * Copyright 2009 Nico Coesel <ncoesel@dealogic.nl> * Copyright 2009 Zachary T Welch zw@superlucidity.net * Copyright 2009 David Brownell - * + * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: - * + * * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above * copyright notice, this list of conditions and the following * disclaimer in the documentation and/or other materials * provided with the distribution. - * + * * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A @@ -38,7 +38,7 @@ under following license: * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - * + * * The views and conclusions contained in the software and documentation * are those of the authors and should not be interpreted as representing * official policies, either expressed or implied, of the Jim Tcl Project. @@ -145,7 +145,7 @@ under following license: * * Copyright 2005 Salvatore Sanfilippo <antirez@invece.org> * Copyright 2005 Clemens Hintze <c.hintze@gmx.net> - * Copyright 2005 patthoyts - Pat Thoyts <patthoyts@users.sf.net> + * Copyright 2005 patthoyts - Pat Thoyts <patthoyts@users.sf.net> * Copyright 2008 oharboe - Øyvind Harboe - oyvind.harboe@zylin.com * Copyright 2008 Andrew Lunn <andrew@lunn.ch> * Copyright 2008 Duane Ellis <openocd@duaneellis.com> @@ -154,18 +154,18 @@ under following license: * Copyright 2009 Nico Coesel <ncoesel@dealogic.nl> * Copyright 2009 Zachary T Welch zw@superlucidity.net * Copyright 2009 David Brownell - * + * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: - * + * * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above * copyright notice, this list of conditions and the following * disclaimer in the documentation and/or other materials * provided with the distribution. - * + * * THIS SOFTWARE IS PROVIDED BY THE JIM TCL PROJECT ``AS IS'' AND ANY * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A @@ -178,7 +178,7 @@ under following license: * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - * + * * The views and conclusions contained in the software and documentation * are those of the authors and should not be interpreted as representing * official policies, either expressed or implied, of the Jim Tcl Project. @@ -7,7 +7,7 @@ Date: 1 Nov 2010 09:18:40 OVERVIEW -------- The pure-Tcl oo package leverages Jim's unique strengths -to provide support for Object Oriented programming. +to provide support for Object Oriented programming. The oo package can be statically linked with Jim or installed as a separate Tcl package and loaded with: diff --git a/README.sqlite b/README.sqlite index 4346d25..cc4761d 100644 --- a/README.sqlite +++ b/README.sqlite @@ -24,7 +24,7 @@ can be used to perform operations on the database. A real example: . set db [sqlite.open test.db] sqlite.handle0 - . $db query "SELECT * from tbl1" + . $db query "SELECT * from tbl1" {one hello! two 10} {one goodbye two 20} In the second line the handle is used as a command name, followed @@ -64,7 +64,7 @@ Specification of query results In one of the above examples, the following query was used: - . $db query "SELECT * from tbl1" + . $db query "SELECT * from tbl1" {one hello! two 10} {one goodbye two 20} As you can see the result of a query is a list of lists. Every diff --git a/README.utf-8 b/README.utf-8 index eca528c..7128d76 100644 --- a/README.utf-8 +++ b/README.utf-8 @@ -12,7 +12,7 @@ nulls, however it has had no support for multi-byte character encodings. In some fields, such as when dealing with the web, or other user-generated content, support for multi-byte character encodings is necessary. In these cases it would be very useful for Jim Tcl to be able to process strings -as multi-byte character strings rather than simply binary bytes. +as multi-byte character strings rather than simply binary bytes. Supporting multiple character encodings and translation between those encodings is beyond the scope of Jim Tcl. Therefore, Jim has been enhanced to add support diff --git a/Tcl_shipped.html b/Tcl_shipped.html index 6e7cdc7..553c4d2 100644 --- a/Tcl_shipped.html +++ b/Tcl_shipped.html @@ -896,6 +896,11 @@ Add <tt>build-jim-ext</tt> for easy separate building of loadable modules (exten <a href="#_local"><strong><tt>local</tt></strong></a> now works with any command, not just procs
</p>
</li>
+<li>
+<p>
+Add <a href="#_info"><strong><tt>info</tt></strong></a> <tt>alias</tt> to access the target of an alias
+</p>
+</li>
</ol></div>
</div>
<div class="sect2">
@@ -2142,7 +2147,7 @@ among several arguments. For example, the command</p></div> <pre><tt>expr $a + $b</tt></pre>
</div></div>
<div class="paragraph"><p>results in three arguments being passed to <a href="#_expr"><strong><tt>expr</tt></strong></a>: <tt>$a</tt>,
-<tt>\</tt>+, and <tt>$b</tt>. In addition, if the expression isn’t in braces
++, and <tt>$b</tt>. In addition, if the expression isn’t in braces
then the Tcl interpreter will perform variable and command substitution
immediately (it will happen in the command parser rather than in
the expression parser). In many cases the expression is being
@@ -2154,7 +2159,7 @@ evaluated, rather than once and for all at the beginning. For example, the command</p></div>
<div class="literalblock">
<div class="content">
-<pre><tt>for {set i 1} $i<=10 {incr i} {...} +** WRONG **+</tt></pre>
+<pre><tt>for {set i 1} $i<=10 {incr i} {...} ** WRONG **</tt></pre>
</div></div>
<div class="paragraph"><p>is probably intended to iterate over all values of <tt>i</tt> from 1 to 10.
After each iteration of the body of the loop, <a href="#_for"><strong><tt>for</tt></strong></a> will pass
@@ -2168,7 +2173,7 @@ becomes greater than 10. In the above case the loop will never terminate. Instead, the expression should be placed in braces:</p></div>
<div class="literalblock">
<div class="content">
-<pre><tt>for {set i 1} {$i<=10} {incr i} {...} +** RIGHT **+</tt></pre>
+<pre><tt>for {set i 1} {$i<=10} {incr i} {...} ** RIGHT **</tt></pre>
</div></div>
<div class="paragraph"><p>This causes the substitution of <em>i</em>
to be delayed; it will be re-done each time the expression is
@@ -2281,7 +2286,7 @@ Supported character classes: <tt>[:alnum:]</tt>, <tt>[:digit:]</tt> and <tt>[:sp </li>
<li>
<p>
-Supported shorthand character classes: <tt>\w = +[:alnum:]</tt>, <tt>\d</tt> = <tt>[:digit:],</tt> <tt>\s</tt> = <tt>[:space:]</tt>
+Supported shorthand character classes: <tt>\w</tt> = <tt>[:alnum:]</tt>, <tt>\d</tt> = <tt>[:digit:],</tt> <tt>\s</tt> = <tt>[:space:]</tt>
</p>
</li>
<li>
@@ -3139,7 +3144,7 @@ be an integer.</p></div> <div class="sect2">
<h3 id="_alias">alias</h3>
<div class="paragraph"><p><tt><strong>alias</strong> <em>name args...</em></tt></p></div>
-<div class="paragraph"><p>Creates a single word alias (<a href="#_proc"><strong><tt>proc</tt></strong></a>) for one or more words. For example,
+<div class="paragraph"><p>Creates a single word alias (command) for one or more words. For example,
the following creates an alias for the command <a href="#_info"><strong><tt>info</tt></strong></a> <tt>exists</tt>.</p></div>
<div class="literalblock">
<div class="content">
@@ -3149,7 +3154,7 @@ if {[e var]} { }</tt></pre>
</div></div>
<div class="paragraph"><p><a href="#_alias"><strong><tt>alias</tt></strong></a> returns <tt><em>name</em></tt>, allowing it to be used with <a href="#_local"><strong><tt>local</tt></strong></a>.</p></div>
-<div class="paragraph"><p>See also <a href="#_proc"><strong><tt>proc</tt></strong></a>, <a href="#_curry"><strong><tt>curry</tt></strong></a>, <a href="#_lambda"><strong><tt>lambda</tt></strong></a>, <a href="#_local"><strong><tt>local</tt></strong></a>.</p></div>
+<div class="paragraph"><p>See also <a href="#_proc"><strong><tt>proc</tt></strong></a>, <a href="#_curry"><strong><tt>curry</tt></strong></a>, <a href="#_lambda"><strong><tt>lambda</tt></strong></a>, <a href="#_local"><strong><tt>local</tt></strong></a>, <a href="#_info"><strong><tt>info</tt></strong></a> <tt>alias</tt></p></div>
</div>
<div class="sect2">
<h3 id="_append">append</h3>
@@ -4376,6 +4381,15 @@ The legal <tt><em>option</em></tt>'s (which may be abbreviated) are: </p>
</dd>
<dt class="hdlist1">
+<tt><strong>info alias</strong> <em>command</em></tt>
+</dt>
+<dd>
+<p>
+ <tt><em>command</em></tt> must be an alias created with <a href="#_alias"><strong><tt>alias</tt></strong></a>. In which case the target
+ command and arguments, as passed to <a href="#_alias"><strong><tt>alias</tt></strong></a> are returned.
+</p>
+</dd>
+<dt class="hdlist1">
<tt><strong>info body</strong> <em>procname</em></tt>
</dt>
<dd>
@@ -4694,9 +4708,9 @@ a=1,b=2</tt></pre> </div>
<div class="sect2">
<h3 id="_local">local</h3>
-<div class="paragraph"><p><tt><strong>local</strong> <em>args</em></tt></p></div>
-<div class="paragraph"><p>Executes it’s arguments as a single command (per <a href="#_eval"><strong><tt>eval</tt></strong></a>) and considers the return
-value to be a command name, which is marked as having local scope.
+<div class="paragraph"><p><tt><strong>local</strong> <em>cmd ?arg...?</em></tt></p></div>
+<div class="paragraph"><p>First, <a href="#_local"><strong><tt>local</tt></strong></a> evaluates <tt><em>cmd</em></tt> with the given arguments. The return value must
+be the name of an existing command, which is marked as having local scope.
This means that when the current procedure exits, the specified
command is deleted. This can be useful with <a href="#_lambda"><strong><tt>lambda</tt></strong></a>, local procedures or
to automatically close a filehandle.</p></div>
@@ -4937,7 +4951,7 @@ a b a b a b</tt></pre> <h3 id="_lsearch">lsearch</h3>
<div class="paragraph"><p><tt><strong>lsearch</strong> <em>?options? list pattern</em></tt></p></div>
<div class="paragraph"><p>This command searches the elements <tt><em>list</em></tt> to see if one of them matches <tt><em>pattern</em></tt>. If so, the
-command returns the index of the first matching element (unless the options -all, -inline or -bool are
+command returns the index of the first matching element (unless the options <tt>-all</tt>, <tt>-inline</tt> or <tt>-bool</tt> are
specified.) If not, the command returns -1. The option arguments indicates how the elements of
the list are to be matched against pattern and must have one of the values below:</p></div>
<div class="paragraph"><p><strong>Note</strong> that this command is different from Tcl in that default match type is <tt>-exact</tt> rather than <tt>-glob</tt>.</p></div>
@@ -4987,7 +5001,7 @@ the list are to be matched against pattern and must have one of the values below <p>
The matching value is returned instead of its index (or an empty string if no value
matches). If <tt>-all</tt> is also specified, then the result of the command is the list of all
- values that matched. The <tt>-inline</tt> and +-bool' options are mutually exclusive.
+ values that matched. The <tt>-inline</tt> and <tt>-bool</tt> options are mutually exclusive.
</p>
</dd>
<dt class="hdlist1">
@@ -5062,7 +5076,7 @@ It may have any of the following values:</p></div> </p>
</dd>
<dt class="hdlist1">
-<tt>r\</tt>+
+<tt>r</tt>+
</dt>
<dd>
<p>
@@ -5080,7 +5094,7 @@ It may have any of the following values:</p></div> </p>
</dd>
<dt class="hdlist1">
-<tt>w\</tt>+
+<tt>w</tt>+
</dt>
<dd>
<p>
@@ -5098,7 +5112,7 @@ It may have any of the following values:</p></div> </p>
</dd>
<dt class="hdlist1">
-<tt>a\</tt>+
+<tt>a</tt>+
</dt>
<dd>
<p>
@@ -5364,8 +5378,8 @@ in the substitution with the portion of <tt><em>string</em></tt> that matched <tt><em>exp</em></tt>.</p></div>
<div class="paragraph"><p>If <tt><em>subSpec</em></tt> contains a <tt>\n</tt>, where <tt><em>n</em></tt> is a digit
between 1 and 9, then it is replaced in the substitution with
-the portion of <tt><em>string</em></tt> that matched the <tt><em>'+n</tt></em>'<tt>-th
-parenthesized subexpression of +<em>exp</em></tt>.
+the portion of <tt><em>string</em></tt> that matched the <tt><em>n</em></tt>'-th
+parenthesized subexpression of <tt><em>exp</em></tt>.
Additional backslashes may be used in <tt><em>subSpec</em></tt> to prevent special
interpretation of <tt>&</tt> or <tt>\0</tt> or <tt>\n</tt> or
backslash.</p></div>
@@ -5443,7 +5457,7 @@ no longer accessible.</p></div> <div class="paragraph"><p>The finalizer is invoked as:</p></div>
<div class="literalblock">
<div class="content">
-<pre><tt>+finalizer 'reference string'+</tt></pre>
+<pre><tt>finalizer reference string</tt></pre>
</div></div>
<div class="paragraph"><p>See GARBAGE COLLECTION, REFERENCES, LAMBDA for more detail.</p></div>
</div>
@@ -6362,9 +6376,9 @@ the current call frame. This is similar to <em>exec</em> in Bourne Shell.</p></d </div></div>
<div class="literalblock">
<div class="content">
-<pre><tt>return [uplevel 1 a b c]</tt></pre>
+<pre><tt>return [uplevel 1 [list a b c]]</tt></pre>
</div></div>
-<div class="paragraph"><p><a href="#_tailcall"><strong><tt>tailcall</tt></strong></a> is useful for a dispatch mechanism:</p></div>
+<div class="paragraph"><p><a href="#_tailcall"><strong><tt>tailcall</tt></strong></a> is useful as a dispatch mechanism:</p></div>
<div class="literalblock">
<div class="content">
<pre><tt>proc a {cmd args} {
@@ -7763,7 +7777,7 @@ official policies, either expressed or implied, of the Jim Tcl Project.</tt></pr <div id="footnotes"><hr /></div>
<div id="footer">
<div id="footer-text">
-Last updated 2011-11-29 08:56:55 EST
+Last updated 2011-12-02 20:53:56 EST
</div>
</div>
</body>
@@ -3540,7 +3540,7 @@ static int JimCreateCommand(Jim_Interp *interp, const char *name, Jim_Cmd *cmd) */ Jim_HashEntry *he = Jim_FindHashEntry(&interp->commands, name); if (he) { - /* There was an old cmd with the same name, + /* There was an old cmd with the same name, * so this requires a 'proc epoch' update. */ /* If a procedure with the same name didn't exist there is no need @@ -3813,7 +3813,7 @@ Jim_Cmd *Jim_GetCommand(Jim_Interp *interp, Jim_Obj *objPtr, int flags) { Jim_Cmd *cmd; - if (objPtr->typePtr != &commandObjType || + if (objPtr->typePtr != &commandObjType || objPtr->internalRep.cmdValue.procEpoch != interp->procEpoch) { /* Not cached or out of date, so lookup */ diff --git a/jim_tcl.txt b/jim_tcl.txt index c40235e..1d1d816 100644 --- a/jim_tcl.txt +++ b/jim_tcl.txt @@ -872,7 +872,7 @@ among several arguments. For example, the command expr $a + $b results in three arguments being passed to `expr`: +$a+, -+\++, and +$b+. In addition, if the expression isn't in braces +\+, and +$b+. In addition, if the expression isn't in braces then the Tcl interpreter will perform variable and command substitution immediately (it will happen in the command parser rather than in the expression parser). In many cases the expression is being @@ -883,7 +883,7 @@ the variable or command substitutions each time the expression is evaluated, rather than once and for all at the beginning. For example, the command - for {set i 1} $i<=10 {incr i} {...} +** WRONG **+ + for {set i 1} $i<=10 {incr i} {...} ** WRONG ** is probably intended to iterate over all values of +i+ from 1 to 10. After each iteration of the body of the loop, `for` will pass @@ -896,7 +896,7 @@ which will always evaluate to 1, even though +i+ eventually becomes greater than 10. In the above case the loop will never terminate. Instead, the expression should be placed in braces: - for {set i 1} {$i<=10} {incr i} {...} +** RIGHT **+ + for {set i 1} {$i<=10} {incr i} {...} ** RIGHT ** This causes the substitution of 'i' to be delayed; it will be re-done each time the expression is @@ -1000,7 +1000,7 @@ and POSIX are highlighted below. 1. UTF-8 strings and patterns are both supported 2. Supported character classes: +[:alnum:]+, +[:digit:]+ and +[:space:]+ -3. Supported shorthand character classes: +{backslash}w = +[:alnum:]+, +{backslash}d+ = +[:digit:],+ +{backslash}s+ = +[:space:]+ +3. Supported shorthand character classes: +{backslash}w+ = +[:alnum:]+, +{backslash}d+ = +[:digit:],+ +{backslash}s+ = +[:space:]+ 4. Character classes apply to ASCII characters only 5. Supported constraint escapes: +{backslash}m+ = +{backslash}<+ = start of word, +{backslash}M+ = +{backslash}>+ = end of word 6. Backslash escapes may be used within regular expressions, such as +{backslash}n+ = newline, +{backslash}uNNNN+ = unicode @@ -2781,10 +2781,10 @@ ments than variables, a list of unassigned elements is returned. local ~~~~~ -+*local* 'args'+ ++*local* 'cmd ?arg\...?'+ -Executes it's arguments as a single command (per `eval`) and considers the return -value to be a command name, which is marked as having local scope. +First, `local` evaluates +'cmd'+ with the given arguments. The return value must +be the name of an existing command, which is marked as having local scope. This means that when the current procedure exits, the specified command is deleted. This can be useful with `lambda`, local procedures or to automatically close a filehandle. @@ -3046,7 +3046,7 @@ lsearch +*lsearch* '?options? list pattern'+ This command searches the elements +'list'+ to see if one of them matches +'pattern'+. If so, the -command returns the index of the first matching element (unless the options -all, -inline or -bool are +command returns the index of the first matching element (unless the options +-all+, +-inline+ or +-bool+ are specified.) If not, the command returns -1. The option arguments indicates how the elements of the list are to be matched against pattern and must have one of the values below: @@ -3073,7 +3073,7 @@ the list are to be matched against pattern and must have one of the values below +'-inline'+:: The matching value is returned instead of its index (or an empty string if no value matches). If +-all+ is also specified, then the result of the command is the list of all - values that matched. The +-inline+ and +-bool' options are mutually exclusive. + values that matched. The +-inline+ and +-bool+ options are mutually exclusive. +'-bool'+:: Changes the result to '1' if a match was found, or '0' otherwise. If +-all+ is also specified, @@ -3133,7 +3133,7 @@ It may have any of the following values: +r+:: Open the file for reading only; the file must already exist. -+r\++:: ++r++:: Open the file for both reading and writing; the file must already exist. @@ -3141,7 +3141,7 @@ It may have any of the following values: Open the file for writing only. Truncate it if it exists. If it doesn't exist, create a new file. -+w\++:: ++w++:: Open the file for reading and writing. Truncate it if it exists. If it doesn't exist, create a new file. @@ -3149,7 +3149,7 @@ It may have any of the following values: Open the file for writing only. The file must already exist, and the file is positioned so that new data is appended to the file. -+a\++:: ++a++:: Open the file for reading and writing. If the file doesn't exist, create a new empty file. Set the initial access position to the end of the file. @@ -3417,7 +3417,7 @@ matched +'exp'+. If +'subSpec'+ contains a +{backslash}n+, where +'n'+ is a digit between 1 and 9, then it is replaced in the substitution with -the portion of +'string'+ that matched the +''+n+''+-th +the portion of +'string'+ that matched the +'n'+\'-th parenthesized subexpression of +'exp'+. Additional backslashes may be used in +'subSpec'+ to prevent special interpretation of +&+ or +{backslash}0+ or +{backslash}n+ or @@ -3472,7 +3472,7 @@ no longer accessible. The finalizer is invoked as: - +finalizer 'reference string'+ + finalizer reference string See GARBAGE COLLECTION, REFERENCES, LAMBDA for more detail. @@ -4061,9 +4061,9 @@ The following are identical except the first immediately replaces the current ca tailcall a b c - return [uplevel 1 a b c] + return [uplevel 1 [list a b c]] -`tailcall` is useful for a dispatch mechanism: +`tailcall` is useful as a dispatch mechanism: proc a {cmd args} { tailcall sub_$cmd {*}$args @@ -19,7 +19,7 @@ proc curry {args} { # Returns the given argument. # Useful with 'local' as follows: # proc a {} {...} -# local function a +# local function a # # set x [lambda ...] # local function $x diff --git a/tcl.license.terms b/tcl.license.terms index f1dcaa5..d74201c 100644 --- a/tcl.license.terms +++ b/tcl.license.terms @@ -29,7 +29,7 @@ MODIFICATIONS. GOVERNMENT USE: If you are acquiring this software on behalf of the U.S. government, the Government shall have only "Restricted Rights" -in the software and related documentation as defined in the Federal +in the software and related documentation as defined in the Federal Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you are acquiring the software on behalf of the Department of Defense, the software shall be classified as "Commercial Computer Software" and the @@ -37,4 +37,4 @@ Government shall have only "Restricted Rights" as defined in Clause 252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the authors grant the U.S. Government and others acting in its behalf permission to use and distribute the software in accordance with the -terms specified in this license. +terms specified in this license. diff --git a/tclcompat.tcl b/tclcompat.tcl index 8e5b128..d0a0201 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -104,7 +104,7 @@ proc fileevent {args} { # Second, option argument is a glob pattern # Third, optional argument is a "putter" function -# +# proc parray {arrayname {pattern *} {puts puts}} { upvar $arrayname a @@ -29,11 +29,11 @@ package require oo # $pt get <nodename> <key> # # Returns the value associated with the given key -# +# # $pt getall <nodename> # # Returns the entire attribute dictionary associated with the given key -# +# # $pt depth <nodename> # # Returns the depth of the given node. The depth of "root" is 0. @@ -41,19 +41,19 @@ package require oo # $pt parent <nodename> # # Returns the name of the parent node, or "" for the root node. -# +# # $pt numchildren <nodename> # # Returns the number of child nodes. -# +# # $pt children <nodename> # # Returns a list of the child nodes. -# +# # $pt next <nodename> # # Returns the next sibling node, or "" if none. -# +# # $pt insert <nodename> ?index? # # Add a new child node to the given node. |