iron





# source the library


source zplot.tcl


namespace import Zplot::*





# read in data


Table -table iron -file "data.iron"





# move all values over a bit, to place point markers right in the middle of each square


TableMath -table iron -expression {$x + 0.5} -destcol x


TableMath -table iron -expression {$y + 0.5} -destcol y





# select different values to plot different points


foreach t {zero stop retry propagate redundancy} {


    Table -table $t -columns x,y,action


    # note how '-where' clause is formed: backslash before left-bracket prevents StringEqual


    # from being called right now, and backslash before $action prevents it from being evaluated


    # right now. In contrast, $t is evaluated right now as desired, to zero, stop, ..., etc.


    # simple quotations around the entire thing make sure it is passed as a single arg to -where


    TableSelect -from iron -to $t -where " \[ StringEqual \$action $t ] " 


}





set cols   20


set rows   12


set size   10.0


set hsize  5.0


set width  [expr $cols * $size]


set height [expr $rows * $size]





# canvas, drawable


PsCanvas -title "iron.eps" -width [expr $width+50.0] -height [expr $height+40.0+15.0]


Drawable -xrange "0,$cols" -yrange "0,$rows" -coord 50,40 -dimensions $width,$height \


    -fill t -fillcolor lightgray





# make all points white


PlotPoints -table iron -style square -size $hsize -fill t -fillcolor white -linewidth 0.0





# stop, retry, propagate, zero, redundancy


PlotPoints -table stop       -style vline  -size $hsize -linewidth 0.5


PlotPoints -table retry      -style dline1 -size $hsize -linewidth 0.5 -linecolor green


PlotPoints -table propagate  -style hline  -size $hsize -linewidth 0.5


PlotPoints -table zero       -style circle -size $hsize -linewidth 0.5 -linecolor red


PlotPoints -table redundancy -style dline2 -size $hsize -linewidth 0.5 





# overlay a grid


Grid -xstep 1 -ystep 1 -linecolor black -linewidth 0.25





# some axis labels


AxesTicsLabels -style x -xmanual "0,path : 1,open* : 2,chmod* : 3,read : 4,readlink : 5,getdir : 6,creat : 7,link : 8,mkdir : 9,rename : 10,symlink : 11,write : 12,trunc : 13,rmdir : 14,unlink : 15,mount : 16,fsync* : 17,umount : 18,logwrite : 19,recovery " -fontsize 8 -majortics f -axis f -xlabelrotate 90 -xlabelanchor r,c -xlabelshift 5,0


AxesTicsLabels -style y -ymanual "0,imap-cntl : 1,bmap-desc : 2,aggr-inode : 3,j-data : 4,j-super : 5,super : 6,data : 7,internal : 8,imap : 9,bmap : 10,dir : 11,inode " -fontsize 8 -majortics f -axis f -ylabelshift 0,5 -ylabelanchor r,c





# finally, a title


Label -drawable default -text "JFS Fault Behavior: Write Faults" -fontsize 8 -coord "10,12.4" -font "Helvetica-Bold"





# all done


PsRender -file iron.eps
Data: data.iron