---

Class Relations

• class: ::nx::serializer::ObjectSystemSerializer

::nx::serializer::ObjectSystemSerializer create ::nx::serializer::nx

Methods (to be applied on the object)

• serialize-all-start (scripted)

  #
  # Code to be executed at the begin of the serialization of nx.
  #
  
  #
  # The blueprint in OpenACS might be evaluated against either a
  # virgin interpreter (e.g. thread startup) or an existing
  # interpreter when the blueprint script was changed. In the
  # latter case, we have already in the current interpreter
  # predefined objects and classes. When objects are created at
  # run time and staying the connection threads, these object will
  # be turned into base class objects, when the classes are
  # deleted and newly defined. Therefore, we cleanup the interp in
  # a first step. Alternate approaches could be to handle these
  # cases before classes/metaclasses are define (per class), or to
  # define a callback via (ns_ictl update).
  #
  # Since this might be an issue happening in all kind of
  # interpreters, and this is mostly serializer specific, we
  # handle this here via "finalize_application_classes".
  #
  set intro [subst {
    if {\[info commands ::xotcl::Object\] ne ""
        && \[info command ::nx::serializer::Serializer\] ne ""
      } {
      ::nx::serializer::Serializer finalize_application_classes [self]
    } else {
      package require nx
    }
  }]
  append intro [subst {
    ::nx::configure defaultMethodCallProtection [::nx::configure defaultMethodCallProtection]
    ::nx::configure defaultAccessor [::nx::configure defaultAccessor]
  }]
  foreach pkg {nx::mongo} {
    if {![catch {package present $pkg}]} {
      append intro "package require $pkg\n"
    }
  }
  if {[info command ::Object] ne "" && [namespace origin ::Object] eq "::nx::Object"} {
    append intro "\n" "namespace import -force ::nx::*"
  }
  return "$intro\n[next]"

• serializeExportedMethod (scripted)

  set :targetName $object
  switch $kind {
    "inst" -
    "method" {
      set modifier ""
    }
    "nsfproc" {
      return [::nsf::cmd::info definition $name]
    }
    default {
      set modifier "object"
    }
  }
  return [:method-serialize $object $name $modifier $s]

---