Posted to tcl by jeremy_c at Mon Sep 13 13:28:30 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 data
- mk::view layout db.person_map {_H:I _R:I}
- mk::view open db.person_map map
- set map map
- rename [data view hash $map 1] people
- people insert end name John state OH
- people insert end name Jim state WV
- people insert end name Jack state PA
- people insert end name Jeff state IN
- mk::file commit db
- set searchName [lindex $argv 0]
- if {[catch {people find name $searchName} row]} {
- puts "'$searchName' not found"
- } else {
- puts [people get $row name state]
- }
- mk::file close db