tventi - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       tventi (423B)
       ---
            1 defn logs() {
            2         local h, p;
            3         p = (vl+sizeofQLock);
            4         loop 1, 1024 do
            5         {
            6                 h = (VtLog)*p;
            7                 while h do
            8                 {
            9                         print("log(",h\X,")  // ",*(h.name\s),"\n");
           10                         h = (VtLog)h.next;
           11                 }
           12                 p = p+4;
           13         }
           14 }
           15 
           16 defn log(l) {
           17         local c, nc;
           18 
           19         l = (VtLog)l;
           20         c = l.w;
           21         loop 1,l.nchunk do {
           22                 c = c+sizeofVtLogChunk;
           23                 if c == l.chunk+l.nchunk*sizeofVtLogChunk then
           24                         c = l.chunk;
           25                 c = (VtLogChunk)c;
           26                 print(stringn(c.p, c.wp-c.p)\s);
           27         }
           28 }