---

Class ::acs::db::oracle

::acs::db::oracle create ...

Class Relations

• class: ::nx::Class
• superclass: ::acs::db::SQL
• subclass: ::acs::db::nsdb-oracle

::nx::Class create ::acs::db::oracle \
     -superclass ::acs::db::SQL

Methods (to be applied on instances)

• get_all_package_functions (scripted)

  set last_func ""
  set result {}
  set d {argument_names "" types "" defaulted "" defaults "" result_type ""}
  foreach tuple [:list_of_lists -dbn $dbn dbqd..[current method] {
      select package_name, object_name, position, argument_name, data_type, defaulted
      from all_arguments
      where package_name is not null
      and owner = USER
      order by package_name, object_name, position
  }] {
      lassign $tuple package_name object_name position argument_name data_type defaulted
      set func $package_name.$object_name
      if {$func ne $last_func && $last_func ne ""} {
          lappend result [list [dict get $d package_name] [dict get $d object_name] $d]
          set last_func $func
          set d {argument_names "" types "" defaulted "" defaults "" result_type ""}
      }
      #ns_log notice "$func ($last_func): $position $argument_name $data_type"
      dict set d package_name $package_name
      dict set d object_name $object_name
      set last_func $func
      if {$position == 0} {
          dict set d result_type $data_type
      } else {
          dict lappend d types $data_type
          dict lappend d argument_names $argument_name
          dict lappend d defaulted $defaulted
          dict lappend d defaults [expr {$defaulted eq "Y" ? "null" : ""} ]
      }
  }
  if {$last_func ne ""} {
      lappend result [list [dict get $d package_name] [dict get $d object_name] $d]
  }
  return $result

• map_function_name (scripted)

  return [string map [list "__" .] $sql]

---