---

Class ::xo::db::DBI::Profile

::xo::db::DBI::Profile create ...

Class Relations

• class: ::xotcl::Class
• superclass: ::xotcl::Object

::xotcl::Class create ::xo::db::DBI::Profile \
     -superclass ::xotcl::Object

Methods (to be applied on instances)

• 0or1row (scripted)

  if {$sql eq ""} {set sql [:get_sql $qn]}
  set start_time [expr {[clock clicks -microseconds]/1000.0}]
  set result [next]
  ds_add db $dbn [:ds_map [self proc]] $qn $sql $start_time [expr {[clock clicks -microseconds]/1000.0}] 0 ""
  return $result

• 1row (scripted)

  set start_time [expr {[clock clicks -microseconds]/1000.0}]
  set result [:uplevel [list ::dbi_1row $sql]]
  ds_add db $dbn [:ds_map [self proc]] $qn $sql $start_time [expr {[clock clicks -microseconds]/1000.0}] 0 ""
  return $result

• dml (scripted)

  if {$sql eq ""} {set sql [:get_sql $qn]}
  set start_time [expr {[clock clicks -microseconds]/1000.0}]
  set result [next]
  ds_add db $dbn [:ds_map [self proc]] $qn $sql $start_time [expr {[clock clicks -microseconds]/1000.0}] 0 ""
  return $result

• ds_map (scripted)

  if {$name in {dml exec 1row 0or1row select}} {return $name}
  return "exec $name"

• foreach (scripted)

  if {$sql eq ""} {set sql [:get_sql $qn]}
  if {$bind ne ""} {set bindOpt [list -bind $bind]} {set bindOpt ""}
  set start_time [expr {[clock clicks -microseconds]/1000.0}]
  set avlists [:uplevel [list dbi_rows -result avlists {*}$bindOpt -- $sql]]
  ds_add db $dbn "exec foreach" $qn $sql $start_time [expr {[clock clicks -microseconds]/1000.0}] 0 ""
  foreach avlist $avlists {
    foreach {a v} $avlist {:uplevel [list set $a $v]}
    :uplevel $body
  }

• list (scripted)

  if {$sql eq ""} {set sql [:get_sql $qn]}
  set start_time [expr {[clock clicks -microseconds]/1000.0}]
  set result [next]
  ds_add db $dbn [:ds_map [self proc]] $qn $sql $start_time [expr {[clock clicks -microseconds]/1000.0}] 0 ""
  return $result

• list_of_lists (scripted)

  if {$sql eq ""} {set sql [:get_sql $qn]}
  set start_time [expr {[clock clicks -microseconds]/1000.0}]
  set result [next]
  ds_add db $dbn [:ds_map [self proc]] $qn $sql $start_time [expr {[clock clicks -microseconds]/1000.0}] 0 ""
  return $result

• sets (scripted)

  if {$sql eq ""} {set sql [:get_sql $qn]}
  set start_time [expr {[clock clicks -microseconds]/1000.0}]
  set result [next]
  ds_add db $dbn [:ds_map [self proc]] $qn $sql $start_time [expr {[clock clicks -microseconds]/1000.0}] 0 ""
  return $result

---