xo::api proc method_label (public)

 xo::api method_label [ -kind ] proc_spec

Defined in packages/xotcl-core/tcl/01-debug-procs.tcl

Return a user-friendly label for methods and objects.

Switches:

-kind (optional)

when set, use naming convention from nx, otherwise XOTcl

Parameters:

proc_spec (required)

Testcases:

No testcase defined.

Source code:

#
# Return a user-friendly label for methods and objects.
# @param kind when set, use naming convention from nx, otherwise XOTcl
#
switch [llength $proc_spec] {
  1 {}
  2 {lassign $proc_spec methodType obj; set scope ""}
  3 {lassign $proc_spec obj methodType method; set scope ""}
  4 {lassign $proc_spec scope obj methodType method}
  default {
    ns_log notice "Unexpected format <$proc_spec> consists of [llength $proc_spec] parts"
  }
}
if {[info exists method]} {
  set isObject [:scope_eval $scope ::nsf::is object $obj]
  if {$isObject} {
    set isNx [:scope_eval $scope  ::nsf::directdispatch $obj ::nsf::methods::object::info::hastype ::nx::Class]
    if {$kind} {
      set result [dict get ${:methodLabel} $isNx-$methodType]
    } else {
      set result "$obj [dict get ${:methodLabel} $isNx-$methodType] $method"
    }
    return $result
  }
}
return $proc_spec

XQL Not present:

Generic, PostgreSQL, Oracle