More examples

1 files changed, 27 insertions, 1 deletions

diff --git a/doc/set.n b/doc/set.n
index be48036..c5bc059 100644
--- a/doc/set.n
+++ b/doc/set.n
@@ -5,7 +5,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: set.n,v 1.3 2000/09/07 14:27:51 poenitz Exp $
+'\" RCS: @(#) $Id: set.n,v 1.4 2004/04/30 22:45:56 dkf Exp $
 '\" 
 .so man.macros
 .TH set n "" Tcl "Tcl Built-In Commands"
@@ -43,6 +43,32 @@ or local variable of the procedure unless the \fBglobal\fR command
 was invoked to declare \fIvarName\fR to be global,
 or unless a \fBvariable\fR command
 was invoked to declare \fIvarName\fR to be a namespace variable.
+.SH EXAMPLES
+Store a random number in the variable \fIr\fR:
+.CS
+set r [expr rand()]
+.CE
+
+Store a short message in an array element:
+.CS
+set anAry(msg) "Hello, World!"
+.CE
+
+Store a short message in an array element specified by a variable:
+.CS
+set elemName "msg"
+set anAry($elemName) "Hello, World!"
+.CE
+
+Copy a value into the variable \fIout\fR from a variable whose name is
+stored in the \fIvbl\fR (note that it is often easier to use arrays in
+practice instead of doing double-dereferencing):
+.CS
+set in0 "small random"
+set in1 "large random"
+set vbl in[expr {rand() >= 0.5}]
+set out [set $vbl]
+.CE
 
 .SH "SEE ALSO"
 expr(n), proc(n), trace(n), unset(n)