Check-in [d1e531296b]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:d1e531296bc6ddaec5f4aa5bfc87479be81f54b6
User & Date: kbk 2014-08-03 01:58:21
Context
2014-08-03
23:19
Substantial code and commentary cleanup in datalog.tcl check-in: c9faa932a7 user: kbk tags: trunk
01:58
Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing. check-in: d1e531296b user: kbk tags: trunk
01:41
Add more FDDD tests, clean up whitespace in tests, and fix bugs exposed in testing. check-in: c30d48a484 user: kbk tags: trunk
Changes

Changes to library/tclfddd.tcl.

501
502
503
504
505
506
507
508
509

510



511
512
513
514
515
516
517
		}

		# Evaluate the script and handle the status returns
		try {
		    uplevel 1 $script
		} on error {message options} {
		    dict incr options -level 1
		    dict for {key value} $options { puts "$key = $value" }
		    regsub \

			{\("uplevel" body line (\d*?)\).*?\("try" body line 2\)} \



			[dict get $options -errorinfo] \
			{("enumerate" body line \1)} \
			ei
		    dict set options -errorinfo $ei
		    return -options $options $message
		} on return {retval options} {
		    dict incr options -level 1







<
|
>
|
>
>
>







501
502
503
504
505
506
507

508
509
510
511
512
513
514
515
516
517
518
519
520
		}

		# Evaluate the script and handle the status returns
		try {
		    uplevel 1 $script
		} on error {message options} {
		    dict incr options -level 1

		    regsub -expanded {
			\(" uplevel" \s body \s line \s (\d+) \) \n
			\s* invoked \s from \s within \n
			"uplevel \s 1 \s \$script" \n
			\s* \( "try" \s body \s line \s 2 \) \s*
			$} \
			[dict get $options -errorinfo] \
			{("enumerate" body line \1)} \
			ei
		    dict set options -errorinfo $ei
		    return -options $options $message
		} on return {retval options} {
		    dict incr options -level 1