xotcl::package object method present (public)

 xotcl::package present args [ args... ]

Defined in

Parameters:

args (required)

Testcases:

No testcase defined.

Source code:

if {$::tcl_version<8.3} {
  switch -exact -- [lindex $args 0] {
    -exact  {set pkg [lindex $args 1]}
    default {set pkg [lindex $args 0]}
  }
  if {[info exists :loaded($pkg)]} {
    return ${:loaded}($pkg)
  } else {
    error "not found"
  }
} else {
    [set :packagecmd] present {*}$args
}

XQL Not present:

Generic, PostgreSQL, Oracle