Check-in [7edb5d1dd6]
Overview
Comment:Ticket [cc1af09637]: Add additional subcommands to error message
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:7edb5d1dd6551ebe25207bc857dc6db3712bd2f0
User & Date: rkeene on 2016-03-28 14:57:45
Other Links: manifest | tags
Context
2016-03-30
03:20
Better sanitization of "AR" and "CC" when trying to figure out the cross-prefix check-in: 5dde744f4b user: rkeene tags: trunk
2016-03-28
14:57
Ticket [cc1af09637]: Add additional subcommands to error message check-in: 7edb5d1dd6 user: rkeene tags: trunk
14:53
tcc4tcl 0.26 check-in: 722e4d134f user: rkeene tags: trunk, 0.26
Changes

Modified tcc4tcl.tcl from [f1fd06e875] to [200fc77793].

44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
				set cmd "go"
				set args [list 1 {*}$args]
			}

			set callcmd ::tcc4tcl::_$cmd

			if {[info command $callcmd] == ""} {
				return -code error "unknown or ambiguous subcommand \"$cmd\": must be cproc, linktclcommand, code, tk, or go"
			}

			uplevel 1 [list $callcmd $handle {*}$args]
		}]

		return $handle
	}







|







44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
				set cmd "go"
				set args [list 1 {*}$args]
			}

			set callcmd ::tcc4tcl::_$cmd

			if {[info command $callcmd] == ""} {
				return -code error "unknown or ambiguous subcommand \"$cmd\": must be cwrap, ccode, cproc, delete, linktclcommand, code, tk, add_include_path, add_library_path, add_library, or go"
			}

			uplevel 1 [list $callcmd $handle {*}$args]
		}]

		return $handle
	}