SecuritySNACCRuntime/tcl-lib/uti.tcl

   1 # file: uti.tcl
   2
   3 #\[sep]-----------------------------------------------------------------------------------------------------------------------------
   4 proc max {a0 args} \
   5 {
   6   set max $a0
   7   foreach a $args \
   8   {
   9     if {$a > $max} \
  10     {
  11       set max $a
  12     }
  13   }
  14   return $max
  15 }