Posted to tcl by siqsuruq at Sun Aug 22 15:37:53 GMT 2021view raw

  1. proc is_float_whole { float } {
  2. set a [expr abs($float - int($float)) > 0 ? 0 : 1]
  3. if {$a == 1} {
  4. return [expr int($float)]
  5. } else {
  6. return [string trimright $float 0]
  7. }
  8. }