Posted to tcl by jeremy_c at Mon Sep 13 13:28:30 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 data
  8. mk::view layout db.person_map {_H:I _R:I}
  9. mk::view open db.person_map map
  10. set map map
  11. rename [data view hash $map 1] people
  12.  
  13. people insert end name John state OH
  14. people insert end name Jim state WV
  15. people insert end name Jack state PA
  16. people insert end name Jeff state IN
  17.  
  18. mk::file commit db
  19.  
  20. set searchName [lindex $argv 0]
  21.  
  22. if {[catch {people find name $searchName} row]} {
  23. puts "'$searchName' not found"
  24. } else {
  25. puts [people get $row name state]
  26. }
  27.  
  28. mk::file close db