1
2
3
4
set tool_path tools/run_sim/release/2.0
regexp {([tools]+/)([^/]+)} $tool_path p q
puts $p
puts $q

1
2
3
4
set tool_path tools/run_sim/release/2.0
regexp {([^/]+/)([^/]+)} $tool_path p q
puts $p
puts $q

1
2
3
4
set tool_path tools/run_sim/release/2.0
regexp {([^/]+)/([^/]+)/} $tool_path p q
puts $p
puts $q

1
2
3
4
set tool_path tools/run_sim/release/2.0
regexp {([^/]+)/([^/]+)} $tool_path p q
puts $p
puts $q

1
2
3
4
set tool_path tools/run_sim/release/2.0
regexp {([^/]+)/([^/]+)} $tool_path p q
puts $p
puts q

1
2
3
set tool_path tools/run_sim/release/2.0
regexp {([^/]+)/([^/]+)} $tool_path p 
puts $p

1
2
3
set tool_path tools/run_sim/release/2.0
regexp {[(^/)+]/[(^/)+]/*} $tool_path p 
puts $p

1
2
3
set tool_path tools/run_sim/release/2.0
regexp {[(^/)+]/[(^/)+]} $tool_path p 
puts $p

1
2
3
set tool_path tools/run_sim/release/2.0
regexp {[(^/)+]/} $tool_path p 
puts $p

1
2
3
set tool_path tools/run_sim/release/2.0
regexp {[(^/)+]} $tool_path p 
puts $p

1
2
3
set tool_path tools/run_sim/release/2.0
regexp {[(^/)+]/[(^/)+]} $tool_path p 
puts $p

1
2
3
4
set tool_path tools/run_sim/release/2.0
regexp {[(^/)+]/[(^/)+]} $tool_path p q
puts $p
puts $q

1
2
3
4
set tool_path tools/run_sim/release/2.0
regexp {[(^/)+]/[(^/)+/]} $tool_path p q
puts $p
puts $q

1
2
3
4
5
6
7
8
9
 set I2C_READ_DATA "read_data_array"
set myargs [list "11" "22" "33"]
for { set i 1 } { $i < 3 } { incr i } {       
        set byte_addr "$I2C_READ_DATA\($i\)"
        #set readbuffer "[exa $byte_addr]"
        puts "readbuffer  = $readbuffer"
        set val [format %02s [string trimleft [string toupper [convert2hex $readbuffer] ] 0X] ]
        puts "Data read from I2C: $val"
  
 ...

1
2
3
4
5
6
7
8
9
set I2C_READ_DATA "read_data_array"
set myargs [list "11" "22" "33"]
for { set i 1 }{ $i < 3 }{ incr i } {       
        set byte_addr "$I2C_READ_DATA\($i\)"
        #set readbuffer "[exa $byte_addr]"
        puts "readbuffer  = $readbuffer"
        set val [format %02s [string trimleft [string toupper [convert2hex $readbuffer] ] 0X] ]
        puts "Data read from I2C: $val"
  
 ...

1
2
3
4
5
6
7
8
9
set I2C_READ_DATA "read_data_array"
set myargs [list "11" "22" "33"]
for { set i 1 }{ $i < [ llength $myargs] }{ incr i } {       
        set byte_addr "$I2C_READ_DATA\($i\)"
        #set readbuffer "[exa $byte_addr]"
        puts "readbuffer  = $readbuffer"
        set val [format %02s [string trimleft [string toupper [convert2hex $readbuffer] ] 0X] ]
        puts "Data read from I2C: $val"
  
 ...

1
2
3
4
5
6
7
8
9
set I2C_READ_DATA "read_data_array"
set myargs [list "11" "22" "33"]
for { set i 1 }{ $i<[ llength $myargs] }{ incr i } {       
        set byte_addr "$I2C_READ_DATA\($i\)"
        #set readbuffer "[exa $byte_addr]"
        puts "readbuffer  = $readbuffer"
        set val [format %02s [string trimleft [string toupper [convert2hex $readbuffer] ] 0X] ]
        puts "Data read from I2C: $val"
  
 ...

1
2
3
4
5
6
7
8
9
set I2C_READ_DATA "read_data_array"
 
for { set i 1 }{ $i<[ llength $myargs] }{ incr i } {       
        set byte_addr "$I2C_READ_DATA\($i\)"
        #set readbuffer "[exa $byte_addr]"
        puts "readbuffer  = $readbuffer"
        set val [format %02s [string trimleft [string toupper [convert2hex $readbuffer] ] 0X] ]
        puts "Data read from I2C: $val"
  
 ...

1
puts "Shah Fahad"

1
2
3
4
proc test {args} {
        puts $args }
test "Hello" "World"
test "Hi" "There" "World!"

1
2
3
4
proc test {{x "Hello"} {y "World"}} {
        puts "$x $y" }
test
test "Hi" "There"

1
2
3
4
5
proc test {{x "Hello"} {y "World"}} {
        puts "$x $y"
        }
test {}
test {"Hi" "There"}

1
2
3
4
5
6
7
8
9
set x "test"
switch $x {
        "test" {
                puts "test"
                } 
        default {
                puts "error"
                }
        }

1
ceil(0.1)

1
2
3
4
5
6
7
8
9
set x [split "Hello there Bob!"]
set i 0
foreach y $x {
        puts "$y \n"
        incr i
}
puts $i 
puts [lindex $x 1]
puts [llength $x]

1
2
3
4
5
6
7
set x [split "Hello there Bob!"]
set i 0
foreach y $x {
        puts "$y \n"
        incr i
}
puts $i

1
2
3
4
5
6
7
set x [split "Hello there Kristi!"]
set i 0
foreach y $x {
        puts "$y \n"
        incr i
}
puts i

1
2
set list [list "Hello" "there" "Kristi!"]
puts "This is a list $list"

1
2
3
for {set x 0} {$x <10} {incr x} {
puts "x is $x"
}

1
2
3
4
5
set x 0
while {$x <10} {
        puts $x
        set x [expr {$x + 1}]
}