contents

很不错的tcl编程实例

# Copyright 1996

# Authors

# Lakshmi Sastry
# Computing and Information Systems Department
# Rutherford Appleton Laboratory, Chilton, Didcot. OX11 0QX
# [e-mail]

#                         and

# Venkat VSS Sastry
# Department of Applied Mathematics and Operational Research
# Cranfield University, RMCS Shrivenham, Swindon, SN6 8LA
# [e-mail]

# Permission to use, copy, modify, and distribute this
# software and its documentation for any purpose and without
# fee is hereby granted, provided that this copyright
# notice appears in all copies.
  
# The authors, RAL, RMCS Shrivenham, Cranfield University and AGOCG
# make no representations about the suitability of this
# software for any purpose.  It is provided "as is" without
# express or implied warranty. Likewise they accept no responsibility
# whatsoever for any public domain software modules used (which are
# hereby acknowledged) in this software 

set CONTENTS(Basic_Features) {; \ # $var ${var}xyz expr "" {} }
set CONTENTS(Special_Variables) {env errorCode tcl_precision}
set CONTENTS(Control_Flow) {break continue exit for foreach if \
                            return switch while}
set CONTENTS(File_Information) {file}
set CONTENTS(Tcl_Info) {info}
set CONTENTS(File_I/O) {close eof flush gets open puts read seek tell}
set CONTENTS(Lists) {concat join lappend lindex linsert list llength \
                     lrange lsearch lsort}
set CONTENTS(Arrays) {array parray}
set CONTENTS(Strings) {append format regexp regsub scan string subst}
set CONTENTS(System_Interaction) {cd exec glob pid pwd}
set CONTENTS(Command_History) {history}
set CONTENTS(Other_Tcl_Commands) {auto_execok auto_load auto_mkindex \
                                  auto_reset catch error eval expr \
                                  global incr proc rename set source \
                                  time unknown unset uplevel upvar}