projects/dstress: dstress.c annotate

annotate dstress.c @ 438:27039d5cbe81

partial cleanup for Windows(dmc)

author	thomask
date	Sun, 17 Apr 2005 01:24:19 +0000
parents	1b4034b27e93
children	edb0923c9159

rev	line source
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	1 /*
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	2 * core test tool for the DStress test suite
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	3 * http://dstress.kuehne.cn
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	4 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	5 * Copyright (C) 2005 Thomas Kuehne <thomas@kuehne.cn>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	6 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	7 * This program is free software; you can redistribute it and/or modify
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	8 * it under the terms of the GNU General Public License as published by
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	9 * the Free Software Foundation; either version 2 of the License, or
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	10 * (at your option) any later version.
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	11 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	12 * This program is distributed in the hope that it will be useful,
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	15 * GNU General Public License for more details.
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	16 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	17 * You should have received a copy of the GNU General Public License
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	18 * along with this program; if not, write to the Free Software
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	20 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	21 * $HeadURL$
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	22 * $Date$
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	23 * $Author$
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	24 *
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	25 */
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	26
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	27 /* Beware: the code doesn't care about freeing allocated memory etc... */
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	28
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	29 #include <stdlib.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	30 #include <stdio.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	31 #include <string.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	32 #include <errno.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	33
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	34 #define TAG "__DSTRESS_DFLAGS__"
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	35 #define OBJ "-odobj "
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	36 #define TLOG "log.tmp"
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	37
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	38 #define RUN 1
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	39 #define NORUN 2
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	40 #define COMPILE 4
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	41 #define NOCOMPILE 8
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	42
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	43 #ifdef __GNU_LIBRARY__
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	44 #define USE_POSIX
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	45 #endif
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	46
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	47 #ifdef __GLIBC__
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	48 #define USE_POSIX
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	49 #endif
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	50
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	51 #ifdef linux
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	52 #define USE_POSIX
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	53 #endif
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	54
273 68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	55 #if defined(__APPLE__) && defined(__MACH__)
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	56 #define USE_POSIX
273 68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	57 #endif
68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	58
68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	59 #ifdef __FreeBSD__
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	60 #define USE_POSIX
273 68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	61 #endif
68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	62
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	63
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	64 #ifdef USE_POSIX
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	65
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	66 #define SHELL_RETURN_OK 0
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	67 #define SHELL_RETURN_FAIL 256
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	68 #define crashRun system
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	69
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	70 #include <sys/types.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	71 #include <sys/stat.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	72 #include <fcntl.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	73 #include <unistd.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	74 char* loadFile(char* filename){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	75 char* back = NULL;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	76 struct stat fileInfo;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	77 int file = open(filename, O_RDONLY);
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	78 if(errno == 0 && file != 0 && file != -1){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	79 if(0==fstat(file, &fileInfo)){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	80 back=malloc(fileInfo.st_size+1);
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	81 fileInfo.st_size = read(file, back, fileInfo.st_size);
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	82 if(fileInfo.st_size>0){
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	83 *(back+fileInfo.st_size+1) = '\x00';
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	84 }else{
436 5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	85 back = NULL;
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	86 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	87 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	88 close(file);
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	89 }
436 5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	90
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	91 if(back){
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	92 return back;
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	93 }
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	94
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	95 fprintf(stderr, "File not found \"%s\"\n", filename);
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	96 exit(EXIT_FAILURE);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	97 }
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	98
429 1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	99 void *xmalloc(size_t size)
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	100 {
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	101 void *p;
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	102 if (p < 0)
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	103 {
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	104 fprintf(stderr,"Failed to allocate %ld bytes!\n", size);
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	105 exit(EXIT_FAILURE);
429 1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	106 }
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	107 p = malloc(size);
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	108 if (p == NULL)
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	109 {
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	110 fprintf(stderr,"Failed to allocate %ld bytes!\n", size);
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	111 exit(EXIT_FAILURE);
429 1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	112 }
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	113 return p;
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	114 }
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	115
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	116 #define malloc xmalloc
1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	117
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	118 #else
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	119
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	120 #ifdef WIN32
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	121
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	122 #define SHELL_RETURN_OK 0
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	123 #define SHELL_RETURN_FAIL 1
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	124
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	125 #include <windows.h>
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	126 char* loadFile(char* filename){
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	127 char* back=NULL;
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	128 DWORD size, numread;
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	129 HANDLE file=CreateFile(filename, GENERIC_READ, FILE_SHARE_READ, NULL,
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	130 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL \| FILE_FLAG_SEQUENTIAL_SCAN, NULL);
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	131 if (file != INVALID_HANDLE_VALUE){
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	132 size = GetFileSize(file, NULL);
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	133 if (size != INVALID_FILE_SIZE){
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	134 back=malloc((size+1)*sizeof(char));
292 7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	135 if (ReadFile(file,back,size,&numread,NULL) == 1){
7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	136 if (numread==size){
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	137 *(back+size+1) = '\x00';
292 7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	138 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	139 back = NULL;
292 7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	140 }
7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	141 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	142 back = NULL;
292 7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	143 }
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	144 }
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	145 CloseHandle(file);
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	146 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	147 if(back){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	148 errno = 0;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	149 return back;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	150 }
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	151
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	152 fprintf(stderr, "File not found \"%s\"\n", filename);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	153 exit(EXIT_FAILURE);
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	154 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	155 //#error no crashRun adaptation available for this system
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	156
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	157 #else
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	158 #error no loadFile adaptation available for this system
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	159
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	160 /* like system(char) but has to return without human intervention even if the application segfaults /
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	161 #error no crashRun adaptation available for this system
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	162
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	163 #endif /* WIN32 else */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	164 #endif /* USE_POSIX else */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	165
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	166 /* cleanup "/" versus "\" in filenames */
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	167 char* cleanPathSeperator(char* filename){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	168 char* pos;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	169 #ifdef USE_POSIX
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	170 for(pos=strchr(filename, '\\'); pos; pos=strchr(filename, '\\')){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	171 *pos='/';
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	172 }
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	173 #else if WIN32
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	174 for(pos=strchr(filename, '/'); pos; pos=strchr(filename, '/')){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	175 *pos='\\';
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	176 }
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	177 #else
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	178 #error no cleanPathseperator adaptation available for this system
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	179 #endif
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	180 return filename;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	181 }
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	182
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	183 /* Query the environment for the compiler name */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	184 char* getCompiler(){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	185 char* back = getenv("DMD");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	186 if(back == NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	187 back = getenv("dmd");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	188 if(back==NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	189 back = "dmd";
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	190 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	191 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	192 return cleanPathSeperator(back);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	193 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	194
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	195 /* Query the environment for general flags */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	196 char* getGeneralFlags(){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	197 char* back = getenv("DFLAGS");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	198 if(back == NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	199 back = getenv("dflags");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	200 if(back==NULL){
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	201 back = calloc(1,1);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	202 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	203 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	204 return cleanPathSeperator(back);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	205 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	206
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	207 /* extract the FIRST occurance of a given FLAG until the next linebreak */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	208 char* getCaseFlag(const char* data, const char* tag){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	209 char* begin;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	210 char* end1;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	211 char* end2;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	212 char* back;
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	213
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	214 if(data!=NULL && tag!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	215 begin = strstr(data, tag);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	216 if(begin!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	217 begin = begin+strlen(tag);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	218 end1 = strstr(begin, "\n");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	219 end2 = strstr(begin, "\r");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	220 if(end2!=NULL && ((end1!=NULL && end2<end1) \|\| end1==NULL)){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	221 end1=end2;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	222 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	223 if(end1==NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	224 end1 = begin + strlen(begin);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	225 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	226 back = malloc(end1-begin+1);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	227 strncpy(back, begin, end1-begin);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	228 back[end1-begin+1]='\x00';
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	229 return cleanPathSeperator(back);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	230 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	231 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	232
429 1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	233 return calloc(1,1);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	234 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	235
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	236
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	237 int checkErrorMessage(const char* file_, const char* line_, const char* buffer){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	238
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	239 char* file;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	240 char* line;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	241 char* dmd;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	242 char* gdc;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	243
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	244 char* begin;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	245 char* end1;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	246 char* end2;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	247
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	248 int back=0;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	249
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	250 /* clean arguments */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	251 if(strcmp(file_, "")!=0){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	252 file = malloc(strlen(file_)+1);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	253 strcpy(file, file_);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	254 }else{
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	255 file=NULL;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	256 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	257
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	258 if(strcmp(line_, "")!=0){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	259 line = malloc(strlen(line_)+1);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	260 strcpy(line, line_);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	261 }else{
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	262 line=NULL;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	263 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	264
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	265 /* gen patterns*/
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	266 if(file!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	267 if(line!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	268 dmd = malloc(strlen(file)+strlen(line)+5);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	269 dmd[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	270 strcat(dmd, file);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	271 strcat(dmd, "(");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	272 strcat(dmd, line);
405 7df87732c662 fixed DMD's pattern generator for in-message location thomask parents: 373 diff changeset	273 strcat(dmd, ")");
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	274 gdc = malloc(strlen(file)+strlen(line)+4);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	275 gdc[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	276 strcat(gdc, file);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	277 strcat(gdc, ":");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	278 strcat(gdc, line);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	279 strcat(gdc, ": ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	280 }else{
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	281 dmd = malloc(strlen(file)+2);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	282 dmd[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	283 strcat(dmd, file);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	284 strcat(dmd, "(");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	285 gdc = malloc(strlen(file)+2);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	286 gdc[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	287 strcat(gdc, file);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	288 strcat(gdc, ":");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	289 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	290 }else if(line!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	291 dmd = malloc(strlen(line)+5);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	292 dmd[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	293 strcat(dmd, "(");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	294 strcat(dmd, line);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	295 strcat(dmd, "): ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	296 gdc = malloc(strlen(line)+4);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	297 gdc[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	298 strcat(gdc, ":");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	299 strcat(gdc, line);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	300 strcat(gdc, ": ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	301 }else{
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	302 return 1;
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	303 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	304
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	305 /* specific error messages */
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	306
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	307 if( (dmd!=NULL && strstr(buffer, dmd))
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	308 \|\| (gdc!=NULL && strstr(buffer, gdc))
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	309 \|\| (dmd==NULL && gdc==NULL)){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	310 back=1;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	311 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	312
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	313 return back;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	314 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	315
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	316 int checkRuntimeErrorMessage(const char* file_, const char* line_, const char* buffer){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	317 /* PhobosLong dir/file.d(2)
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	318 * Phobos package.module(2)
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	319 */
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	320
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	321 char* file;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	322 char* line;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	323 char* phobos;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	324 char* phobosLong;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	325
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	326 char* begin;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	327 char* end1;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	328 char* end2;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	329
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	330 int back=0;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	331
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	332 /* clean arguments */
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	333 if(strcmp(file_, "")!=0){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	334 file = malloc(strlen(file_)+1);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	335 strcpy(file, file_);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	336 }else{
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	337 file=NULL;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	338 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	339
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	340 if(strcmp(line_, "")!=0){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	341 line = malloc(strlen(line_)+1);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	342 strcpy(line, line_);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	343 }else{
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	344 line=NULL;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	345 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	346
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	347 /* gen patterns*/
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	348 if(file!=NULL){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	349 if(line!=NULL){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	350 phobos = malloc(strlen(file)+strlen(line)+5);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	351 phobos[0]='\x00';
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	352 begin=strrchr(file,'/');
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	353 if(begin){
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	354 begin++;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	355 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	356 begin=strrchr(file,'\\');
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	357 if(begin){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	358 begin++;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	359 }else{
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	360 begin=file;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	361 }
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	362 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	363 end1=strrchr(file,'.');
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	364 strncat(phobos, begin, end1-begin);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	365 strcat(phobos, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	366 strcat(phobos, line);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	367 strcat(phobos, ")");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	368
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	369 phobosLong = malloc(strlen(file)+strlen(line)+5);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	370 phobosLong[0]='\x00';
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	371 strcat(phobosLong, file);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	372 strcat(phobosLong, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	373 strcat(phobosLong, line);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	374 strcat(phobosLong, ")");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	375
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	376 }else{
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	377 phobos = malloc(strlen(file)+2);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	378 phobos[0]='\x00';
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	379 begin=strrchr(file,'/');
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	380 if(begin){
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	381 begin++;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	382 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	383 begin=strrchr(file,'\\');
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	384 if(begin){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	385 begin++;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	386 }else{
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	387 begin=file;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	388 }
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	389 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	390 end1=strrchr(file,'.');
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	391 strncat(phobos, begin, end1-begin);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	392 strcat(phobos, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	393
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	394 phobosLong = malloc(strlen(file)+2);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	395 phobosLong[0]='\x00';
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	396 strcat(phobosLong, file);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	397 strcat(phobosLong, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	398 }
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	399 }else if(line!=NULL){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	400 phobos = malloc(strlen(line)+3);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	401 phobos[0]='\x00';
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	402 strcat(phobos, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	403 strcat(phobos, line);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	404 strcat(phobos, ")");
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	405
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	406 phobosLong=NULL;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	407 }else{
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	408 return 1;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	409 }
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	410
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	411 /* specific error messages */
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	412
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	413 if( (phobos && strstr(buffer, phobos))
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	414 \|\| (phobosLong && strstr(buffer, phobosLong)))
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	415 {
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	416 back=1;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	417 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	418
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	419 return back;
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	420 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	421
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	422
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	423 int main(int argc, char* arg[]){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	424 char* compiler; /* the compiler - from enviroment flag "DMD" */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	425 char* cmd_arg_general; /* additional arguments - from enviroment flag "DFLAGS" */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	426 char* cmd_arg_case; /* additional arguments - from the testcase file */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	427 char* buffer; /* general purpos buffer */
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	428 int modus; /* test modus: RUN NORUN COMPILE NOCOMPILE */
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	429 int res; /* return code from external executions */
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	430 char* case_file;
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	431 char* error_file; /* expected sourcefile containing the error */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	432 char* error_line; /* expected error line */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	433 int good_error; /* error contained file and line and matched the expectations */
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	434
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	435 /* check arguments */
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	436 if(argc != 3){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	437 err:
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	438 if(argc!=0)
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	439 fprintf(stderr,"%s <run\|norun\|compile\|nocompile> <source>\n", arg[0]);
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	440 else
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	441 fprintf(stderr,"dstress <run\|norun\|compile\|nocompile> <source>\n");
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	442 exit(EXIT_FAILURE);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	443 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	444
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	445 if(0==strcmp(arg[1], "run") \|\| 0==strcmp(arg[1], "RUN")){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	446 modus = RUN;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	447 }else if(0==strcmp(arg[1], "norun") \|\| 0==strcmp(arg[1], "NORUN")){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	448 modus = NORUN;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	449 }else if(0==strcmp(arg[1], "compile") \|\| 0==strcmp(arg[1], "COMPILE")){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	450 modus = COMPILE;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	451 }else if(0==strcmp(arg[1], "nocompile") \|\| 0==strcmp(arg[1], "NOCOMPILE")){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	452 modus = NOCOMPILE;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	453 }else{
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	454 goto err;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	455 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	456
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	457 /* gen flags */
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	458 case_file = cleanPathSeperator(strdup(arg[2]));
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	459 compiler = getCompiler();
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	460 cmd_arg_general = getGeneralFlags();
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	461 buffer = loadFile(case_file);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	462
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	463 cmd_arg_case = getCaseFlag(buffer, "__DSTRESS_DFLAGS__");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	464 error_line = getCaseFlag(buffer, "__DSTRESS_ELINE__");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	465 error_file = getCaseFlag(buffer, "__DSTRESS_EFILE__");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	466
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	467 #if 0
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	468 fprintf(stderr, "case: \"%s\"\n", case_file);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	469 fprintf(stderr, "compiler: \"%s\"\n", compiler);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	470 fprintf(stderr, "DFLAGS G: \"%s\"\n", cmd_arg_general);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	471 fprintf(stderr, "DFLAGS C: \"%s\"\n", cmd_arg_case);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	472 fprintf(stderr, "ELINE : \"%s\"\n", error_line);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	473 fprintf(stderr, "EFILE : \"%s\"\n", error_file);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	474 #endif
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	475
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	476 /* strip spaces */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	477 while(error_line[0]==' '){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	478 error_line++;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	479 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	480 for(buffer=error_line+strlen(error_line)-1; buffer && buffer[0]==' '; buffer=error_line+strlen(error_line)-1){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	481 buffer[0]='\x00';
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	482 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	483 while(error_file[0]==' '){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	484 error_file++;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	485 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	486 for(buffer=error_file+strlen(error_file)-1; buffer && buffer[0]==' '; buffer=error_file+strlen(error_file)-1){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	487 buffer[0]='\x00';
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	488 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	489
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	490 /* set implicit source file */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	491 if(strcmp(error_line, "")!=0 && strcmp(error_file, "")==0){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	492 error_file=case_file;
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	493 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	494
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	495 /* start working */
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	496 if(modus==COMPILE \|\| modus==NOCOMPILE){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	497 /* gen command */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	498 buffer = malloc(strlen(compiler)+strlen(cmd_arg_general)+strlen(cmd_arg_case)+strlen(OBJ)
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	499 +strlen(case_file)+strlen(TLOG)+64);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	500 buffer[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	501 strcat(buffer, compiler);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	502 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	503 strcat(buffer, cmd_arg_general);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	504 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	505 strcat(buffer, cmd_arg_case);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	506 strcat(buffer, " -c ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	507 if(NULL==strstr(buffer, "-od")){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	508 strcat(buffer, OBJ);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	509 strcat(buffer, " ");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	510 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	511 strcat(buffer, case_file);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	512 strcat(buffer, " 1> ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	513 strcat(buffer, TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	514 strcat(buffer, " 2>&1");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	515
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	516 /* test */
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	517 if(modus==COMPILE){
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	518 fprintf(stderr, "compile: %s\n", buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	519 }else{
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	520 fprintf(stderr, "nocompile: %s\n", buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	521 }
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	522 res = crashRun(buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	523
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	524 /* diagnostic */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	525 buffer = loadFile(TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	526 fprintf(stderr, "%s\n", buffer);
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	527 good_error = checkErrorMessage(error_file, error_line, buffer);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	528
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	529 if(strstr(buffer, "Internal error")!= NULL \|\| strstr(buffer, "gcc.gnu.org/bugs")!=NULL){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	530 printf("ERROR:\t%s (Internal compiler error)\n", case_file);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	531 }else if(modus==COMPILE){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	532 if(res==SHELL_RETURN_OK){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	533 printf("PASS: \t%s\n", case_file);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	534 }else if(res==SHELL_RETURN_FAIL && good_error){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	535 if(checkErrorMessage(case_file, "", buffer)){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	536 printf("FAIL: \t%s [%d]\n", case_file, res);
373 177ce8d13eac test cases that unexpectetly fail and in addition fail to provide file/line information are now treated as ERROR instead of FAIL thomask parents: 361 diff changeset	537 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	538 printf("ERROR:\t%s [%d] [bad error message]\n", case_file, res);
373 177ce8d13eac test cases that unexpectetly fail and in addition fail to provide file/line information are now treated as ERROR instead of FAIL thomask parents: 361 diff changeset	539 }
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	540 }else if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	541 printf("ERROR:\t%s [%d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	542 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	543 printf("ERROR:\t%s [%d] [bad error message]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	544 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	545 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	546 if(res==SHELL_RETURN_FAIL){
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	547 if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	548 printf("XFAIL:\t%s\n", case_file);
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	549 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	550 printf("FAIL: \t%s [bad error message]\n", case_file);
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	551 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	552 }else if(res==SHELL_RETURN_OK){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	553 printf("XPASS:\t%s\n", case_file);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	554 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	555 printf("ERROR:\t%s [%d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	556 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	557 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	558 fprintf(stderr,"--------\n");
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	559 }else if(modus==RUN \|\| modus==NORUN){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	560 /* gen command */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	561 buffer = malloc(strlen(compiler)+strlen(cmd_arg_general)+strlen(cmd_arg_case)+strlen(OBJ)
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	562 +strlen(case_file)*2+strlen(TLOG)+64);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	563 buffer[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	564 strcat(buffer, compiler);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	565 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	566 strcat(buffer, cmd_arg_general);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	567 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	568 strcat(buffer, cmd_arg_case);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	569 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	570 if(NULL==strstr(buffer, "-od")){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	571 strcat(buffer, OBJ);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	572 strcat(buffer, " ");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	573 }
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	574 if(NULL==strstr(buffer, "-of")){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	575 strcat(buffer, "-of");
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	576 strcat(buffer, case_file);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	577 strcat(buffer, ".exe ");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	578 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	579 strcat(buffer, case_file);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	580 strcat(buffer, " 1> ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	581 strcat(buffer, TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	582 strcat(buffer, " 2>&1");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	583
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	584 /* test 1/2 */
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	585 if(modus==RUN){
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	586 fprintf(stderr, "run: %s\n", buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	587 }else{
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	588 fprintf(stderr, "norun: %s\n", buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	589 }
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	590 res = crashRun(buffer);
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	591
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	592 /* diagnostic 1/2 */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	593 buffer = loadFile(TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	594 fprintf(stderr, "%s", buffer);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	595 good_error = checkErrorMessage(error_file, error_line, buffer);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	596 if(strstr(buffer, "Internal error")!= NULL \|\| strstr(buffer, "gcc.gnu.org/bugs")!=NULL){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	597 printf("ERROR:\t%s (Internal compiler error)\n", case_file);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	598 fprintf(stderr, "\n--------\n");
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	599 return EXIT_SUCCESS;
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	600 }else if(res==SHELL_RETURN_FAIL && good_error){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	601 printf("FAIL: \t%s [%d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	602 fprintf(stderr, "\n--------\n");
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	603 return EXIT_SUCCESS;
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	604 }else if(res!=SHELL_RETURN_OK){
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	605 if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	606 printf("ERROR:\t%s [%d]\n", case_file, res);
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	607 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	608 printf("ERROR:\t%s [%d] [bad error message]\n", case_file, res);
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	609 }
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	610 fprintf(stderr, "\n--------\n");
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	611 return EXIT_SUCCESS;
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	612 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	613
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	614 /* test 2/2 */
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	615 buffer = malloc(strlen(case_file) + strlen(TLOG) + 24);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	616 *buffer = '\x00';
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	617 strcat(buffer, case_file);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	618 strcat(buffer, ".exe 1> ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	619 strcat(buffer, TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	620 strcat(buffer, " 2>&1");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	621 fprintf(stderr, "%s\n", buffer);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	622 res=crashRun(buffer);
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	623
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	624 /* diagnostic 2/2 */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	625 buffer = loadFile(TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	626 fprintf(stderr, "%s\n", buffer);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	627 good_error = checkRuntimeErrorMessage(error_file, error_line, buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	628 if(modus==RUN){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	629 if(res==SHELL_RETURN_OK){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	630 printf("PASS: \t%s\n", case_file);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	631 }else if(res==SHELL_RETURN_FAIL && good_error){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	632 printf("FAIL: \t%s [run: %d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	633 }else{
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	634 if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	635 printf("ERROR:\t%s [run: %d]\n", case_file, res);
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	636 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	637 printf("ERROR:\t%s [run: %d] [bad error message]\n", case_file, res);
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	638 }
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	639 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	640 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	641 if(res==SHELL_RETURN_FAIL){
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	642 if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	643 printf("XFAIL:\t%s\n", case_file);
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	644 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	645 printf("FAIL: \t%s [bad errror message]\n", case_file);
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	646 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	647 }else if(res==SHELL_RETURN_OK){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	648 printf("XPASS:\t%s [norun: %d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	649 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	650 printf("ERROR:\t%s [norun: %d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	651 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	652 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	653 fprintf(stderr, "--------\n");
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	654 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	655 printf("@bug@ %d (%s)\n", modus, case_file);
436 5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	656 return EXIT_FAILURE;
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	657 }
436 5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	658 return EXIT_SUCCESS;
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	659 }

Mercurial > projects > dstress

annotate dstress.c @ 438:27039d5cbe81