commit 2faae3ce69586f60a3a764e58d2d804801ed4890 from: rsc date: Wed Feb 16 17:20:52 2005 UTC dump logs commit - d7688cce37173e43796f5243da7507b9e7c7a063 commit + 2faae3ce69586f60a3a764e58d2d804801ed4890 blob - /dev/null blob + 84e207c3bd484301129eacd58ee4ebe0dd19910e (mode 644) --- /dev/null +++ acid/venti @@ -0,0 +1,28 @@ +defn logs() { + local h, p; + p = (vl+sizeofQLock); + loop 1, 1024 do + { + h = (VtLog)*p; + while h do + { + print("log(",h\X,") // ",*(h.name\s),"\n"); + h = (VtLog)h.next; + } + p = p+4; + } +} + +defn log(l) { + local c, nc; + + l = (VtLog)l; + c = l.w; + loop 1,l.nchunk do { + c = c+sizeofVtLogChunk; + if c == l.chunk+l.nchunk*sizeofVtLogChunk then + c = l.chunk; + c = (VtLogChunk)c; + print(stringn(c.p, c.wp-c.p)\s); + } +}