Posted to tcl by jeremy_c at Mon Sep 13 12:54:46 GMT 2010view raw
- package require Mk4tcl
- catch { file delete people.mk }
- mk::file open db people.mk -nocommit
- mk::view layout db.person { name state }
- mk::view open db.person db::_data
- mk::view layout db.person_map {_H:I _R:I}
- mk::view open db.person_map map
- set personObj [db::_data view hash map 1]
- mk::row append $personObj name John state OH
- mk::row append $personObj name Jim state WV
- mk::row append $personObj name Jack state PA
- mk::row append $personObj name Jeff state IN
- mk::file commit db
- foreach r [mk::select $personObj name Jim] {
- puts "Row Index: $r"
- #puts [mk::get $personObj!$r state]
- }
- mk::file commit db
- mk::file close db