set cb_curr_clip ""
set cb_curr_plug ""

proc cb_puts {txt} {
   global cb_curr_clip cb_curr_plug
   cb_add $cb_curr_clip $cb_curr_plug t $txt
}

proc clip {clipname args} {
   set plugname "MAIN"
   if { [llength $args] > 1 } {
      set plugname [lindex $args 0]
   }

   cb_new $clipname $plugname

   global cb_curr_clip
   set tmp_clip $cb_curr_clip
   set cb_curr_clip $clipname

   global cb_curr_plug
   set tmp_plug $cb_curr_plug
   set cb_curr_plug $plugname

   uplevel [lindex $args end]

   set cb_curr_clip $tmp_clip
   set cb_curr_plug $tmp_plug
}

proc plug {plugname args} {
   global cb_curr_clip
   global cb_curr_plug

   cb_add $cb_curr_clip $cb_curr_plug p $plugname

   if { [llength $args] == 0 } {
      return
   }

   set tmp_plug $cb_curr_plug
   set cb_curr_plug $plugname

   uplevel [lindex $args end]

   set cb_curr_plug $tmp_plug
}

proc ref {args} {
   global cb_curr_clip
   global cb_curr_plug

   foreach othername $args {
      cb_add $cb_curr_clip $cb_curr_plug r $othername
   }
}

proc add {clipname args} {
   set plugname "MAIN"
   if { [llength $args] > 1 } {
      set plugname [lindex $args 0]
   }

   global cb_curr_clip
   set tmp_clip $cb_curr_clip
   set cb_curr_clip $clipname

   global cb_curr_plug
   set tmp_plug $cb_curr_plug
   set cb_curr_plug $plugname

   uplevel [lindex $args end]

   set cb_curr_clip $tmp_clip
   set cb_curr_plug $tmp_plug
}

proc add_plug {clipname args} {
   set plugname "MAIN"
   set newname [lindex $args 0]
   if { [llength $args] > 2 } {
      set plugname [lindex $args 0]
      set newname [lindex $args 1]
   }

   cb_add $clipname $plugname p $newname

   global cb_curr_clip
   set tmp_clip $cb_curr_clip
   set cb_curr_clip $clipname

   global cb_curr_plug
   set tmp_plug $cb_curr_plug
   set cb_curr_plug $newname

   uplevel [lindex $args end]

   set cb_curr_clip $tmp_clip
   set cb_curr_plug $tmp_plug
}

proc replace {clipname args} {
   set plugname "MAIN"
   if { [llength $args] > 1 } {
      set plugname [lindex $args 0]
   }

   cb_clear $clipname $plugname

   global cb_curr_clip
   set tmp_clip $cb_curr_clip
   set cb_curr_clip $clipname

   global cb_curr_plug
   set tmp_plug $cb_curr_plug
   set cb_curr_plug $plugname

   uplevel [lindex $args end]

   set cb_curr_clip $tmp_clip
   set cb_curr_plug $tmp_plug
}