xo::api proc get_object_source (public)

 xo::api get_object_source scope obj

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

Return the full object definition

Parameters:

scope (required)

obj (required)

Testcases:

No testcase defined.

Source code:

#
# Return the full object definition
#
if {![nsf::is object $obj]} {
  ns_log warning "[self] get_object_source: argument passed as obj is not an object: $obj"
  return ""
}
set init_block [:get_init_block $scope $obj]
if {$init_block ne ""} {
  set dummy [:get_doc_block $init_block body]
  return $body
} else {
  return [:scope_eval $scope $obj serialize]
}

XQL Not present:

Generic, PostgreSQL, Oracle