# Simple demo, can be used to verify proper Mk4tcl/TclKit installation # # On first run, output should consist of 5 lines: # John Lennon 44 # Flash Gordon 42 # first Flash last Gordon shoesize 42 # first John last Lennon shoesize 44 # first John last Lennon shoesize 44 # # Every following run will generate 5 more lines of output package require Mk4tcl # create a file called "demo.db" mk::file open db demo.db # define a view in it called "people", containing three fields set vw [mk::view layout db.people {first last shoesize:I}] # let's append two rows to the end of the view mk::row append $vw first John last Lennon shoesize 44 mk::row append $vw first Flash last Gordon shoesize 42 # commit the structure and data to file mk::file commit db # a simple loop to print out all rows mk::loop c $vw { puts [mk::get $c first last shoesize] } # another way to loop, in sorted order foreach r [mk::select $vw -sort last] { puts [mk::get $vw!$r] } # this loop iterates over a selection foreach r [mk::select $vw first John] { puts [mk::get $vw!$r] }