Ticket #390: 390-compatible-log.patch

xapian-maintainer-tools/profiling/strace-analyse

@@ -72 +72 @@
         my $block = $off / $blocksize;
         $path //= $fd[$fd];
         print "read $block from $path\n";
+        $time_t = int($time_t * 1000000);
+        $systime = int($systime * 1000000);
+        print STDERR "r$1,$time_t,$systime,$off,$blocksize\n";
     } elsif (/^pwrite(?:64)?\((\d+)(?:<(.*?)>)?, .*, (\d+), (\d+)\)/) {
         my ($fd, $path, $blocksize, $off) = ($1, $2, $3, $4);
         my $block = $off / $blocksize;
         $path //= $fd[$fd];
         print "write $block to $path\n";
+        $time_t = int($time_t * 1000000);
+        $systime = int($systime * 1000000);
+        print STDERR "w$1,$time_t,$systime,$off,$blocksize\n";
     } elsif (/^open\("(.*)".* = (\d+)$/) {
         $fd[$2] = $1;
+        $time_t = int($time_t * 1000000);
+        $systime = int($systime * 1000000);
+        print STDERR "o$2,$time_t,$systime,$1\n";
     } elsif (/^close\((\d+)\)/) {
         $fd[$1] = undef;
+        $time_t = int($time_t * 1000000);
+        $systime = int($systime * 1000000);
+        print STDERR "c$1,$time_t,$systime,\n";
     } elsif (/^dup[23]?\((\d+)[^<].* = (\d+)/) {
         $fd[$2] = $fd[$1];
     } elsif (/^f(?:data)?sync\((\d+)(?:<(.*?)>)?\)/) {
         my $path = $2 // $fd[$1];
         print "sync $path\n";
+        $time_t = int($time_t * 1000000);
+        $systime = int($systime * 1000000);
+        print STDERR "s$1,$time_t,$systime,\n";
     }
 }