mirror of
https://github.com/RIOT-OS/RIOT.git
synced 2024-12-29 04:50:03 +01:00
14 lines
326 B
Tcl
Executable File
14 lines
326 B
Tcl
Executable File
#!/usr/bin/tclsh
|
|
foreach f [getSourceFileNames] {
|
|
puts "Tokens in file ${f}:"
|
|
foreach t [getTokens $f 1 0 -1 -1 {}] {
|
|
set value [lindex $t 0]
|
|
set line [lindex $t 1]
|
|
set column [lindex $t 2]
|
|
set name [lindex $t 3]
|
|
|
|
puts "${line}/${column}\t${name}\t${value}"
|
|
}
|
|
puts ""
|
|
}
|