tdump logs - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit 2faae3ce69586f60a3a764e58d2d804801ed4890
DIR parent d7688cce37173e43796f5243da7507b9e7c7a063
HTML Author: rsc <devnull@localhost>
Date: Wed, 16 Feb 2005 17:20:52 +0000
dump logs
Diffstat:
A acid/venti | 28 ++++++++++++++++++++++++++++
1 file changed, 28 insertions(+), 0 deletions(-)
---
DIR diff --git a/acid/venti b/acid/venti
t@@ -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);
+ }
+}