nsv_set wftk handle 0
nsv_set wftk handles [list]

nsv_set wftk critsec [ns_critsec create]

set handle wftk[nsv_incr wftk handle]
nsv_lappend wftk handles $handle
return $handle

set handle [lindex $args 0]
xml free $handle
ns_critsec enter [nsv_get wftk critsec]
set handles [nsv_get wftk handles]
set i [lsearch -exact $handles $handle]
if {$i >= 0} {
   nsv_set wftk handles [lreplace $handles $i $i]
}
ns_critsec leave [nsv_get wftk critsec]
return OK

set reposloc [lindex $args 0]
if {[lsearch [nsv_get wftk handles] $reposloc] > -1} { return $reposloc }

if [nsv_exists wftk_repositories $reposloc] { set reposloc [nsv_get wftk_repositories $reposloc] }
if [nsv_exists wftk repos($reposloc)] {
   set handle [nsv_get wftk repos($reposloc)]
   if {[lsearch [nsv_get wftk handles] $handle] > -1} {
      return $handle
   }
}


set handle [wftk gethandle]
set r [open $reposloc r]
xml parse $handle [read $r]
close $r
xml set $handle basedir [file dirname $reposloc]/
repmgr open $handle
nsv_set wftk repos($reposloc) $handle
return $handle

if {[llength $args] < 1} { error "no repository given" "wftk list" }
if {[llength $args] < 2} {
   return [repmgr list $repos] 
} else {
   return [repmgr list $repos [lindex $args 1]]
}

set handle [wftk gethandle]
xml parse $handle "<list id=\"[lindex $args 1]\"/>"
repmgr list $repos [lindex $args 1] $handle
return $handle

set handle [wftk gethandle]
repmgr defn $repos $handle [lindex $args 1]
return $handle

set obj [eval wftk getxml $args]
if [xml is_element $obj] {
   set ret [wftk xml2ns_set $obj]
   wftk release $obj
   return $ret
} else {
   wftk release $obj
   return ""
}

set hdl [wftk gethandle]
set ret [ns_set create]
for {xml firstelem $hdl [lindex $args 0]} {[xml is_element $hdl]} {xml nextelem $hdl $hdl} {
   if [xml is $hdl field] {
      ns_set put $ret [xml attrval $hdl id] [xml stringcontenthtml $hdl]
   }
}
wftk release $hdl
return $ret

set handle [wftk gethandle]
repmgr get $repos $handle [lindex $args 1] [lindex $args 2]
return $handle

set handle [wftk ns_set2xml [lindex $args 2]]
set ret [wftk addxml $repos [lindex $args 1] $handle]
wftk release $handle
return $ret

set handle [wftk gethandle]
xml create $handle record
set size [ns_set size [lindex $args 0]]
for {set i 0} {$i < $size} {incr i} {
   xmlobj set $handle "" [ns_set key [lindex $args 0] $i] [ns_set value [lindex $args 0] $i]
}
return $handle

return [repmgr add $repos [lindex $args 1] [lindex $args 2]]

set handle [wftk ns_set2xml [lindex $args 2]]
set ret [repmgr merge $repos [lindex $args 1] $handle [lindex $args 3]]
wftk release $handle
return $ret

return [repmgr mod $repos [lindex $args 1] [lindex $args 2] [lindex $args 3]]

return [repmgr del $repos [lindex $args 1] [lindex $args 2]]

while {[llength $args] < 7} { lappend args "" }
set obj [lindex $args 3]
set release_obj 0
if [catch {
   set obj [wftk ns_set2xml $obj]
   set release_obj 1
} result] {
   ns_log notice "?? $result"
}
#                             list             key                   notification     to               subject
set ret [repmgr notify $repos [lindex $args 1] [lindex $args 2] $obj [lindex $args 4] [lindex $args 5] [lindex $args 6]]
if {$release_obj} { wftk release $obj }
return $ret

set offset 2
if {![string compare [lindex $args $offset] -xml]} {
   set extras ""
   incr offset
   set xml_extras [lindex $args $offset]
   incr offset
} elseif {[string compare [lindex $args $offset] -fld]} {
   set extras [lindex $args $offset]
   incr offset
} else {
   set extras [ns_set create]
   while {![string compare [lindex $args $offset] -fld]} {
      incr offset
      ns_set put $extras [lindex $args $offset] [lindex $args [expr $offset + 1]]
      incr offset
      incr offset
   }
}
set command submit
if {![string compare [lindex $args $offset] -file]} {
   incr offset
   set command store
}

if {$extras == ""} {
   return [repmgr $command $repos [lindex $args 1] $xml_extras [lindex $args $offset]]
}

set handle [wftk ns_set2xml $extras] 
set ret [repmgr $command $repos [lindex $args 1] $handle [lindex $args $offset]]
wftk release $handle

return $ret