xotcl::package object method require (public)

 xotcl::package require args [ args... ]

Defined in

puts "XOTCL package require $args, current=[namespace current]"

Parameters:

args (required)

Testcases:

No testcase defined.

Source code:

set prevComponent ${:component}
if {[catch {set v [package present {*}$args]} msg]} {
  #puts stderr "we have to load $msg"
  switch -exact -- [lindex $args 0] {
    -exact  {set pkg [lindex $args 1]}
    default {set pkg [lindex $args 0]}
  }
  set :component $pkg
  lappend :uses($prevComponent) ${:component}
  set v [::uplevel \#1 [set :packagecmd] require $args]
  if {$v ne "" && ${:verbose}} {
  set path [lindex [::package ifneeded $pkg $v] 1]
    puts "... $pkg $v loaded from '$path'"
    set :loaded($pkg) $v   ;# loaded stuff needed for Tcl 8.0
  }
}
set :component $prevComponent
return $v

XQL Not present:

Generic, PostgreSQL, Oracle