Artifact
dda70031d6113f07c165385664b5553ac79d42a3:
- File
test/th1-tcl.test
— part of check-in
[46864ac9cc]
at
2012-08-22 11:15:25
on branch tcl-argv-handling-v2
— Modify the Tcl argument handling to deal with object reference counts and errors.
(user:
mistachkin
size: 3415)
[more...]
0000: 23 0a 23 20 43 6f 70 79 72 69 67 68 74 20 28 63 #.# Copyright (c
0010: 29 20 32 30 31 31 20 44 2e 20 52 69 63 68 61 72 ) 2011 D. Richar
0020: 64 20 48 69 70 70 0a 23 0a 23 20 54 68 69 73 20 d Hipp.#.# This
0030: 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 program is free
0040: 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 software; you ca
0050: 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 n redistribute i
0060: 74 20 61 6e 64 2f 6f 72 0a 23 20 6d 6f 64 69 66 t and/or.# modif
0070: 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 y it under the t
0080: 65 72 6d 73 20 6f 66 20 74 68 65 20 53 69 6d 70 erms of the Simp
0090: 6c 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e lified BSD Licen
00a0: 73 65 20 28 61 6c 73 6f 0a 23 20 6b 6e 6f 77 6e se (also.# known
00b0: 20 61 73 20 74 68 65 20 22 32 2d 43 6c 61 75 73 as the "2-Claus
00c0: 65 20 4c 69 63 65 6e 73 65 22 20 6f 72 20 22 46 e License" or "F
00d0: 72 65 65 42 53 44 20 4c 69 63 65 6e 73 65 22 2e reeBSD License".
00e0: 29 0a 23 0a 23 20 54 68 69 73 20 70 72 6f 67 72 ).#.# This progr
00f0: 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 am is distribute
0100: 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 d in the hope th
0110: 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 at it will be us
0120: 65 66 75 6c 2c 0a 23 20 62 75 74 20 77 69 74 68 eful,.# but with
0130: 6f 75 74 20 61 6e 79 20 77 61 72 72 61 6e 74 79 out any warranty
0140: 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 ; without even t
0150: 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 he implied warra
0160: 6e 74 79 20 6f 66 0a 23 20 6d 65 72 63 68 61 6e nty of.# merchan
0170: 74 61 62 69 6c 69 74 79 20 6f 72 20 66 69 74 6e tability or fitn
0180: 65 73 73 20 66 6f 72 20 61 20 70 61 72 74 69 63 ess for a partic
0190: 75 6c 61 72 20 70 75 72 70 6f 73 65 2e 0a 23 0a ular purpose..#.
01a0: 23 20 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 # Author contact
01b0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 23 20 information:.#
01c0: 20 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a drh@hwaci.com.
01d0: 23 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68 # http://www.h
01e0: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 23 0a waci.com/drh/.#.
01f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0200: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0210: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0220: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0230: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 0a 23 ############.#.#
0240: 20 54 48 31 2f 54 63 6c 20 69 6e 74 65 67 72 61 TH1/Tcl integra
0250: 74 69 6f 6e 0a 23 0a 0a 73 65 74 20 64 69 72 20 tion.#..set dir
0260: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 [file dirname [i
0270: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 0a 0a 23 23 nfo script]]..##
0280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 73 #############..s
02d0: 65 74 20 65 6e 76 28 54 48 31 5f 45 4e 41 42 4c et env(TH1_ENABL
02e0: 45 5f 54 43 4c 29 20 31 3b 20 23 20 54 63 6c 20 E_TCL) 1; # Tcl
02f0: 69 6e 74 65 67 72 61 74 69 6f 6e 20 6d 75 73 74 integration must
0300: 20 62 65 20 65 6e 61 62 6c 65 64 20 66 6f 72 20 be enabled for
0310: 74 68 69 73 20 74 65 73 74 2e 0a 0a 23 23 23 23 this test...####
0320: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0340: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0350: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0360: 23 23 23 23 23 23 23 23 23 23 23 0a 0a 66 6f 73 ###########..fos
0370: 73 69 6c 20 74 65 73 74 2d 74 68 2d 72 65 6e 64 sil test-th-rend
0380: 65 72 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e er [file nativen
0390: 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 ame [file join $
03a0: 64 69 72 20 74 68 31 2d 74 63 6c 31 2e 74 78 74 dir th1-tcl1.txt
03b0: 5d 5d 0a 0a 74 65 73 74 20 74 68 31 2d 74 63 6c ]]..test th1-tcl
03c0: 2d 31 20 7b 5b 72 65 67 65 78 70 20 2d 2d 20 7b -1 {[regexp -- {
03d0: 5e 5c 64 2b 0a 5c 64 2b 0a 5c 64 2b 0a 76 69 61 ^\d+.\d+.\d+.via
03e0: 20 54 63 6c 20 69 6e 76 6f 6b 65 0a 34 0a 34 0a Tcl invoke.4.4.
03f0: 74 77 6f 20 77 6f 72 64 73 0a 6f 6e 65 5f 77 6f two words.one_wo
0400: 72 64 0a 74 68 72 65 65 20 77 6f 72 64 73 20 6e rd.three words n
0410: 6f 77 0a 5c 64 2b 0a 74 77 6f 20 77 6f 72 64 73 ow.\d+.two words
0420: 0a 34 0a 5c 64 2b 0a 74 77 6f 20 77 6f 72 64 73 .4.\d+.two words
0430: 0a 34 0a 5c 64 2b 0a 6f 6e 65 5f 77 6f 72 64 0a .4.\d+.one_word.
0440: 74 68 72 65 65 20 77 6f 72 64 73 20 6e 6f 77 0a three words now.
0450: 24 7d 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b $} [string map [
0460: 6c 69 73 74 20 5c 72 5c 6e 20 5c 6e 5d 20 24 52 list \r\n \n] $R
0470: 45 53 55 4c 54 5d 5d 7d 0a 0a 23 23 23 23 23 23 ESULT]]}..######
0480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
04a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
04b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
04c0: 23 23 23 23 23 23 23 23 23 0a 0a 66 6f 73 73 69 #########..fossi
04d0: 6c 20 74 65 73 74 2d 74 68 2d 72 65 6e 64 65 72 l test-th-render
04e0: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d [file nativenam
04f0: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 e [file join $di
0500: 72 20 74 68 31 2d 74 63 6c 32 2e 74 78 74 5d 5d r th1-tcl2.txt]]
0510: 0a 0a 74 65 73 74 20 74 68 31 2d 74 63 6c 2d 32 ..test th1-tcl-2
0520: 20 7b 5b 72 65 67 65 78 70 20 2d 2d 20 7b 5e 5c {[regexp -- {^\
0530: 64 2b 0a 24 7d 20 5b 73 74 72 69 6e 67 20 6d 61 d+.$} [string ma
0540: 70 20 5b 6c 69 73 74 20 5c 72 5c 6e 20 5c 6e 5d p [list \r\n \n]
0550: 20 24 52 45 53 55 4c 54 5d 5d 7d 0a 0a 23 23 23 $RESULT]]}..###
0560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0570: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0580: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0590: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
05a0: 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 66 6f ############..fo
05b0: 73 73 69 6c 20 74 65 73 74 2d 74 68 2d 72 65 6e ssil test-th-ren
05c0: 64 65 72 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 der [file native
05d0: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 name [file join
05e0: 24 64 69 72 20 74 68 31 2d 74 63 6c 33 2e 74 78 $dir th1-tcl3.tx
05f0: 74 5d 5d 0a 0a 74 65 73 74 20 74 68 31 2d 74 63 t]]..test th1-tc
0600: 6c 2d 33 20 7b 24 52 45 53 55 4c 54 20 65 71 20 l-3 {$RESULT eq
0610: 7b 3c 68 72 3e 3c 70 20 63 6c 61 73 73 3d 22 74 {<hr><p class="t
0620: 68 6d 61 69 6e 45 72 72 6f 72 22 3e 45 52 52 4f hmainError">ERRO
0630: 52 3a 5c 0a 69 6e 76 61 6c 69 64 20 63 6f 6d 6d R:\.invalid comm
0640: 61 6e 64 20 6e 61 6d 65 20 26 71 75 6f 74 3b 62 and name "b
0650: 61 64 5f 63 6f 6d 6d 61 6e 64 26 71 75 6f 74 3b ad_command"
0660: 3c 2f 70 3e 7d 7d 0a 0a 23 23 23 23 23 23 23 23 </p>}}..########
0670: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0680: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0690: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
06a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
06b0: 23 23 23 23 23 23 23 0a 0a 66 6f 73 73 69 6c 20 #######..fossil
06c0: 74 65 73 74 2d 74 68 2d 72 65 6e 64 65 72 20 5b test-th-render [
06d0: 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 file nativename
06e0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 [file join $dir
06f0: 74 68 31 2d 74 63 6c 34 2e 74 78 74 5d 5d 0a 0a th1-tcl4.txt]]..
0700: 74 65 73 74 20 74 68 31 2d 74 63 6c 2d 34 20 7b test th1-tcl-4 {
0710: 24 52 45 53 55 4c 54 20 65 71 20 7b 3c 68 72 3e $RESULT eq {<hr>
0720: 3c 70 20 63 6c 61 73 73 3d 22 74 68 6d 61 69 6e <p class="thmain
0730: 45 72 72 6f 72 22 3e 45 52 52 4f 52 3a 5c 0a 64 Error">ERROR:\.d
0740: 69 76 69 64 65 20 62 79 20 7a 65 72 6f 3c 2f 70 ivide by zero</p
0750: 3e 7d 7d 0a 0a 23 23 23 23 23 23 23 23 23 23 23 >}}..###########
0760: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0770: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0780: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0790: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
07a0: 23 23 23 23 0a 0a 66 6f 73 73 69 6c 20 74 65 73 ####..fossil tes
07b0: 74 2d 74 68 2d 72 65 6e 64 65 72 20 5b 66 69 6c t-th-render [fil
07c0: 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5b 66 69 e nativename [fi
07d0: 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 74 68 31 le join $dir th1
07e0: 2d 74 63 6c 35 2e 74 78 74 5d 5d 0a 0a 74 65 73 -tcl5.txt]]..tes
07f0: 74 20 74 68 31 2d 74 63 6c 2d 35 20 7b 24 52 45 t th1-tcl-5 {$RE
0800: 53 55 4c 54 20 65 71 20 7b 3c 68 72 3e 3c 70 20 SULT eq {<hr><p
0810: 63 6c 61 73 73 3d 22 74 68 6d 61 69 6e 45 72 72 class="thmainErr
0820: 6f 72 22 3e 45 52 52 4f 52 3a 5c 0a 54 63 6c 20 or">ERROR:\.Tcl
0830: 63 6f 6d 6d 61 6e 64 20 6e 6f 74 20 66 6f 75 6e command not foun
0840: 64 3a 20 62 61 64 5f 63 6f 6d 6d 61 6e 64 3c 2f d: bad_command</
0850: 70 3e 7d 20 7c 7c 20 24 52 45 53 55 4c 54 20 65 p>} || $RESULT e
0860: 71 20 7b 3c 68 72 3e 3c 70 5c 0a 63 6c 61 73 73 q {<hr><p\.class
0870: 3d 22 74 68 6d 61 69 6e 45 72 72 6f 72 22 3e 45 ="thmainError">E
0880: 52 52 4f 52 3a 20 69 6e 76 61 6c 69 64 20 63 6f RROR: invalid co
0890: 6d 6d 61 6e 64 20 6e 61 6d 65 20 26 71 75 6f 74 mmand name "
08a0: 3b 62 61 64 5f 63 6f 6d 6d 61 6e 64 26 71 75 6f ;bad_command&quo
08b0: 74 3b 3c 2f 70 3e 7d 7d 0a 0a 23 23 23 23 23 23 t;</p>}}..######
08c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
08d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
08e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
08f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0900: 23 23 23 23 23 23 23 23 23 0a 0a 66 6f 73 73 69 #########..fossi
0910: 6c 20 74 65 73 74 2d 74 68 2d 72 65 6e 64 65 72 l test-th-render
0920: 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d [file nativenam
0930: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 e [file join $di
0940: 72 20 74 68 31 2d 74 63 6c 36 2e 74 78 74 5d 5d r th1-tcl6.txt]]
0950: 0a 0a 74 65 73 74 20 74 68 31 2d 74 63 6c 2d 36 ..test th1-tcl-6
0960: 20 7b 24 52 45 53 55 4c 54 20 65 71 20 7b 3c 68 {$RESULT eq {<h
0970: 72 3e 3c 70 20 63 6c 61 73 73 3d 22 74 68 6d 61 r><p class="thma
0980: 69 6e 45 72 72 6f 72 22 3e 45 52 52 4f 52 3a 5c inError">ERROR:\
0990: 0a 6e 6f 20 73 75 63 68 20 63 6f 6d 6d 61 6e 64 .no such command
09a0: 3a 20 20 62 61 64 5f 63 6f 6d 6d 61 6e 64 3c 2f : bad_command</
09b0: 70 3e 7d 7d 0a 0a 23 23 23 23 23 23 23 23 23 23 p>}}..##########
09c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
09d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
09e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
09f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0a00: 23 23 23 23 23 0a 0a 66 6f 73 73 69 6c 20 74 65 #####..fossil te
0a10: 73 74 2d 74 68 2d 72 65 6e 64 65 72 20 5b 66 69 st-th-render [fi
0a20: 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 5b 66 le nativename [f
0a30: 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 74 68 ile join $dir th
0a40: 31 2d 74 63 6c 37 2e 74 78 74 5d 5d 0a 0a 74 65 1-tcl7.txt]]..te
0a50: 73 74 20 74 68 31 2d 74 63 6c 2d 37 20 7b 24 52 st th1-tcl-7 {$R
0a60: 45 53 55 4c 54 20 65 71 20 7b 3c 68 72 3e 3c 70 ESULT eq {<hr><p
0a70: 20 63 6c 61 73 73 3d 22 74 68 6d 61 69 6e 45 72 class="thmainEr
0a80: 72 6f 72 22 3e 45 52 52 4f 52 3a 5c 0a 73 79 6e ror">ERROR:\.syn
0a90: 74 61 78 20 65 72 72 6f 72 20 69 6e 20 65 78 70 tax error in exp
0aa0: 72 65 73 73 69 6f 6e 3a 20 26 71 75 6f 74 3b 32 ression: "2
0ab0: 2a 2a 30 26 71 75 6f 74 3b 3c 2f 70 3e 7d 7d 0a **0"</p>}}.
0ac0: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 .###############
0ad0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0ae0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0af0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0b00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0b10: 0a 0a 66 6f 73 73 69 6c 20 74 65 73 74 2d 74 68 ..fossil test-th
0b20: 2d 72 65 6e 64 65 72 20 5b 66 69 6c 65 20 6e 61 -render [file na
0b30: 74 69 76 65 6e 61 6d 65 20 5b 66 69 6c 65 20 6a tivename [file j
0b40: 6f 69 6e 20 24 64 69 72 20 74 68 31 2d 74 63 6c oin $dir th1-tcl
0b50: 38 2e 74 78 74 5d 5d 0a 0a 74 65 73 74 20 74 68 8.txt]]..test th
0b60: 31 2d 74 63 6c 2d 38 20 7b 24 52 45 53 55 4c 54 1-tcl-8 {$RESULT
0b70: 20 65 71 20 7b 3c 68 72 3e 3c 70 20 63 6c 61 73 eq {<hr><p clas
0b80: 73 3d 22 74 68 6d 61 69 6e 45 72 72 6f 72 22 3e s="thmainError">
0b90: 45 52 52 4f 52 3a 5c 0a 43 61 6e 6e 6f 74 20 69 ERROR:\.Cannot i
0ba0: 6e 76 6f 6b 65 20 54 63 6c 20 63 6f 6d 6d 61 6e nvoke Tcl comman
0bb0: 64 3a 20 74 61 69 6c 63 61 6c 6c 3c 2f 70 3e 7d d: tailcall</p>}
0bc0: 20 7c 7c 20 24 52 45 53 55 4c 54 20 65 71 20 7b || $RESULT eq {
0bd0: 3c 68 72 3e 3c 70 5c 0a 63 6c 61 73 73 3d 22 74 <hr><p\.class="t
0be0: 68 6d 61 69 6e 45 72 72 6f 72 22 3e 45 52 52 4f hmainError">ERRO
0bf0: 52 3a 20 74 61 69 6c 63 61 6c 6c 20 63 61 6e 20 R: tailcall can
0c00: 6f 6e 6c 79 20 62 65 20 63 61 6c 6c 65 64 20 66 only be called f
0c10: 72 6f 6d 20 61 20 70 72 6f 63 20 6f 72 5c 0a 6c rom a proc or\.l
0c20: 61 6d 62 64 61 3c 2f 70 3e 7d 7d 0a 0a 23 23 23 ambda</p>}}..###
0c30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0c40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0c50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0c60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0c70: 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 66 6f ############..fo
0c80: 73 73 69 6c 20 74 65 73 74 2d 74 68 2d 72 65 6e ssil test-th-ren
0c90: 64 65 72 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 der [file native
0ca0: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 name [file join
0cb0: 24 64 69 72 20 74 68 31 2d 74 63 6c 39 2e 74 78 $dir th1-tcl9.tx
0cc0: 74 5d 5d 0a 0a 74 65 73 74 20 74 68 31 2d 74 63 t]]..test th1-tc
0cd0: 6c 2d 39 20 7b 5b 73 74 72 69 6e 67 20 74 72 69 l-9 {[string tri
0ce0: 6d 20 24 52 45 53 55 4c 54 5d 20 65 71 20 5b 6c m $RESULT] eq [l
0cf0: 69 73 74 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 ist [file tail $
0d00: 66 6f 73 73 69 6c 65 78 65 5d 20 32 20 5c 0a 5b fossilexe] 2 \.[
0d10: 6c 69 73 74 20 74 65 73 74 2d 74 68 2d 72 65 6e list test-th-ren
0d20: 64 65 72 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 der [file native
0d30: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 name [file join
0d40: 24 64 69 72 20 74 68 31 2d 74 63 6c 39 2e 74 78 $dir th1-tcl9.tx
0d50: 74 5d 5d 5d 5d 7d 0a t]]]]}.