TCL Short notes

Variables

In Tcl, simple variables are defined by a name and a value, with the value always stored as a string. These variables can hold various types of data, but they are treated as strings when manipulated.

Example:

Arrays in Tcl are collections of elements, where each element is a variable with its own name and value. Arrays are often referred to as associative arrays, as they can have arbitrary string names for both the array and its elements.

Example:

Tcl only supports one-dimensional arrays, but you can simulate multidimensional arrays by concatenating multiple indices into a single element name.

Example:

---

Types of operators in TCL:

Operators:

• Relational operators: (<, <=, >, >=, ==, !=) return either 0 (false) or 1 (true).
  Bitwise operators: (&, |, ^, <<, >>, ~) operate on integer values and manipulate bits.

Example:

This evaluates the minimum of $a and $b using the ternary operator (?:).

---

Substitutions

In Tcl, substitutions can occur in two ways for expression operands:

1. Normal Tcl parsing: Where variables and commands are substituted before the expression is evaluated.
2. Expression evaluator: This performs a second round of substitution as it evaluates the expression.

Example:

Example:

---

String Manipulation

Tcl allows string comparison with operators such as <, >, <=, >=, ==, and !=. When both operands are strings, Tcl compares them lexicographically. If either operand can’t be treated as a number, it defaults to string comparison.

Example:

In this case, Tcl compares x and y as numbers, resulting in 1 (true).

For strict string comparison, use the string compare command.

---

Types and Conversions

Tcl automatically converts between types when necessary, such as converting an integer to a real number or vice versa.

• Integer and Real Conversion: Conversions between integers and real numbers happen automatically.
• Non-Numeric Strings: When performing operations with non-numeric strings, Tcl treats them as strings and converts other operands to strings if needed.

Example:

To explicitly convert between types, use commands like double or int.

Example:

---

Precision

Tcl provides precision for both integer and real types:

• Integers (type int): 32-bit precision.
  Reals (type double): 64-bit precision.

When converting real numbers to strings, Tcl defaults to 6 significant digits. You can adjust the precision by setting the tcl_precision global variable.

Example:

set tcl_precision 17

This ensures 17 significant digits are maintained in floating-point string conversions.

---

List

A list is an ordered collection of elements, each separated by a space. Lists can be nested, allowing for complex data structures.

Tcl provides several commands for manipulating lists:

concat: Joins multiple lists into one.
join: Combines list elements into a single string using a specified separator.
lappend: Adds one or more elements to a list.
lindex: Returns the element at a specified index.
lrange: Extracts a sublist from a list.
lsort: Sorts a list.

Example:

set myList {apple banana cherry} lappend myList “date” puts $myList ; # Outputs: apple banana cherry date

---

Control Flow

Tcl provides several control flow structures:

if: Conditional branching.
while: Looping until a condition is met.
for: Standard for loop.
foreach: Iterates over a list.
switch: Matches a string against patterns.
eval: Executes dynamically created Tcl code.
Example:

set count 1 while {$count <= 5} { puts “Count: $count” incr count }

---

Procedures

A procedure in Tcl is a reusable block of code that can accept arguments and return a value.

Syntax:

Arguments

Tcl allows passing arguments to procedures. You can define default argument values and use variable-length arguments.

Example:

---

Call by Reference

The upvar  command allows procedures to modify variables outside their scope, either within the same procedure or across different levels of the call stack.

Example:

---

Creating New Control Structures

Tcl allows the creation of custom control structures using uplevel, which allows a script to be executed at a different stack level.

Example: