- Methods: All Methods Documented Methods Hide Methods
- Source: Display Source Hide Source
- Variables: Show Variables Hide Variables
Class ::xotcl::Object
::xotcl::Objectcreate ...
Defined in
Class Relations
- class: ::xotcl::Class
- subclass: ::xo::db::DBI::Profile
::xotcl::Class create ::xotcl::ObjectMethods (to be applied on the object)
getExitHandler (scripted)
::nsf::exithandler getsetExitHandler (scripted)
::nsf::exithandler set $newbodyunsetExitHandler (scripted)
::nsf::exithandler unsetMethods (to be applied on instances)
__object_configureparameter (scripted)
set slotObjects [nsf::directdispatch [self] ::nsf::methods::object::info::lookupslots -type ::nx::Slot] set parameterDefinitions [::nsf::parameter::specs $slotObjects] lappend parameterDefinitions args:alias,method=residualargs,args__timediff (scripted)
set now [ns_time get] if {[ns_conn isconnected]} { set start_time [ns_conn start] } else { if {![info exists ::__start_time]} {set ::__start_timestamp $now} set start_time $::__start_timestamp } set t [ns_time diff $now $start_time] set ms [expr {[ns_time seconds $t]*1000 + [ns_time microseconds $t]/1000}] if {[info exists ::__last_timestamp]} { set t [ns_time diff $now $::__last_timestamp] set dms [expr {[ns_time seconds $t]*1000 + [ns_time microseconds $t]/1000}] set diff ", ${dms}ms" } else { set diff "" } set ::__last_timestamp $now return "${ms}ms$diff"abstract (scripted)
if {$methtype ne "proc" && $methtype ne "instproc" && $methtype ne "method"} { error "invalid method type '$methtype', must be either 'proc', 'instproc' or 'method'." } set arglist2 $arglist regsub -all {\"} $arglist {\\"} arglist2 :$methtype $methname $arglist " if {!\[::xotcl::self isnextcall\]} { error \"Abstract method $methname $arglist2 called\" } else {::xotcl::next} " # balance " for emacs syntax highlighterad_doc (scripted)
::xo::api update_object_doc [::xo::api scope] [self] $doc_stringad_forward (scripted)
set flags [::xo::api get_proc_definition_flags $debug $deprecated] uplevel [self] forward {*}$flags $method_name $args ::xo::api update_method_doc -protection [expr {$private ? "private" : "public"}] -deprecated=$deprecated -debug=$debug [::xo::api scope] [self] "" $method_name $docad_proc (scripted)
set flags [::xo::api get_proc_definition_flags $debug $deprecated] set returnSpec [::xo::api get_returns_spec $returns] uplevel [list [self] proc {*}$flags $proc_name $arguments {*}$returnSpec $body] ::xo::api update_method_doc -protection [expr {$private ? "private" : "public"}] -deprecated=$deprecated -debug=$debug [::xo::api scope] [self] "" $proc_name $docappend (alias)
array (alias)
asHTML (scripted)
::xo::require_html_procs dom createDocument html doc set root [$doc documentElement] if {!$page} { $root appendFromScript {:render} set nodes [$root childNode] return [join [lmap n $nodes {$n asHTML}] \n] } else { set slave [$master decorate $root] $slave appendFromScript {:render} ns_return 200 text/html [$root asHTML] }autoname (alias)
check (scripted)
::nsf::method::assertion [self] check [::xotcl::checkoption_xotcl1_to_internal $checkoptions]class (forward)
cleanup (alias)
configure (alias)
contains (alias)
copy (alias)
db_0or1row (forward)
db_1row (forward)
debug (scripted)
set msg [join $args { }] ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"defaultmethod (alias)
destroy (alias)
destroy_on_cleanup (scripted)
#:log "--cleanup adding ::xo::cleanup([self]) [list [self] destroy]" set ::xo::cleanup([self]) [list [self] destroy]dict (alias)
ds (scripted)
set msg [join $args { }] ds_comment "[self] [self callingclass]->[self callingproc]: $msg ([:__timediff])"eval (alias)
exists (alias)
extractConfigureArg (scripted)
set value "" ::upvar $al argList set largs [llength $argList] for {set i 0} {$i < $largs} {incr i} { if {[lindex $argList $i] == $name && $i + 1 < $largs} { set startIndex $i set endIndex [expr {$i + 1}] while {$endIndex < $largs && [string first - [lindex $argList $endIndex]] != 0} { lappend value [lindex $argList $endIndex] incr endIndex } } } if {[info exists startIndex] && $cutTheArg != 0} { set argList [lreplace $argList $startIndex [expr {$endIndex - 1}]] } return $valuefilter (forward)
filterguard (alias)
filtersearch (scripted)
set handle [::nsf::directdispatch [::nsf::current object] ::nsf::methods::object::info::lookupfilter $filter] return [method_handle_to_xotcl $handle]forward (scripted)
set arglist [list] if {[info exists target] && [string index $target 0] eq "-"} { error "target '$target' must not start with a dash" } if {[info exists default]} {lappend arglist -default $default} if {$earlybinding} {lappend arglist -earlybinding} if {[info exists methodprefix]} {lappend arglist -prefix $methodprefix} if {$objscope} {lappend arglist -frame object} if {[info exists onerror]} {lappend arglist -onerror $onerror} if {$verbose} {lappend arglist -verbose} if {[info exists target]} {lappend arglist $target} if {[llength $args] > 0} {lappend arglist {*}$args} set r [::nsf::method::forward [self] -per-object $method {*}$arglist] if {$debug} {::nsf::method::property [self] $r debug true} if {$deprecated} {::nsf::method::property [self] $r deprecated true} return $rhasclass (scripted)
if {![::nsf::is class $cl]} {return 0} if {[::nsf::directdispatch [self] ::nsf::methods::object::info::hasmixin $cl]} {return 1} ::nsf::directdispatch [self] ::nsf::methods::object::info::hastype $clincr (alias)
info (alias)
init (scripted)
if {![::nsf::current isnextcall] && [llength $args] > 0 && [::nsf::configure debug] > 0} { ::nsf::log Warning "Arguments '$args' to constructor of object [self] are most likely not processed" }instvar (alias)
invar (forward)
isclass (scripted)
::nsf::is class $classismetaclass (scripted)
::nsf::is metaclass $classismixin (scripted)
return [expr {[::nsf::is class $class] && [my ::nsf::methods::object::info::hasmixin $class]}]isobject (scripted)
::nsf::object::exists $objectistype (scripted)
return [expr {[::nsf::is class $class] && [::nsf::directdispatch [self] ::nsf::methods::object::info::hastype $class]}]lappend (alias)
log (scripted)
set msg [join $args { }] ns_log notice "[self] [self callingclass]->[self callingproc]: $msg ([:__timediff])"method (scripted)
set returns_flag [expr {[info exists returns] ? [list -returns $returns] : {}}] :proc -debug=$debug -deprecated=$deprecated $name $arguments {*}$returns_flag $bodymixin (forward)
mixinguard (alias)
move (alias)
mset (scripted)
# # Import all attribute value pairs into the current XOTcl object. # if {[llength $pairs] > 0} { nsf::directdispatch [self] -frame object ::lassign [dict values $pairs] {*}[dict keys $pairs] }msg (scripted)
set msg [join $args { }] if {[ns_conn isconnected]} { set msg "[self]: $msg ([self callingclass]->[self callingproc])" if {$html} { util_user_message -html -message $msg } else { util_user_message -message $msg } }noinit (alias)
parametercmd (forward)
proc (scripted)
set conditions [list] if {[info exists precondition]} {lappend conditions -precondition $precondition} if {[info exists postcondition]} {lappend conditions -postcondition $postcondition} set r [::nsf::method::create [self] -per-object $name $arguments $body {*}$conditions] if {$debug} {::nsf::method::property [self] $r debug true} if {$deprecated} {::nsf::method::property [self] $r deprecated true} if {[info exists returns]} {::nsf::method::property [self] $r returns $returns} return $rprocsearch (scripted)
set handle [::nsf::directdispatch [::nsf::current object] ::nsf::methods::object::info::lookupmethod $name] return [method_handle_to_xotcl $handle]qn (scripted)
#set qn "dbqd.[:uplevel [list self class]]-[:uplevel [list self proc]].$query_name" set l [info level] if {$l < 2} { set prefix topLevel } else { set prefix [lindex [:uplevel {info level 0}] 0] #ns_log notice "QN <$query_name> -> PREFIX <$prefix>" } return "dbqd.$prefix.$query_name"requireNamespace (alias)
residualargs (alias)
self (scripted)
::xotcl::selfserialize (scripted)
set objmap [expr {[info exists target] ? [list [::nsf::current object] $target] : ""}] ::Serializer deepSerialize -objmap $objmap [::nsf::current object]set (alias)
set_instance_vars_defaults (scripted)
:configuresubst (alias)
trace (alias)
unknown (scripted)
if {![self isnext]} { error "[self]: unable to dispatch method '$m'" }unset (alias)
<instance of xotcl::Object
- Testcases:
- xowiki_test_cases, xowiki
uplevel (alias)
upvar (alias)
volatile (alias)
vwait (scripted)
if {[regexp {:[^:]*} $varName]} { error "invalid varName '$varName'; only plain or fully qualified variable names allowed" } if {[string match ::* $varName]} { ::vwait $varName } else { ::vwait :$varName }www-show-object (scripted)
# # Allow to show an arbitrary object via API-browser. Per-default, # e.g. a site-wide admin can use e.g. /xowiki/index?m=show-object # if {[ns_conn isconnected]} { set form [ns_getform] ns_set update $form object [self] ns_set update $form show_source [::xo::cc query_parameter show_source:integer 1] ns_set update $form show_methods [::xo::cc query_parameter show_methods:integer 2] ns_set update $form show_variables [::xo::cc query_parameter show_variables:integer 1] ns_set update $form as_img 1 rp_internal_redirect /packages/xotcl-core/www/show-object } else { ns_log error "show-object can only be called with an active connection" } ad_script_abort
- Methods: All Methods Documented Methods Hide Methods
- Source: Display Source Hide Source
- Variables: Show Variables Hide Variables
