Tornado

Tornado 2.0
User’s Guide
proc traverse head {
for {set pNode [gdbEvalScalar "$head"] }\
{$pNode} \
{set pNode [gdbEvalScalar "( (struct node *)$pNode)->next"]} \
{puts stdout $pNode}
}
In the body of the loop, the Tcl command puts prints the address of the node.
To type the procedure directly into the command panel would require prefacing
the text above with the tcl command, and would require additional backslashes
(one at the end of every line).
If pList is a variable of type (struct *node), you can execute:
(gdb) tcl traverse pList
The procedure displays the address of each node in the list. For a list with two
elements, the output would look something like the following:
0xffeb00
0xffea2c
It might be more useful to redefine the procedure body to print out the integer
member data, instead. For example, replace the last line with the following:
{puts stdout [format "data = %d" \
[gdbEvalScalar "((struct node *) $pNode)->data"]]}
You can bind a new GDB command to this Tcl procedure by using tclproc
(typically, in the same Tcl script file as the procedure definition):
tclproc traverse traverse
The traverse command can be abbreviated, like any GDB command. With these
definitions, you can type the following command:
(gdb) trav pList
The output now exhibits the contents of each node in the list:
data = 1
data = 2
272