calculator.tcl

TCL学习资料和源代码 希望对想学习TCL的人有帮助

proc addition {nbr1 nbr2} {
   set sum [expr $nbr1+$nbr2];
   return $sum
}

proc subtraction {nbr1 nbr2} {
   set sub [expr $nbr1-$nbr2]
   return $sub
}

proc multiplication {nbr1 nbr2} {
   set mult [expr $nbr1*$nbr2]
   return $mult
}

proc division {nbr1 nbr2} {
   set div [expr $nbr1/$nbr2]
   return $div
}

puts "\n Start: \n enter \"exit\" in the expression field to exit.\n"
set continue 1
while {$continue==1} {
   puts -nonewline "Enter the expression to be computed : "
   flush stdout;
   set string [gets stdin]
   if {$string=="exit"} {
      set continue 0 ; break
   }
   puts "voici l'operation a resoudre : $string"
   set nb1 [lindex $string 0]
   set operator [lindex $string 1]
   set nb2 [lindex $string 2]

   switch -exact $operator {
      + {set result [addition $nb1 $nb2]}
      - {set result [substraction $nb1 $nb2]}
      * {set result [multiplication $nb1 $nb2]}
      / {set result [division $nb1 $nb2]}
      default {puts "** error **"}
   }

   puts "$string = $result"
}
puts "\n END"