Usenet 1994 January

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume26 / tclx / part05 < prev next >

Wrap

Text File | 1991-11-19 | 51.4 KB | 1,245 lines

Newsgroups: comp.sources.misc From: karl@sugar.neosoft.com (Karl Lehenbauer) Subject: v26i005: tclx - extensions and on-line help for tcl 6.1, Part05/23 Message-ID: <1991Nov19.005335.8579@sparky.imd.sterling.com> X-Md4-Signature: 21013718e86bb22fa746a43517978782 Date: Tue, 19 Nov 1991 00:53:35 GMT Approved: kent@sparky.imd.sterling.com Submitted-by: karl@sugar.neosoft.com (Karl Lehenbauer) Posting-number: Volume 26, Issue 5 Archive-name: tclx/part05 Environment: UNIX #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 5 (of 23)." # Contents: extended/src/Makefile.org extended/tcllib/buildidx.tcl # extended/tcllib/help/commands/error # extended/tcllib/help/commands/upvar # extended/tcllib/help/extended/cmdtrace # extended/tcllib/help/extended/fcntl # extended/tcllib/help/extended/fmtclock # extended/tcllib/help/extended/id # extended/tcllib/help/extended/loop # extended/tcllib/help/extended/select # extended/tcllib/help/extended/signal extended/tcllib/help/help # extended/tcllib/help/intro/braces # extended/tcllib/help/intro/brackets # extended/tcllib/help/tclshell/initialize # extended/tcllib/help/tclshell/variables # extended/tests/forrecur.test extended/tests/globrecur.test # extended/tests/list.test extended/tests/math.test # Wrapped by karl@one on Wed Nov 13 21:50:15 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'extended/src/Makefile.org' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/src/Makefile.org'\" else echo shar: Extracting \"'extended/src/Makefile.org'\" $1639 characters$ sed "s/^X//" >'extended/src/Makefile.org' <<'END_OF_FILE' X#======================================================================= X# X# WARNING: This macro definition section of this Makefile X# is built by the configuration script. X# XC_FLAGS= -g XRANLIB=true XLINKFLAGS=-lc_s -lm XSTRIP=true XMCS=true XDEFAULTFILE=-DDEFAULTFILE=\"/etc/default/tcl\" X#----------------------------------------------------------------------- X X#============================================================================== X# X# Portable makefile for TCL extended commands sources. X# This section of this Makefile is extracted from Makefile.t by Configure. X# X# @(#) Makefile.t 2.3 10/2/90 X# X#------------------------------------------------------------------------------ X XSHELL=/bin/sh X XOBJS= \ X chmod.o clock.o cmdloop.o debug.o \ X extendUtil.o filescan.o fmath.o general.o handles.o \ X id.o iocmds.o list.o main.o math.o \ X matherr.o regexputil.o signal.o string.o tclstartup.o \ X unixcmds.o X XBASEDIR= ../.. X XCFLAGS= -I../../baseline ${C_FLAGS} ${GLOBAL_DEFS} X Xall: ${BASEDIR}/tcl X X${BASEDIR}/tcl: $(BASEDIR)/libtcl.a $(OBJS) main.o X cc ${CFLAGS} main.o ${BASEDIR}/libtcl.a ${LINKFLAGS} -o ${BASEDIR}/tcl X $(STRIP) ${BASEDIR}/tcl X $(MCS) ${BASEDIR}/tcl X Xmain.o: patchlevel.h Makefile X cc -c ${CFLAGS} ${DEFAULTFILE} main.c X X${BASEDIR}/libtcl.a: $(OBJS) X ar cru ${BASEDIR}/libtcl.a $(OBJS) X $(RANLIB) ${BASEDIR}/libtcl.a X X# X# This is just to test if it compiles. X# Xtcl++: X CC -c -I../baseline tcl++.C X -rm -f tcl++.o Xclean: X -rm -f *.o X -rm -f ../tcl X -rm -f tcl++.o X Xrealclean: clean X -rm -f Makefile X X END_OF_FILE if test 1639 -ne `wc -c <'extended/src/Makefile.org'`; then echo shar: \"'extended/src/Makefile.org'\" unpacked with wrong size! fi # end of 'extended/src/Makefile.org' fi if test -f 'extended/tcllib/buildidx.tcl' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/buildidx.tcl'\" else echo shar: Extracting \"'extended/tcllib/buildidx.tcl'\" $2055 characters$ sed "s/^X//" >'extended/tcllib/buildidx.tcl' <<'END_OF_FILE' X# X# Code to build Tcl package library. Defines the proc `buildpackageindex'. X# Xproc TCHSH:PutLibLine {outfp package libfile where endwhere autoprocs} { X puts $outfp [format "TCLSH:defpkg %s %s %s %s %s" $package $libfile \ X $where [expr {$endwhere - $where - 1}] $autoprocs] X} X X Xproc TCLSH:CreateLibIndex {libName} { X X if {[file extension $libName] != ".tlib"} { X error "Package library `$libName' does not have the extension `.tlib'"} X set idxName "[file root $libName].tndx" X if {(![file writable [file dirname $idxName]]) || X ([file exists $idxName] && (![file writable $idxName]))} { X error "No write access to build package index: `$idxName'"} X set libFH [open $libName r] X set idxFH [open $idxName w] X X set contectHdl [scancontext create] X X scanmatch $contectHdl "^#@package: " { X set size [llength $matchInfo(line)] X if {$size < 2} { X error [format "invalid package header \"%s\"" $matchInfo(line)] X } X if {[info exists pkgDefName]} { X TCHSH:PutLibLine $idxFH $pkgDefName $libName $pkgDefWhere \ X $matchInfo(offset) $pkgDefProcs X } X set pkgDefName [lindex $matchInfo(line) 1] X set pkgDefWhere [tell $matchInfo(handle)] X set pkgDefProcs [lrange $matchInfo(line) 2 end] X } X X scanfile $contectHdl $libFH X X TCHSH:PutLibLine $idxFH $pkgDefName $libName $pkgDefWhere [tell $libFH] \ X $pkgDefProcs X close $libFH X close $idxFH X X scancontext delete $contectHdl X X # Set mode and ownership of the index to be the same as the library. X X file stat $libName statInfo X chmod -i $statInfo(mode) $idxName X chown [list $statInfo(uid) $statInfo(gid)] $idxName X X} X Xproc buildpackageindex {libfile} { X X set status [catch {TCLSH:CreateLibIndex $libfile} errmsg] X if {$status != 0} { X global errorInfo errorCode X error "building package index for `$libfile': $errmsg" $errorInfo \ X $errorCode X } X} X END_OF_FILE if test 2055 -ne `wc -c <'extended/tcllib/buildidx.tcl'`; then echo shar: \"'extended/tcllib/buildidx.tcl'\" unpacked with wrong size! fi # end of 'extended/tcllib/buildidx.tcl' fi if test -f 'extended/tcllib/help/commands/error' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/error'\" else echo shar: Extracting \"'extended/tcllib/help/commands/error'\" $2127 characters$ sed "s/^X//" >'extended/tcllib/help/commands/error' <<'END_OF_FILE' X error message ?info? ?code? X Returns a TCL_ERROR code, which causes command X interpretation to be unwound. Message is a string that X is returned to the application to indicate what went X wrong. X X If the info argument is provided and is non-empty, it X is used to initialize the global variable errorInfo. X errorInfo is used to accumulate a stack trace of what X was in progress when an error occurred; as nested X commands unwind, the Tcl interpreter adds information X to errorInfo. If the info argument is present, it is X used to initialize errorInfo and the first increment of X unwind information will not be added by the Tcl X interpreter. In other words, the command containing X the error command will not appear in errorInfo; in its X place will be info. This feature is most useful in X conjunction with the catch command: if a caught error X cannot be handled successfully, info can be used to X return a stack trace reflecting the original point of X occurrence of the error: X X catch {...} errMsg X set savedInfo $errorInfo X ... X error $errMsg $savedInfo X X X If the code argument is present, then its value is X stored in the errorCode global variable. This variable X is intended to hold a machine-readable description of X the error in cases where such information is available; X see the section BUILT-IN VARIABLES below for X information on the proper format for the variable. If X the code argument is not present, then errorCode is X automatically reset to ``NONE'' by the Tcl interpreter X as part of processing the error generated by the X command. END_OF_FILE if test 2127 -ne `wc -c <'extended/tcllib/help/commands/error'`; then echo shar: \"'extended/tcllib/help/commands/error'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/error' fi if test -f 'extended/tcllib/help/commands/upvar' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/upvar'\" else echo shar: Extracting \"'extended/tcllib/help/commands/upvar'\" $1993 characters$ sed "s/^X//" >'extended/tcllib/help/commands/upvar' <<'END_OF_FILE' X upvar ?level? otherVar myVar ?otherVar myVar ...? X This command arranges for one or more local variables X in the current procedure to refer to variables in an X enclosing procedure call or to global variables. Level X may have any of the forms permitted for the uplevel X command, and may be omitted if the first letter of the X first otherVar isn't # or a digit (it defaults to 1). X For each otherVar argument, upvar makes the variable by X that name in the procedure frame given by level (or at X global level, if level is #0) accessible in the current X procedure by the name given in the corresponding myVar X argument. The variable named by otherVar need not X exist at the time of the call; it will be created the X first time myVar is referenced, just like an ordinary X variable. Upvar may only be invoked from within X procedures. Neither otherVar or myVar may refer to an X element of an array. Upvar returns an empty string. X X The upvar command simplifies the implementation of X call-by-name procedure calling and also makes it easier X to build new control constructs as Tcl procedures. For X example, consider the following procedure: X X proc add2 name { X upvar $name x X set x [expr $x+2] X } X X Add2 is invoked with an argument giving the name of a X variable, and it adds two to the value of that X variable. Although add2 could have been implemented X using uplevel instead of upvar, upvar makes it simpler X for add2 to access the variable in the caller's X procedure frame. END_OF_FILE if test 1993 -ne `wc -c <'extended/tcllib/help/commands/upvar'`; then echo shar: \"'extended/tcllib/help/commands/upvar'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/upvar' fi if test -f 'extended/tcllib/help/extended/cmdtrace' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/cmdtrace'\" else echo shar: Extracting \"'extended/tcllib/help/extended/cmdtrace'\" $1852 characters$ sed "s/^X//" >'extended/tcllib/help/extended/cmdtrace' <<'END_OF_FILE' X X X cmdtrace level|on [noeval] [notruncate] [flush] [filehandle] X Print a trace statement for all commands executed at X depth of level or below (1 is the top level). If on is X specified, all commands at any level are traced. If X noeval is specified, arguments are printed unevaluated X -- if it is not specified, the arguments are printed X after evaluation. If the command line is longer than 60 X characters, it is truncated to 60 and a "..." is X postpended to indicate that there was more. If noeval X wasn't specified, the arguments are printed after X evaluation. In this case, each argument is truncated X to 40 characters (with "..." postpended if the argument X was longer than 40 characters) and printed. If an X evaluated argument contains a space, the entire X argument will be enclosed inside of braces (`{}') to X allow the reader to visually separate the arguments X from each other. If notruncate is specified, then the X truncation of commands and evaluated arguments will be X disabled. If flush is specified, then the output buffer X will be flushed after each line is printed. This is X useful when tracing code that cause an application to X abort, making it easy to narrow the problem down to the X command that caused the abort. If filehandle is X specified, then the trace output will be written to the X file. X X cmdtrace off X Turn off all tracing. X X cmdtrace depth X Returns the current maximum trace level, or zero if X trace is disabled. END_OF_FILE if test 1852 -ne `wc -c <'extended/tcllib/help/extended/cmdtrace'`; then echo shar: \"'extended/tcllib/help/extended/cmdtrace'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/cmdtrace' fi if test -f 'extended/tcllib/help/extended/fcntl' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/fcntl'\" else echo shar: Extracting \"'extended/tcllib/help/extended/fcntl'\" $2023 characters$ sed "s/^X//" >'extended/tcllib/help/extended/fcntl' <<'END_OF_FILE' X X X fcntl handle [attribute value] X This command either returns a list of various boolean X attributes controlling access to a file or set or X clears one of the boolean attributes. If attribute and X value are not specified, then the list of the X attributes that are set are return. If an attribute is X not set, then it will not be included in the list. The X following attributes maybe returned: X X RDONLY - The file is opened for reading only. X X WRONLY - The file is opened for writing only. X X RDWR - The file is opened for reading and writing. X X APPEND - The file is opened for append only writes. X All writes will be forced to the end of the file. X X NDELAY - The file is to be accessed with non-blocking X I/O. See the read system call for a description of how X it affects the behaviour of file reads X X CLEXEC - Close the file on an process exec. If the X execvp command or some other mechanism causes the X process to exec, the file will be closed. X X NOBUF - The file is not buffered. If set, then there no X stdio buffering for the file. X X LINEBUF - Output the file will be line buffered. The X buffer will be flushed when a newline is written, when X the buffer is full, or when input is requested. X X The APPEND, NDELAY, and CLEXEC attributes may be set or X cleared by specifying the attribute name and a value 1 X to set the attribute and 0 to clear it. X X The NOBUF and LINEBUF attributes may only be set (a X value of 1) and only one of the options may be set. X Once set, they may not be cleared. Thees option should X be set before any I/O operations have been done on the X file. END_OF_FILE if test 2023 -ne `wc -c <'extended/tcllib/help/extended/fcntl'`; then echo shar: \"'extended/tcllib/help/extended/fcntl'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/fcntl' fi if test -f 'extended/tcllib/help/extended/fmtclock' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/fmtclock'\" else echo shar: Extracting \"'extended/tcllib/help/extended/fmtclock'\" $2250 characters$ sed "s/^X//" >'extended/tcllib/help/extended/fmtclock' <<'END_OF_FILE' X X X fmtclock clockval [format] [GMT|{}] X Convert a value returned by getclock or file to human X readable form. The format argument is a string that X describes how to format the date and time. Field X descriptors consist of a ``%'' followed by a field X descriptor. All other characters are copied into the X result. The available field descriptors are: X X %% - Insert a %. X %a - Abbreviated weekday name. X %A - Full weekday name X %b - Abbreviated month name. X %B - Full month name. X %d - Day of month (01 - 31). X %D - Date as %m/%d/%y. X %e - Day of month (1-31), no leading zeros. X %h - Abbreviated month name. X %H - Hour (00 - 23). X %I - Hour (00 - 12). X %j - Day number of year (001 - 366). X %m - Month number (01 - 12). X %M - Minute (00 - 59). X %n - Insert a new line. X %p - AM or PM. X %r - Time as %I:%M:%S %p. X %R - Time as %H:%M. X %S - Seconds (00 - 59). X %t - Insert a tab. X %T - Time as %H:%M:%S. X %U - Week number of year (01 - 52), Sunday is the first X day of the week. X %w - Weekday number (Sunday = 0). X %W - Week number of year (01 - 52), Monday is the first X day of the week. X %x - Local specific date format. X %X - Local specific time format. X %y - Year within century (00 - 99). X %Y - Year as ccyy (e.g. 1990) X %Z - Time zone name. X X If format is not specified, "%a %b %d %H:%M:%S %Z %Y" X is used. If GMT is specified, the time will be X formated as Greenwich Mean Time. If the argument is not X specified or is empty, then the local timezone will be X used as defined by the timezone environment variable. END_OF_FILE if test 2250 -ne `wc -c <'extended/tcllib/help/extended/fmtclock'`; then echo shar: \"'extended/tcllib/help/extended/fmtclock'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/fmtclock' fi if test -f 'extended/tcllib/help/extended/id' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/id'\" else echo shar: Extracting \"'extended/tcllib/help/extended/id'\" $2128 characters$ sed "s/^X//" >'extended/tcllib/help/extended/id' <<'END_OF_FILE' X X X id options X This command provides a means of getting, setting and X converting user, group and process ids. The following X versions of the id command are available: X X id user [name] X X id userid [uid] X Set the real and effective user ID to name or uid, X if the name (or uid) is valid and permissions X allow it. If the name (or uid) is not specified, X the current name (or uid) is returned. X X id convert userid uid X X id convert user name X Convert a user ID number to a user name, or vice X versa. X X id group [name] X X id groupid [gid] X Set the real and effective group ID to name or X gid, if the name (or gid) is valid and permissions X allow it. If the group name (or gid) is not X specified, the current group name (or gid) is X returned. X X id convert groupid gid X X id convert group name X Convert a group ID number to a group name, or vice X versa. X X id effective user X X id effective userid X Return the effective user name, or effective user X ID number, respectively. X X id effective group X X id effective groupid X Return the effective group name, or effective X group ID number, respectively. X X id process X Return the process ID of the current process. X X id process parent X Return the process ID of the parent of the current X process. X X id process group X Return the process group ID of the current X process. X X id process group set X Set the process group ID of the current process to X its process ID. END_OF_FILE if test 2128 -ne `wc -c <'extended/tcllib/help/extended/id'`; then echo shar: \"'extended/tcllib/help/extended/id'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/id' fi if test -f 'extended/tcllib/help/extended/loop' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/loop'\" else echo shar: Extracting \"'extended/tcllib/help/extended/loop'\" $1682 characters$ sed "s/^X//" >'extended/tcllib/help/extended/loop' <<'END_OF_FILE' X X X loop var first last [increment] body X Loop is a looping command, similar in behavior to the X Tcl for statement, except that the loop statement X achieves substantially higher performance and is easier X to code when the beginning and ending values of a loop X are known and the loop variable is to be incremented by X a known, fixed amount every time through. X X The var argument is the name of a Tcl variable that X will contain the loop index. The loop index is first X set to the value specified by first. The Tcl X interpreter is invoked upon body zero or more times, X where var is incremented by increment every time X through the loop, or by one if increment is not X specified. Increment can be negative in which case the X loop will count downwards. X X When var reaches last, the loop terminates without a X subsequent execution of body. For instance, if the X original loop parameters would cause loop to terminate, X say first was one, last was zero and increment was not X specified or was non-negative, body is not executed at X all and loop returns. X X If a continue command is invoked within body then any X remaining commands in the current execution of body are X skipped, as in the for command. If a break command is X invoked within body then the loop command will return X immediately. Loop returns an empty string. END_OF_FILE if test 1682 -ne `wc -c <'extended/tcllib/help/extended/loop'`; then echo shar: \"'extended/tcllib/help/extended/loop'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/loop' fi if test -f 'extended/tcllib/help/extended/select' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/select'\" else echo shar: Extracting \"'extended/tcllib/help/extended/select'\" $1961 characters$ sed "s/^X//" >'extended/tcllib/help/extended/select' <<'END_OF_FILE' X X X select readhandles [writehandles] [excepthandles] [timeout] X This command allows polling or blocking on multiple X files being ready for for reading, are ready for X writing, or have an exceptional condition pending. X readhandles, writehandles, excepthandles are each lists X of file handles (as returned from open) to query. An X empty list ({}) may be specified if a category is not X used. X X The readhandles files are checked to set if data is X available for reading. The writehandles are checked if X they are clear for writing The excepthandles are X checked to see if an exceptional condition has occured. X The write and exception checking is most useful on X devices, however, the read checking is also very X valuable when communicating with multiple processes X through pipes. X X Timeout is a floating point timeout number of seconds. X If an empty list is supplied (or the parameter is X omitted), then no timeout is set. If the value is X zero, then the select command functions as a poll of X the files. X X If the timeout period expires with none of the files X becomming ready, then the command returns an empty X list. Otherwise the command returns a list of three X elements, each of those elements is a list of the file X handles that are ready in the read, write and exception X classes. If none are ready in a class, then that X element will be the null list. For example: X select {file3 file4 file5} {file6 file7} {} 10.5 X X could return X {file3 file4} {file6} {} X or perhaps X file3 {} {} X END_OF_FILE if test 1961 -ne `wc -c <'extended/tcllib/help/extended/select'`; then echo shar: \"'extended/tcllib/help/extended/select'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/select' fi if test -f 'extended/tcllib/help/extended/signal' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/signal'\" else echo shar: Extracting \"'extended/tcllib/help/extended/signal'\" $2040 characters$ sed "s/^X//" >'extended/tcllib/help/extended/signal' <<'END_OF_FILE' X X X signal action siglist [command] X Specify the action to take when a Unix signal occurs. X Siglist is a list of either the symbolic or numeric X Unix signal (the SIG prefix is optional). Action is X one of the following actions to be performed on receipt X of the signal. X X default - Terminate the process X X ignore - Ignore the signal. X X error - Generate a catchable Tcl error. It will be as X if the command that was running returned an error. The X error code will be in the form: X {UNIX SIG signame} X For the death of child signal, signame will always be X SIGCHLD, rather than SIGCLD, to allow writting protable X code. X X trap - When the signal occures, execute command and X continue execution if an error is not returned by X command. If will be executed in the global context and X the symbolic signal name (e.g. SIGINT) will be supplied X in a global variable signalRecieved. If an error is X returned, then follow the standard Tcl error mechanism. X Often command will just do an exit. X X get - Retrieve the current settings of the specified X signals. A list will be returned with each element X containing one of `default', `ignore', `error' or X `trap' corresponding to each signal in siglist. X X For all signals except SIGCLD, the signal action will X remain enabled after the specified signal has occured. X For SIGCLD (also known as SIGCHLD), the signal will not X be automatically reenable. A wait must be performed X before issuing another signal command. Signals are not X processed until after the completion of the Tcl command X that is executing when the signal is recieved. END_OF_FILE if test 2040 -ne `wc -c <'extended/tcllib/help/extended/signal'`; then echo shar: \"'extended/tcllib/help/extended/signal'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/signal' fi if test -f 'extended/tcllib/help/help' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/help'\" else echo shar: Extracting \"'extended/tcllib/help/help'\" $1941 characters$ sed "s/^X//" >'extended/tcllib/help/help' <<'END_OF_FILE' X X X The help facility allows for display of help files extracted X from the standard Tcl manual pages and Tcl scripts. Help X files are structured in a multilevel directory tree of X subjects and help files. The following commands and options X are provided with the help package: X X help X Help, without arguments, lists of all the top-level X help subject directories and files. X X help subjectdir X Displays all of help files and lower level subject X files (if any exist) under the directory subjectdir. X X help subjectdir/helpfile X Display the specified help file. The help output is X passed through a simple pager if output exceeds 23 X lines, pausing waiting for a return to be entered. If X any other character is entered, the output is X terminated. X X helpcd [subjectdir] X Change the current subject directory, which is much X like the Unix current directory. This directory can be X changed with the helpcd command. If subjectdir is not X specified, return to the top-level of the help tree. X Help path names may also include ``..'' elements. X X helppwd X Displays the current help subject directory. X X help help | ? X Displays help on the help facility at any directory X level. X X apropos pattern X This command locates subjects by searching their one- X line descriptions for a pattern. Apropos is useful X when you can remember part of the name or description X of a command, and want to search through the one-line X summaries for matching lines. Full regular expressions X may be specified (see the regexp command). END_OF_FILE if test 1941 -ne `wc -c <'extended/tcllib/help/help'`; then echo shar: \"'extended/tcllib/help/help'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/help' fi if test -f 'extended/tcllib/help/intro/braces' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/intro/braces'\" else echo shar: Extracting \"'extended/tcllib/help/intro/braces'\" $1919 characters$ sed "s/^X//" >'extended/tcllib/help/intro/braces' <<'END_OF_FILE' X GROUPING ARGUMENTS WITH BRACES X Curly braces may also be used for grouping arguments. They X are similar to quotes except for two differences. First, X they nest; this makes them easier to use for complicated X arguments like nested Tcl command strings. Second, the X substitutions described below for commands, variables, and X backslashes do not occur in arguments enclosed in braces, so X braces can be used to prevent substitutions where they are X undesirable. If an argument field begins with a left brace, X then the argument ends at the matching right brace. Tcl X will strip off the outermost layer of braces and pass the X information between the braces to the command without any X further modification. For example, in the command X X set a {xyz a {b c d}} X the set command will receive two arguments: a and xyz a {b c X d}. X X When braces or quotes are in effect, the matching brace or X quote need not be on the same line as the starting quote or X brace; in this case the newline will be included in the X argument field along with any other characters up to the X matching brace or quote. For example, the eval command X takes one argument, which is a command string; eval invokes X the Tcl interpreter to execute the command string. The X command X X eval { X set a 22 X set b 33 X } X X will assign the value 22 to a and 33 to b. X X If the first character of a command field is not a left X brace, then neither left nor right braces in the field will X be treated specially (except as part of variable X substitution; see below). END_OF_FILE if test 1919 -ne `wc -c <'extended/tcllib/help/intro/braces'`; then echo shar: \"'extended/tcllib/help/intro/braces'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/intro/braces' fi if test -f 'extended/tcllib/help/intro/brackets' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/intro/brackets'\" else echo shar: Extracting \"'extended/tcllib/help/intro/brackets'\" $1648 characters$ sed "s/^X//" >'extended/tcllib/help/intro/brackets' <<'END_OF_FILE' X COMMAND SUBSTITUTION WITH BRACKETS X If an open bracket occurs in a field of a command, then X command substitution occurs (except for fields enclosed in X braces). All of the text up to the matching close bracket X is treated as a Tcl command and executed immediately. Then X the result of that command is substituted for the bracketed X text. For example, consider the command X X set a [set b] X X When the set command has only a single argument, it is the X name of a variable and set returns the contents of that X variable. In this case, if variable b has the value foo, X then the command above is equivalent to the command X X set a foo X Brackets can be used in more complex ways. For example, if X the variable b has the value foo and the variable c has the X value gorp, then the command X X set a xyz[set b].[set c] X X is equivalent to the command X X set a xyzfoo.gorp X X A bracketed command may contain multiple commands separated X by newlines or semi-colons in the usual fashion. In this X case the value of the last command is used for substitution. X For example, the command X X set a x[set b 22 X expr $b+2]x X X is equivalent to the command X X set a x24x X X If a field is enclosed in braces then the brackets and the X characters between them are not interpreted specially; they X are passed through to the argument verbatim. END_OF_FILE if test 1648 -ne `wc -c <'extended/tcllib/help/intro/brackets'`; then echo shar: \"'extended/tcllib/help/intro/brackets'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/intro/brackets' fi if test -f 'extended/tcllib/help/tclshell/initialize' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/initialize'\" else echo shar: Extracting \"'extended/tcllib/help/tclshell/initialize'\" $2090 characters$ sed "s/^X//" >'extended/tcllib/help/tclshell/initialize' <<'END_OF_FILE' X X X The standard Tcl shell initialization consists of the X following steps: X X Search for a default file. The default file is a Tcl X script that is executed to set important Tcl variables X that govern startup, such as TCLPATH. The Tcl default X file is searched for using the following algorithm: X The current Extended Tcl version, represented by $ver, X is included in the default file naming to allow X multiple Tcl versions to exists on a system. Note that X the Extended Tcl version is the standard Tcl version X number with an alphabetic character added to indicated X the version of Extended Tcl. The infox version command X will return this version number. X X - An environment variable, TCLDEFAULT, is checked X for. If present, it is used as the name of the X default file. X X - A file, TCLDEFAULT, is looked for in the current X directory. X X - A global default file with is usually either X /etc/default/tcl$ver or X /usr/local/lib/tcldefault$ver. (Tcl may be X compiled to use a different directory on some X systems). X X First, Tcl executes the default file. This file X normally sets at least two Tcl variables: TCLPATH, X which contains a list of directories that contain tcl X source files, and TCLINIT, the full pathname of the Tcl X source file that performs Tcl initialization. Other X site-specific variables may also be set in this file. X X Next, tcl executes the initialization file specified by X the Tcl variable TCLINIT. This is normally the X TclInit.Tcl file distributed with Tcl. This file X defines the Tcl environment, including standard Tcl X procs and variables. END_OF_FILE if test 2090 -ne `wc -c <'extended/tcllib/help/tclshell/initialize'`; then echo shar: \"'extended/tcllib/help/tclshell/initialize'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/tclshell/initialize' fi if test -f 'extended/tcllib/help/tclshell/variables' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/variables'\" else echo shar: Extracting \"'extended/tcllib/help/tclshell/variables'\" $2131 characters$ sed "s/^X//" >'extended/tcllib/help/tclshell/variables' <<'END_OF_FILE' X X X The following variables are set and/or used by the Tcl X shell. X X argv A list containing the arguments passed in from the X command line, excluding arguments used by the Tcl X shell. The first element is the first passed argument, X not the program name. X X interactiveSession X Set to 1 if Tcl shell is invoked interactively, or 0 if X the Tcl shell is directly executing a script. X X noAutoExec X If this variable exists and has a value of 1, then the X Tcl shell will not attempt to exec an non-existent X command as a shell command. X X programName X The name that the Tcl shell is executing as. All X directory components are removed from the program name. X X scriptName X The name of the script that the Tcl shell is executing X if the script was invoked on the command line. X X TCLDEFAULT X Name of the default file that was used to locate all X other files used by the Tcl shell. X X TCLENV X Array that contains information used internally by X various Tcl procedures that are part of the Tcl shell. X X TCLENV(topLevelPromptHook) X Contains code to run to generate the prompt used when X interactively prompting for commands. The code in this X hook will be evaluated and the result will be used for X the prompt. X X TCLENV(downLevelPromptHook) X Contains code to run to generate the prompt used when X interactively prompting for continuation of an X incomplete command. The code in this hook will be X evaluated and the result will be used for the prompt X X TCLINIT X The name of the file that initializes, and does startup X processing of, Tcl. X X TCLPATH X Path to search to locate Tcl scripts. Used by the load X and demand_load procedures. END_OF_FILE if test 2131 -ne `wc -c <'extended/tcllib/help/tclshell/variables'`; then echo shar: \"'extended/tcllib/help/tclshell/variables'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/tclshell/variables' fi if test -f 'extended/tests/forrecur.test' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/forrecur.test'\" else echo shar: Extracting \"'extended/tests/forrecur.test'\" $1752 characters$ sed "s/^X//" >'extended/tests/forrecur.test' <<'END_OF_FILE' X# X# forrecur.test X# X# tests for tcl.tlib for_recursive_glob routine X#--------------------------------------------------------------------------- X# Copyright 1991 Karl Lehenbauer and Mark Diekhans. X# X# Permission to use, copy, modify, and distribute this software and its X# documentation for any purpose and without fee is hereby granted, provided X# that the above copyright notice appear in all copies. Karl Lehenbauer and X# Mark Diekhans make no representations about the suitability of this X# software for any purpose. It is provided "as is" without express or X# implied warranty. X# X X Xif {[string compare test [info procs test]] == 1} then {source defs} Xrename SAVED_UNKNOWN unknown X Xproc tcltouch {file} { X set fp [open $file w] X close $fp X} X X Xexec rm -rf GLOBTESTDIR Xmkdir GLOBTESTDIR Xmkdir GLOBTESTDIR/dir1 Xmkdir GLOBTESTDIR/dir2 X Xtcltouch GLOBTESTDIR/file1 Xtcltouch GLOBTESTDIR/dir1/file1 Xtcltouch GLOBTESTDIR/dir1/file2 Xtcltouch GLOBTESTDIR/dir2/file1 Xtcltouch GLOBTESTDIR/dir2/file2 Xtcltouch GLOBTESTDIR/file2 X Xset expectedResult "GLOBTESTDIR GLOBTESTDIR/dir1 GLOBTESTDIR/dir1/file1 \ XGLOBTESTDIR/dir1/file2 GLOBTESTDIR/dir2 GLOBTESTDIR/dir2/file1 \ XGLOBTESTDIR/dir2/file2 GLOBTESTDIR/file1 GLOBTESTDIR/file2" X Xtest for_recursive_glob-1.1 {for_recursive_glob command} { X for_recursive_glob file GLOBTESTDIR {lappend result $file} X lsort $result X} $expectedResult X Xunset result Xset expectedResult [lrange $expectedResult 1 end] X Xtest for_recursive-1.2 {for_recursive_glob command with list of patterns} { X for_recursive_glob file "GLOBTEST*/dir* GLOBTEST*/file*" \ X {lappend result $file} X lsort $result X} $expectedResult X Xexec rm -rf GLOBTESTDIR X Xunset expectedResult result X Xrename tcltouch "" Xrename unknown SAVED_UNKNOWN END_OF_FILE if test 1752 -ne `wc -c <'extended/tests/forrecur.test'`; then echo shar: \"'extended/tests/forrecur.test'\" unpacked with wrong size! fi # end of 'extended/tests/forrecur.test' fi if test -f 'extended/tests/globrecur.test' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/globrecur.test'\" else echo shar: Extracting \"'extended/tests/globrecur.test'\" $1627 characters$ sed "s/^X//" >'extended/tests/globrecur.test' <<'END_OF_FILE' X# X# globrecur.test X# X# Tests for tcl.tlib recursive_glob routine. X# X#--------------------------------------------------------------------------- X# Copyright 1991 Karl Lehenbauer and Mark Diekhans. X# X# Permission to use, copy, modify, and distribute this software and its X# documentation for any purpose and without fee is hereby granted, provided X# that the above copyright notice appear in all copies. Karl Lehenbauer and X# Mark Diekhans make no representations about the suitability of this X# software for any purpose. It is provided "as is" without express or X# implied warranty. X# X Xif {[string compare test [info procs test]] == 1} then {source defs} Xrename SAVED_UNKNOWN unknown X Xproc tcltouch {file} { X set fp [open $file w] X close $fp X} X Xexec rm -rf GLOBTESTDIR Xmkdir GLOBTESTDIR Xmkdir GLOBTESTDIR/dir1 Xmkdir GLOBTESTDIR/dir2 X Xtcltouch GLOBTESTDIR/file1 Xtcltouch GLOBTESTDIR/dir1/file1 Xtcltouch GLOBTESTDIR/dir1/file2 Xtcltouch GLOBTESTDIR/dir2/file1 Xtcltouch GLOBTESTDIR/dir2/file2 Xtcltouch GLOBTESTDIR/file2 X Xset expectedResult "GLOBTESTDIR GLOBTESTDIR/dir1 GLOBTESTDIR/dir1/file1 \ XGLOBTESTDIR/dir1/file2 GLOBTESTDIR/dir2 GLOBTESTDIR/dir2/file1 \ XGLOBTESTDIR/dir2/file2 GLOBTESTDIR/file1 GLOBTESTDIR/file2" X Xtest recursive_glob-1.1 {recursive_glob command} { X lsort [recursive_glob GLOBTESTDIR] X} $expectedResult X Xset expectedResult [lrange $expectedResult 1 end] X Xtest recursive-1.2 {recursive_glob command with list of patterns} { X lsort [recursive_glob {GLOBTEST*/dir* GLOBTEST*/file*}] X} $expectedResult X Xexec rm -rf GLOBTESTDIR X Xunset expectedResult X Xrename tcltouch "" Xrename unknown SAVED_UNKNOWN END_OF_FILE if test 1627 -ne `wc -c <'extended/tests/globrecur.test'`; then echo shar: \"'extended/tests/globrecur.test'\" unpacked with wrong size! fi # end of 'extended/tests/globrecur.test' fi if test -f 'extended/tests/list.test' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/list.test'\" else echo shar: Extracting \"'extended/tests/list.test'\" $1667 characters$ sed "s/^X//" >'extended/tests/list.test' <<'END_OF_FILE' X# X# list.test X# X# Tests for the lvarpop command. X#--------------------------------------------------------------------------- X# Copyright 1991 Karl Lehenbauer and Mark Diekhans. X# X# Permission to use, copy, modify, and distribute this software and its X# documentation for any purpose and without fee is hereby granted, provided X# that the above copyright notice appear in all copies. Karl Lehenbauer and X# Mark Diekhans make no representations about the suitability of this X# software for any purpose. It is provided "as is" without express or X# implied warranty. X# Xif {[info procs test] != "test"} then {source defs} X Xtest list-1.1 {lvarpop tests} { X set a {a b c d e f g h i j} X list [lvarpop a 0] $a X} {a {b c d e f g h i j}} X Xtest list-1.2 {lvarpop tests} { X set a {a bbbbbb c d e f g h i j} X list [lvarpop a 1] $a X} {bbbbbb {a c d e f g h i j}} X Xtest list-1.3 {lvarpop tests} { X set a {a bbbbbb c d e f g h i j} X list [lvarpop a 4] $a X} {e {a bbbbbb c d f g h i j}} X Xtest list-1.4 {lvarpop tests} { X set a {a bbbbbb c d e f g h i j} X list [lvarpop a 2 frobozz] $a X} {c {a bbbbbb frobozz d e f g h i j}} X Xtest list-1.5 {lvarpop tests} { X set a {a bbbbbb frozbozz d e f g h i j} X list [lvarpop a 2 f] $a X} {frozbozz {a bbbbbb f d e f g h i j}} X Xtest list-1.6 {lvarpop tests} { X set a {a bbbbbb c d e f g h i j} X list [lvarpop a 20 frobozz] $a X} {{} {a bbbbbb c d e f g h i j}} X Xtest list-1.7 {lvarpop tests} { X set a {a bbbbbb c d e f g h i j} X list [catch {lvarpop a -5 frobozz} msg] $msg X} {1 {expected unsigned integer but got "-5"}} X Xtest list-1.8 {lvarpop tests} { X set a {} X list [lvarpop a] $a X} {{} {}} X X X END_OF_FILE if test 1667 -ne `wc -c <'extended/tests/list.test'`; then echo shar: \"'extended/tests/list.test'\" unpacked with wrong size! fi # end of 'extended/tests/list.test' fi if test -f 'extended/tests/math.test' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/math.test'\" else echo shar: Extracting \"'extended/tests/math.test'\" $2300 characters$ sed "s/^X//" >'extended/tests/math.test' <<'END_OF_FILE' X# X# math.test X# X# Tests for the random, min, and commands. X#--------------------------------------------------------------------------- X# Copyright 1991 Karl Lehenbauer and Mark Diekhans. X# X# Permission to use, copy, modify, and distribute this software and its X# documentation for any purpose and without fee is hereby granted, provided X# that the above copyright notice appear in all copies. Karl Lehenbauer and X# Mark Diekhans make no representations about the suitability of this X# software for any purpose. It is provided "as is" without express or X# implied warranty. X# X Xglobal ModuleName Xset ModuleName "Math" Xsource testutil.tcl X Xrandom seed 100 X Xfor {set i 0} {$i < 400} {set i [expr $i+1]} { X set a [random 10] X check [expr "(($a >= 0) || ($a <= 9))"] 1 1.1 X} X Xdo1cmd {random} msg 2.1 Xcheck $msg {wrong # args: random limit | seed [seedval]} 2.2 X X# Max range varies on some machines, so don't validate that part of X# the message. Xset expect {random: range must be > 0 and <=} X Xdo1cmd {random 0} msg 2.3 Xcatch {set msg [lrange $msg 0 7]} Xcheck $msg $expect 2.4 X Xdo1cmd {random seed Foo} msg 2.5 Xcheck $msg {expected integer but got "Foo"} 2.6 X X X# Check min and max. X Xset val [max 1 2 4 3] Xcheck $val 4 3.1 Xset val [max -68 65537.4 2 5] Xcheck $val 65537.4 3.2 Xset val [max -68.7 2100000000 2 5] Xcheck $val 2100000000 3.3 X Xset val [min 1 2 4 3] Xcheck $val 1 3.4 Xset val [min -68.8 64000 2 5] Xcheck $val -68.8 3.5 Xset val [min -2000000000 2000000000 2 5] Xcheck $val -2000000000 3.6 X Xdo1cmd {max} msg 3.7 Xcheck $msg {wrong # args: max num1 num2 [..numN]} 3.8 Xdo1cmd {max 1 2 3 foo} msg 3.9 Xcheck $msg {expected floating-point number but got "foo"} 3.10 X Xdo1cmd {min} msg 3.11 Xcheck $msg {wrong # args: min num1 num2 [..numN]} 3.12 Xdo1cmd {min 1 2 3 foo} msg 3.13 Xcheck $msg {expected floating-point number but got "foo"} 3.14 X X X END_OF_FILE if test 2300 -ne `wc -c <'extended/tests/math.test'`; then echo shar: \"'extended/tests/math.test'\" unpacked with wrong size! fi # end of 'extended/tests/math.test' fi echo shar: End of archive 5 $of 23$. cp /dev/null ark5isdone MISSING="" for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 23 archives. echo "Now cd to "extended", edit the makefile, then do a "make"" rm -f ark[1-9]isdone ark[1-9][0-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 exit 0 # Just in case... -- Kent Landfield INTERNET: kent@sparky.IMD.Sterling.COM Sterling Software, IMD UUCP: uunet!sparky!kent Phone: (402) 291-8300 FAX: (402) 291-4362 Please send comp.sources.misc-related mail to kent@uunet.uu.net.