TIP #182 Version 1.5: Add [expr bool] Math Function

This is not necessarily the current version of this TIP.

Abstract

This TIP proposes a new function bool() for use with the [expr] command.

Rationale

This TIP proposes a new function, bool(), that does casting to boolean much as int(), double() and wide() cast to their respective types. This is firstly for reasons of symmetry between the types, secondly because it allows for clearer expression of what is happening than the alternative (based on the conditional operator), and thirdly because it may also allow for conversion of values that are not strictly boolean under any interpretation, and so make certain kinds of user interface more robust. For example:

# See if they want to enable an option...
puts stdout "Do you want to enable option X?"
# Read their response.
gets stdin response
# Convert "yes/no", "true/false", "on/off" to 1/0.
set Options(X) [expr {bool($response)}]

# ... Write the options to a file ...
set configFile [open "config.file" "w"]
puts $configFile "array set \{[array get Options]\}"
close $configFile

Proposed Change

A new math function named bool would be added to the list of functions supported by the [expr] command.

expr bool( value )

This would return "1" for any value of value that is non-zero (plus all non-numeric strings accepted as true by Tcl_GetBoolean()) and "0" otherwise. If the value cannot be converted to a boolean, an error is raised.

Reference Implementation

A reference implementation does not yet exist. Internally, the function should use something semantically equivalent to using Tcl_GetBoolean().

Copyright

This document has been placed in the public domain.

This is not necessarily the current version of this TIP.