tcl if condition not working 1

[sriks316]

What is wrong with my following code. It wont execute.

$pre_event_date =0;
set halBirthMovie "Jan 12, 1992"

if{$pre_event_date == 0} {
set halBirthMovie [clock format [clock scan $halBirthMovie] -format {%d %b}]
set pre_event_date [clock format [clock scan $pre_event_date] -format {%d %b}]
if{$pre_event_date != $halBirthMovie}{
puts "Not Equal"
}
else{
puts "Equal"
}

}
else{
puts "Nothing"
}

 

[mikrom]

Wrong is how you format the if-else command.
See:

http://wiki.tcl.tk/1042

http://philip.greenspun.com/tcl/control-structure.adp

Your code will work if properly formatted:

[COLOR=#804040][b]set[/b][/color] pre_event_date [COLOR=#ff00ff]0[/color]
[COLOR=#804040][b]set[/b][/color] halBirthMovie [COLOR=#ff00ff]"Apr 16, 1992"[/color]

[COLOR=#804040][b]if[/b][/color] {[COLOR=#008080]$pre_event_date[/color] == [COLOR=#ff00ff]0[/color]} {
  [COLOR=#804040][b]set[/b][/color] halBirthMovie [[COLOR=#804040][b]clock[/b][/color] [COLOR=#804040][b]format[/b][/color] [[COLOR=#804040][b]clock[/b][/color] [COLOR=#804040][b]scan[/b][/color] [COLOR=#008080]$halBirthMovie[/color]] [COLOR=#ff0000]\[/color]
      -[COLOR=#804040][b]format[/b][/color] {%d %b}]
  [COLOR=#804040][b]set[/b][/color] pre_event_date [[COLOR=#804040][b]clock[/b][/color] [COLOR=#804040][b]format[/b][/color] [[COLOR=#804040][b]clock[/b][/color] [COLOR=#804040][b]scan[/b][/color] [COLOR=#008080]$pre_event_date[/color]] [COLOR=#ff0000]\[/color]
      -[COLOR=#804040][b]format[/b][/color] {%d %b}]
  [COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"[/color][COLOR=#6a5acd]\$[/color][COLOR=#ff00ff]halBirthMovie  = [/color][COLOR=#008080]$halBirthMovie[/color][COLOR=#ff00ff]"[/color]
  [COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"[/color][COLOR=#6a5acd]\$[/color][COLOR=#ff00ff]pre_event_date = [/color][COLOR=#008080]$pre_event_date[/color][COLOR=#ff00ff]"[/color]
  [COLOR=#804040][b]if[/b][/color] {[COLOR=#008080]$pre_event_date[/color] != [COLOR=#008080]$halBirthMovie[/color]} {
    [COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"Not Equal"[/color]
  } [COLOR=#804040][b]else[/b][/color] {
    [COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"Equal"[/color]
  }  
} [COLOR=#804040][b]else[/b][/color] {
  [COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"Nothing"[/color]
}

Output:

C:\_mikrom\Work>tclsh sriks316.tcl
$halBirthMovie  = 16 Apr
$pre_event_date = 16 Apr
Equal