scripts/datasource_list.itcl

   1 # vim: foldmarker=<<<,>>>
   2
   3 class tlc::DSlist {
   4         inherit tlc::Datasource
   5
   6         constructor {args} {}
   7
   8         public {
   9                 variable list           {}              {invoke_handlers onchange}
  10                 variable headers        {}              {invoke_handlers onchange}
  11                 variable id_column      0               {invoke_handlers onchange}
  12
  13                 method get_list {criteria {headersvar {}}}
  14                 method add_item {row {col_list ""}}
  15                 method add_row {row}
  16                 method update_item {oldrow newrow {old_col_list ""} {new_col_list ""}}
  17                 method remove_item {row {col_list ""}}
  18                 method get_headers {}
  19         }
  20 }
  21
  22
  23 body tlc::DSlist::constructor {args} { #<<<1
  24         can_do lookup 1
  25         can_do insert 1
  26         can_do update 1
  27         can_do delete 1
  28
  29         eval configure $args
  30 }
  31
  32
  33 body tlc::DSlist::get_list {criteria {headersvar {}}} { #<<<1
  34         if {$headersvar != {}} {
  35                 upvar $headersvar h
  36                 set h   $headers
  37                 #puts "DSlist::get_list: setting headers: ($h)"
  38         }
  39
  40         set last_headers $headers
  41
  42         #puts "DSlist::get_list: returning list: ($list)"
  43         return $list
  44 }
  45
  46
  47 body tlc::DSlist::add_item {row {col_list ""}} { #<<<1
  48         array set dat   $row
  49         #puts "dat:"
  50         #parray dat
  51
  52         set item        {}
  53         set res         {}
  54         foreach h $headers {
  55                 if {[info exists dat($h)]} {
  56                         lappend item $dat($h)
  57                         lappend res     $h $dat($h)
  58                 } else {
  59                         lappend item ""
  60                         lappend res $h ""
  61                 }
  62         }
  63
  64         #puts "Adding item: ($item)"
  65         lappend list $item
  66         invoke_handlers onchange
  67
  68         return $res
  69 }
  70
  71
  72 body tlc::DSlist::add_row {row} { #<<<1
  73         lappend list $row
  74         invoke_handlers onchange
  75 }
  76
  77
  78 body tlc::DSlist::update_item {oldrow newrow {old_col_list ""} {new_col_list ""}} { #<<<1
  79 }
  80
  81
  82 body tlc::DSlist::remove_item {row {col_list ""}} { #<<<1
  83 }
  84
  85
  86 body tlc::DSlist::get_headers {} { #<<<1
  87         return $headers
  88 }
  89
  90