cddl/contrib/dtracetoolkit/Code/Tcl/func_abc.tcl

   1 #!./tclsh
   2
   3 proc func_c {} {
   4         puts "Function C"
   5         after 1000
   6 }
   7
   8 proc func_b {} {
   9         puts "Function B"
  10         after 1000
  11         func_c
  12 }
  13
  14 proc func_a {} {
  15         puts "Function A"
  16         after 1000
  17         func_b
  18 }
  19
  20 func_a