xo::api proc get_init_block (public)

 xo::api get_init_block scope obj

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

Get the init block of an object/class or return empty

Parameters:

scope (required)

obj (required)

Testcases:

No testcase defined.

Source code:

#
# Get the init block of an object/class or return empty
#
if {[:scope_eval $scope ::nsf::var::exists $obj __cmd(__initblock)]} {
  return [:scope_eval $scope ::nsf::var::set $obj __cmd(__initblock)]
}
return ""

XQL Not present:

Generic, PostgreSQL, Oracle