nat-418

# Replace whitespace characters with their escape codes
#
# @param str String containing some whitespace
# @return New string with escapes instead of whitespace
proc space2escape str {
    set escapes {
        \b \\b
        \f \\f
        \n \\n
        \r \\r

nat-418

# This is an example of using Tcl's uplevel to create new control structures,
# and can be found on page 59 of "Exploring Expect" by Don Libes.
# Like variables declared global, variables declared static are
# accessible from other procedures. However, the same static variable
# cannot be accessed by procedures in different files.
#
# @param args The aguments to static are the same as global.
# @return Void, the side effect is manipulating the static state array.
proc static {args} {
    set unique [info script]

nat-418

How to make Tcl packages and modules

Tcl provides a package system that allows Tclers to share code. This package system supports two different formats that serve different use-cases:

1. The "package" or "8.5" format is more verbose, but allows package authors more flexibility through the pkgIndex.tcl file. This is designed for complex, multi-file programs.

nat-418

How to make Tcl Starpacks

Tcl scripts can be made into standalone executables for various platforms in what are called Starpacks. Statically linking Tcl libraries in a Starpack helps make Tcl programs more portable.

Building a Starpack requires:

1. The sdx tool.
2. A TclKit runtime for your operating system and architecture.