##// END OF EJS Templates
Updates test files with new AMDA file header...
Updates test files with new AMDA file header Old files are moved to an archive folder

File last commit:

r2:451739a45362
r775:21f27f9e6cd9
Show More
DUMP.tcl
13 lines | 326 B | application/x-tcl | TclLexer
#!/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 ""
}