Usenet 1994 October

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

/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume26 / tclx / part04 < prev next >

Wrap

Text File | 1991-11-19 | 52.5 KB | 1,200 lines

Newsgroups: comp.sources.misc From: karl@sugar.neosoft.com (Karl Lehenbauer) Subject: v26i004: tclx - extensions and on-line help for tcl 6.1, Part04/23 Message-ID: <1991Nov19.005306.8510@sparky.imd.sterling.com> X-Md4-Signature: a962c98ade3be7faaf3ae36a388078ce Date: Tue, 19 Nov 1991 00:53:06 GMT Approved: kent@sparky.imd.sterling.com Submitted-by: karl@sugar.neosoft.com (Karl Lehenbauer) Posting-number: Volume 26, Issue 4 Archive-name: tclx/part04 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 4 (of 23)." # Contents: extended/src/Makefile extended/src/Makefile.t # extended/src/matherr.c extended/tcllib/help/commands/catch # extended/tcllib/help/commands/for # extended/tcllib/help/commands/format # extended/tcllib/help/commands/gets # extended/tcllib/help/commands/lreplace # extended/tcllib/help/commands/seek # extended/tcllib/help/commands/set # extended/tcllib/help/commands/unknown # extended/tcllib/help/extended/bsearch # extended/tcllib/help/extended/commandloop # extended/tcllib/help/extended/fstat # extended/tcllib/help/extended/infox # extended/tcllib/help/extended/keyedlists # extended/tcllib/help/extended/scancontext # extended/tcllib/help/intro/data_types # extended/tcllib/help/intro/double_quotes # extended/tcllib/help/tclshell/flags # extended/tcllib/help/tclshell/intro extended/tests/arrayproc.test # extended/tests/clock.test extended/tests/defs # extended/tests/forfile.test extended/tests/pushd.test # extended/tests/showprocs.test extended/ucbsrc/ucbman.names # Wrapped by karl@one on Wed Nov 13 21:50:13 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'extended/src/Makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/src/Makefile'\" else echo shar: Extracting \"'extended/src/Makefile'\" $1343 characters$ sed "s/^X//" >'extended/src/Makefile' <<'END_OF_FILE' X# X# Makefile for Extended Tcl C sources. This will compile all of Extended Tcl X# and add it to the libtcl.a in the parent directory. It will also build a X# tclshell under the name 'tcl' in the parent directory. This file is X# designed to be run under the top-level Makefile and expects the following X# macros to be passed in via the environment for a 'all' make: X# o CFLAGS - Flags for the C-compile, including -I to find the UCB Tcl .h X# files. X# o HISTORY_FLAG - Can contain a define to turn off history. X# o TCL_DEFAULT - The name of the Tcl default file. X# XSHELL=/bin/sh XLIBTCL=../libtcl.a X XOBJS= \ X chmod.o clock.o cmdloop.o debug.o extendUtil.o \ X filescan.o fmath.o general.o handles.o id.o \ X iocmds.o list.o main.o math.o matherr.o \ X regexputil.o signal.o string.o tclstartup.o unixcmds.o \ X createExtd.o X Xall: made.tmp X Xmade.tmp: $(OBJS) X $(AR) cruv $(LIBTCL) $(OBJS) X touch made.tmp X Xmain.o: patchlevel.h main.c X cc -c $(CFLAGS) $(HISTORY_FLAG) -DTCL_DEFAULT=\"$(TCL_DEFAULT)\" main.c X X# X# This is just to test if it compiles. X# Xtcl++: X CC -c $(CFLAGS) $(HISTORY_FLAG) -DTCL_DEFAULT=\"$(TCL_DEFAULT)\" \ X tcl++.C X -rm -f tcl++.o Xclean: X -rm -f made.tmp X -rm -f *.o X -rm -f tcl++.o X END_OF_FILE if test 1343 -ne `wc -c <'extended/src/Makefile'`; then echo shar: \"'extended/src/Makefile'\" unpacked with wrong size! fi # end of 'extended/src/Makefile' fi if test -f 'extended/src/Makefile.t' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/src/Makefile.t'\" else echo shar: Extracting \"'extended/src/Makefile.t'\" $1298 characters$ sed "s/^X//" >'extended/src/Makefile.t' <<'END_OF_FILE' 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 boyermoo.o chartype.o chmod.o clock.o cmdloop.o \ X debug.o extendUtil.o filescan.o fmath.o general.o \ X handles.o id.o iocmds.o list.o math.o \ X matherr.o regexp.o regexpcmds.o signal.o \ X string.o unixcmds.o tclstartup.o X XBASEDIR= ../.. X XCFLAGS= -I../../baseline/src ${C_FLAGS} ${GLOBAL_DEFS} X Xall: ${BASEDIR}/tcl X X${BASEDIR}/tcl: $(BASEDIR)/tcl.a $(OBJS) main.o X cc ${CFLAGS} main.o ${BASEDIR}/tcl.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}/tcl.a: $(OBJS) X ar cru ${BASEDIR}/tcl.a $(OBJS) X $(RANLIB) ${BASEDIR}/tcl.a X X# X# This is just to test if it compiles. X# Xtcl++: X CC -c -I../../baseline/src 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 1298 -ne `wc -c <'extended/src/Makefile.t'`; then echo shar: \"'extended/src/Makefile.t'\" unpacked with wrong size! fi # end of 'extended/src/Makefile.t' fi if test -f 'extended/src/matherr.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/src/matherr.c'\" else echo shar: Extracting \"'extended/src/matherr.c'\" $1272 characters$ sed "s/^X//" >'extended/src/matherr.c' <<'END_OF_FILE' X/* X * matherr.c -- X * X * Extended Tcl default matherr routine, may be replace by an application X * specified version. 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#include <math.h> X X/* X *---------------------------------------------------------------------- X * X * matherr -- X * Default matherr routine for extended Tcl. If the error does not X * belong to Tcl, standard math error processing is done. An X * aplication may replace this routine with their own, however it must X * call \fBTcl_MathError\fR to check if the error belongs to tcl. X * X *---------------------------------------------------------------------- X */ Xint Xmatherr (except) X struct exception *except; X{ X if (Tcl_MathError (except->name, except->type)) X return 1; X else X return 0; X} END_OF_FILE if test 1272 -ne `wc -c <'extended/src/matherr.c'`; then echo shar: \"'extended/src/matherr.c'\" unpacked with wrong size! fi # end of 'extended/src/matherr.c' fi if test -f 'extended/tcllib/help/commands/catch' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/catch'\" else echo shar: Extracting \"'extended/tcllib/help/commands/catch'\" $1059 characters$ sed "s/^X//" >'extended/tcllib/help/commands/catch' <<'END_OF_FILE' X catch command ?varName? X The catch command may be used to prevent errors from X aborting command interpretation. Catch calls the Tcl X interpreter recursively to execute command, and always X returns a TCL_OK code, regardless of any errors that X might occur while executing command. The return value X from catch is a decimal string giving the code returned X by the Tcl interpreter after executing command. This X will be 0 (TCL_OK) if there were no errors in command; X otherwise it will have a non-zero value corresponding X to one of the exceptional return codes (see tcl.h for X the definitions of code values). If the varName X argument is given, then it gives the name of a X variable; catch will set the value of the variable to X the string returned from command (either a result or an X error message). END_OF_FILE if test 1059 -ne `wc -c <'extended/tcllib/help/commands/catch'`; then echo shar: \"'extended/tcllib/help/commands/catch'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/catch' fi if test -f 'extended/tcllib/help/commands/for' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/for'\" else echo shar: Extracting \"'extended/tcllib/help/commands/for'\" $1233 characters$ sed "s/^X//" >'extended/tcllib/help/commands/for' <<'END_OF_FILE' X for start test next body X For is a looping command, similar in structure to the C X for statement. The start, next, and body arguments X must be Tcl command strings, and test is an expression X string. The for command first invokes the Tcl X interpreter to execute start. Then it repeatedly X evaluates test as an expression; if the result is non- X zero it invokes the Tcl interpreter on body, then X invokes the Tcl interpreter on next, then repeats the X loop. The command terminates when test evaluates to 0. X If a continue command is invoked within body then any X remaining commands in the current execution of body are X skipped; processing continues by invoking the Tcl X interpreter on next, then evaluating test, and so on. X If a break command is invoked within body or next, then X the for command will return immediately. The operation X of break and continue are similar to the corresponding X statements in C. For returns an empty string. END_OF_FILE if test 1233 -ne `wc -c <'extended/tcllib/help/commands/for'`; then echo shar: \"'extended/tcllib/help/commands/for'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/for' fi if test -f 'extended/tcllib/help/commands/format' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/format'\" else echo shar: Extracting \"'extended/tcllib/help/commands/format'\" $1359 characters$ sed "s/^X//" >'extended/tcllib/help/commands/format' <<'END_OF_FILE' X format formatString ?arg arg ...? X This command generates a formatted string in the same X way as the C sprintf procedure (it uses sprintf in its X implementation). FormatString indicates how to format X the result, using % fields as in sprintf, and the X additional arguments, if any, provide values to be X substituted into the result. All of the sprintf X options are valid; see the sprintf man page for X details. Each arg must match the expected type from X the % field in formatString; the format command X converts each argument to the correct type (floating, X integer, etc.) before passing it to sprintf for X formatting. The only unusual conversion is for %c; in X this case the argument must be a decimal string, which X will then be converted to the corresponding ASCII X character value. Format does backslash substitution on X its formatString argument, so backslash sequences in X formatString will be handled correctly even if the X argument is in braces. The return value from format is X the formatted string. END_OF_FILE if test 1359 -ne `wc -c <'extended/tcllib/help/commands/format'`; then echo shar: \"'extended/tcllib/help/commands/format'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/format' fi if test -f 'extended/tcllib/help/commands/gets' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/gets'\" else echo shar: Extracting \"'extended/tcllib/help/commands/gets'\" $1375 characters$ sed "s/^X//" >'extended/tcllib/help/commands/gets' <<'END_OF_FILE' X gets fileId ?varName? X Reads the next line from the file given by fileId and X discards the terminating newline character. If varName X is specified, then the line is placed in the variable X by that name and the return value is a count of the X number of characters read (not including the newline). X If the end of the file is reached before reading any X characters then -1 is returned and varName is set to an X empty string. If varName is not specified then the X return value will be the line (minus the newline X character) or an empty string if the end of the file is X reached before reading any characters. An empty string X will also be returned if a line contains no characters X except the newline, so eof may have to be used to X determine what really happened. If the last character X in the file is not a newline character, then gets X behaves as if there were an additional newline X character at the end of the file. FileId must be stdin X or the return value from a previous call to open; it X must refer to a file that was opened for reading. END_OF_FILE if test 1375 -ne `wc -c <'extended/tcllib/help/commands/gets'`; then echo shar: \"'extended/tcllib/help/commands/gets'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/gets' fi if test -f 'extended/tcllib/help/commands/lreplace' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/lreplace'\" else echo shar: Extracting \"'extended/tcllib/help/commands/lreplace'\" $1157 characters$ sed "s/^X//" >'extended/tcllib/help/commands/lreplace' <<'END_OF_FILE' X lreplace list first last ?element element ...? X Returns a new list formed by replacing one or more X elements of list with the element arguments. First X gives the index in list of the first element to be X replaced. If first is less than zero then it refers to X the first element of list; the element indicated by X first must exist in the list. Last gives the index in X list of the last element to be replaced; it must be X greater than or equal to first. Last may be end (or X any abbreviation of it) to indicate that all elements X between first and the end of the list should be X replaced. The element arguments specify zero or more X new arguments to be added to the list in place of those X that were deleted. Each element argument will become a X separate element of the list. If no element arguments X are specified, then the elements between first and last X are simply deleted. END_OF_FILE if test 1157 -ne `wc -c <'extended/tcllib/help/commands/lreplace'`; then echo shar: \"'extended/tcllib/help/commands/lreplace'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/lreplace' fi if test -f 'extended/tcllib/help/commands/seek' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/seek'\" else echo shar: Extracting \"'extended/tcllib/help/commands/seek'\" $1403 characters$ sed "s/^X//" >'extended/tcllib/help/commands/seek' <<'END_OF_FILE' X seek fileId offset ?origin? X Change the current access position for fileId. The X offset and origin arguments specify the position at X which the next read or write will occur for fileId. X Offset must be a number (which may be negative) and X origin must be one of the following: X X start X The new access position will be origin bytes from X the start of the file. X X current X The new access position will be origin bytes from X the current access position; a negative origin X moves the access position backwards in the file. X X end X The new access position will be origin bytes from X the end of the file. A negative origin places the X access position before the end-of-file, and a X positive origin places the access position after X the end-of-file. X X The origin argument defaults to start. FileId must X have been the return value from a previous call to X open, or it may be stdin, stdout, or stderr to refer to X one of the standard I/O channels. This command returns X an empty string. END_OF_FILE if test 1403 -ne `wc -c <'extended/tcllib/help/commands/seek'`; then echo shar: \"'extended/tcllib/help/commands/seek'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/seek' fi if test -f 'extended/tcllib/help/commands/set' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/set'\" else echo shar: Extracting \"'extended/tcllib/help/commands/set'\" $1009 characters$ sed "s/^X//" >'extended/tcllib/help/commands/set' <<'END_OF_FILE' X set varname ?value? X Returns the value of variable varname. If value is X specified, then set the value of varname to value, X creating a new variable if one doesn't already exist, X and return its value. If varName contains an open X parenthesis and ends with a close parenthesis, then it X refers to an array element: the characters before the X open parenthesis are the name of the array, and the X characters between the parentheses are the index within X the array. Otherwise varName refers to a scalar X variable. If no procedure is active, then varname X refers to a global variable. If a procedure is active, X then varname refers to a parameter or local variable of X the procedure, unless the global command has been X invoked to declare varname to be global. END_OF_FILE if test 1009 -ne `wc -c <'extended/tcllib/help/commands/set'`; then echo shar: \"'extended/tcllib/help/commands/set'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/set' fi if test -f 'extended/tcllib/help/commands/unknown' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/unknown'\" else echo shar: Extracting \"'extended/tcllib/help/commands/unknown'\" $1301 characters$ sed "s/^X//" >'extended/tcllib/help/commands/unknown' <<'END_OF_FILE' X unknown cmdName ?arg arg ...? X This command doesn't actually exist as part of Tcl, but X Tcl will invoke it if it does exist. If the Tcl X interpreter encounters a command name for which there X is not a defined command, then Tcl checks for the X existence of a command named unknown. If there is no X such command, then the interpeter returns an error. If X the unknown command exists, then it is invoked with X arguments consisting of the fully-substituted name and X arguments for the original non-existent command. The X unknown command typically does things like searching X through library directories for a command procedure X with the name cmdName, or expanding abbreviated command X names to full-length, or automatically executing X unknown commands as UNIX sub-processes. In some cases X (such as expanding abbreviations) unknown will change X the original command slightly and then (re-)execute it. X The result of the unknown command is used as the result X for the original non-existent command. END_OF_FILE if test 1301 -ne `wc -c <'extended/tcllib/help/commands/unknown'`; then echo shar: \"'extended/tcllib/help/commands/unknown'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/commands/unknown' fi if test -f 'extended/tcllib/help/extended/bsearch' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/bsearch'\" else echo shar: Extracting \"'extended/tcllib/help/extended/bsearch'\" $1352 characters$ sed "s/^X//" >'extended/tcllib/help/extended/bsearch' <<'END_OF_FILE' X X X bsearch filehandle key [retvar] [compare_proc] X Search an opened sorted data file, filehandle, for a X line matching key. If retvar is specified, then the X line from the file is returned in retvar and the X command returns 1 if key was found, and 0 if it was not X found. If retvar is not specified or is a null name, X then the command returns the line that was found, or an X empty string if key is not found. X X By default, the key is matched against the first X white-space seperated field in each line. The field is X treated as an ASCII string. If compare_proc is X specified, then it is the name of a Tcl procedure to X evaluate against each line read from the file. This X compare_proc takes two arguments, the key and a line X extracted from the file. The compare routine should X return a number less than zero if the key is less than X the line, zero if the key matches the line or greater X than zero if the key is greater than the line. The X file must be sorted in assending order by whatever X criteria compare_proc uses to compare the key with the X line. END_OF_FILE if test 1352 -ne `wc -c <'extended/tcllib/help/extended/bsearch'`; then echo shar: \"'extended/tcllib/help/extended/bsearch'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/bsearch' fi if test -f 'extended/tcllib/help/extended/commandloop' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/commandloop'\" else echo shar: Extracting \"'extended/tcllib/help/extended/commandloop'\" $1155 characters$ sed "s/^X//" >'extended/tcllib/help/extended/commandloop' <<'END_OF_FILE' X X X commandloop [prompt] [prompt2] X Create an interactive command loop for the current TCL X interpreter. This command receives commands from stdin X and executes them. This command is useful for non- X interactive TCL scripts that want to enter an X interactive mode. Prompt is a command string to set X the top level prompt hook to X to, the contents of which is executed to generate the X main prompt. Prompt2 is a command string to set the X down level prompt to, which is generates the prompt X command for continuation input. When the command X terminates, the variables for the prompt hooks will be X set to their old value. If these arguments are not X specified, the prompt hooks use their current value. X Prompt hooks are TCL code that return as their result X the prompt to output. The result of the last command X executed in the command string (which may be a return) X will be outputted as the prompt. END_OF_FILE if test 1155 -ne `wc -c <'extended/tcllib/help/extended/commandloop'`; then echo shar: \"'extended/tcllib/help/extended/commandloop'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/commandloop' fi if test -f 'extended/tcllib/help/extended/fstat' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/fstat'\" else echo shar: Extracting \"'extended/tcllib/help/extended/fstat'\" $1117 characters$ sed "s/^X//" >'extended/tcllib/help/extended/fstat' <<'END_OF_FILE' X X X fstat handle [arrayvar] X Obtain the status of an open file. This differs from X the file stat command in that it takes a file handle X rather than a file name. If arrayvar is specified, the X status information is returned in the following X elements of this array variable: atime, ctime, dev, X gid, ino, mode, mtime, nlink, size, uid. Each element X is a decimal string with the value of the corresponding X field from the stat return structure; see the manual X entry for stat for details on the meanings of the X values. If arrayvar is not specified, then the X information is returned as a keyed list. Each element X of the list is itself a list with the status value name X paired with its value, in alphabetical order. For X example: X X X {atime 683617279} {ctime 683617310} {dev 298} {gid 50} X {ino 6317} {mode 33152} {mtime 683617310} {nlink 1} X {size 924} {uid 200} END_OF_FILE if test 1117 -ne `wc -c <'extended/tcllib/help/extended/fstat'`; then echo shar: \"'extended/tcllib/help/extended/fstat'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/fstat' fi if test -f 'extended/tcllib/help/extended/infox' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/infox'\" else echo shar: Extracting \"'extended/tcllib/help/extended/infox'\" $1592 characters$ sed "s/^X//" >'extended/tcllib/help/extended/infox' <<'END_OF_FILE' X X X infox option X Return information about extended Tcl or the current X application. The following infox command options are X available. X X version X Return the version number of Extended Tcl. The X version number for extended Tcl is generated by X combining the base version of the standard Tcl X code with a letter indicating the version of X Extended Tcl being used. This is the X documentation for version tcl6.1a. X X patchlevel X Return the patchlevel for Extended Tcl. X X appname X Return the symbolic application name of the X current application linked with the Extended Tcl X library. The C variable tclAppName must be set by X the application to return an application specific X value for this variable. X X applongname X Return a natural language name for the current X application. The C variable tclLongAppName must be X set by the application to return an application X specific value for this variable. X X appversion X Return the version number for the current X application. The C variable tclAppVersion must be X set by the application to return an application X specific value for this variable. END_OF_FILE if test 1592 -ne `wc -c <'extended/tcllib/help/extended/infox'`; then echo shar: \"'extended/tcllib/help/extended/infox'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/infox' fi if test -f 'extended/tcllib/help/extended/keyedlists' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/keyedlists'\" else echo shar: Extracting \"'extended/tcllib/help/extended/keyedlists'\" $1312 characters$ sed "s/^X//" >'extended/tcllib/help/extended/keyedlists' <<'END_OF_FILE' X X X KEYED LISTS X Extended Tcl defines a special type of list referred to as X keyed lists. These lists provided a structured data type X built upon standard Tcl lists. This provides a X functionality similar to structs in the C programming X language. A keyed list is a list in which each element is a X key and value pair field. These elements are actually lists X themselves, were the key is the first element of the list, X and the value is the second. The key-value pairs are X refered to as fields. This is an example of a keyed list: X X {{NAME {Frank Zappa}} {JOB {musician and composer}} X X By convention, `.' is a field name separator, allowing X nesting of fields, even though keyed list are only one level X deep. Currently none of the commands explictly function on X nested field names, but they may in a future release, so `.' X should not be used for other than a field separator in a X name. For example: X X {{ID 106} {NAME.FIRST Frank} {NAME.LAST Zappa}} X X All key list functions take the name of the variable X containing the keyed list as an argument (i.e. passed by X reference) rather than the value. END_OF_FILE if test 1312 -ne `wc -c <'extended/tcllib/help/extended/keyedlists'`; then echo shar: \"'extended/tcllib/help/extended/keyedlists'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/keyedlists' fi if test -f 'extended/tcllib/help/extended/scancontext' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/scancontext'\" else echo shar: Extracting \"'extended/tcllib/help/extended/scancontext'\" $1070 characters$ sed "s/^X//" >'extended/tcllib/help/extended/scancontext' <<'END_OF_FILE' X X X scancontext [option] X This command manages file scan contexts. A scan X context is a collection of regular expressions and X commands to execute when that regular expression X matches a line of the file. A context may also have a X single default match, to be applied against lines that X do not match any of the regular expressions. Multiple X scan contexts may be defined and the may be reused on X multiple files. A scan context is identified by a X context handle. The scancontext command takes the X following forms: X X scancontext create X Create a new scan context. The scanmatch command is X used to define patterns in the context. X X scancontext delete contexthandle X Delete the scan context identified by contexthandle and X free all the match statements and compiled regular X expressions associated with the specified context. END_OF_FILE if test 1070 -ne `wc -c <'extended/tcllib/help/extended/scancontext'`; then echo shar: \"'extended/tcllib/help/extended/scancontext'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/extended/scancontext' fi if test -f 'extended/tcllib/help/intro/data_types' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/intro/data_types'\" else echo shar: Extracting \"'extended/tcllib/help/intro/data_types'\" $1429 characters$ sed "s/^X//" >'extended/tcllib/help/intro/data_types' <<'END_OF_FILE' X DATA TYPES X Tcl supports only one type of data: strings. All commands, X all arguments to commands, all command results, and all X variable values are strings. Where commands require numeric X arguments or return numeric results, the arguments and X results are passed as strings. Many commands expect their X string arguments to have certain formats, but this X interpretation is up to the individual commands. For X example, arguments often contain Tcl command strings, which X may get executed as part of the commands. The easiest way X to understand the Tcl interpreter is to remember that X everything is just an operation on a string. In many cases X Tcl constructs will look similar to more structured X constructs from other languages. However, the Tcl X constructs are not structured at all; they are just strings X of characters, and this gives them a different behavior than X the structures they may look like. X X Although the exact interpretation of a Tcl string depends on X who is doing the interpretation, there are three common X forms that strings take: commands, expressions, and lists. X The major sections below discuss these three forms in more X detail. END_OF_FILE if test 1429 -ne `wc -c <'extended/tcllib/help/intro/data_types'`; then echo shar: \"'extended/tcllib/help/intro/data_types'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/intro/data_types' fi if test -f 'extended/tcllib/help/intro/double_quotes' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/intro/double_quotes'\" else echo shar: Extracting \"'extended/tcllib/help/intro/double_quotes'\" $1064 characters$ sed "s/^X//" >'extended/tcllib/help/intro/double_quotes' <<'END_OF_FILE' X GROUPING ARGUMENTS WITH DOUBLE-QUOTES X Normally each argument field ends at the next white space, X but double-quotes may be used to create arguments with X embedded space. If an argument field begins with a double- X quote, then the argument isn't terminated by white space X (including newlines) or a semi-colon (see below for X information on semi-colons); instead it ends at the next X double-quote character. The double-quotes are not included X in the resulting argument. For example, the command X X set a "This is a single argument" X X will pass two arguments to set: a and This is a single X argument. Within double-quotes, command substitutions, X variable substitutions, and backslash substitutions still X occur, as described below. If the first character of a X command field is not a quote, then quotes receive no special X interpretation in the parsing of that field. END_OF_FILE if test 1064 -ne `wc -c <'extended/tcllib/help/intro/double_quotes'`; then echo shar: \"'extended/tcllib/help/intro/double_quotes'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/intro/double_quotes' fi if test -f 'extended/tcllib/help/tclshell/flags' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/flags'\" else echo shar: Extracting \"'extended/tcllib/help/tclshell/flags'\" $1441 characters$ sed "s/^X//" >'extended/tcllib/help/tclshell/flags' <<'END_OF_FILE' X X X -q Quick initialization flag. If this flag is set the X only initialization step performed is to locate the Tcl X default file and save its name in the Tcl variable X TCLDEFAULT. The file is not evaluated nor is the X TclInit.tcl file. This provides for a faster start up, X but does not make any of the standard Tcl procedures X and facilities available. X X -f Take the next argument as a Tcl script to source rather X than enter interactive mode. The -f flag is optional. X Normally the first argument that does not start with a X `-' is taken as the script to execute unless the `-c' X option is specified. All following arguments are X passed to the script in argv, thus any other Tcl shell X flags must precede this option. X X -c Take the next argument as a Tcl command to execute. It X may be series of commands to execute, separated by `;'. X All following arguments are passed in argv, thus any X other Tcl shell flags must precede this option. X X -- Mark the end of the arguments to the Tcl shell. All X arguments following this are passed in the Tcl variable X argv. This is useful to pass arguments without X attempting to execute a Tcl script. END_OF_FILE if test 1441 -ne `wc -c <'extended/tcllib/help/tclshell/flags'`; then echo shar: \"'extended/tcllib/help/tclshell/flags'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/tclshell/flags' fi if test -f 'extended/tcllib/help/tclshell/intro' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/intro'\" else echo shar: Extracting \"'extended/tcllib/help/tclshell/intro'\" $1256 characters$ sed "s/^X//" >'extended/tcllib/help/tclshell/intro' <<'END_OF_FILE' X X tcl [-q] [[-f] script]|[-c command] [args] X X Tcl starts the interactive Tcl command interpreter. The Tcl X shell provides an environment for writing, debugging and X executing Tcl scripts. The functionality of the Tcl shell X can also be obtained in any Tcl-based application. X X The tcl command, issued without any arguments, invokes an X interactive Tcl shell. If script is specified, then the X script is executed noninteractively with args being supplied X in the Tcl variable `argv'. If command is supplied, then X this command (or series of commands, separated by `;') is X executed, with `argv' containing args. X X The Tcl shell is intended as an environment for Tcl program X development and execution. While it is not a full-featured X interactive shell, it provides a comfortable environment for X the interactive development of Tcl code. Note that the X package library code described here overrides the unknown X command provided as part of the standard Berkeley Tcl X library facility, although Tcl source libraries coded to X that standard can be loaded and used by Extended Tcl. END_OF_FILE if test 1256 -ne `wc -c <'extended/tcllib/help/tclshell/intro'`; then echo shar: \"'extended/tcllib/help/tclshell/intro'\" unpacked with wrong size! fi # end of 'extended/tcllib/help/tclshell/intro' fi if test -f 'extended/tests/arrayproc.test' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/arrayproc.test'\" else echo shar: Extracting \"'extended/tests/arrayproc.test'\" $1203 characters$ sed "s/^X//" >'extended/tests/arrayproc.test' <<'END_OF_FILE' X# X# arrayproc.test X# X# Tests for tcl.tlib array routines. 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 Xset testArray(foo) bar Xset testArray(snap) frammistan Xset testArray(0) zero Xset testArray(william) dafoe X Xtest for_array_keys-1.1 {for_array_keys command} { X for_array_keys key testArray {lappend result $key} X lsort $result X} "0 foo snap william" X Xunset result X Xtest for_array_keys-1.2 {errors in for_array_keys command} { X list [catch {for_array_keys key _non_existent_ {lappend result $key}} \ X msg] $msg $errorCode X} {1 {"_non_existent_" isn't an array} NONE} X Xunset testArray Xrename unknown SAVED_UNKNOWN X X END_OF_FILE if test 1203 -ne `wc -c <'extended/tests/arrayproc.test'`; then echo shar: \"'extended/tests/arrayproc.test'\" unpacked with wrong size! fi # end of 'extended/tests/arrayproc.test' fi if test -f 'extended/tests/clock.test' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/clock.test'\" else echo shar: Extracting \"'extended/tests/clock.test'\" $1186 characters$ sed "s/^X//" >'extended/tests/clock.test' <<'END_OF_FILE' X# X# clock.test X# X# Tests for the getclock and fmtclock 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# Xif {[info procs test] != "test"} then {source defs} X X# Try getclock, hard to test the result. X Xtest clock-1.1 {getclock tests} { X list [catch {set clockval [getclock];expr $clockval+1} msg] X} {0} Xtest clock-1.2 {getclock tests} { X list [catch {getclock 1990} msg] $msg X} {1 {wrong # args: getclock}} X X# Test fmtclock X Xtest clock-2.1 {fmtclock tests} { X set clockval 657687766 X fmtclock $clockval {%a %b %d %I:%M:%S %p %Y} GMT X} {Sun Nov 04 03:02:46 AM 1990} X Xtest clock-2.2 {fmtclock tests} { X list [catch {fmtclock} msg] $msg X} {1 {wrong # args: fmtclock clockval [format] [GMT|{}]}} X END_OF_FILE if test 1186 -ne `wc -c <'extended/tests/clock.test'`; then echo shar: \"'extended/tests/clock.test'\" unpacked with wrong size! fi # end of 'extended/tests/clock.test' fi if test -f 'extended/tests/defs' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/defs'\" else echo shar: Extracting \"'extended/tests/defs'\" $1522 characters$ sed "s/^X//" >'extended/tests/defs' <<'END_OF_FILE' X# This file contains support code for the Tcl test suite. It is X# normally sourced by the individual files in the test suite before X# they run their tests. This improved approach to testing was designed X# and initially implemented by Mary Ann May-Pumphrey of Sun Microsystems. X Xset VERBOSE 0 Xset TESTS {} Xrename unknown SAVED_UNKNOWN X Xproc print_verbose {test_name test_description contents_of_test answer} { X puts stdout "\n" X puts stdout "==== $test_name $test_description" X puts stdout "==== Contents of test case:" X puts stdout "$contents_of_test" X puts stdout "==== Result was:" X puts stdout "$answer" X} X Xproc test {test_name test_description contents_of_test passing_results} { X global VERBOSE X global TESTS X if {[string compare $TESTS ""] != 0} then { X set ok 0 X foreach test $TESTS { X if [string match $test $test_name] then { X set ok 1 X break X } X } X if !$ok then return X } X set answer [uplevel $contents_of_test] X if {[string compare $answer $passing_results] == 0} then { X if $VERBOSE then { X print_verbose $test_name $test_description $contents_of_test $answer X puts stdout "++++ $test_name PASSED" X } X } else { X print_verbose $test_name $test_description $contents_of_test $answer X puts stdout "---- Result should have been:" X puts stdout "$passing_results" X puts stdout "---- $test_name FAILED" X } X} X Xproc dotests {file args} { X global TESTS X set savedTests $TESTS X set TESTS $args X source $file X set TESTS $savedTests X} END_OF_FILE if test 1522 -ne `wc -c <'extended/tests/defs'`; then echo shar: \"'extended/tests/defs'\" unpacked with wrong size! fi # end of 'extended/tests/defs' fi if test -f 'extended/tests/forfile.test' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/forfile.test'\" else echo shar: Extracting \"'extended/tests/forfile.test'\" $1259 characters$ sed "s/^X//" >'extended/tests/forfile.test' <<'END_OF_FILE' X# X# forfile.test X# X# Tests for tcl.tlib for_file 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 Xif {[string compare test [info procs test]] == 1} then {source defs} Xrename SAVED_UNKNOWN unknown X Xset outfp [open FORFILE.TMP w] Xputs $outfp line1 Xputs $outfp line2 Xputs $outfp line3 Xclose $outfp Xunset outfp X Xtest for_file-1.1 {for_file command} { X for_file line FORFILE.TMP {lappend result $line} X list $result X} {{line1 line2 line3}} X Xtest for_file-1.2 {errors in for_file command} { X string tolower [list [catch {for_file line _non_existent_ {echo $line}} \ X msg] $msg $errorCode] X} {1 {couldn't open "_non_existent_": no such file or directory} \ X{unix enoent {no such file or directory}}} X Xcatch {unlink FORFILE.TMP} X Xunset result Xrename unknown SAVED_UNKNOWN END_OF_FILE if test 1259 -ne `wc -c <'extended/tests/forfile.test'`; then echo shar: \"'extended/tests/forfile.test'\" unpacked with wrong size! fi # end of 'extended/tests/forfile.test' fi if test -f 'extended/tests/pushd.test' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/pushd.test'\" else echo shar: Extracting \"'extended/tests/pushd.test'\" $1311 characters$ sed "s/^X//" >'extended/tests/pushd.test' <<'END_OF_FILE' X# X# pushd.test X# X# Tests for tcl.tlib directory push 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 Xset CWD [pwd] X Xcd /tmp X Xtest pushd-1.1 {pushd command} { X pushd X} "" X Xtest pushd-1.2 {pushd command} { X set dummy $TCLENV(dirPushList) X} /tmp X Xtest pushd-1.3 {pushd command} { X pushd / X} "" X Xtest pushd-1.4 {pushd command} { X set dummy $TCLENV(dirPushList) X} "/tmp /tmp" X Xcd $CWD X Xtest popd-1.1 {popd command} { X popd X} "/tmp" X Xtest popd-1.2 {popd command} { X set dummy $TCLENV(dirPushList) X} "/tmp" X Xtest popd-1.3 {popd command} { X popd X list [catch popd msg] $msg X} {1 {directory stack empty}} X Xtest popd-1.4 {popd command} { X set dummy $TCLENV(dirPushList) X} "" X Xcd $CWD Xrename unknown SAVED_UNKNOWN END_OF_FILE if test 1311 -ne `wc -c <'extended/tests/pushd.test'`; then echo shar: \"'extended/tests/pushd.test'\" unpacked with wrong size! fi # end of 'extended/tests/pushd.test' fi if test -f 'extended/tests/showprocs.test' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/tests/showprocs.test'\" else echo shar: Extracting \"'extended/tests/showprocs.test'\" $1209 characters$ sed "s/^X//" >'extended/tests/showprocs.test' <<'END_OF_FILE' X# X# showprocs.test X# X# Tests for tcl.tlib showproc routines. 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 Xset testProcVar {proc testproc {testVar} { X return 1 X}} X Xeval $testProcVar X Xtest showproc-1.1 {showproc command} { X showproc testproc X} "$testProcVar\n" X Xtest showprocs-1.1 {showprocs command} { X showprocs testproc X} "$testProcVar\n\n" X Xtest showprocs-1.2 {showprocs command} { X set result "" X foreach i [split [showprocs] "\n"] { X if {[lindex $i 0] == "proc"} { X lappend result [lindex $i 1] X } X } X lsort $result X} [lsort [info procs]] X Xunset testProcVar Xrename testproc "" Xrename unknown SAVED_UNKNOWN END_OF_FILE if test 1209 -ne `wc -c <'extended/tests/showprocs.test'`; then echo shar: \"'extended/tests/showprocs.test'\" unpacked with wrong size! fi # end of 'extended/tests/showprocs.test' fi if test -f 'extended/ucbsrc/ucbman.names' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'extended/ucbsrc/ucbman.names'\" else echo shar: Extracting \"'extended/ucbsrc/ucbman.names'\" $1326 characters$ sed "s/^X//" >'extended/ucbsrc/ucbman.names' <<'END_OF_FILE' XAddErrInfo.man {Tcl_AddErrorInfo Tcl_SetErrorCode Tcl_UnixError Tcl_CheckStatus} XAssembCmd.man {Tcl_CreateCmdBuf Tcl_AssembleCmd Tcl_DeleteCmdBuf} XBackslash.man Tcl_Backslash XConcat.man Tcl_Concat XCrtCommand.man {Tcl_CreateCommand Tcl_DeleteCommand} XCrtInterp.man {Tcl_CreateInterp Tcl_DeleteInterp} XCrtPipelin.man Tcl_CreatePipeline XCrtTrace.man {Tcl_CreateTrace Tcl_DeleteTrace} XEval.man {Tcl_Eval Tcl_VarEval Tcl_EvalFile} XExprLong.man {Tcl_ExprLong Tcl_ExprDouble Tcl_ExprBool Tcl_ExprString} XFork.man {Tcl_Fork Tcl_WaitPids Tcl_DetachPids} XGetInt.man {Tcl_GetInt Tcl_GetDouble Tcl_GetBoolean} XHash.man {Tcl_InitHashTable Tcl_DeleteHashTable Tcl_CreateHashEntry Tcl_DeleteHashEntry Tcl_FindHashEntry Tcl_GetHashValue Tcl_SetHashValue Tcl_GetHashKey Tcl_FirstHashEntry Tcl_NextHashEntry Tcl_HashStats} XInterp.man Tcl_Interp XHistory.man {Tcl_InitHistory Tcl_RecordAndEval} XSetResult.man {Tcl_SetResult Tcl_AppendResult Tcl_AppendElement Tcl_ResetResult} XSetVar.man {Tcl_SetVar Tcl_SetVar2 Tcl_GetVar Tcl_GetVar2 Tcl_UnsetVar Tcl_UnsetVar2} XSplitList.man {Tcl_SplitList Tcl_Merge Tcl_ScanElement Tcl_ConvertElement} XStrMatch.man Tcl_StringMatch XTcl.man {Tcl tcl} XTildeSubst.man {Tcl_TildeSubst} XTraceVar.man {Tcl_TraceVar Tcl_TraceVar2 Tcl_UntraceVar Tcl_UntraceVar2 Tcl_VarTraceInfo Tcl_VarTraceInfo2} Xlibrary.man {library} END_OF_FILE if test 1326 -ne `wc -c <'extended/ucbsrc/ucbman.names'`; then echo shar: \"'extended/ucbsrc/ucbman.names'\" unpacked with wrong size! fi # end of 'extended/ucbsrc/ucbman.names' fi echo shar: End of archive 4 $of 23$. cp /dev/null ark4isdone 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.