projects/dstress: log.d annotate

annotate log.d @ 879:cf77fcf67454

added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com)

author	thomask
date	Thu, 02 Mar 2006 08:52:59 +0000
parents
children	534a591a0225

rev	line source
879 cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1 module cn.kuehne.dstress.log;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	2
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	3 private import std.string;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	4 private import std.conv;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	5 private import std.stdio;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	6 private import std.stream;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	7 private import std.file;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	8 private import std.c.stdlib;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	9 private import std.date;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	10
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	11 static char[][] TORTURE_FLAGS = [
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	12 "",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	13 "-g",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	14 "-inline",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	15 "-fPIC",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	16 "-O",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	17 "-release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	18 "-g -inline",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	19 "-g -fPIC",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	20 "-g -O",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	21 "-g -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	22 "-inline -fPIC",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	23 "-inline -O",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	24 "-inline -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	25 "-fPIC -O",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	26 "-fPIC -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	27 "-O -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	28 "-g -inline -fPIC",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	29 "-g -inline -O",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	30 "-g -inline -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	31 "-g -fPIC -O",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	32 "-g -fPIC -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	33 "-g -O -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	34 "-inline -fPIC -O",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	35 "-inline -fPIC -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	36 "-inline -O -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	37 "-fPIC -O -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	38 "-g -inline -fPIC -O",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	39 "-g -inline -fPIC -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	40 "-g -fPIC -O -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	41 "-inline -fPIC -O -release",
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	42 "-g -inline -fPIC -O -release"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	43 ];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	44
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	45 enum Result{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	46 UNTESTED = 0,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	47 PASS = 1 << 2,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	48 XFAIL = 2 << 2,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	49 XPASS = 3 << 2,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	50 FAIL = 4 << 2,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	51 ERROR = 5 << 2,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	52 BASE_MASK = 7 << 2,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	53
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	54 EXT_MASK = 3,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	55 BAD_MSG = 1,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	56 BAD_GDB = 2,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	57
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	58 MAX = BAD_GDB + BASE_MASK
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	59 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	60
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	61 char[] toString(Result r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	62 switch(r & Result.BASE_MASK){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	63 case Result.PASS: return "PASS";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	64 case Result.XPASS: return "XPASS";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	65 case Result.FAIL: return "FAIL";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	66 case Result.XFAIL: return "XFAIL";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	67 case Result.ERROR: return "ERROR";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	68 case Result.UNTESTED: return "UNTESTED";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	69 default:
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	70 break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	71 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	72 throw new Exception(format("unhandled Result value %s", cast(int)r));
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	73 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	74
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	75 char[] dateString(){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	76 static char[] date;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	77 if(date is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	78 auto time = getUTCtime();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	79 auto year = YearFromTime(time);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	80 auto month = MonthFromTime(time);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	81 auto day = DateFromTime(time);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	82 date = format("%d-%02d-%02d", year, month+1, day);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	83 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	84 return date;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	85 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	86
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	87 char[][] unique(char[][] a){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	88 char[][] b = a.sort;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	89 char[][] back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	90
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	91 back ~= b[0];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	92
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	93 size_t ii=0;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	94 for(size_t i=0; i<b.length; i++){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	95 if(back[ii]!=b[i]){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	96 back~=b[i];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	97 ii++;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	98 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	99 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	100
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	101 return back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	102 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	103
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	104 private{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	105 version(Windows){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	106 import std.c.windows.windows;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	107 extern(Windows) BOOL GetFileTime(HANDLE hFile, LPFILETIME lpCreationTime, LPFILETIME lpLastAccessTime, LPFILETIME lpLastWriteTime);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	108 }else version(linux){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	109 import std.c.linux.linux;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	110 version = Unix;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	111 }else version(Unix){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	112 import std.c.unix.unix;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	113 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	114 static assert(0);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	115 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	116
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	117 alias ulong FStime;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	118
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	119 FStime getFStime(char[] fileName){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	120 version(Windows){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	121 HANDLE h;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	122
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	123 if (useWfuncs){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	124 wchar* namez = std.utf.toUTF16z(fileName);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	125 h = CreateFileW(namez,GENERIC_WRITE,0,null,OPEN_ALWAYS,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	126 FILE_ATTRIBUTE_NORMAL \| FILE_FLAG_SEQUENTIAL_SCAN,cast(HANDLE)null);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	127 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	128 char* namez = toMBSz(fileName);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	129 h = CreateFileA(namez,GENERIC_WRITE,0,null,OPEN_ALWAYS,
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	130 FILE_ATTRIBUTE_NORMAL \| FILE_FLAG_SEQUENTIAL_SCAN,cast(HANDLE)null);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	131 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	132
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	133 if (h == INVALID_HANDLE_VALUE)
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	134 goto err;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	135
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	136 FILETIME creationTime;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	137 FILETIME accessTime;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	138 FILETIME writeTime;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	139
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	140 BOOL b = GetFileTime(h, &creationTime, &accessTime, &writeTime);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	141 if(b==1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	142 long modA = writeTime.dwLowDateTime;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	143 long modB = writeTime.dwHighDateTime;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	144 return modA \| (modB << (writeTime.dwHighDateTime.sizeof*8));
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	145 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	146
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	147 err:
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	148 CloseHandle(h);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	149 throw new Exception("failed to query file modification : "~fileName);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	150 }else version(Unix){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	151 char* namez = toStringz(fileName);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	152 struct_stat statbuf;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	153
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	154 if(stat(namez, &statbuf)){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	155 throw new FileException(fileName, getErrno());
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	156 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	157
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	158 return statbuf.st_mtime;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	159 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	160 static assert(0);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	161 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	162 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	163 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	164
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	165 char[] cleanFileName(char[] file){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	166 char[] back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	167 bool hadSep;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	168
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	169 foreach(char c; file){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	170 if(c == '/' \|\| c == '\\'){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	171 if(!hadSep){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	172 back ~= '/';
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	173 hadSep = true;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	174 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	175 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	176 back ~= c;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	177 hadSep = false;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	178 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	179 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	180
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	181 size_t start = 0;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	182 while(back[start] <= ' ' && start < back.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	183 start++;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	184 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	185
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	186 size_t end = back.length-1;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	187 while(back[end] <= ' ' && end >= start){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	188 end--;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	189 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	190
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	191 back = back[start .. end+1];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	192
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	193 return back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	194 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	195
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	196 abstract class Test{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	197 char[] name;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	198 char[] file;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	199
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	200 abstract Result condensed();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	201
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	202 this(char[] file){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	203 this.file = file;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	204
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	205 int start = rfind(file, "/");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	206 if(start<0){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	207 start = 0;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	208 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	209 start += 1;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	210 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	211
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	212 int end = rfind(file, ".");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	213 if(end < start){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	214 end = file.length;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	215 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	216
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	217 name = file[start .. end];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	218 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	219 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	220
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	221 class PlainTest : Test{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	222 Result r;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	223
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	224 Result condensed(){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	225 return r;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	226 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	227
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	228 this(char[] file, Result result){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	229 super(file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	230 r = result;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	231 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	232 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	233
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	234 class TortureTest : Test{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	235 Result[] r;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	236
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	237 Result condensed(){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	238 Result back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	239 foreach(Result res; r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	240 if(res > back){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	241 back = res;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	242 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	243 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	244
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	245 return back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	246 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	247
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	248 this(char[] file){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	249 super(file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	250 r.length = TORTURE_FLAGS.length;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	251 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	252
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	253 this(char[] file, Result[] result){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	254 if(result.length != TORTURE_FLAGS.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	255 throw new Exception(format("expected %s results but got %s (%s)", TORTURE_FLAGS.length, result.length, file));
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	256 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	257
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	258 super(file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	259 r = result.dup;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	260 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	261 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	262
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	263 class Log{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	264 PlainTest[char[]] plain;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	265 TortureTest[char[]] torture;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	266
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	267 char[] id;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	268
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	269 this(char[] id){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	270 this.id = id;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	271 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	272
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	273 Regression[] findGlobalRegressions(Log[] logs){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	274 Regression[] back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	275
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	276 if(logs.length < 1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	277 return back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	278 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	279
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	280 foreach(TortureTest currentTest; torture.values){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	281 bool hadOldData = false;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	282 Result oldResults[];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	283 oldResults.length = TORTURE_FLAGS.length;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	284 oldResults[] = Result.MAX;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	285
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	286 foreach(Log l; logs){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	287 TortureTest* test = currentTest.file in l.torture;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	288 if(test !is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	289 hadOldData = true;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	290 foreach(size_t i, Result r; test.r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	291 if(r != Result.UNTESTED && r < oldResults[i]){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	292 oldResults[i] = r;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	293 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	294 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	295 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	296 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	297
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	298 if(hadOldData){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	299 foreach(size_t i, Result r; oldResults){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	300 if((currentTest.r[i] != Result.UNTESTED) && (r != Result.MAX) && (currentTest.r[i] > r)){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	301 back ~= new Regression(currentTest.name, currentTest.file, r, currentTest.r[i], TORTURE_FLAGS[i]);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	302 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	303 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	304 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	305 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	306 return back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	307 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	308
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	309 Regression[] findRegressions(Log oldLog){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	310 Regression[] back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	311
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	312 foreach(PlainTest t; plain.values){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	313 PlainTest* oldT = t.file in oldLog.plain;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	314 if(oldT !is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	315 if(oldT.r < t.r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	316 back ~= new Regression(oldT.r, t);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	317 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	318 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	319 TortureTest* oldT = t.file in oldLog.torture;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	320 if(oldT !is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	321 Result r = oldT.condensed();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	322 if(r < t.r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	323 back ~= new Regression(r, t);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	324 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	325 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	326 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	327 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	328
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	329 foreach(TortureTest t; torture.values){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	330 TortureTest* oldT = t.file in oldLog.torture;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	331
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	332 if(oldT !is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	333 foreach(size_t i, Result r; t.r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	334 if(oldT.r[i] < r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	335 back ~= new Regression(t.name, t.file, oldT.r[i], r, TORTURE_FLAGS[i]);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	336 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	337 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	338 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	339 PlainTest* oldT = t.file in oldLog.plain;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	340 if(oldT !is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	341 Result r = t.condensed();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	342 if(oldT.r < r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	343 back ~= new Regression(t.name, t.file, oldT.r, r);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	344 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	345 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	346 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	347 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	348
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	349 return back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	350 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	351
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	352 char[][] genUpdateList(char[] testRoot){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	353 char[][] updateList;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	354 const char[][] statusList = ["compile", "nocompile", "run", "norun"];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	355 char[] status;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	356
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	357 void list(char[] path){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	358 if(isdir(path)){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	359 foreach(char[] entry; listdir(path)){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	360 if(entry.length>0 && entry[0] != '.' && entry[0] != '~'){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	361 list(path~std.path.sep~entry);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	362 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	363 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	364 }else if(isfile(path)){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	365 char[] file = path[testRoot.length + std.path.sep.length .. $];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	366 if(!(file in plain) && !(file in torture)){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	367 char[] output = "dstress torture-" ~ status ~ " " ~ file;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	368 updateList ~= output;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	369 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	370 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	371 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	372
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	373 foreach(char[] s; statusList){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	374 status = s;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	375 list(testRoot ~ std.path.sep ~ s);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	376 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	377
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	378 return updateList;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	379 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	380
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	381 void dropBogusResults(FStime recordTime, char[] testRoot){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	382 uint totalCount = plain.length + torture.length;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	383
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	384 char[][] sourcesPlain = plain.keys;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	385 foreach(char[] source; sourcesPlain){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	386 try{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	387 FStime caseTime = getFStime(testRoot~std.path.sep~source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	388 if(caseTime > recordTime){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	389 debug(drop) fwritefln(stderr, "dropped: %s", source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	390 plain.remove(source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	391 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	392 }catch(Exception e){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	393 debug(drop) fwritefln(stderr, "dropped: %s", source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	394 plain.remove(source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	395 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	396 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	397 plain.rehash;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	398
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	399 char[][] sourcesTorture = torture.keys;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	400 foreach(char[] source; sourcesTorture){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	401 try{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	402 FStime caseTime = getFStime(testRoot~std.path.sep~source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	403 if(caseTime > recordTime){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	404 debug(drop) fwritefln(stderr, "dropped: %s", source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	405 torture.remove(source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	406 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	407 }catch(Exception e){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	408 debug(drop) fwritefln(stderr, "dropped: %s", source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	409 torture.remove(source);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	410 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	411 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	412 torture.rehash;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	413
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	414 writefln("dropped %s outdated tests (%s remaining)", totalCount - (plain.length + torture.length), plain.length + torture.length);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	415 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	416
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	417
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	418 bool add(char[] line){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	419 const char[] SUB = "Torture-Sub-";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	420 const char[] TORTURE = "Torture:";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	421
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	422 line = strip(line);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	423 int id = -1;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	424 Result r = Result.UNTESTED;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	425
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	426 if(line.length > SUB.length && line[0 .. SUB.length] == SUB){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	427 line = line[SUB.length .. $];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	428 id = 0;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	429 while(line[id] >= '0' && line[id] <= '9'){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	430 id++;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	431 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	432 int start = id;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	433 id = std.conv.toUint(line[0 .. id]);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	434
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	435 while(line[start] != '-'){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	436 start++;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	437 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	438 line = line[start+1 .. $];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	439 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	440
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	441 char[][] token = split(line);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	442 if(token.length < 2){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	443 return false;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	444 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	445 char[] file = strip(token[1]);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	446
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	447 switch(token[0]){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	448 case "PASS:":
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	449 r = Result.PASS; break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	450 case "FAIL:":
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	451 r = Result.FAIL; break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	452 case "XPASS:":
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	453 r = Result.XPASS; break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	454 case "XFAIL:":
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	455 r = Result.XFAIL; break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	456 case "ERROR:":
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	457 r = Result.ERROR; break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	458 default:{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	459 if(token[0] == TORTURE){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	460 throw new Exception("not yet handled: "~line);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	461 }else if(id > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	462 throw new Exception(format("bug in SUB line: (%s) %s", id, line));
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	463 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	464 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	465 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	466
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	467 if(r != Result.UNTESTED){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	468 if(std.string.find(line, "bad error message") > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	469 r \|= Result.BAD_MSG;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	470 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	471 if(std.string.find(line, "bad debugger message") > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	472 r \|= Result.BAD_MSG;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	473 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	474
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	475 file = cleanFileName(file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	476
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	477 if(id < 0){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	478 // update plain
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	479 PlainTest* test = file in plain;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	480
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	481 if(test is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	482 if((file in torture) !is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	483 torture.remove(file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	484 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	485
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	486 plain[file] = new PlainTest(file, r);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	487 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	488 test.r = r;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	489 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	490 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	491 // update sub
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	492 id--;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	493
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	494 TortureTest* test = file in torture;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	495
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	496 if(test is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	497 if((file in plain) !is null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	498 plain.remove(file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	499 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	500
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	501 TortureTest t = new TortureTest(file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	502 torture[file] = t;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	503 t.r[id] = r;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	504 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	505 if(test.r[id] != Result.UNTESTED){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	506 test.r[] = Result.UNTESTED;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	507 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	508 test.r[id] = r;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	509 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	510 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	511 return true;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	512 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	513 return false;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	514 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	515 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	516
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	517 class Regression{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	518 Result before;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	519 Result after;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	520 char[] file;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	521 char[] name;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	522 char[] extInfo;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	523
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	524 this(Result oldResult, PlainTest b){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	525 before = oldResult;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	526 after = b.r;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	527 file = b.file;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	528 name = b.name;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	529 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	530
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	531 this(char[] name, char[] file, Result oldR, Result newR, char[] addonInfo=null){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	532 this.file = file;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	533 this.name = name;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	534 before = oldR;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	535 after = newR;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	536 extInfo = addonInfo;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	537 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	538
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	539 char[] toString(){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	540 char[] back = .toString(before) ~" -> "~.toString(after)~": "~file;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	541 if(extInfo.length > 0){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	542 back ~= " ("~extInfo~")";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	543 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	544 return back;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	545 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	546 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	547
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	548 class Report{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	549 char[] root;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	550 Log[] log;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	551 static const char[] header =
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	552 "<th> </th><th>-g</th><th>-inline</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	553 "<th>-fPIC</th><th>-O</th><th>-release</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	554 "<th>-g -inline</th><th>-g -fPIC</th><th>-g -O</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	555 "<th>-g -release</th><th>-inline -fPIC</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	556 "<th>-inline -O</th><th>-inline -release</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	557 "<th>-fPIC -O</th><th>-fPIC -release</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	558 "<th>-O -release</th><th>-g -inline -fPIC</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	559 "<th>-g -inline -O</th><th>-g -inline -release</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	560 "<th>-g -fPIC -O</th><th>-g -fPIC -release</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	561 "<th>-g -O -release</th><th>-inline -fPIC -O</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	562 "<th>-inline -fPIC -release</th><th>-inline -O -release</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	563 "<th>-fPIC -O -release</th><th>-g -inline -fPIC -O</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	564 "<th>-g -inline -fPIC -release</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	565 "<th>-g -fPIC -O -release</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	566 "<th>-inline -fPIC -O -release</th>"
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	567 "<th>-g -inline -fPIC -O -release</th>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	568
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	569 this(char[] root, Log[] log){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	570 this.root = root;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	571 this.log = log;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	572 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	573
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	574 void toHtml(OutputStream summary, OutputStream[] cases, bool[] hotspot){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	575
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	576 if(cases.length != log.length \|\| cases.length != hotspot.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	577 throw new Exception("unexpected argument length");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	578 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	579 foreach(size_t i, Log l; log){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	580 toHtml(l, cases[i]);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	581 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	582 toHtmlSummary(summary, hotspot);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	583 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	584
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	585 static char[] cleanFileName(char[] name){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	586 int i = rfind(name, "_");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	587 if(i > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	588 name = name[i+1 .. $];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	589 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	590 i = rfind(name, ".");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	591 if(i > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	592 name = name[0 .. i];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	593 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	594 return name;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	595 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	596
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	597 static char[] streamLine(uint[] stats){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	598 char[] buffer;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	599 foreach(uint i; stats){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	600 buffer ~= "<td>"~std.string.toString(i)~"</td>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	601 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	602 return buffer;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	603 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	604
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	605 static void toHtml(Log log, OutputStream stream){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	606 char[] cleanName = cleanFileName(log.id);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	607 { // header
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	608 char[] name = toupper(cleanName);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	609
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	610 stream.writeLine("<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	611 stream.writeLine("<html xmlns='http://www.w3.org/1999/xhtml'>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	612
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	613 stream.writeLine("<head><title>DStress - Torture: "~name~"</title><link rel='stylesheet' type='text/css' href='formate.css' /><meta name='author' content='Thomas Kühne' /><meta name='date' content='" ~ dateString() ~ "' /></head>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	614 stream.writeLine("<body><center><h1>DStress - Torture: "~name~"</h1></center><center><small>by Thomas Kühne <thomas-at-kuehne.cn></small></center>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	615 stream.writeLine("<h2><a name='note' id='note'></a>Note</h2><blockquote>A detailed description of the testing and the used symbols can be found on the <a href='./dstress.html'>main page</a>.</blockquote>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	616 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	617
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	618 { // stats
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	619 stream.writeLine("<h2><a name='summary' id='summary'></a>Summary</h2>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	620 uint[][] stats;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	621 stats.length = 6;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	622 foreach(inout uint[] array; stats){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	623 array.length = TORTURE_FLAGS.length;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	624 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	625
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	626 foreach(TortureTest t; log.torture){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	627 foreach(int i, Result r; t.r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	628 stats[r >> 2][i]++;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	629 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	630 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	631
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	632
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	633 { // total
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	634 uint total = 0;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	635
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	636 foreach(uint[] cases; stats){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	637 total += cases[0];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	638 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	639
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	640 uint config = 0;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	641 foreach(uint[] a; stats[1 .. $]){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	642 foreach(uint b; a){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	643 config += b;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	644 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	645 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	646
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	647 stream.writeLine(format("<blockquote><dl><dt><strong>test cases:</strong></dt><dd>%d</dd><dt><strong>tested configurations:</strong></dt><dd>%d</dd></dl></blockquote>", total, config));
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	648 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	649
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	650
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	651 stream.writeLine("<table border='1' summary='nummeric summary of the test results'>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	652 stream.writeLine("\t<tr><td> </td>"~header~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	653 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.PASS)~"'><th>PASS</th>" ~ streamLine(stats[Result.PASS >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	654 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.XFAIL)~"'><th>XFAIL</th>" ~ streamLine(stats[Result.XFAIL >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	655 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.XPASS)~"'><th>XPASS</th>" ~ streamLine(stats[Result.XPASS >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	656 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.FAIL)~"'><th>FAIL</th>" ~ streamLine(stats[Result.FAIL >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	657 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.ERROR)~"'><th>ERROR</th>" ~ streamLine(stats[Result.ERROR >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	658 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.UNTESTED)~"'><th>untested</th>" ~ streamLine(stats[Result.UNTESTED >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	659 stream.writeLine("</table>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	660 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	661
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	662 { // details
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	663 stream.writeLine("<h2><a name='details' id='details'></a>Details</h2>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	664 stream.writeLine("<table border='1' summary='detailed listing of all test cases with unexpected results'>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	665 stream.writeLine("<tr><td> </td>"~header~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	666
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	667 char[][] keys;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	668 {
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	669 char[][char[]] k;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	670 foreach(char[] org; log.torture.keys){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	671 char[] z = org;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	672 int i = rfind(z, "/");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	673 if(i > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	674 z = z[i+1 .. $];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	675 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	676 i = rfind(z, ".");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	677 if(i > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	678 z = z[0 .. i];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	679 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	680 if(z in k){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	681 throw new Exception("dublicate key "~org);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	682 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	683 k[z] = org;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	684 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	685
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	686 foreach(char[] x; k.keys.sort){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	687 keys ~= k[x];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	688 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	689
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	690 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	691 foreach(char[] key; keys){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	692 TortureTest t = log.torture[key];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	693 Result plainR = t.condensed();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	694
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	695 if(plainR == Result.PASS
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	696 \|\| plainR == Result.XFAIL
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	697 \|\| plainR == Result.UNTESTED)
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	698 {
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	699 continue;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	700 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	701 char[] name = replace(t.name, "_", " ");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	702 char[] back = "<tr><th><a href=\"../"~t.file~"\" id='"~t.name~"'>"~name~"</a></th>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	703 foreach(Result r; t.r){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	704 back ~= "<td class='" ~ cast(char)(r+'A') ~ "'>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	705 if(r == Result.UNTESTED){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	706 back ~= "-";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	707 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	708 try{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	709 back ~= .toString(r & Result.BASE_MASK);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	710 }catch(Exception e){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	711 throw new Exception(t.toString()~" ["~e.toString()~"]");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	712 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	713 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	714 back ~= "</td>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	715 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	716 stream.writeLine(back ~ "</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	717 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	718 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	719
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	720 stream.writeLine("<tr><td> </td>"~header~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	721 stream.writeLine("</table>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	722 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	723
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	724 { // footer
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	725 stream.writeLine("<div><br /><br /><hr /><a href='http://dstress.kuehne.cn/www/"~cleanName~".html'>http://dstress.kuehne.cn/www/"~cleanName~".html</a>   " ~ dateString() ~ "</div>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	726 stream.writeLine("<!-- Start of StatCounter Code -->");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	727 stream.writeLine("<script type='text/javascript'><!-- var sc_project=1337754; var sc_invisible=1; var sc_partition=12; var sc_security=\"a4a998fe\"; var sc_remove_link=1; //--> </script>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	728 stream.writeLine("<script type='text/javascript' src='http://www.statcounter.com/counter/counter_xhtml.js'></script><noscript><div class='statcounter'><img src='http://c13.statcounter.com/counter.php?sc_project=1337754&amp;java=0&amp;security=a4a998fe&amp;invisible=1' class='statcounter' alt='counter' /></div></noscript>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	729 stream.writeLine("<!-- End of StatCounter Code -->");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	730
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	731 stream.writeLine("</body></html>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	732 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	733 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	734
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	735 void toHtmlSummary(OutputStream stream, bool[] hotspot){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	736 if(hotspot.length != log.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	737 throw new Exception("illegal hotspot length");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	738 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	739
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	740 char[][] names;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	741
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	742 foreach(Log l; log){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	743 names ~= l.torture.keys;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	744 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	745
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	746 uint[][] stats;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	747 stats.length = 6;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	748 foreach(inout uint[] array; stats){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	749 array.length = log.length;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	750 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	751
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	752
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	753 char[][char[]] keys;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	754 {
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	755 foreach(char[] org; unique(names)){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	756 char[] z = org;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	757 int i = rfind(z, "/");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	758 if(i > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	759 z = z[i+1 .. $];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	760 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	761 i = rfind(z, ".");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	762 if(i > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	763 z = z[0 .. i];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	764 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	765 if(z in keys){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	766 throw new Exception("dublicate key "~org);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	767 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	768 keys[z] = org;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	769 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	770
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	771 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	772
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	773 { // total
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	774 uint total = keys.keys.length;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	775 for(size_t i = 0; i < stats[0].length; i++){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	776 stats[0][i] = total;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	777 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	778 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	779
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	780 char[][] badLines;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	781 foreach(char[] name; keys.keys.sort){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	782 char[] file = keys[name];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	783 Result[] result = new Result[log.length];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	784 bool isBadLine;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	785 foreach(size_t i, Log l; log){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	786 auto t = file in l.torture;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	787
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	788 if(t){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	789 Result r = t.condensed();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	790 result[i] = r;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	791
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	792 if(r != Result.UNTESTED){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	793 stats[result[i] >> 2][i]++;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	794 stats[0][i]--;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	795 if(hotspot[i] && r>= Result.XPASS){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	796 isBadLine = true;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	797 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	798 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	799 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	800
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	801 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	802
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	803 if(isBadLine){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	804 char[] cleanName = replace(name, "_", " ");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	805 char[] back = "<tr><th><a href=\"../"~file~"\" id='"~name~"'>"~cleanName~"</a></th>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	806 foreach(Result r; result){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	807 back ~= "<td class='" ~ cast(char)(r+'A') ~ "'>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	808 if(r == Result.UNTESTED){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	809 back ~= "-";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	810 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	811 try{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	812 back ~= .toString(r & Result.BASE_MASK);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	813 }catch(Exception e){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	814 throw new Exception("name:" ~name~" ["~e.toString()~"]");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	815 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	816 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	817 back ~= "</td>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	818 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	819 badLines ~= back ~ "</tr>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	820 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	821 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	822
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	823
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	824 // output
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	825 stream.writeLine("<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	826 stream.writeLine("<html xmlns='http://www.w3.org/1999/xhtml'>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	827 stream.writeLine("<head><title>DStress Report</title><link rel='stylesheet' type='text/css' href='formate.css' /><meta name='author' content='Thomas Kühne' /><meta name='date' content='"~dateString()~"' /></head>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	828 stream.writeLine("<body><center><h1>DStress Report</h1></center>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	829 stream.writeLine("<h2><a name='note' id='note'></a>Note</h2>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	830 stream.writeLine("<blockquote>A detailed description of the testing and the used symbols can be found on the <a href='./dstress.html'>main page</a>.</blockquote>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	831 stream.writeLine("<h2><a name='summary' id='summary'></a>Summary</h2>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	832
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	833 stream.writeLine("<table border='1' summary='nummeric summary of the test results'>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	834 char[] versionHeader = "<tr><td> </td>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	835 { // version header
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	836 foreach(Log l; log){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	837 char[] name = l.id;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	838 int i = rfind(name, "/");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	839 if(i > -1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	840 name = name[i+1 .. $];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	841 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	842 i = rfind(name, ".log");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	843 if(i + ".log".length == name.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	844 name = name[0 .. i];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	845 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	846 versionHeader ~= "<th><a href='./" ~ cleanFileName(l.id) ~ ".html'>"~replace(name, "_", " ")~"</a></th>";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	847 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	848 stream.writeLine("\t"~versionHeader);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	849 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	850
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	851 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.PASS)~"'><th>PASS</th>" ~ streamLine(stats[Result.PASS >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	852 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.XFAIL)~"'><th>XFAIL</th>" ~ streamLine(stats[Result.XFAIL >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	853 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.XPASS)~"'><th>XPASS</th>" ~ streamLine(stats[Result.XPASS >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	854 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.FAIL)~"'><th>FAIL</th>" ~ streamLine(stats[Result.FAIL >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	855 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.ERROR)~"'><th>ERROR</th>" ~ streamLine(stats[Result.ERROR >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	856 stream.writeLine("\t<tr class='" ~ cast(char)('A'+Result.UNTESTED)~"'><th>untested</th>" ~ streamLine(stats[Result.UNTESTED >> 2])~"</tr>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	857 stream.writeLine("</table>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	858
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	859 stream.writeLine("<h2><a name='details' id='details'></a>Details</h2>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	860 stream.writeLine("<table border='1'>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	861 stream.writeLine(versionHeader);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	862 foreach(char[] line; badLines){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	863 stream.writeLine(line);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	864 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	865 stream.writeLine(versionHeader);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	866 stream.writeLine("</table>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	867
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	868 stream.writeLine("<div><br /><br /><hr /><a href='http://dstress.kuehne.cn/www/results.html'>http://dstress.kuehne.cn/www/results.html</a>   "~dateString()~"</div>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	869
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	870 stream.writeLine("<!-- Start of StatCounter Code -->");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	871 stream.writeLine("<script type='text/javascript'><!-- var sc_project=1337754; var sc_invisible=1; var sc_partition=12; var sc_security=\"a4a998fe\"; var sc_remove_link=1; //--> </script>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	872 stream.writeLine("<script type='text/javascript' src='http://www.statcounter.com/counter/counter_xhtml.js'></script><noscript><div class='statcounter'><img src='http://c13.statcounter.com/counter.php?sc_project=1337754&amp;java=0&amp;security=a4a998fe&amp;invisible=1' class='statcounter' alt='counter' /></div></noscript>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	873 stream.writeLine("<!-- End of StatCounter Code -->");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	874
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	875 stream.writeLine("</body></html>");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	876 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	877 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	878
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	879 int main(char[][] args){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	880
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	881 if(args.length < 4){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	882 fwritefln(stderr, "%s <command> <root> <log.1> [<log.2> ...]", args[0]);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	883 fwritefln(stderr, "known commands: genUpdateList findRegressions genReport");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	884 return 1;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	885 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	886
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	887
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	888 char[] command = args[1];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	889 char[] root = args[2];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	890 if(root.length < 1){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	891 root = ".";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	892 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	893 debug fwritefln(stderr, "command: %s", command);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	894 debug fwritefln(stderr, "root: %s", root);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	895
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	896 Report report = new Report(root, null);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	897 bool[] hotspot;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	898
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	899 switch(command){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	900 case "genUpdateList", "findRegressions", "genReport": break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	901 default:{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	902 fwritefln(stderr, "unknown command: %s", command);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	903 return -1;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	904 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	905 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	906
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	907 foreach(size_t id, char[] file; args[3 .. $]){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	908 if(file.length > "--".length && file[0 .. 2] == "--"){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	909 file = file[2..$];
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	910 hotspot ~= true;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	911 }else{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	912 hotspot ~= false;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	913 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	914
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	915 writefln("parsing: %s", file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	916 FStime logTime = getFStime(file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	917 debug fwritefln(stderr, "sourceTime: %s", logTime);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	918
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	919 Log l= new Log(file);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	920 Stream source = new BufferedFile(file, FileMode.In);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	921 while(!source.eof()){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	922 l.add(source.readLine());
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	923 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	924
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	925 l.dropBogusResults(logTime, root);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	926
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	927 report.log ~= l;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	928 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	929
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	930 switch(command){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	931 case "genUpdateList":{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	932 foreach(Log l; report.log){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	933 char[][] update = l.genUpdateList(root);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	934 writefln("%s updates required (%s still up to date)", update.length, l.plain.length + l.torture.length);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	935
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	936 char[] updateFile = l.id ~ ".update";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	937 try{std.file.remove(updateFile);}catch{}
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	938
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	939 if(update.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	940 File f = new File(updateFile, FileMode.OutNew);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	941 foreach(char[] line; update){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	942 f.writeLine(line);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	943 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	944 f.close();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	945 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	946 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	947 break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	948 }case "findRegressions":{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	949 foreach(size_t i, Log newLog; report.log[1..$]){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	950 Regression[] newReg = newLog.findRegressions(report.log[i]);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	951 writefln("identified %s new regressions for %s", newReg.length, newLog.id);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	952
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	953 Regression[] oldReg;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	954 {
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	955 Regression[] oldRegT = newLog.findGlobalRegressions(report.log[0 .. i]);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	956 foreach(Regression a; oldRegT){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	957 foreach(Regression b; newReg){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	958 if(a.file == b.file && (!a.extInfo \|\| a.extInfo == b.extInfo)){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	959 goto handled;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	960 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	961 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	962
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	963 oldReg ~= a;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	964 handled: {}
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	965 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	966 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	967
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	968 writefln("identified %s old regressions for %s", oldReg.length, newLog.id);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	969
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	970 char[] regressionFile = newLog.id ~ ".regression";
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	971 try{std.file.remove(regressionFile);}catch{}
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	972
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	973 if(newReg.length + oldReg.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	974 File f = new File(regressionFile, FileMode.OutNew);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	975
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	976 if(newReg.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	977 f.writeLine(format("%s new regressions", newReg.length));
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	978 foreach(Regression r; newReg){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	979 f.writeLine(r.toString());
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	980 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	981 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	982
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	983 if(oldReg.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	984 if(newReg.length){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	985 f.writeLine("");
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	986 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	987 f.writeLine(format("%s old regressions", oldReg.length));
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	988 foreach(Regression r; oldReg){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	989 f.writeLine(r.toString());
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	990 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	991 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	992
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	993 f.close();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	994 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	995 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	996 break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	997 }case "genReport":{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	998 OutputStream[] html;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	999 OutputStream o = new File("./www/results.html", FileMode.OutNew);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1000 foreach(Log l; report.log){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1001 html ~= new File("./www/"~Report.cleanFileName(l.id)~".html", FileMode.OutNew);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1002 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1003
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1004 report.toHtml(o, html, hotspot);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1005
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1006 o.close();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1007 foreach(OutputStream o; html){
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1008 o.close();
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1009 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1010
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1011 break;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1012 }default:{
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1013 fwritefln(stderr, "unknown command: %s", command);
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1014 return -1;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1015 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1016 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1017
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1018 return 0;
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1019 }
cf77fcf67454 added log.d (mail:Pine.LNX.4.64.0603012315520.30259@bellevue.puremagic.com) thomask parents: diff changeset	1020

Mercurial > projects > dstress

annotate log.d @ 879:cf77fcf67454