Artifact
862f168c9a8a41587514d122163e86ac1287b0cee4084a6fb3dfa9cea73cf630:
0000: 23 0a 23 20 4e 61 6d 65 3a 09 09 4d 61 6b 65 20 #.# Name:..Make
0010: 54 65 73 74 20 46 69 6c 65 73 20 46 72 6f 6d 20 Test Files From
0020: 43 53 56 20 46 69 6c 65 73 0a 23 20 56 65 72 73 CSV Files.# Vers
0030: 69 6f 6e 3a 09 30 2e 33 0a 23 20 44 61 74 65 3a ion:.0.3.# Date:
0040: 09 09 4d 61 72 63 68 20 39 2c 20 32 30 32 34 0a ..March 9, 2024.
0050: 23 20 41 75 74 68 6f 72 3a 09 42 72 69 61 6e 20 # Author:.Brian
0060: 4f 27 48 61 67 61 6e 0a 23 20 45 6d 61 69 6c 3a O'Hagan.# Email:
0070: 09 62 72 69 61 6e 31 39 39 40 63 6f 6d 63 61 73 .brian199@comcas
0080: 74 2e 6e 65 74 0a 23 20 4c 65 67 61 6c 20 4e 6f t.net.# Legal No
0090: 74 69 63 65 3a 09 28 63 29 20 43 6f 70 79 72 69 tice:.(c) Copyri
00a0: 67 68 74 20 32 30 32 30 20 62 79 20 42 72 69 61 ght 2020 by Bria
00b0: 6e 20 4f 27 48 61 67 61 6e 0a 23 09 09 52 65 6c n O'Hagan.#..Rel
00c0: 65 61 73 65 64 20 75 6e 64 65 72 20 74 68 65 20 eased under the
00d0: 41 70 61 63 68 65 20 76 32 2e 30 20 6c 69 63 65 Apache v2.0 lice
00e0: 6e 73 65 2e 20 49 20 77 6f 75 6c 64 20 61 70 70 nse. I would app
00f0: 72 65 63 69 61 74 65 20 61 20 63 6f 70 79 20 6f reciate a copy o
0100: 66 20 61 6e 79 20 6d 6f 64 69 66 69 63 61 74 69 f any modificati
0110: 6f 6e 73 0a 23 09 09 6d 61 64 65 20 74 6f 20 74 ons.#..made to t
0120: 68 69 73 20 70 61 63 6b 61 67 65 20 66 6f 72 20 his package for
0130: 70 6f 73 73 69 62 6c 65 20 69 6e 63 6f 72 70 6f possible incorpo
0140: 72 61 74 69 6f 6e 20 69 6e 20 61 20 66 75 74 75 ration in a futu
0150: 72 65 20 72 65 6c 65 61 73 65 2e 0a 23 0a 0a 23 re release..#..#
0160: 0a 23 20 50 61 72 73 65 20 43 53 56 20 6c 69 6e .# Parse CSV lin
0170: 65 0a 23 0a 70 72 6f 63 20 70 61 72 73 65 5f 63 e.#.proc parse_c
0180: 73 76 20 7b 63 68 20 64 61 74 61 7d 20 7b 0a 20 sv {ch data} {.
0190: 20 20 20 73 65 74 20 62 75 66 66 65 72 20 22 22 set buffer ""
01a0: 0a 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 . set result
01b0: 5b 6c 69 73 74 5d 0a 20 20 20 20 73 65 74 20 73 [list]. set s
01c0: 74 61 72 74 20 30 0a 20 20 20 20 73 65 74 20 65 tart 0. set e
01d0: 6e 64 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 nd [string lengt
01e0: 68 20 24 64 61 74 61 5d 0a 0a 20 20 20 20 77 68 h $data].. wh
01f0: 69 6c 65 20 7b 24 73 74 61 72 74 20 3c 20 24 65 ile {$start < $e
0200: 6e 64 7d 20 7b 0a 09 69 66 20 7b 5b 73 74 72 69 nd} {..if {[stri
0210: 6e 67 20 69 6e 64 65 78 20 24 64 61 74 61 20 24 ng index $data $
0220: 73 74 61 72 74 5d 20 65 71 20 22 5c 22 22 7d 20 start] eq "\""}
0230: 7b 0a 09 20 20 20 20 23 20 51 75 6f 74 65 64 0a {.. # Quoted.
0240: 09 20 20 20 20 69 66 20 7b 5b 73 65 74 20 69 6e . if {[set in
0250: 64 65 78 20 5b 73 74 72 69 6e 67 20 66 69 72 73 dex [string firs
0260: 74 20 22 5c 22 22 20 24 64 61 74 61 20 5b 69 6e t "\"" $data [in
0270: 63 72 20 73 74 61 72 74 5d 5d 5d 20 3e 20 2d 31 cr start]]] > -1
0280: 7d 20 7b 0a 09 09 73 65 74 20 6e 65 78 74 20 5b } {...set next [
0290: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 64 61 string index $da
02a0: 74 61 20 5b 65 78 70 72 20 7b 24 69 6e 64 65 78 ta [expr {$index
02b0: 20 2b 20 31 7d 5d 5d 0a 09 09 69 66 20 7b 24 6e + 1}]]...if {$n
02c0: 65 78 74 20 65 71 20 22 5c 22 22 7d 20 7b 0a 09 ext eq "\""} {..
02d0: 09 20 20 20 20 23 20 51 75 6f 74 65 0a 09 09 20 . # Quote...
02e0: 20 20 20 61 70 70 65 6e 64 20 62 75 66 66 65 72 append buffer
02f0: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 [string range $
0300: 64 61 74 61 20 24 73 74 61 72 74 20 24 69 6e 64 data $start $ind
0310: 65 78 5d 0a 09 09 20 20 20 20 73 65 74 20 73 74 ex]... set st
0320: 61 72 74 20 5b 69 6e 63 72 20 69 6e 64 65 78 5d art [incr index]
0330: 0a 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 ....} else {...
0340: 20 20 20 23 20 45 6e 64 20 6f 66 20 71 75 6f 74 # End of quot
0350: 65 64 20 64 61 74 61 0a 09 09 20 20 20 20 61 70 ed data... ap
0360: 70 65 6e 64 20 62 75 66 66 65 72 20 5b 73 74 72 pend buffer [str
0370: 69 6e 67 20 72 61 6e 67 65 20 24 64 61 74 61 20 ing range $data
0380: 24 73 74 61 72 74 20 5b 69 6e 63 72 20 69 6e 64 $start [incr ind
0390: 65 78 20 2d 31 5d 5d 0a 09 09 20 20 20 20 73 65 ex -1]]... se
03a0: 74 20 73 74 61 72 74 20 5b 69 6e 63 72 20 69 6e t start [incr in
03b0: 64 65 78 20 33 5d 0a 09 09 20 20 20 20 6c 61 70 dex 3]... lap
03c0: 70 65 6e 64 20 72 65 73 75 6c 74 20 24 62 75 66 pend result $buf
03d0: 66 65 72 0a 09 09 20 20 20 20 73 65 74 20 62 75 fer... set bu
03e0: 66 66 65 72 20 22 22 0a 09 09 7d 0a 0a 09 20 20 ffer ""...}...
03f0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 23 20 4d } else {...# M
0400: 75 6c 74 69 2d 6c 69 6e 65 0a 09 09 61 70 70 65 ulti-line...appe
0410: 6e 64 20 62 75 66 66 65 72 20 5b 73 74 72 69 6e nd buffer [strin
0420: 67 20 72 61 6e 67 65 20 24 64 61 74 61 20 24 73 g range $data $s
0430: 74 61 72 74 20 65 6e 64 5d 20 22 5c 6e 22 0a 09 tart end] "\n"..
0440: 09 67 65 74 73 20 24 63 68 20 6e 65 77 0a 09 09 .gets $ch new...
0450: 73 65 74 20 64 61 74 61 20 22 5c 22 22 0a 09 09 set data "\""...
0460: 61 70 70 65 6e 64 20 64 61 74 61 20 24 6e 65 77 append data $new
0470: 0a 09 09 73 65 74 20 73 74 61 72 74 20 30 0a 09 ...set start 0..
0480: 09 73 65 74 20 65 6e 64 20 5b 73 74 72 69 6e 67 .set end [string
0490: 20 6c 65 6e 67 74 68 20 24 64 61 74 61 5d 0a 09 length $data]..
04a0: 20 20 20 20 7d 0a 0a 09 7d 20 65 6c 73 65 20 7b }...} else {
04b0: 0a 09 20 20 20 20 23 20 4e 6f 74 20 71 75 6f 74 .. # Not quot
04c0: 65 64 2c 20 73 6f 20 6e 6f 20 65 6d 62 65 64 64 ed, so no embedd
04d0: 65 64 20 4e 4c 2c 20 71 75 6f 74 65 73 2c 20 6f ed NL, quotes, o
04e0: 72 20 63 6f 6d 6d 61 73 0a 09 20 20 20 20 73 65 r commas.. se
04f0: 74 20 69 6e 64 65 78 20 5b 73 74 72 69 6e 67 20 t index [string
0500: 66 69 72 73 74 20 22 2c 22 20 24 64 61 74 61 20 first "," $data
0510: 24 73 74 61 72 74 5d 0a 09 20 20 20 20 69 66 20 $start].. if
0520: 7b 24 69 6e 64 65 78 20 3e 20 2d 31 7d 20 7b 0a {$index > -1} {.
0530: 09 09 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 ..lappend result
0540: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 [string range $
0550: 64 61 74 61 20 24 73 74 61 72 74 20 5b 69 6e 63 data $start [inc
0560: 72 20 69 6e 64 65 78 20 2d 31 5d 5d 0a 09 09 73 r index -1]]...s
0570: 65 74 20 73 74 61 72 74 20 5b 69 6e 63 72 20 69 et start [incr i
0580: 6e 64 65 78 20 32 5d 0a 09 20 20 20 20 7d 20 65 ndex 2].. } e
0590: 6c 73 65 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 lse {...lappend
05a0: 72 65 73 75 6c 74 20 5b 73 74 72 69 6e 67 20 72 result [string r
05b0: 61 6e 67 65 20 24 64 61 74 61 20 24 73 74 61 72 ange $data $star
05c0: 74 20 65 6e 64 5d 0a 09 09 73 65 74 20 73 74 61 t end]...set sta
05d0: 72 74 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 rt [string lengt
05e0: 68 20 24 64 61 74 61 5d 0a 09 20 20 20 20 7d 0a h $data].. }.
05f0: 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 .}. }. ret
0600: 75 72 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23 urn $result.}..#
0610: 0a 23 20 43 6f 6e 76 65 72 74 20 74 65 73 74 20 .# Convert test
0620: 63 61 73 65 20 66 69 6c 65 20 69 6e 74 6f 20 74 case file into t
0630: 65 73 74 20 66 69 6c 65 73 0a 23 0a 70 72 6f 63 est files.#.proc
0640: 20 70 72 6f 63 65 73 73 5f 63 6f 6e 66 69 67 5f process_config_
0650: 66 69 6c 65 20 7b 66 69 6c 65 6e 61 6d 65 7d 20 file {filename}
0660: 7b 0a 20 20 20 20 73 65 74 20 70 72 65 76 20 22 {. set prev "
0670: 22 0a 20 20 20 20 73 65 74 20 74 65 73 74 20 30 ". set test 0
0680: 0a 0a 20 20 20 20 23 20 4f 70 65 6e 20 66 69 6c .. # Open fil
0690: 65 20 77 69 74 68 20 74 65 73 74 20 63 61 73 65 e with test case
06a0: 20 69 6e 64 6f 0a 20 20 20 20 73 65 74 20 69 6e indo. set in
06b0: 20 5b 6f 70 65 6e 20 24 66 69 6c 65 6e 61 6d 65 [open $filename
06c0: 20 72 5d 0a 20 20 20 20 61 72 72 61 79 20 73 65 r]. array se
06d0: 74 20 63 61 73 65 73 20 5b 6c 69 73 74 5d 0a 0a t cases [list]..
06e0: 20 20 20 20 23 20 4f 70 65 6e 20 6f 75 74 70 75 # Open outpu
06f0: 74 20 74 65 73 74 20 66 69 6c 65 0a 20 20 20 20 t test file.
0700: 73 65 74 20 6f 75 74 20 5b 6f 70 65 6e 20 5b 66 set out [open [f
0710: 6f 72 6d 61 74 20 25 73 2e 74 65 73 74 20 5b 66 ormat %s.test [f
0720: 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 ile rootname $fi
0730: 6c 65 6e 61 6d 65 5d 5d 20 77 5d 0a 20 20 20 20 lename]] w].
0740: 61 72 72 61 79 20 73 65 74 20 63 61 73 65 73 20 array set cases
0750: 5b 6c 69 73 74 5d 0a 0a 20 20 20 20 23 20 41 64 [list].. # Ad
0760: 64 20 73 65 74 75 70 20 63 6f 6d 6d 61 6e 64 73 d setup commands
0770: 20 74 6f 20 74 65 73 74 20 66 69 6c 65 0a 20 20 to test file.
0780: 20 20 70 75 74 73 20 24 6f 75 74 20 5b 66 6f 72 puts $out [for
0790: 6d 61 74 20 22 23 20 41 75 74 6f 20 67 65 6e 65 mat "# Auto gene
07a0: 72 61 74 65 64 20 74 65 73 74 20 63 61 73 65 73 rated test cases
07b0: 20 66 6f 72 20 25 73 22 20 5b 66 69 6c 65 20 74 for %s" [file t
07c0: 61 69 6c 20 24 66 69 6c 65 6e 61 6d 65 5d 5d 0a ail $filename]].
07d0: 20 20 20 20 23 70 75 74 73 20 24 6f 75 74 20 5b #puts $out [
07e0: 66 6f 72 6d 61 74 20 22 23 20 41 75 74 6f 20 67 format "# Auto g
07f0: 65 6e 65 72 61 74 65 64 20 74 65 73 74 20 63 61 enerated test ca
0800: 73 65 73 20 66 6f 72 20 25 73 20 63 72 65 61 74 ses for %s creat
0810: 65 64 20 6f 6e 20 25 73 22 20 5b 66 69 6c 65 20 ed on %s" [file
0820: 74 61 69 6c 20 24 66 69 6c 65 6e 61 6d 65 5d 20 tail $filename]
0830: 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 5b 63 [clock format [c
0840: 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 5d 5d 0a lock seconds]]].
0850: 0a 20 20 20 20 23 20 50 61 63 6b 61 67 65 20 72 . # Package r
0860: 65 71 75 69 72 65 73 0a 20 20 20 20 70 75 74 73 equires. puts
0870: 20 24 6f 75 74 20 22 5c 6e 23 20 4c 6f 61 64 20 $out "\n# Load
0880: 54 63 6c 20 54 65 73 74 20 70 61 63 6b 61 67 65 Tcl Test package
0890: 22 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 ". puts $out
08a0: 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e [subst -nocomman
08b0: 64 73 20 7b 69 66 20 7b 5b 6c 73 65 61 72 63 68 ds {if {[lsearch
08c0: 20 5b 6e 61 6d 65 73 70 61 63 65 20 63 68 69 6c [namespace chil
08d0: 64 72 65 6e 5d 20 3a 3a 74 63 6c 74 65 73 74 5d dren] ::tcltest]
08e0: 20 3d 3d 20 2d 31 7d 20 7b 5c 6e 5c 74 70 61 63 == -1} {\n\tpac
08f0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 63 6c kage require tcl
0900: 74 65 73 74 5c 6e 5c 74 6e 61 6d 65 73 70 61 63 test\n\tnamespac
0910: 65 20 69 6d 70 6f 72 74 20 3a 3a 74 63 6c 74 65 e import ::tclte
0920: 73 74 3a 3a 2a 5c 6e 7d 5c 6e 7d 5d 0a 20 20 20 st::*\n}\n}].
0930: 20 70 75 74 73 20 24 6f 75 74 20 7b 73 65 74 20 puts $out {set
0940: 61 75 74 6f 5f 70 61 74 68 20 5b 63 6f 6e 63 61 auto_path [conca
0950: 74 20 5b 6c 69 73 74 20 5b 66 69 6c 65 20 64 69 t [list [file di
0960: 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e rname [file dirn
0970: 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 ame [info script
0980: 5d 5d 5d 5d 20 24 61 75 74 6f 5f 70 61 74 68 5d ]]]] $auto_path]
0990: 7d 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 }. puts $out
09a0: 22 22 0a 0a 20 20 20 20 23 20 47 65 6e 65 72 61 "".. # Genera
09b0: 74 65 20 74 65 73 74 20 63 61 73 65 73 20 61 6e te test cases an
09c0: 64 20 61 64 64 20 74 6f 20 74 65 73 74 20 66 69 d add to test fi
09d0: 6c 65 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 67 le. while {[g
09e0: 65 74 73 20 24 69 6e 20 64 61 74 61 5d 20 3e 20 ets $in data] >
09f0: 2d 31 7d 20 7b 0a 09 23 20 53 6b 69 70 20 63 6f -1} {..# Skip co
0a00: 6d 6d 65 6e 74 73 0a 09 73 65 74 20 64 61 74 61 mments..set data
0a10: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 64 [string trim $d
0a20: 61 74 61 5d 0a 09 69 66 20 7b 5b 73 74 72 69 6e ata]..if {[strin
0a30: 67 20 6d 61 74 63 68 20 22 23 2a 22 20 24 64 61 g match "#*" $da
0a40: 74 61 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 23 ta]} continue..#
0a50: 20 53 70 6c 69 74 20 63 6f 6d 6d 61 20 73 65 70 Split comma sep
0a60: 61 72 61 74 65 64 20 66 69 65 6c 64 73 20 77 69 arated fields wi
0a70: 74 68 20 71 75 6f 74 65 73 0a 09 73 65 74 20 6c th quotes..set l
0a80: 69 73 74 20 5b 70 61 72 73 65 5f 63 73 76 20 24 ist [parse_csv $
0a90: 69 6e 20 24 64 61 74 61 5d 0a 0a 09 23 20 47 65 in $data]...# Ge
0aa0: 74 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 74 65 73 t command or tes
0ab0: 74 20 63 61 73 65 0a 09 66 6f 72 65 61 63 68 20 t case..foreach
0ac0: 7b 67 72 6f 75 70 20 6e 61 6d 65 20 63 6f 6e 73 {group name cons
0ad0: 74 72 61 69 6e 74 73 20 73 65 74 75 70 20 62 6f traints setup bo
0ae0: 64 79 20 63 6c 65 61 6e 75 70 20 6d 61 74 63 68 dy cleanup match
0af0: 20 72 65 73 75 6c 74 20 6f 75 74 70 75 74 20 65 result output e
0b00: 72 72 6f 72 4f 75 74 70 75 74 20 72 65 74 75 72 rrorOutput retur
0b10: 6e 43 6f 64 65 73 7d 20 24 6c 69 73 74 20 7b 0a nCodes} $list {.
0b20: 09 20 20 20 20 69 66 20 7b 24 67 72 6f 75 70 20 . if {$group
0b30: 65 71 20 22 63 6f 6d 6d 61 6e 64 22 7d 20 7b 0a eq "command"} {.
0b40: 09 09 70 75 74 73 20 24 6f 75 74 20 24 6e 61 6d ..puts $out $nam
0b50: 65 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 69 66 e... } elseif
0b60: 20 7b 24 67 72 6f 75 70 20 6e 65 20 22 22 20 26 {$group ne "" &
0b70: 26 20 24 62 6f 64 79 20 6e 65 20 22 22 7d 20 7b & $body ne ""} {
0b80: 0a 09 09 73 65 74 20 67 72 6f 75 70 20 5b 73 74 ...set group [st
0b90: 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 22 ring map [list "
0ba0: 20 22 20 22 5f 22 5d 20 24 67 72 6f 75 70 5d 0a " "_"] $group].
0bb0: 09 09 69 66 20 7b 24 67 72 6f 75 70 20 6e 65 20 ..if {$group ne
0bc0: 24 70 72 65 76 7d 20 7b 0a 09 09 20 20 20 20 69 $prev} {... i
0bd0: 6e 63 72 20 74 65 73 74 0a 09 09 20 20 20 20 73 ncr test... s
0be0: 65 74 20 70 72 65 76 20 24 67 72 6f 75 70 0a 09 et prev $group..
0bf0: 09 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 22 . puts $out "
0c00: 22 0a 09 09 7d 0a 0a 09 09 23 20 54 65 73 74 20 "...}....# Test
0c10: 63 61 73 65 0a 09 09 69 66 20 7b 5b 73 74 72 69 case...if {[stri
0c20: 6e 67 20 69 6e 64 65 78 20 24 6e 61 6d 65 20 30 ng index $name 0
0c30: 5d 20 6e 65 20 7b 24 7d 7d 20 7b 0a 09 09 20 20 ] ne {$}} {...
0c40: 20 20 73 65 74 20 62 75 66 66 65 72 20 5b 66 6f set buffer [fo
0c50: 72 6d 61 74 20 22 5c 6e 74 65 73 74 20 25 73 2d rmat "\ntest %s-
0c60: 25 64 2e 25 64 20 7b 25 73 7d 22 20 24 67 72 6f %d.%d {%s}" $gro
0c70: 75 70 20 24 74 65 73 74 20 5b 69 6e 63 72 20 63 up $test [incr c
0c80: 61 73 65 73 28 24 67 72 6f 75 70 29 5d 20 24 6e ases($group)] $n
0c90: 61 6d 65 5d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a ame]...} else {.
0ca0: 09 09 20 20 20 20 73 65 74 20 62 75 66 66 65 72 .. set buffer
0cb0: 20 5b 66 6f 72 6d 61 74 20 22 5c 6e 74 65 73 74 [format "\ntest
0cc0: 20 25 73 2d 25 64 2e 25 64 20 25 73 22 20 24 67 %s-%d.%d %s" $g
0cd0: 72 6f 75 70 20 24 74 65 73 74 20 5b 69 6e 63 72 roup $test [incr
0ce0: 20 63 61 73 65 73 28 24 67 72 6f 75 70 29 5d 20 cases($group)]
0cf0: 24 6e 61 6d 65 5d 0a 09 09 7d 0a 0a 09 09 66 6f $name]...}....fo
0d00: 72 65 61 63 68 20 6f 70 74 20 5b 6c 69 73 74 20 reach opt [list
0d10: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 2d 73 65 -constraints -se
0d20: 74 75 70 20 2d 62 6f 64 79 20 2d 63 6c 65 61 6e tup -body -clean
0d30: 75 70 20 2d 6d 61 74 63 68 20 2d 72 65 73 75 6c up -match -resul
0d40: 74 20 2d 6f 75 74 70 75 74 20 2d 65 72 72 6f 72 t -output -error
0d50: 4f 75 74 70 75 74 20 2d 72 65 74 75 72 6e 43 6f Output -returnCo
0d60: 64 65 73 5d 20 7b 0a 09 09 20 20 20 20 73 65 74 des] {... set
0d70: 20 63 6d 64 20 5b 73 74 72 69 6e 67 20 74 72 69 cmd [string tri
0d80: 6d 20 5b 73 65 74 20 5b 73 74 72 69 6e 67 20 74 m [set [string t
0d90: 72 69 6d 6c 65 66 74 20 24 6f 70 74 20 22 2d 22 rimleft $opt "-"
0da0: 5d 5d 5d 0a 09 09 20 20 20 20 69 66 20 7b 24 63 ]]]... if {$c
0db0: 6d 64 20 6e 65 20 22 22 7d 20 7b 0a 09 09 09 69 md ne ""} {....i
0dc0: 66 20 7b 24 6f 70 74 20 69 6e 20 5b 6c 69 73 74 f {$opt in [list
0dd0: 20 2d 73 65 74 75 70 20 2d 62 6f 64 79 20 2d 63 -setup -body -c
0de0: 6c 65 61 6e 75 70 5d 7d 20 7b 0a 09 09 09 20 20 leanup]} {....
0df0: 20 20 61 70 70 65 6e 64 20 62 75 66 66 65 72 20 append buffer
0e00: 22 20 22 20 24 6f 70 74 20 22 20 5c 7b 5c 6e 22 " " $opt " \{\n"
0e10: 0a 09 09 09 20 20 20 20 66 6f 72 65 61 63 68 20 .... foreach
0e20: 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 63 6d 64 line [split $cmd
0e30: 20 22 3b 22 5d 20 7b 0a 09 09 09 09 61 70 70 65 ";"] {.....appe
0e40: 6e 64 20 62 75 66 66 65 72 20 5c 74 20 5b 73 74 nd buffer \t [st
0e50: 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d ring trim $line]
0e60: 20 5c 6e 0a 09 09 09 20 20 20 20 7d 0a 09 09 09 \n.... }....
0e70: 20 20 20 20 61 70 70 65 6e 64 20 62 75 66 66 65 append buffe
0e80: 72 20 22 20 20 20 20 5c 7d 22 0a 09 09 09 7d 20 r " \}"....}
0e90: 65 6c 73 65 69 66 20 7b 24 6f 70 74 20 69 6e 20 elseif {$opt in
0ea0: 5b 6c 69 73 74 20 2d 6f 75 74 70 75 74 20 2d 65 [list -output -e
0eb0: 72 72 6f 72 4f 75 74 70 75 74 5d 7d 20 7b 0a 09 rrorOutput]} {..
0ec0: 09 09 20 20 20 20 61 70 70 65 6e 64 20 62 75 66 .. append buf
0ed0: 66 65 72 20 22 20 22 20 24 6f 70 74 20 22 20 7b fer " " $opt " {
0ee0: 22 20 24 63 6d 64 20 5c 6e 20 22 7d 22 0a 09 09 " $cmd \n "}"...
0ef0: 09 7d 20 65 6c 73 65 69 66 20 7b 24 6f 70 74 20 .} elseif {$opt
0f00: 69 6e 20 5b 6c 69 73 74 20 2d 72 65 73 75 6c 74 in [list -result
0f10: 5d 7d 20 7b 0a 09 09 09 20 20 20 20 69 66 20 7b ]} {.... if {
0f20: 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 63 [string index $c
0f30: 6d 64 20 30 5d 20 69 6e 20 5b 6c 69 73 74 20 5c md 0] in [list \
0f40: 5b 20 5c 22 20 5c 7b 20 5c 24 5d 7d 20 7b 0a 09 [ \" \{ \$]} {..
0f50: 09 09 09 61 70 70 65 6e 64 20 62 75 66 66 65 72 ...append buffer
0f60: 20 22 20 22 20 24 6f 70 74 20 22 20 22 20 24 63 " " $opt " " $c
0f70: 6d 64 0a 09 09 09 20 20 20 20 7d 20 65 6c 73 65 md.... } else
0f80: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 if {[string matc
0f90: 68 20 7b 2a 5b 5c 5c 24 5d 2a 7d 20 24 63 6d 64 h {*[\\$]*} $cmd
0fa0: 5d 7d 20 7b 0a 09 09 09 09 61 70 70 65 6e 64 20 ]} {.....append
0fb0: 62 75 66 66 65 72 20 22 20 22 20 24 6f 70 74 20 buffer " " $opt
0fc0: 22 20 5c 22 22 20 5b 73 74 72 69 6e 67 20 6d 61 " \"" [string ma
0fd0: 70 20 5b 6c 69 73 74 20 5c 5c 5c 5c 5c 22 20 5c p [list \\\\\" \
0fe0: 5c 5c 22 5d 20 5b 73 74 72 69 6e 67 20 6d 61 70 \\"] [string map
0ff0: 20 5b 6c 69 73 74 20 5c 22 20 5c 5c 5c 22 20 5d [list \" \\\" ]
1000: 20 24 63 6d 64 5d 5d 20 22 5c 22 22 0a 09 09 09 $cmd]] "\""....
1010: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 09 } else {....
1020: 09 61 70 70 65 6e 64 20 62 75 66 66 65 72 20 22 .append buffer "
1030: 20 22 20 24 6f 70 74 20 22 20 7b 22 20 24 63 6d " $opt " {" $cm
1040: 64 20 22 7d 22 0a 09 09 09 20 20 20 20 7d 0a 09 d "}".... }..
1050: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 20 20 ..} else {....
1060: 20 20 61 70 70 65 6e 64 20 62 75 66 66 65 72 20 append buffer
1070: 22 20 22 20 24 6f 70 74 20 22 20 7b 22 20 24 63 " " $opt " {" $c
1080: 6d 64 20 22 7d 22 0a 09 09 09 7d 0a 09 09 20 20 md "}"....}...
1090: 20 20 7d 0a 09 09 7d 0a 09 09 70 75 74 73 20 24 }...}...puts $
10a0: 6f 75 74 20 24 62 75 66 66 65 72 0a 0a 09 20 20 out $buffer...
10b0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 23 20 45 } else {...# E
10c0: 6d 70 74 79 20 6c 69 6e 65 0a 09 09 70 75 74 73 mpty line...puts
10d0: 20 24 6f 75 74 20 22 22 0a 09 20 20 20 20 7d 0a $out "".. }.
10e0: 09 20 20 20 20 62 72 65 61 6b 0a 09 7d 0a 20 20 . break..}.
10f0: 20 20 7d 0a 0a 20 20 20 20 23 20 4f 75 74 70 75 }.. # Outpu
1100: 74 20 63 6c 65 61 6e 2d 75 70 20 63 6f 6d 6d 61 t clean-up comma
1110: 6e 64 73 0a 20 20 20 20 70 75 74 73 20 24 6f 75 nds. puts $ou
1120: 74 20 22 5c 6e 23 20 43 6c 65 61 6e 75 70 5c 6e t "\n# Cleanup\n
1130: 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e ::tcltest::clean
1140: 75 70 54 65 73 74 73 5c 6e 72 65 74 75 72 6e 22 upTests\nreturn"
1150: 0a 20 20 20 20 63 6c 6f 73 65 20 24 6f 75 74 0a . close $out.
1160: 20 20 20 20 63 6c 6f 73 65 20 24 69 6e 0a 7d 0a close $in.}.
1170: 0a 23 0a 23 20 43 61 6c 6c 20 73 63 72 69 70 74 .#.# Call script
1180: 0a 23 0a 66 6f 72 65 61 63 68 20 66 69 6c 65 20 .#.foreach file
1190: 5b 67 6c 6f 62 20 2a 2e 63 73 76 5d 20 7b 0a 70 [glob *.csv] {.p
11a0: 75 74 73 20 24 66 69 6c 65 0a 20 20 20 20 70 72 uts $file. pr
11b0: 6f 63 65 73 73 5f 63 6f 6e 66 69 67 5f 66 69 6c ocess_config_fil
11c0: 65 20 24 66 69 6c 65 0a 7d 0a 65 78 69 74 0a e $file.}.exit.