home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume26 / tclx / part02 < prev    next >
Encoding:
Text File  |  1991-11-19  |  54.2 KB  |  1,241 lines
  1. Newsgroups: comp.sources.misc
  2. From: karl@sugar.neosoft.com (Karl Lehenbauer)
  3. Subject:  v26i002:  tclx - extensions and on-line help for tcl 6.1, Part02/23
  4. Message-ID: <1991Nov19.005145.8259@sparky.imd.sterling.com>
  5. X-Md4-Signature: 275d2a3ad62233b07f8042bcf5bedbae
  6. Date: Tue, 19 Nov 1991 00:51:45 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: karl@sugar.neosoft.com (Karl Lehenbauer)
  10. Posting-number: Volume 26, Issue 2
  11. Archive-name: tclx/part02
  12. Environment: UNIX
  13.  
  14. #! /bin/sh
  15. # This is a shell archive.  Remove anything before this line, then unpack
  16. # it by saving it into a file and typing "sh file".  To overwrite existing
  17. # files, type "sh file -c".  You can also feed this as standard input via
  18. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  19. # will see the following message at the end:
  20. #        "End of archive 2 (of 23)."
  21. # Contents:  extended/man/extdman.names extended/ossupport/Makefile
  22. #   extended/tcllib/help/commands/append
  23. #   extended/tcllib/help/commands/break
  24. #   extended/tcllib/help/commands/concat
  25. #   extended/tcllib/help/commands/continue
  26. #   extended/tcllib/help/commands/eof
  27. #   extended/tcllib/help/commands/errorInfo
  28. #   extended/tcllib/help/commands/eval
  29. #   extended/tcllib/help/commands/exit
  30. #   extended/tcllib/help/commands/flush
  31. #   extended/tcllib/help/commands/global
  32. #   extended/tcllib/help/commands/incr
  33. #   extended/tcllib/help/commands/join
  34. #   extended/tcllib/help/commands/lsearch
  35. #   extended/tcllib/help/commands/lsort
  36. #   extended/tcllib/help/commands/rename
  37. #   extended/tcllib/help/commands/return
  38. #   extended/tcllib/help/commands/tell
  39. #   extended/tcllib/help/commands/time
  40. #   extended/tcllib/help/extended/alarm
  41. #   extended/tcllib/help/extended/cindex
  42. #   extended/tcllib/help/extended/crange
  43. #   extended/tcllib/help/extended/csubstr
  44. #   extended/tcllib/help/extended/getclock
  45. #   extended/tcllib/help/extended/keyldel
  46. #   extended/tcllib/help/extended/keylset
  47. #   extended/tcllib/help/extended/kill
  48. #   extended/tcllib/help/extended/lempty
  49. #   extended/tcllib/help/extended/lvarpop
  50. #   extended/tcllib/help/extended/max
  51. #   extended/tcllib/help/extended/min
  52. #   extended/tcllib/help/extended/mkdir
  53. #   extended/tcllib/help/extended/scanfile
  54. #   extended/tcllib/help/extended/system
  55. #   extended/tcllib/help/extended/times
  56. #   extended/tcllib/help/extended/translit
  57. #   extended/tcllib/help/intro/semi-colons
  58. #   extended/tcllib/help/tcl.tlib/edprocs
  59. #   extended/tcllib/help/tcl.tlib/for_array_keys
  60. #   extended/tcllib/help/tcl.tlib/for_file
  61. #   extended/tcllib/help/tcl.tlib/for_recursive_
  62. #   extended/tcllib/help/tcl.tlib/intersect3
  63. #   extended/tcllib/help/tcl.tlib/lrmdups
  64. #   extended/tcllib/help/tcl.tlib/pushd
  65. #   extended/tcllib/help/tcl.tlib/recursive_glob
  66. #   extended/tcllib/help/tcl.tlib/saveprocs
  67. #   extended/tcllib/help/tclshell/demand_load
  68. #   extended/tcllib/help/tclshell/utilprocs
  69. #   extended/tclsrc/arrayprocs.tcl extended/tclsrc/forrecur.tcl
  70. #   extended/tclsrc/globrecur.tcl extended/tclsrc/packages.tcl
  71. #   extended/tclsrc/showprocs.tcl extended/tclsrc/stringfile.tcl
  72. #   extended/tests/all extended/ucbsrc/Makefile
  73. # Wrapped by karl@one on Wed Nov 13 21:50:10 1991
  74. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  75. if test -f 'extended/man/extdman.names' -a "${1}" != "-c" ; then 
  76.   echo shar: Will not clobber existing file \"'extended/man/extdman.names'\"
  77. else
  78. echo shar: Extracting \"'extended/man/extdman.names'\" \(457 characters\)
  79. sed "s/^X//" >'extended/man/extdman.names' <<'END_OF_FILE'
  80. XCmdWrite.man TclCommandWriting
  81. XCreateExte.man Tcl_CreateExtendedInterp
  82. XHandles.man {Tcl_HandleAlloc Tcl_HandleFree Tcl_HandleTblInit Tcl_HandleTblRelease Tcl_HandleTblUseCount Tcl_HandleWalk Tcl_HandleXlate}
  83. XKeylist.man {Tcl_GetKeyedListField Tcl_SetKeyedListField Tcl_DeleteKeyedListField}
  84. XMathErr.man Tcl_MathError
  85. XMemory.man {memory ckalloc ckfree Tcl_DisplayMemory Tcl_InitMemory Tcl_ValidateAllMemory}
  86. XTclShell.man tclshell
  87. XTclX.man {tclx ExtendedTcl}
  88. END_OF_FILE
  89. if test 457 -ne `wc -c <'extended/man/extdman.names'`; then
  90.     echo shar: \"'extended/man/extdman.names'\" unpacked with wrong size!
  91. fi
  92. # end of 'extended/man/extdman.names'
  93. fi
  94. if test -f 'extended/ossupport/Makefile' -a "${1}" != "-c" ; then 
  95.   echo shar: Will not clobber existing file \"'extended/ossupport/Makefile'\"
  96. else
  97. echo shar: Extracting \"'extended/ossupport/Makefile'\" \(505 characters\)
  98. sed "s/^X//" >'extended/ossupport/Makefile' <<'END_OF_FILE'
  99. X#
  100. X# Makefile for Extended Tcl ossupport code.   This file is designed to be run
  101. X# under the top-level Makefile and expects the following macros to be passed
  102. X# in via the environment for a 'all' make:
  103. X#    o CFLAGS - CFLAGS for compilation. (Includes SUPPORT_FLAGS defined in
  104. X#      top level make file).
  105. X#    o OBJS - The ossupport objects to compile.
  106. X#
  107. X
  108. XSHELL=/bin/sh
  109. X
  110. XLIBTCL=../libtcl.a
  111. X
  112. Xall: made.tmp
  113. X
  114. Xmade.tmp: $(OBJS)
  115. X    $(AR) cruv $(LIBTCL) $(OBJS)
  116. X    touch made.tmp
  117. Xclean:
  118. X    -rm -f made.tmp
  119. X    -rm -f *.o
  120. END_OF_FILE
  121. if test 505 -ne `wc -c <'extended/ossupport/Makefile'`; then
  122.     echo shar: \"'extended/ossupport/Makefile'\" unpacked with wrong size!
  123. fi
  124. # end of 'extended/ossupport/Makefile'
  125. fi
  126. if test -f 'extended/tcllib/help/commands/append' -a "${1}" != "-c" ; then 
  127.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/append'\"
  128. else
  129. echo shar: Extracting \"'extended/tcllib/help/commands/append'\" \(520 characters\)
  130. sed "s/^X//" >'extended/tcllib/help/commands/append' <<'END_OF_FILE'
  131. X          append varName value ?value value ...?
  132. X               Append all of the value arguments to the current  value
  133. X               of  variable  varName.  If varName doesn't exist, it is
  134. X               given a value equal to the  concatenation  of  all  the
  135. X               value  arguments.   This  command provides an efficient
  136. X               way to build  up  long  variables  incrementally.   For
  137. X               example,  ``append  a  $b'' is much more efficient than
  138. X               ``set a $a$b'' if $a is long.
  139. END_OF_FILE
  140. if test 520 -ne `wc -c <'extended/tcllib/help/commands/append'`; then
  141.     echo shar: \"'extended/tcllib/help/commands/append'\" unpacked with wrong size!
  142. fi
  143. # end of 'extended/tcllib/help/commands/append'
  144. fi
  145. if test -f 'extended/tcllib/help/commands/break' -a "${1}" != "-c" ; then 
  146.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/break'\"
  147. else
  148. echo shar: Extracting \"'extended/tcllib/help/commands/break'\" \(291 characters\)
  149. sed "s/^X//" >'extended/tcllib/help/commands/break' <<'END_OF_FILE'
  150. X          break
  151. X               This command may be invoked only inside the body  of  a
  152. X               loop  command  such  as  for  or  foreach or while.  It
  153. X               returns  a  TCL_BREAK  code  to  signal  the  innermost
  154. X               containing loop command to return immediately.
  155. END_OF_FILE
  156. if test 291 -ne `wc -c <'extended/tcllib/help/commands/break'`; then
  157.     echo shar: \"'extended/tcllib/help/commands/break'\" unpacked with wrong size!
  158. fi
  159. # end of 'extended/tcllib/help/commands/break'
  160. fi
  161. if test -f 'extended/tcllib/help/commands/concat' -a "${1}" != "-c" ; then 
  162.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/concat'\"
  163. else
  164. echo shar: Extracting \"'extended/tcllib/help/commands/concat'\" \(382 characters\)
  165. sed "s/^X//" >'extended/tcllib/help/commands/concat' <<'END_OF_FILE'
  166. X          concat arg ?arg ...?
  167. X               This  command  treats  each  argument  as  a  list  and
  168. X               concatenates  them  into a single list.  It permits any
  169. X               number of arguments.  For example, the command
  170. X
  171. X                    concat a b {c d e} {f {g h}}
  172. X
  173. X               will return
  174. X
  175. X                    a b c d e f {g h}
  176. X               as its result.
  177. END_OF_FILE
  178. if test 382 -ne `wc -c <'extended/tcllib/help/commands/concat'`; then
  179.     echo shar: \"'extended/tcllib/help/commands/concat'\" unpacked with wrong size!
  180. fi
  181. # end of 'extended/tcllib/help/commands/concat'
  182. fi
  183. if test -f 'extended/tcllib/help/commands/continue' -a "${1}" != "-c" ; then 
  184.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/continue'\"
  185. else
  186. echo shar: Extracting \"'extended/tcllib/help/commands/continue'\" \(395 characters\)
  187. sed "s/^X//" >'extended/tcllib/help/commands/continue' <<'END_OF_FILE'
  188. X          continue
  189. X               This command may be invoked only inside the body  of  a
  190. X               loop  command  such  as  for  or  foreach or while.  It
  191. X               returns a  TCL_CONTINUE code to  signal  the  innermost
  192. X               containing  loop  command  to skip the remainder of the
  193. X               loop's body but continue with the next iteration of the
  194. X               loop.
  195. END_OF_FILE
  196. if test 395 -ne `wc -c <'extended/tcllib/help/commands/continue'`; then
  197.     echo shar: \"'extended/tcllib/help/commands/continue'\" unpacked with wrong size!
  198. fi
  199. # end of 'extended/tcllib/help/commands/continue'
  200. fi
  201. if test -f 'extended/tcllib/help/commands/eof' -a "${1}" != "-c" ; then 
  202.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/eof'\"
  203. else
  204. echo shar: Extracting \"'extended/tcllib/help/commands/eof'\" \(330 characters\)
  205. sed "s/^X//" >'extended/tcllib/help/commands/eof' <<'END_OF_FILE'
  206. X          eof fileId
  207. X               Returns 1 if an end-of-file condition has  occurred  on
  208. X               fileId,  0 otherwise.  FileId must have been the return
  209. X               value from a previous call to open, or it may be stdin,
  210. X               stdout,  or  stderr to refer to one of the standard I/O
  211. X               channels.
  212. END_OF_FILE
  213. if test 330 -ne `wc -c <'extended/tcllib/help/commands/eof'`; then
  214.     echo shar: \"'extended/tcllib/help/commands/eof'\" unpacked with wrong size!
  215. fi
  216. # end of 'extended/tcllib/help/commands/eof'
  217. fi
  218. if test -f 'extended/tcllib/help/commands/errorInfo' -a "${1}" != "-c" ; then 
  219.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/errorInfo'\"
  220. else
  221. echo shar: Extracting \"'extended/tcllib/help/commands/errorInfo'\" \(438 characters\)
  222. sed "s/^X//" >'extended/tcllib/help/commands/errorInfo' <<'END_OF_FILE'
  223. X          errorInfo
  224. X               After an error has occurred, this string  will  contain
  225. X               one  or  more  lines  identifying  the Tcl commands and
  226. X               procedures that  were  being  executed  when  the  most
  227. X               recent error occurred.  Its contents take the form of a
  228. X               stack trace showing the  various  nested  Tcl  commands
  229. X               that had been invoked at the time of the error.
  230. END_OF_FILE
  231. if test 438 -ne `wc -c <'extended/tcllib/help/commands/errorInfo'`; then
  232.     echo shar: \"'extended/tcllib/help/commands/errorInfo'\" unpacked with wrong size!
  233. fi
  234. # end of 'extended/tcllib/help/commands/errorInfo'
  235. fi
  236. if test -f 'extended/tcllib/help/commands/eval' -a "${1}" != "-c" ; then 
  237.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/eval'\"
  238. else
  239. echo shar: Extracting \"'extended/tcllib/help/commands/eval'\" \(521 characters\)
  240. sed "s/^X//" >'extended/tcllib/help/commands/eval' <<'END_OF_FILE'
  241. X          eval arg ?arg ...?
  242. X               Eval  takes  one  or  more  arguments,  which  together
  243. X               comprise  a  Tcl command (or collection of Tcl commands
  244. X               separated  by  newlines  in  the  usual   way).    Eval
  245. X               concatenates  all  its arguments in the same fashion as
  246. X               the concat command, passes the concatenated  string  to
  247. X               the Tcl interpreter recursively, and returns the result
  248. X               of that evaluation (or any error generated by it).
  249. END_OF_FILE
  250. if test 521 -ne `wc -c <'extended/tcllib/help/commands/eval'`; then
  251.     echo shar: \"'extended/tcllib/help/commands/eval'\" unpacked with wrong size!
  252. fi
  253. # end of 'extended/tcllib/help/commands/eval'
  254. fi
  255. if test -f 'extended/tcllib/help/commands/exit' -a "${1}" != "-c" ; then 
  256.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/exit'\"
  257. else
  258. echo shar: Extracting \"'extended/tcllib/help/commands/exit'\" \(218 characters\)
  259. sed "s/^X//" >'extended/tcllib/help/commands/exit' <<'END_OF_FILE'
  260. X          exit ?returnCode?
  261. X               Terminate  the  process,  returning  returnCode  to the
  262. X               parent  as  the  exit  status.   If  returnCode   isn't
  263. X               specified then it defaults to 0.
  264. END_OF_FILE
  265. if test 218 -ne `wc -c <'extended/tcllib/help/commands/exit'`; then
  266.     echo shar: \"'extended/tcllib/help/commands/exit'\" unpacked with wrong size!
  267. fi
  268. # end of 'extended/tcllib/help/commands/exit'
  269. fi
  270. if test -f 'extended/tcllib/help/commands/flush' -a "${1}" != "-c" ; then 
  271.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/flush'\"
  272. else
  273. echo shar: Extracting \"'extended/tcllib/help/commands/flush'\" \(410 characters\)
  274. sed "s/^X//" >'extended/tcllib/help/commands/flush' <<'END_OF_FILE'
  275. X          flush fileId
  276. X               Flushes any output that has been buffered  for  fileId.
  277. X               FileId  must have been the return value from a previous
  278. X               call to open, or it may be stdout or stderr  to  access
  279. X               one  of  the  standard  I/O streams; it must refer to a
  280. X               file that was opened for writing.  This command returns
  281. X               an empty string.
  282. END_OF_FILE
  283. if test 410 -ne `wc -c <'extended/tcllib/help/commands/flush'`; then
  284.     echo shar: \"'extended/tcllib/help/commands/flush'\" unpacked with wrong size!
  285. fi
  286. # end of 'extended/tcllib/help/commands/flush'
  287. fi
  288. if test -f 'extended/tcllib/help/commands/global' -a "${1}" != "-c" ; then 
  289.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/global'\"
  290. else
  291. echo shar: Extracting \"'extended/tcllib/help/commands/global'\" \(520 characters\)
  292. sed "s/^X//" >'extended/tcllib/help/commands/global' <<'END_OF_FILE'
  293. X          global varname ?varname ...?
  294. X               This command is ignored unless a Tcl procedure is being
  295. X               interpreted.    If  so,  then  it  declares  the  given
  296. X               varname's to be  global  variables  rather  than  local
  297. X               ones.   For  the duration of the current procedure (and
  298. X               only while executing in  the  current  procedure),  any
  299. X               reference  to  any  of  the varnames will be bound to a
  300. X               global variable instead of a local one.
  301. END_OF_FILE
  302. if test 520 -ne `wc -c <'extended/tcllib/help/commands/global'`; then
  303.     echo shar: \"'extended/tcllib/help/commands/global'\" unpacked with wrong size!
  304. fi
  305. # end of 'extended/tcllib/help/commands/global'
  306. fi
  307. if test -f 'extended/tcllib/help/commands/incr' -a "${1}" != "-c" ; then 
  308.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/incr'\"
  309. else
  310. echo shar: Extracting \"'extended/tcllib/help/commands/incr'\" \(513 characters\)
  311. sed "s/^X//" >'extended/tcllib/help/commands/incr' <<'END_OF_FILE'
  312. X          incr varName ?increment?
  313. X               Increment the value stored in the variable  whose  name
  314. X               is   varName.   The  value  of  the  variable  must  be
  315. X               integral.  If increment  is  supplied  then  its  value
  316. X               (which  must  be  an  integer) is added to the value of
  317. X               variable varName;  otherwise 1  is  added  to  varName.
  318. X               The new value is stored as a decimal string in variable
  319. X               varName and also returned as result.
  320. END_OF_FILE
  321. if test 513 -ne `wc -c <'extended/tcllib/help/commands/incr'`; then
  322.     echo shar: \"'extended/tcllib/help/commands/incr'\" unpacked with wrong size!
  323. fi
  324. # end of 'extended/tcllib/help/commands/incr'
  325. fi
  326. if test -f 'extended/tcllib/help/commands/join' -a "${1}" != "-c" ; then 
  327.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/join'\"
  328. else
  329. echo shar: Extracting \"'extended/tcllib/help/commands/join'\" \(372 characters\)
  330. sed "s/^X//" >'extended/tcllib/help/commands/join' <<'END_OF_FILE'
  331. X          join list ?joinString?
  332. X               The list argument must  be  a  valid  Tcl  list.   This
  333. X               command returns the string formed by joining all of the
  334. X               elements of list together  with  joinString  separating
  335. X               each   adjacent   pair  of  elements.   The  joinString
  336. X               argument defaults to a space character.
  337. END_OF_FILE
  338. if test 372 -ne `wc -c <'extended/tcllib/help/commands/join'`; then
  339.     echo shar: \"'extended/tcllib/help/commands/join'\" unpacked with wrong size!
  340. fi
  341. # end of 'extended/tcllib/help/commands/join'
  342. fi
  343. if test -f 'extended/tcllib/help/commands/lsearch' -a "${1}" != "-c" ; then 
  344.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/lsearch'\"
  345. else
  346. echo shar: Extracting \"'extended/tcllib/help/commands/lsearch'\" \(363 characters\)
  347. sed "s/^X//" >'extended/tcllib/help/commands/lsearch' <<'END_OF_FILE'
  348. X          lsearch list pattern
  349. X               Search  the  elements  of  list  to  see if one of them
  350. X               matches pattern.  If so, the command returns the  index
  351. X               of  the  first  matching  element.  If not, the command
  352. X               returns -1.  Pattern matching is done in the  same  way
  353. X               as for the string match command.
  354. END_OF_FILE
  355. if test 363 -ne `wc -c <'extended/tcllib/help/commands/lsearch'`; then
  356.     echo shar: \"'extended/tcllib/help/commands/lsearch'\" unpacked with wrong size!
  357. fi
  358. # end of 'extended/tcllib/help/commands/lsearch'
  359. fi
  360. if test -f 'extended/tcllib/help/commands/lsort' -a "${1}" != "-c" ; then 
  361.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/lsort'\"
  362. else
  363. echo shar: Extracting \"'extended/tcllib/help/commands/lsort'\" \(199 characters\)
  364. sed "s/^X//" >'extended/tcllib/help/commands/lsort' <<'END_OF_FILE'
  365. X          lsort list
  366. X               Sort  the  elements  of  list,  returning a new list in
  367. X               sorted order.  ASCII sorting is used, with  the  result
  368. X               in increasing order.
  369. END_OF_FILE
  370. if test 199 -ne `wc -c <'extended/tcllib/help/commands/lsort'`; then
  371.     echo shar: \"'extended/tcllib/help/commands/lsort'\" unpacked with wrong size!
  372. fi
  373. # end of 'extended/tcllib/help/commands/lsort'
  374. fi
  375. if test -f 'extended/tcllib/help/commands/rename' -a "${1}" != "-c" ; then 
  376.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/rename'\"
  377. else
  378. echo shar: Extracting \"'extended/tcllib/help/commands/rename'\" \(304 characters\)
  379. sed "s/^X//" >'extended/tcllib/help/commands/rename' <<'END_OF_FILE'
  380. X          rename oldName newName
  381. X               Rename the command that used to be  called  oldName  so
  382. X               that  it is now called newName.  If newName is an empty
  383. X               string (e.g. {}) then oldName is deleted.   The  rename
  384. X               command returns an empty string as result.
  385. END_OF_FILE
  386. if test 304 -ne `wc -c <'extended/tcllib/help/commands/rename'`; then
  387.     echo shar: \"'extended/tcllib/help/commands/rename'\" unpacked with wrong size!
  388. fi
  389. # end of 'extended/tcllib/help/commands/rename'
  390. fi
  391. if test -f 'extended/tcllib/help/commands/return' -a "${1}" != "-c" ; then 
  392.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/return'\"
  393. else
  394. echo shar: Extracting \"'extended/tcllib/help/commands/return'\" \(288 characters\)
  395. sed "s/^X//" >'extended/tcllib/help/commands/return' <<'END_OF_FILE'
  396. X          return ?value?
  397. X               Return immediately from the current procedure (or  top-
  398. X               level  command  or  source  command), with value as the
  399. X               return value.  If value  is  not  specified,  an  empty
  400. X               string will be returned as result.
  401. END_OF_FILE
  402. if test 288 -ne `wc -c <'extended/tcllib/help/commands/return'`; then
  403.     echo shar: \"'extended/tcllib/help/commands/return'\" unpacked with wrong size!
  404. fi
  405. # end of 'extended/tcllib/help/commands/return'
  406. fi
  407. if test -f 'extended/tcllib/help/commands/tell' -a "${1}" != "-c" ; then 
  408.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/tell'\"
  409. else
  410. echo shar: Extracting \"'extended/tcllib/help/commands/tell'\" \(331 characters\)
  411. sed "s/^X//" >'extended/tcllib/help/commands/tell' <<'END_OF_FILE'
  412. X          tell fileId
  413. X               Returns  a  decimal  string  giving  the current access
  414. X               position in fileId.  FileId must have been  the  return
  415. X               value from a previous call to open, or it may be stdin,
  416. X               stdout, or stderr to refer to one of the  standard  I/O
  417. X               channels.
  418. END_OF_FILE
  419. if test 331 -ne `wc -c <'extended/tcllib/help/commands/tell'`; then
  420.     echo shar: \"'extended/tcllib/help/commands/tell'\" unpacked with wrong size!
  421. fi
  422. # end of 'extended/tcllib/help/commands/tell'
  423. fi
  424. if test -f 'extended/tcllib/help/commands/time' -a "${1}" != "-c" ; then 
  425.   echo shar: Will not clobber existing file \"'extended/tcllib/help/commands/time'\"
  426. else
  427. echo shar: Extracting \"'extended/tcllib/help/commands/time'\" \(467 characters\)
  428. sed "s/^X//" >'extended/tcllib/help/commands/time' <<'END_OF_FILE'
  429. X          time command ?count?
  430. X               This command will call the Tcl interpreter count  times
  431. X               to  execute command (or once if count isn't specified).
  432. X               It will then return a string of the form
  433. X
  434. X                    503 microseconds per iteration
  435. X
  436. X               which indicates the average amount of time required per
  437. X               iteration,   in  microseconds.   Time  is  measured  in
  438. X               elapsed time, not CPU time.
  439. END_OF_FILE
  440. if test 467 -ne `wc -c <'extended/tcllib/help/commands/time'`; then
  441.     echo shar: \"'extended/tcllib/help/commands/time'\" unpacked with wrong size!
  442. fi
  443. # end of 'extended/tcllib/help/commands/time'
  444. fi
  445. if test -f 'extended/tcllib/help/extended/alarm' -a "${1}" != "-c" ; then 
  446.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/alarm'\"
  447. else
  448. echo shar: Extracting \"'extended/tcllib/help/extended/alarm'\" \(352 characters\)
  449. sed "s/^X//" >'extended/tcllib/help/extended/alarm' <<'END_OF_FILE'
  450. X
  451. X
  452. X          alarm seconds
  453. X               Instructs the system to send a SIGALRM signal in the
  454. X               specified number of seconds.  If seconds is 0, any
  455. X               previous alarm request is canceled.  Only one alarm at
  456. X               a time may be active, the command returns the number of
  457. X               seconds left in the previous alarm.
  458. END_OF_FILE
  459. if test 352 -ne `wc -c <'extended/tcllib/help/extended/alarm'`; then
  460.     echo shar: \"'extended/tcllib/help/extended/alarm'\" unpacked with wrong size!
  461. fi
  462. # end of 'extended/tcllib/help/extended/alarm'
  463. fi
  464. if test -f 'extended/tcllib/help/extended/cindex' -a "${1}" != "-c" ; then 
  465.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/cindex'\"
  466. else
  467. echo shar: Extracting \"'extended/tcllib/help/extended/cindex'\" \(205 characters\)
  468. sed "s/^X//" >'extended/tcllib/help/extended/cindex' <<'END_OF_FILE'
  469. X
  470. X
  471. X          cindex string index
  472. X               Returns the character indexed by index (zero based)
  473. X               from string.  This command is a shortcut for:
  474. X                   string index string index
  475. END_OF_FILE
  476. if test 205 -ne `wc -c <'extended/tcllib/help/extended/cindex'`; then
  477.     echo shar: \"'extended/tcllib/help/extended/cindex'\" unpacked with wrong size!
  478. fi
  479. # end of 'extended/tcllib/help/extended/cindex'
  480. fi
  481. if test -f 'extended/tcllib/help/extended/crange' -a "${1}" != "-c" ; then 
  482.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/crange'\"
  483. else
  484. echo shar: Extracting \"'extended/tcllib/help/extended/crange'\" \(397 characters\)
  485. sed "s/^X//" >'extended/tcllib/help/extended/crange' <<'END_OF_FILE'
  486. X
  487. X
  488. X          crange string first last
  489. X               Returns a range of characters from string starting at
  490. X               first (zero-based) until last.  The special keyword end
  491. X               may be specified for last to indicate that the
  492. X               remainder of the string is to be extracted.  This
  493. X               command is a short cut for:
  494. X                   string range string first last
  495. END_OF_FILE
  496. if test 397 -ne `wc -c <'extended/tcllib/help/extended/crange'`; then
  497.     echo shar: \"'extended/tcllib/help/extended/crange'\" unpacked with wrong size!
  498. fi
  499. # end of 'extended/tcllib/help/extended/crange'
  500. fi
  501. if test -f 'extended/tcllib/help/extended/csubstr' -a "${1}" != "-c" ; then 
  502.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/csubstr'\"
  503. else
  504. echo shar: Extracting \"'extended/tcllib/help/extended/csubstr'\" \(423 characters\)
  505. sed "s/^X//" >'extended/tcllib/help/extended/csubstr' <<'END_OF_FILE'
  506. X
  507. X
  508. X          csubstr string first length
  509. X               Returns a range of characters from string starting at
  510. X               first (zero-based) for length characters.  The special
  511. X               keyword end may be specified for length to indicate
  512. X               that the remainder of the string is to be extracted.
  513. X               This command is a short cut for:
  514. X                   string range string first [expr length-1]
  515. END_OF_FILE
  516. if test 423 -ne `wc -c <'extended/tcllib/help/extended/csubstr'`; then
  517.     echo shar: \"'extended/tcllib/help/extended/csubstr'\" unpacked with wrong size!
  518. fi
  519. # end of 'extended/tcllib/help/extended/csubstr'
  520. fi
  521. if test -f 'extended/tcllib/help/extended/getclock' -a "${1}" != "-c" ; then 
  522.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/getclock'\"
  523. else
  524. echo shar: Extracting \"'extended/tcllib/help/extended/getclock'\" \(254 characters\)
  525. sed "s/^X//" >'extended/tcllib/help/extended/getclock' <<'END_OF_FILE'
  526. X
  527. X
  528. X          getclock
  529. X               Return the current date and time as a system dependent
  530. X               integer value.  The unit of the value is seconds,
  531. X               allowing it to be used for relative time calculations
  532. X               and so forth.
  533. END_OF_FILE
  534. if test 254 -ne `wc -c <'extended/tcllib/help/extended/getclock'`; then
  535.     echo shar: \"'extended/tcllib/help/extended/getclock'\" unpacked with wrong size!
  536. fi
  537. # end of 'extended/tcllib/help/extended/getclock'
  538. fi
  539. if test -f 'extended/tcllib/help/extended/keyldel' -a "${1}" != "-c" ; then 
  540.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/keyldel'\"
  541. else
  542. echo shar: Extracting \"'extended/tcllib/help/extended/keyldel'\" \(218 characters\)
  543. sed "s/^X//" >'extended/tcllib/help/extended/keyldel' <<'END_OF_FILE'
  544. X
  545. X
  546. X          keyldel listvar key
  547. X               Delete the field specified by key from the keyed list
  548. X               in the variable listvar.  This removes both the key and
  549. X               the value from the keyed list.
  550. END_OF_FILE
  551. if test 218 -ne `wc -c <'extended/tcllib/help/extended/keyldel'`; then
  552.     echo shar: \"'extended/tcllib/help/extended/keyldel'\" unpacked with wrong size!
  553. fi
  554. # end of 'extended/tcllib/help/extended/keyldel'
  555. fi
  556. if test -f 'extended/tcllib/help/extended/keylset' -a "${1}" != "-c" ; then 
  557.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/keylset'\"
  558. else
  559. echo shar: Extracting \"'extended/tcllib/help/extended/keylset'\" \(363 characters\)
  560. sed "s/^X//" >'extended/tcllib/help/extended/keylset' <<'END_OF_FILE'
  561. X
  562. X
  563. X          keylset listvar key value
  564. X               Set the value associated with the key in the keyed list
  565. X               in the variable listvar  to value.  If listvar does not
  566. X               exists, it is created.  If key is not currently in the
  567. X               list, it will be added.  If it already exists, value
  568. X               overrides the existing value.
  569. END_OF_FILE
  570. if test 363 -ne `wc -c <'extended/tcllib/help/extended/keylset'`; then
  571.     echo shar: \"'extended/tcllib/help/extended/keylset'\" unpacked with wrong size!
  572. fi
  573. # end of 'extended/tcllib/help/extended/keylset'
  574. fi
  575. if test -f 'extended/tcllib/help/extended/kill' -a "${1}" != "-c" ; then 
  576.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/kill'\"
  577. else
  578. echo shar: Extracting \"'extended/tcllib/help/extended/kill'\" \(450 characters\)
  579. sed "s/^X//" >'extended/tcllib/help/extended/kill' <<'END_OF_FILE'
  580. X
  581. X
  582. X          kill [signal] processlist
  583. X               Send a signal to the each process in the list
  584. X               processlist, if permitted.  Signal, if present, is the
  585. X               signal number or the symbolic name of the signal, see
  586. X               the signal system call manual page.  The leading "SIG"
  587. X               is optional when the signal is specified by its
  588. X               symbolic name.
  589. X
  590. X          The default for signo is 15, SIGTERM.
  591. END_OF_FILE
  592. if test 450 -ne `wc -c <'extended/tcllib/help/extended/kill'`; then
  593.     echo shar: \"'extended/tcllib/help/extended/kill'\" unpacked with wrong size!
  594. fi
  595. # end of 'extended/tcllib/help/extended/kill'
  596. fi
  597. if test -f 'extended/tcllib/help/extended/lempty' -a "${1}" != "-c" ; then 
  598.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/lempty'\"
  599. else
  600. echo shar: Extracting \"'extended/tcllib/help/extended/lempty'\" \(235 characters\)
  601. sed "s/^X//" >'extended/tcllib/help/extended/lempty' <<'END_OF_FILE'
  602. X
  603. X
  604. X          lempty list
  605. X               Determine if the specified list is empty.  If empty, 1
  606. X               is returned, otherwise, 0 is returned.  This command is
  607. X               an alternative to comparing a list to an empty string.
  608. END_OF_FILE
  609. if test 235 -ne `wc -c <'extended/tcllib/help/extended/lempty'`; then
  610.     echo shar: \"'extended/tcllib/help/extended/lempty'\" unpacked with wrong size!
  611. fi
  612. # end of 'extended/tcllib/help/extended/lempty'
  613. fi
  614. if test -f 'extended/tcllib/help/extended/lvarpop' -a "${1}" != "-c" ; then 
  615.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/lvarpop'\"
  616. else
  617. echo shar: Extracting \"'extended/tcllib/help/extended/lvarpop'\" \(509 characters\)
  618. sed "s/^X//" >'extended/tcllib/help/extended/lvarpop' <<'END_OF_FILE'
  619. X
  620. X
  621. X          lvarpop var [index [string]]
  622. X               The lvarpop command pops (deletes) the element indexed
  623. X               by index from the list in the variable var.  If index
  624. X               is omitted, then 0 is assumed.  If string, is
  625. X               specified, then the deleted element is replaced by
  626. X               string. The replaced or deleted element is returned.
  627. X               Thus ``lvarpop argv 0'' returns the first element and
  628. X               sets argv to contain the remainder of the string.
  629. END_OF_FILE
  630. if test 509 -ne `wc -c <'extended/tcllib/help/extended/lvarpop'`; then
  631.     echo shar: \"'extended/tcllib/help/extended/lvarpop'\" unpacked with wrong size!
  632. fi
  633. # end of 'extended/tcllib/help/extended/lvarpop'
  634. fi
  635. if test -f 'extended/tcllib/help/extended/max' -a "${1}" != "-c" ; then 
  636.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/max'\"
  637. else
  638. echo shar: Extracting \"'extended/tcllib/help/extended/max'\" \(203 characters\)
  639. sed "s/^X//" >'extended/tcllib/help/extended/max' <<'END_OF_FILE'
  640. X
  641. X
  642. X          max num1 num2 [..numN]
  643. X               Returns the argument that has the highest numeric
  644. X               value. The arguments, numN may be any interger or
  645. X               floating point values.
  646. END_OF_FILE
  647. if test 203 -ne `wc -c <'extended/tcllib/help/extended/max'`; then
  648.     echo shar: \"'extended/tcllib/help/extended/max'\" unpacked with wrong size!
  649. fi
  650. # end of 'extended/tcllib/help/extended/max'
  651. fi
  652. if test -f 'extended/tcllib/help/extended/min' -a "${1}" != "-c" ; then 
  653.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/min'\"
  654. else
  655. echo shar: Extracting \"'extended/tcllib/help/extended/min'\" \(202 characters\)
  656. sed "s/^X//" >'extended/tcllib/help/extended/min' <<'END_OF_FILE'
  657. X
  658. X
  659. X          min num1 num2 [..numN]
  660. X               Returns the argument that has the lowest numeric value.
  661. X               The arguments, numN may be any interger or floating
  662. X               point values.
  663. END_OF_FILE
  664. if test 202 -ne `wc -c <'extended/tcllib/help/extended/min'`; then
  665.     echo shar: \"'extended/tcllib/help/extended/min'\" unpacked with wrong size!
  666. fi
  667. # end of 'extended/tcllib/help/extended/min'
  668. fi
  669. if test -f 'extended/tcllib/help/extended/mkdir' -a "${1}" != "-c" ; then 
  670.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/mkdir'\"
  671. else
  672. echo shar: Extracting \"'extended/tcllib/help/extended/mkdir'\" \(329 characters\)
  673. sed "s/^X//" >'extended/tcllib/help/extended/mkdir' <<'END_OF_FILE'
  674. X
  675. X
  676. X          mkdir [-path] dirList
  677. X               Create each of the directories in the list dirList.
  678. X               The mode on the new directories is 777, modified by the
  679. X               umask.  If -path is specified, then any non-existent
  680. X               parent directories in the specified path are also
  681. X               created.
  682. END_OF_FILE
  683. if test 329 -ne `wc -c <'extended/tcllib/help/extended/mkdir'`; then
  684.     echo shar: \"'extended/tcllib/help/extended/mkdir'\" unpacked with wrong size!
  685. fi
  686. # end of 'extended/tcllib/help/extended/mkdir'
  687. fi
  688. if test -f 'extended/tcllib/help/extended/scanfile' -a "${1}" != "-c" ; then 
  689.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/scanfile'\"
  690. else
  691. echo shar: Extracting \"'extended/tcllib/help/extended/scanfile'\" \(342 characters\)
  692. sed "s/^X//" >'extended/tcllib/help/extended/scanfile' <<'END_OF_FILE'
  693. X
  694. X
  695. X          scanfile contexthandle filehandle
  696. X               Scan the file specified by filehandle, starting at the
  697. X               current file position.  Check all patterns in the scan
  698. X               context specified by contexthandle against it,
  699. X               executing the match commands corresponding to patterns
  700. X               matched.
  701. END_OF_FILE
  702. if test 342 -ne `wc -c <'extended/tcllib/help/extended/scanfile'`; then
  703.     echo shar: \"'extended/tcllib/help/extended/scanfile'\" unpacked with wrong size!
  704. fi
  705. # end of 'extended/tcllib/help/extended/scanfile'
  706. fi
  707. if test -f 'extended/tcllib/help/extended/system' -a "${1}" != "-c" ; then 
  708.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/system'\"
  709. else
  710. echo shar: Extracting \"'extended/tcllib/help/extended/system'\" \(402 characters\)
  711. sed "s/^X//" >'extended/tcllib/help/extended/system' <<'END_OF_FILE'
  712. X
  713. X
  714. X          system command
  715. X               Executes command via the system(3) call.  Differs from
  716. X               exec because system doesn't return stdout as the result
  717. X               or the command and system goes through the shell to
  718. X               provide wildcard expansion, redirection, etc, as is
  719. X               normal from a sh command line.  Returns the exit code
  720. X               of the command.
  721. END_OF_FILE
  722. if test 402 -ne `wc -c <'extended/tcllib/help/extended/system'`; then
  723.     echo shar: \"'extended/tcllib/help/extended/system'\" unpacked with wrong size!
  724. fi
  725. # end of 'extended/tcllib/help/extended/system'
  726. fi
  727. if test -f 'extended/tcllib/help/extended/times' -a "${1}" != "-c" ; then 
  728.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/times'\"
  729. else
  730. echo shar: Extracting \"'extended/tcllib/help/extended/times'\" \(267 characters\)
  731. sed "s/^X//" >'extended/tcllib/help/extended/times' <<'END_OF_FILE'
  732. X
  733. X
  734. X          times
  735. X               Return a list containing the process and child
  736. X               execution times in the form:
  737. X                   utime stime cutime cstime
  738. X               See times system call manual page.  The values are in
  739. X               milliseconds.
  740. END_OF_FILE
  741. if test 267 -ne `wc -c <'extended/tcllib/help/extended/times'`; then
  742.     echo shar: \"'extended/tcllib/help/extended/times'\" unpacked with wrong size!
  743. fi
  744. # end of 'extended/tcllib/help/extended/times'
  745. fi
  746. if test -f 'extended/tcllib/help/extended/translit' -a "${1}" != "-c" ; then 
  747.   echo shar: Will not clobber existing file \"'extended/tcllib/help/extended/translit'\"
  748. else
  749. echo shar: Extracting \"'extended/tcllib/help/extended/translit'\" \(421 characters\)
  750. sed "s/^X//" >'extended/tcllib/help/extended/translit' <<'END_OF_FILE'
  751. X
  752. X
  753. X          translit inrange outrange string
  754. X               Translate characters in string matching characters in
  755. X               inrange to the corresponding character in outrange.
  756. X               Inrange and outrange may be list of characters or a
  757. X               range in the form `A-M'.
  758. X                   Example:
  759. X                       translit a-z A-Z foobar
  760. X                   returns
  761. X                       FOOBAR
  762. X
  763. END_OF_FILE
  764. if test 421 -ne `wc -c <'extended/tcllib/help/extended/translit'`; then
  765.     echo shar: \"'extended/tcllib/help/extended/translit'\" unpacked with wrong size!
  766. fi
  767. # end of 'extended/tcllib/help/extended/translit'
  768. fi
  769. if test -f 'extended/tcllib/help/intro/semi-colons' -a "${1}" != "-c" ; then 
  770.   echo shar: Will not clobber existing file \"'extended/tcllib/help/intro/semi-colons'\"
  771. else
  772. echo shar: Extracting \"'extended/tcllib/help/intro/semi-colons'\" \(493 characters\)
  773. sed "s/^X//" >'extended/tcllib/help/intro/semi-colons' <<'END_OF_FILE'
  774. X     SEPARATING COMMANDS WITH SEMI-COLONS
  775. X          Normally, each command occupies one  line  (the  command  is
  776. X          terminated  by  a  newline  character).  However, semi-colon
  777. X          (``;'')  is  treated  as  a  command  separator   character;
  778. X          multiple  commands  may  be placed on one line by separating
  779. X          them with a semi-colon.   Semi-colons  are  not  treated  as
  780. X          command  separators  if  they  appear within curly braces or
  781. X          double-quotes.
  782. END_OF_FILE
  783. if test 493 -ne `wc -c <'extended/tcllib/help/intro/semi-colons'`; then
  784.     echo shar: \"'extended/tcllib/help/intro/semi-colons'\" unpacked with wrong size!
  785. fi
  786. # end of 'extended/tcllib/help/intro/semi-colons'
  787. fi
  788. if test -f 'extended/tcllib/help/tcl.tlib/edprocs' -a "${1}" != "-c" ; then 
  789.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/edprocs'\"
  790. else
  791. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/edprocs'\" \(347 characters\)
  792. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/edprocs' <<'END_OF_FILE'
  793. X
  794. X
  795. X          edprocs [proc...]
  796. X               Writes the named procedures, or all currently defined
  797. X               procedures, to a temporary file, then calls an editor
  798. X               on it (as specified by the EDITOR environment variable,
  799. X               or vi if none is specified), then sources the file back
  800. X               in if it was changed.
  801. END_OF_FILE
  802. if test 347 -ne `wc -c <'extended/tcllib/help/tcl.tlib/edprocs'`; then
  803.     echo shar: \"'extended/tcllib/help/tcl.tlib/edprocs'\" unpacked with wrong size!
  804. fi
  805. # end of 'extended/tcllib/help/tcl.tlib/edprocs'
  806. fi
  807. if test -f 'extended/tcllib/help/tcl.tlib/for_array_keys' -a "${1}" != "-c" ; then 
  808.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/for_array_keys'\"
  809. else
  810. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/for_array_keys'\" \(211 characters\)
  811. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/for_array_keys' <<'END_OF_FILE'
  812. X
  813. X
  814. X          for_array_keys var array_name code
  815. X               Perform a foreach-style loop for each key in the named
  816. X               array.  The break and continue statements work as with
  817. X               foreach.
  818. END_OF_FILE
  819. if test 211 -ne `wc -c <'extended/tcllib/help/tcl.tlib/for_array_keys'`; then
  820.     echo shar: \"'extended/tcllib/help/tcl.tlib/for_array_keys'\" unpacked with wrong size!
  821. fi
  822. # end of 'extended/tcllib/help/tcl.tlib/for_array_keys'
  823. fi
  824. if test -f 'extended/tcllib/help/tcl.tlib/for_file' -a "${1}" != "-c" ; then 
  825.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/for_file'\"
  826. else
  827. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/for_file'\" \(374 characters\)
  828. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/for_file' <<'END_OF_FILE'
  829. X
  830. X
  831. X          for_file var filename { code }
  832. X               For each line in filename, sets var to the line and
  833. X               executes code.
  834. X
  835. X               The break and continue commands work as with foreach.
  836. X
  837. X               For example, the command
  838. X
  839. X                    for_file line /etc/passwd {echo $line}
  840. X
  841. X               would echo all the lines in the password file.
  842. END_OF_FILE
  843. if test 374 -ne `wc -c <'extended/tcllib/help/tcl.tlib/for_file'`; then
  844.     echo shar: \"'extended/tcllib/help/tcl.tlib/for_file'\" unpacked with wrong size!
  845. fi
  846. # end of 'extended/tcllib/help/tcl.tlib/for_file'
  847. fi
  848. if test -f 'extended/tcllib/help/tcl.tlib/for_recursive_' -a "${1}" != "-c" ; then 
  849.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/for_recursive_'\"
  850. else
  851. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/for_recursive_'\" \(406 characters\)
  852. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/for_recursive_' <<'END_OF_FILE'
  853. X
  854. X
  855. X          for_recursive_glob var globlist code
  856. X               Performs a foreach-style loop for each file and
  857. X               directory that recursively matched one or more patterns
  858. X               specified in the call to for_recursive_glob, setting
  859. X               var to the matching file or directory, and calling
  860. X               code.  The break and continue statements work as
  861. X               expected.
  862. END_OF_FILE
  863. if test 406 -ne `wc -c <'extended/tcllib/help/tcl.tlib/for_recursive_'`; then
  864.     echo shar: \"'extended/tcllib/help/tcl.tlib/for_recursive_'\" unpacked with wrong size!
  865. fi
  866. # end of 'extended/tcllib/help/tcl.tlib/for_recursive_'
  867. fi
  868. if test -f 'extended/tcllib/help/tcl.tlib/intersect3' -a "${1}" != "-c" ; then 
  869.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/intersect3'\"
  870. else
  871. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/intersect3'\" \(470 characters\)
  872. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/intersect3' <<'END_OF_FILE'
  873. X
  874. X
  875. X          intersect3 lista listb
  876. X               Performs the intersecting of the two lists, returning a
  877. X               list containing three lists.  The first list returned
  878. X               is everything in the first list that wasn't in the
  879. X               second.  The second list contains the intersection of
  880. X               the two lists, and the third list contains all the
  881. X               elements that were in the second list but weren't in
  882. X               the first.
  883. END_OF_FILE
  884. if test 470 -ne `wc -c <'extended/tcllib/help/tcl.tlib/intersect3'`; then
  885.     echo shar: \"'extended/tcllib/help/tcl.tlib/intersect3'\" unpacked with wrong size!
  886. fi
  887. # end of 'extended/tcllib/help/tcl.tlib/intersect3'
  888. fi
  889. if test -f 'extended/tcllib/help/tcl.tlib/lrmdups' -a "${1}" != "-c" ; then 
  890.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/lrmdups'\"
  891. else
  892. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/lrmdups'\" \(192 characters\)
  893. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/lrmdups' <<'END_OF_FILE'
  894. X
  895. X
  896. X          lrmdups list
  897. X               Remove duplicate elements from a list.  Sorts the
  898. X               specified list, removes any duplicate elements, and
  899. X               returns the result.
  900. END_OF_FILE
  901. if test 192 -ne `wc -c <'extended/tcllib/help/tcl.tlib/lrmdups'`; then
  902.     echo shar: \"'extended/tcllib/help/tcl.tlib/lrmdups'\" unpacked with wrong size!
  903. fi
  904. # end of 'extended/tcllib/help/tcl.tlib/lrmdups'
  905. fi
  906. if test -f 'extended/tcllib/help/tcl.tlib/pushd' -a "${1}" != "-c" ; then 
  907.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/pushd'\"
  908. else
  909. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/pushd'\" \(268 characters\)
  910. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/pushd' <<'END_OF_FILE'
  911. X
  912. X
  913. X          pushd [dir]
  914. X               Push the current directory onto the directory stack and
  915. X               cd to the specified directory.  If the directory is not
  916. X               specified, then the current directory is pushed, but
  917. X               remains unchanged.
  918. END_OF_FILE
  919. if test 268 -ne `wc -c <'extended/tcllib/help/tcl.tlib/pushd'`; then
  920.     echo shar: \"'extended/tcllib/help/tcl.tlib/pushd'\" unpacked with wrong size!
  921. fi
  922. # end of 'extended/tcllib/help/tcl.tlib/pushd'
  923. fi
  924. if test -f 'extended/tcllib/help/tcl.tlib/recursive_glob' -a "${1}" != "-c" ; then 
  925.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/recursive_glob'\"
  926. else
  927. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/recursive_glob'\" \(274 characters\)
  928. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/recursive_glob' <<'END_OF_FILE'
  929. X
  930. X
  931. X          recursive_glob globlist
  932. X               Does the same thing as glob, except that it recursively
  933. X               descends all the matched subdirectories, returning a
  934. X               list of all the files that matched all pattern in the
  935. X               list globlist.
  936. END_OF_FILE
  937. if test 274 -ne `wc -c <'extended/tcllib/help/tcl.tlib/recursive_glob'`; then
  938.     echo shar: \"'extended/tcllib/help/tcl.tlib/recursive_glob'\" unpacked with wrong size!
  939. fi
  940. # end of 'extended/tcllib/help/tcl.tlib/recursive_glob'
  941. fi
  942. if test -f 'extended/tcllib/help/tcl.tlib/saveprocs' -a "${1}" != "-c" ; then 
  943.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tcl.tlib/saveprocs'\"
  944. else
  945. echo shar: Extracting \"'extended/tcllib/help/tcl.tlib/saveprocs'\" \(207 characters\)
  946. sed "s/^X//" >'extended/tcllib/help/tcl.tlib/saveprocs' <<'END_OF_FILE'
  947. X
  948. X
  949. X          saveprocs fileName [proc...]
  950. X               Save the definition of the named procedure, or all
  951. X               currently defined procedures if none is specified, to
  952. X               the named file.
  953. END_OF_FILE
  954. if test 207 -ne `wc -c <'extended/tcllib/help/tcl.tlib/saveprocs'`; then
  955.     echo shar: \"'extended/tcllib/help/tcl.tlib/saveprocs'\" unpacked with wrong size!
  956. fi
  957. # end of 'extended/tcllib/help/tcl.tlib/saveprocs'
  958. fi
  959. if test -f 'extended/tcllib/help/tclshell/demand_load' -a "${1}" != "-c" ; then 
  960.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/demand_load'\"
  961. else
  962. echo shar: Extracting \"'extended/tcllib/help/tclshell/demand_load'\" \(473 characters\)
  963. sed "s/^X//" >'extended/tcllib/help/tclshell/demand_load' <<'END_OF_FILE'
  964. X
  965. X          demand_load procname Attempt to load the specified
  966. X          procedure, either as an autoload function or by loading the
  967. X          package containing the procedure.  If the package indexes
  968. X          have not been loaded for all package libraries in TCLPATH,
  969. X          they will be loaded.  Out-of-date library indexes will be
  970. X          rebuilt if they are writable.  The procedure returns 1 if
  971. X          the procedure was sucessfully loaded, or 0 if it was not.
  972. END_OF_FILE
  973. if test 473 -ne `wc -c <'extended/tcllib/help/tclshell/demand_load'`; then
  974.     echo shar: \"'extended/tcllib/help/tclshell/demand_load'\" unpacked with wrong size!
  975. fi
  976. # end of 'extended/tcllib/help/tclshell/demand_load'
  977. fi
  978. if test -f 'extended/tcllib/help/tclshell/utilprocs' -a "${1}" != "-c" ; then 
  979.   echo shar: Will not clobber existing file \"'extended/tcllib/help/tclshell/utilprocs'\"
  980. else
  981. echo shar: Extracting \"'extended/tcllib/help/tclshell/utilprocs'\" \(239 characters\)
  982. sed "s/^X//" >'extended/tcllib/help/tclshell/utilprocs' <<'END_OF_FILE'
  983. X
  984. X          searchpath path file Search all directories in the specified
  985. X          path, which is a Tcl list, for the specified file.  Returns
  986. X          the full path name of the file, or an empty string if the
  987. X          file is not found.
  988. END_OF_FILE
  989. if test 239 -ne `wc -c <'extended/tcllib/help/tclshell/utilprocs'`; then
  990.     echo shar: \"'extended/tcllib/help/tclshell/utilprocs'\" unpacked with wrong size!
  991. fi
  992. # end of 'extended/tcllib/help/tclshell/utilprocs'
  993. fi
  994. if test -f 'extended/tclsrc/arrayprocs.tcl' -a "${1}" != "-c" ; then 
  995.   echo shar: Will not clobber existing file \"'extended/tclsrc/arrayprocs.tcl'\"
  996. else
  997. echo shar: Extracting \"'extended/tclsrc/arrayprocs.tcl'\" \(450 characters\)
  998. sed "s/^X//" >'extended/tclsrc/arrayprocs.tcl' <<'END_OF_FILE'
  999. X#@package: array_procedures for_array_keys
  1000. X
  1001. Xproc for_array_keys {varName arrayName codeFragment} {
  1002. X    upvar $varName enumVar $arrayName enumArray
  1003. X
  1004. X    if ![info exists enumArray] {
  1005. X    error "\"$arrayName\" isn't an array"
  1006. X    }
  1007. X
  1008. X    set searchId [array startsearch enumArray]
  1009. X    while {[array anymore enumArray $searchId]} {
  1010. X    set enumVar [array nextelement enumArray $searchId]
  1011. X    uplevel $codeFragment
  1012. X    }
  1013. X    array donesearch enumArray $searchId
  1014. X}
  1015. END_OF_FILE
  1016. if test 450 -ne `wc -c <'extended/tclsrc/arrayprocs.tcl'`; then
  1017.     echo shar: \"'extended/tclsrc/arrayprocs.tcl'\" unpacked with wrong size!
  1018. fi
  1019. # end of 'extended/tclsrc/arrayprocs.tcl'
  1020. fi
  1021. if test -f 'extended/tclsrc/forrecur.tcl' -a "${1}" != "-c" ; then 
  1022.   echo shar: Will not clobber existing file \"'extended/tclsrc/forrecur.tcl'\"
  1023. else
  1024. echo shar: Extracting \"'extended/tclsrc/forrecur.tcl'\" \(397 characters\)
  1025. sed "s/^X//" >'extended/tclsrc/forrecur.tcl' <<'END_OF_FILE'
  1026. X#@package: forrecur for_recursive_glob
  1027. X
  1028. Xproc for_recursive_glob {var globlist code {depth 1}} {
  1029. X    upvar $depth $var myVar
  1030. X    foreach globpat $globlist {
  1031. X        foreach file [glob -nocomplain $globpat] {
  1032. X        set myVar $file
  1033. X        uplevel $depth $code
  1034. X            if [file isdirectory $file] {
  1035. X                for_recursive_glob $var $file/* $code [expr {$depth + 1}]
  1036. X        }
  1037. X        }
  1038. X    }
  1039. X}
  1040. X
  1041. X
  1042. END_OF_FILE
  1043. if test 397 -ne `wc -c <'extended/tclsrc/forrecur.tcl'`; then
  1044.     echo shar: \"'extended/tclsrc/forrecur.tcl'\" unpacked with wrong size!
  1045. fi
  1046. # end of 'extended/tclsrc/forrecur.tcl'
  1047. fi
  1048. if test -f 'extended/tclsrc/globrecur.tcl' -a "${1}" != "-c" ; then 
  1049.   echo shar: Will not clobber existing file \"'extended/tclsrc/globrecur.tcl'\"
  1050. else
  1051. echo shar: Extracting \"'extended/tclsrc/globrecur.tcl'\" \(368 characters\)
  1052. sed "s/^X//" >'extended/tclsrc/globrecur.tcl' <<'END_OF_FILE'
  1053. X#@package: globrecur recursive_glob
  1054. X
  1055. Xproc recursive_glob {globlist} {
  1056. X    set result ""
  1057. X    foreach pattern $globlist {
  1058. X        foreach file [glob -nocomplain $pattern] {
  1059. X            lappend result $file
  1060. X            if [file isdirectory $file] {
  1061. X                set result [concat $result [recursive_glob $file/*]]
  1062. X            }
  1063. X        }
  1064. X    }
  1065. X    return $result
  1066. X}
  1067. X
  1068. X
  1069. END_OF_FILE
  1070. if test 368 -ne `wc -c <'extended/tclsrc/globrecur.tcl'`; then
  1071.     echo shar: \"'extended/tclsrc/globrecur.tcl'\" unpacked with wrong size!
  1072. fi
  1073. # end of 'extended/tclsrc/globrecur.tcl'
  1074. fi
  1075. if test -f 'extended/tclsrc/packages.tcl' -a "${1}" != "-c" ; then 
  1076.   echo shar: Will not clobber existing file \"'extended/tclsrc/packages.tcl'\"
  1077. else
  1078. echo shar: Extracting \"'extended/tclsrc/packages.tcl'\" \(509 characters\)
  1079. sed "s/^X//" >'extended/tclsrc/packages.tcl' <<'END_OF_FILE'
  1080. X#@package: packages packages autoprocs
  1081. X
  1082. Xproc packages {} {
  1083. X    global TCLENV
  1084. X    set packList {}
  1085. X    foreach key [array names TCLENV] {
  1086. X        if {[string match "PKG:*" $key]} {
  1087. X            lappend packList [string range $key 4 end]
  1088. X        }
  1089. X    }
  1090. X    return $packList
  1091. X}
  1092. X
  1093. Xproc autoprocs {} {
  1094. X    global TCLENV
  1095. X    set procList {}
  1096. X    foreach key [array names TCLENV] {
  1097. X        if {[string match "PROC:*" $key]} {
  1098. X            lappend procList [string range $key 5 end]
  1099. X        }
  1100. X    }
  1101. X    return $procList
  1102. X}
  1103. END_OF_FILE
  1104. if test 509 -ne `wc -c <'extended/tclsrc/packages.tcl'`; then
  1105.     echo shar: \"'extended/tclsrc/packages.tcl'\" unpacked with wrong size!
  1106. fi
  1107. # end of 'extended/tclsrc/packages.tcl'
  1108. fi
  1109. if test -f 'extended/tclsrc/showprocs.tcl' -a "${1}" != "-c" ; then 
  1110.   echo shar: Will not clobber existing file \"'extended/tclsrc/showprocs.tcl'\"
  1111. else
  1112. echo shar: Extracting \"'extended/tclsrc/showprocs.tcl'\" \(416 characters\)
  1113. sed "s/^X//" >'extended/tclsrc/showprocs.tcl' <<'END_OF_FILE'
  1114. X#@package: show_procedures showproc showprocs
  1115. X
  1116. Xproc showproc {procname} {
  1117. X    if [lempty [info procs $procname]] {demand_load $procname}
  1118. X    format "proc %s \{%s\} \{%s\}\n" $procname [info args $procname] \
  1119. X    [info body $procname]
  1120. X}
  1121. X
  1122. Xproc showprocs {args} {
  1123. X    if [lempty $args] { set args [info procs] }
  1124. X    set out ""
  1125. X
  1126. X    foreach i $args {
  1127. X    foreach j $i { append out [showproc $j] "\n"}
  1128. X    }
  1129. X    return $out
  1130. X}
  1131. X
  1132. END_OF_FILE
  1133. if test 416 -ne `wc -c <'extended/tclsrc/showprocs.tcl'`; then
  1134.     echo shar: \"'extended/tclsrc/showprocs.tcl'\" unpacked with wrong size!
  1135. fi
  1136. # end of 'extended/tclsrc/showprocs.tcl'
  1137. fi
  1138. if test -f 'extended/tclsrc/stringfile.tcl' -a "${1}" != "-c" ; then 
  1139.   echo shar: Will not clobber existing file \"'extended/tclsrc/stringfile.tcl'\"
  1140. else
  1141. echo shar: Extracting \"'extended/tclsrc/stringfile.tcl'\" \(277 characters\)
  1142. sed "s/^X//" >'extended/tclsrc/stringfile.tcl' <<'END_OF_FILE'
  1143. X#@package: stringfile_functions read_file write_file
  1144. X
  1145. Xproc read_file {fileName} {
  1146. X    set fp [open $fileName]
  1147. X    set result [read $fp]
  1148. X    close $fp
  1149. X    return $result
  1150. X} 
  1151. X
  1152. Xproc write_file {fileName string} {
  1153. X    set fp [open $fileName w]
  1154. X    puts $fp $string
  1155. X    close $fp
  1156. X}
  1157. X
  1158. END_OF_FILE
  1159. if test 277 -ne `wc -c <'extended/tclsrc/stringfile.tcl'`; then
  1160.     echo shar: \"'extended/tclsrc/stringfile.tcl'\" unpacked with wrong size!
  1161. fi
  1162. # end of 'extended/tclsrc/stringfile.tcl'
  1163. fi
  1164. if test -f 'extended/tests/all' -a "${1}" != "-c" ; then 
  1165.   echo shar: Will not clobber existing file \"'extended/tests/all'\"
  1166. else
  1167. echo shar: Extracting \"'extended/tests/all'\" \(315 characters\)
  1168. sed "s/^X//" >'extended/tests/all' <<'END_OF_FILE'
  1169. X# This file contains a top-level script to run all of the Tcl
  1170. X# tests.  Execute it by invoking "source all" when running tclTest
  1171. X# in this directory.
  1172. X#
  1173. X# $Header: /sprite/src/lib/tcl/tests/RCS/all,v 1.4 91/09/08 13:43:07 ouster Exp $ (Berkeley)
  1174. X
  1175. Xforeach i [lsort [glob *.test]] {
  1176. X    puts stdout $i
  1177. X    source $i
  1178. X}
  1179. END_OF_FILE
  1180. if test 315 -ne `wc -c <'extended/tests/all'`; then
  1181.     echo shar: \"'extended/tests/all'\" unpacked with wrong size!
  1182. fi
  1183. # end of 'extended/tests/all'
  1184. fi
  1185. if test -f 'extended/ucbsrc/Makefile' -a "${1}" != "-c" ; then 
  1186.   echo shar: Will not clobber existing file \"'extended/ucbsrc/Makefile'\"
  1187. else
  1188. echo shar: Extracting \"'extended/ucbsrc/Makefile'\" \(428 characters\)
  1189. sed "s/^X//" >'extended/ucbsrc/Makefile' <<'END_OF_FILE'
  1190. X#
  1191. X# Makefile for Extended Tcl updates to the standard UCB Tcl. This file is
  1192. X# designed to be run under the top-level Makefile and expects the following
  1193. X# macros to be passed in via the environment for a 'all' make:
  1194. X#    o CFLAGS - CFLAGS for compilation.
  1195. X#
  1196. X
  1197. XSHELL=/bin/sh
  1198. X
  1199. XOBJS=tclBasic.o
  1200. XLIBTCL=../libtcl.a
  1201. X
  1202. Xall: made.tmp
  1203. X
  1204. Xmade.tmp: $(OBJS)
  1205. X    $(AR) cruv $(LIBTCL) $(OBJS)
  1206. X    touch made.tmp
  1207. Xclean:
  1208. X    -rm -f made.tmp
  1209. X    -rm -f $(OBJS)
  1210. END_OF_FILE
  1211. if test 428 -ne `wc -c <'extended/ucbsrc/Makefile'`; then
  1212.     echo shar: \"'extended/ucbsrc/Makefile'\" unpacked with wrong size!
  1213. fi
  1214. # end of 'extended/ucbsrc/Makefile'
  1215. fi
  1216. echo shar: End of archive 2 \(of 23\).
  1217. cp /dev/null ark2isdone
  1218. MISSING=""
  1219. 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
  1220.     if test ! -f ark${I}isdone ; then
  1221.     MISSING="${MISSING} ${I}"
  1222.     fi
  1223. done
  1224. if test "${MISSING}" = "" ; then
  1225.     echo You have unpacked all 23 archives.
  1226.     echo "Now cd to "extended", edit the makefile, then do a "make""
  1227.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1228. else
  1229.     echo You still need to unpack the following archives:
  1230.     echo "        " ${MISSING}
  1231. fi
  1232. ##  End of shell archive.
  1233. exit 0
  1234.  
  1235. exit 0 # Just in case...
  1236. -- 
  1237. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1238. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1239. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1240. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1241.