Posted to tcl by jeremy_c at Mon Sep 13 12:54:46 GMT 2010view raw

  1. package require Mk4tcl
  2.  
  3. catch { file delete people.mk }
  4.  
  5. mk::file open db people.mk -nocommit
  6. mk::view layout db.person { name state }
  7. mk::view open db.person db::_data
  8. mk::view layout db.person_map {_H:I _R:I}
  9. mk::view open db.person_map map
  10. set personObj [db::_data view hash map 1]
  11.  
  12. mk::row append $personObj name John state OH
  13. mk::row append $personObj name Jim state WV
  14. mk::row append $personObj name Jack state PA
  15. mk::row append $personObj name Jeff state IN
  16.  
  17. mk::file commit db
  18.  
  19. foreach r [mk::select $personObj name Jim] {
  20. puts "Row Index: $r"
  21. #puts [mk::get $personObj!$r state]
  22. }
  23.  
  24. mk::file commit db
  25. mk::file close db