xotcl::package object method contains (public)

 xotcl::package contains script

Defined in

Parameters:

script (required)

Testcases:

No testcase defined.

Source code:

if {[info exists :provide]} {
  package provide [set :provide] [set :version]
} else {
  package provide [::xotcl::self] [set :version]
}
namespace eval [::xotcl::self] {namespace import ::xotcl::*}
#namespace eval [::xotcl::self] $script
#::nsf::directdispatch [::xotcl::self] -frame method ::apply [list {} $script [::xotcl::self]]
::apply [list {} $script [::xotcl::self]]

foreach e [set :export] {
  set nq [namespace qualifiers $e]
  if {$nq ne ""} {
    namespace eval [::xotcl::self]::$nq [list namespace export [namespace tail $e]]
  } else {
    namespace eval [::xotcl::self] [list namespace export $e]
  }
}
foreach e [set :autoexport] {
  namespace eval :: [list namespace import [::xotcl::self]::$e]
}

XQL Not present:

Generic, PostgreSQL, Oracle