Blame

Date:
Message:
Working on better handling of multithreading in general and core dumps in particular. See notes: new types: register is something that when dereferenced gives you the registers. the Ureg is no longer mapped at 0. refconst is something that gives a constant when dereferenced. new builtin register("AX") creates register values new builtin refconst(0x123) creates refconst values new builtin var("foo") is equivalent to the variable foo (it returns foo but can also be used as the lhs of an assignment). new acid function getregs() returns a list of the current values of registers. new acid function setregs() sets the current registers to those values. note that getregs and setregs operate on register locations, not the register values themselves. new acid function resetregs() sets registers to register("AX"), etc. new acid function clearregs() sets all registers to constant -1. the default register settings are as in resetregs(), not small numbers. new acid variables coretext, pids, systype, corefile, cmdline. new behavior: local variable lookup, stk, etc., use the acid values of registers (*PC, *SP, and so on), so the thread support code can change the context completely. unary + is applicable to more data types and prints more often.
Actions:
History | Blob | Raw File
  1 564ca709 2004-04-19 devnull #include <u.h>

  2 564ca709 2004-04-19 devnull #include <libc.h>

  3 564ca709 2004-04-19 devnull #include <bio.h>

  4 564ca709 2004-04-19 devnull #include <mach.h>

  5 564ca709 2004-04-19 devnull #define Extern

  6 564ca709 2004-04-19 devnull #include "acid.h"

  7 564ca709 2004-04-19 devnull #include "y.tab.h"

  8 564ca709 2004-04-19 devnull 

  9 564ca709 2004-04-19 devnull extern int __ifmt(Fmt*);

 10 564ca709 2004-04-19 devnull 

 11 564ca709 2004-04-19 devnull static Biobuf	bioout;

 12 564ca709 2004-04-19 devnull static char*	lm[16];

 13 564ca709 2004-04-19 devnull static int	nlm;

 14 564ca709 2004-04-19 devnull static char*	mtype;

 15 564ca709 2004-04-19 devnull 

 16 564ca709 2004-04-19 devnull static	int attachfiles(int, char**);

 17 564ca709 2004-04-19 devnull int	xfmt(Fmt*);

 18 564ca709 2004-04-19 devnull int	isnumeric(char*);

 19 564ca709 2004-04-19 devnull void	die(void);

 20 564ca709 2004-04-19 devnull void	setcore(Fhdr*);

 21 564ca709 2004-04-19 devnull 

 22 564ca709 2004-04-19 devnull void

 23 564ca709 2004-04-19 devnull usage(void)

 24 564ca709 2004-04-19 devnull {

 25 564ca709 2004-04-19 devnull 	fprint(2, "usage: acid [-c core] [-l module] [-m machine] [-qrw] [-k] [pid] [file]\n");

 26 564ca709 2004-04-19 devnull 	exits("usage");

 27 f9aa99c7 2004-06-09 devnull }

 28 f9aa99c7 2004-06-09 devnull 

 29 f9aa99c7 2004-06-09 devnull Map*

 30 f9aa99c7 2004-06-09 devnull dumbmap(int fd)

 31 f9aa99c7 2004-06-09 devnull {

 32 f9aa99c7 2004-06-09 devnull 	Map *dumb;

 33 f9aa99c7 2004-06-09 devnull 	Seg s;

 34 f9aa99c7 2004-06-09 devnull 

 35 f9aa99c7 2004-06-09 devnull 	dumb = allocmap();

 36 f9aa99c7 2004-06-09 devnull 	memset(&s, 0, sizeof s);

 37 f9aa99c7 2004-06-09 devnull 	s.fd = fd;

 38 f9aa99c7 2004-06-09 devnull 	s.base = 0;

 39 f9aa99c7 2004-06-09 devnull 	s.offset = 0;

 40 f9aa99c7 2004-06-09 devnull 	s.size = 0xFFFFFFFF;

 41 f9aa99c7 2004-06-09 devnull 	s.name = "data";

 42 f9aa99c7 2004-06-09 devnull 	s.file = "<dumb>";

 43 f9aa99c7 2004-06-09 devnull 	if(addseg(dumb, s) < 0){

 44 f9aa99c7 2004-06-09 devnull 		freemap(dumb);

 45 f9aa99c7 2004-06-09 devnull 		return nil;

 46 f9aa99c7 2004-06-09 devnull 	}

 47 f9aa99c7 2004-06-09 devnull 	if(mach == nil)

 48 f9aa99c7 2004-06-09 devnull 		mach = machcpu;

 49 f9aa99c7 2004-06-09 devnull 	return dumb;

 50 564ca709 2004-04-19 devnull }

 51 564ca709 2004-04-19 devnull 

 52 564ca709 2004-04-19 devnull void

 53 564ca709 2004-04-19 devnull main(int argc, char *argv[])

 54 564ca709 2004-04-19 devnull {

 55 f7b74c17 2004-12-28 devnull 	Lsym *volatile l;

 56 564ca709 2004-04-19 devnull 	Node *n;

 57 564ca709 2004-04-19 devnull 	char buf[128], *s;

 58 564ca709 2004-04-19 devnull 	int pid, i;

 59 564ca709 2004-04-19 devnull 

 60 564ca709 2004-04-19 devnull 	argv0 = argv[0];

 61 564ca709 2004-04-19 devnull 	pid = 0;

 62 564ca709 2004-04-19 devnull 	quiet = 1;

 63 564ca709 2004-04-19 devnull 

 64 564ca709 2004-04-19 devnull 	mtype = 0;

 65 564ca709 2004-04-19 devnull 	ARGBEGIN{

 66 564ca709 2004-04-19 devnull 	case 'A':

 67 564ca709 2004-04-19 devnull 		abort();

 68 564ca709 2004-04-19 devnull 		break;

 69 564ca709 2004-04-19 devnull 	case 'm':

 70 564ca709 2004-04-19 devnull 		mtype = ARGF();

 71 564ca709 2004-04-19 devnull 		break;

 72 564ca709 2004-04-19 devnull 	case 'w':

 73 564ca709 2004-04-19 devnull 		wtflag = 1;

 74 564ca709 2004-04-19 devnull 		break;

 75 564ca709 2004-04-19 devnull 	case 'l':

 76 564ca709 2004-04-19 devnull 		s = ARGF();

 77 564ca709 2004-04-19 devnull 		if(s == 0)

 78 564ca709 2004-04-19 devnull 			usage();

 79 564ca709 2004-04-19 devnull 		lm[nlm++] = s;

 80 564ca709 2004-04-19 devnull 		break;

 81 564ca709 2004-04-19 devnull 	case 'k':

 82 564ca709 2004-04-19 devnull 		kernel++;

 83 564ca709 2004-04-19 devnull 		break;

 84 564ca709 2004-04-19 devnull 	case 'q':

 85 564ca709 2004-04-19 devnull 		quiet = 0;

 86 564ca709 2004-04-19 devnull 		break;

 87 564ca709 2004-04-19 devnull 	case 'r':

 88 564ca709 2004-04-19 devnull 		pid = 1;

 89 564ca709 2004-04-19 devnull 		remote++;

 90 564ca709 2004-04-19 devnull 		kernel++;

 91 564ca709 2004-04-19 devnull 		break;

 92 564ca709 2004-04-19 devnull 	default:

 93 564ca709 2004-04-19 devnull 		usage();

 94 564ca709 2004-04-19 devnull 	}ARGEND

 95 564ca709 2004-04-19 devnull 

 96 564ca709 2004-04-19 devnull 	fmtinstall('x', xfmt);

 97 564ca709 2004-04-19 devnull 	fmtinstall('Z', Zfmt);

 98 564ca709 2004-04-19 devnull 	fmtinstall('L', locfmt);

 99 564ca709 2004-04-19 devnull 	Binit(&bioout, 1, OWRITE);

100 564ca709 2004-04-19 devnull 	bout = &bioout;

101 564ca709 2004-04-19 devnull 

102 e637c944 2004-04-20 devnull 	initexpr();

103 d2cbcb77 2004-04-20 devnull 	initprint();

104 564ca709 2004-04-19 devnull 	kinit();

105 564ca709 2004-04-19 devnull 	initialising = 1;

106 564ca709 2004-04-19 devnull 	pushfile(0);

107 564ca709 2004-04-19 devnull 	loadvars();

108 564ca709 2004-04-19 devnull 	installbuiltin();

109 4f2ac1b7 2005-01-23 devnull 	acidregs = mallocz(sizeof *acidregs, 1);

110 4f2ac1b7 2005-01-23 devnull 	acidregs->rw = acidregsrw;

111 564ca709 2004-04-19 devnull 

112 564ca709 2004-04-19 devnull 	if(mtype && machbyname(mtype) == 0)

113 564ca709 2004-04-19 devnull 		print("unknown machine %s", mtype);

114 564ca709 2004-04-19 devnull 

115 564ca709 2004-04-19 devnull 	if (attachfiles(argc, argv) < 0)

116 564ca709 2004-04-19 devnull 		varreg();		/* use default register set on error */

117 564ca709 2004-04-19 devnull 	if(mach == nil)

118 564ca709 2004-04-19 devnull 		mach = machcpu;

119 564ca709 2004-04-19 devnull 

120 564ca709 2004-04-19 devnull 	symhdr = nil;	/* not supposed to use this anymore */

121 564ca709 2004-04-19 devnull 

122 564ca709 2004-04-19 devnull 	l = mkvar("acid");

123 564ca709 2004-04-19 devnull 	l->v->set = 1;

124 564ca709 2004-04-19 devnull 	l->v->type = TLIST;

125 564ca709 2004-04-19 devnull 	l->v->store.u.l = nil;

126 564ca709 2004-04-19 devnull 

127 13e66070 2004-04-20 devnull 	loadmodule(unsharp("#9/acid/port"));

128 564ca709 2004-04-19 devnull 	for(i = 0; i < nlm; i++) {

129 564ca709 2004-04-19 devnull 		if(access(lm[i], AREAD) >= 0)

130 564ca709 2004-04-19 devnull 			loadmodule(lm[i]);

131 564ca709 2004-04-19 devnull 		else {

132 13e66070 2004-04-20 devnull 			sprint(buf, "#9/acid/%s", lm[i]);

133 13e66070 2004-04-20 devnull 			loadmodule(unsharp(buf));

134 564ca709 2004-04-19 devnull 		}

135 564ca709 2004-04-19 devnull 	}

136 564ca709 2004-04-19 devnull 

137 564ca709 2004-04-19 devnull 	userinit();

138 564ca709 2004-04-19 devnull 	varsym();

139 564ca709 2004-04-19 devnull 

140 564ca709 2004-04-19 devnull 	l = look("acidmap");

141 564ca709 2004-04-19 devnull 	if(l && l->proc) {

142 b4a659b6 2004-04-19 devnull 		if(setjmp(err) == 0){

143 b4a659b6 2004-04-19 devnull 			n = an(ONAME, ZN, ZN);

144 b4a659b6 2004-04-19 devnull 			n->sym = l;

145 b4a659b6 2004-04-19 devnull 			n = an(OCALL, n, ZN);

146 b4a659b6 2004-04-19 devnull 			execute(n);

147 b4a659b6 2004-04-19 devnull 		}

148 564ca709 2004-04-19 devnull 	}

149 564ca709 2004-04-19 devnull 

150 564ca709 2004-04-19 devnull 	interactive = 1;

151 564ca709 2004-04-19 devnull 	initialising = 0;

152 564ca709 2004-04-19 devnull 	line = 1;

153 564ca709 2004-04-19 devnull 

154 564ca709 2004-04-19 devnull 	notify(catcher);

155 564ca709 2004-04-19 devnull 

156 564ca709 2004-04-19 devnull 	for(;;) {

157 564ca709 2004-04-19 devnull 		if(setjmp(err)) {

158 564ca709 2004-04-19 devnull 			Binit(&bioout, 1, OWRITE);

159 564ca709 2004-04-19 devnull 			unwind();

160 564ca709 2004-04-19 devnull 		}

161 564ca709 2004-04-19 devnull 		stacked = 0;

162 564ca709 2004-04-19 devnull 

163 564ca709 2004-04-19 devnull 		Bprint(bout, "acid; ");

164 564ca709 2004-04-19 devnull 

165 564ca709 2004-04-19 devnull 		if(yyparse() != 1)

166 564ca709 2004-04-19 devnull 			die();

167 564ca709 2004-04-19 devnull 		restartio();

168 564ca709 2004-04-19 devnull 

169 564ca709 2004-04-19 devnull 		unwind();

170 564ca709 2004-04-19 devnull 	}

171 9268e33d 2005-01-14 devnull /*

172 564ca709 2004-04-19 devnull 	Bputc(bout, '\n');

173 564ca709 2004-04-19 devnull 	exits(0);

174 9268e33d 2005-01-14 devnull */

175 4f2ac1b7 2005-01-23 devnull }

176 4f2ac1b7 2005-01-23 devnull 

177 4f2ac1b7 2005-01-23 devnull void

178 4f2ac1b7 2005-01-23 devnull setstring(char *var, char *s)

179 4f2ac1b7 2005-01-23 devnull {

180 4f2ac1b7 2005-01-23 devnull 	Lsym *l;

181 4f2ac1b7 2005-01-23 devnull 	Value *v;

182 4f2ac1b7 2005-01-23 devnull 

183 4f2ac1b7 2005-01-23 devnull 	l = mkvar(var);

184 4f2ac1b7 2005-01-23 devnull 	v = l->v;

185 4f2ac1b7 2005-01-23 devnull 	v->store.fmt = 's';

186 4f2ac1b7 2005-01-23 devnull 	v->set = 1;

187 4f2ac1b7 2005-01-23 devnull 	v->store.u.string = strnode(s ? s : "");

188 4f2ac1b7 2005-01-23 devnull 	v->type = TSTRING;

189 564ca709 2004-04-19 devnull }

190 564ca709 2004-04-19 devnull 

191 564ca709 2004-04-19 devnull static int

192 564ca709 2004-04-19 devnull attachfiles(int argc, char **argv)

193 564ca709 2004-04-19 devnull {

194 f7b74c17 2004-12-28 devnull 	int fd;

195 f7b74c17 2004-12-28 devnull 	volatile int pid;

196 4f2ac1b7 2005-01-23 devnull 	char *s, *t;

197 564ca709 2004-04-19 devnull 	int i, omode;

198 564ca709 2004-04-19 devnull 	Fhdr *hdr;

199 564ca709 2004-04-19 devnull 	Lsym *l;

200 564ca709 2004-04-19 devnull 

201 b4a659b6 2004-04-19 devnull 	pid = 0;

202 564ca709 2004-04-19 devnull 	interactive = 0;

203 564ca709 2004-04-19 devnull 	if(setjmp(err))

204 564ca709 2004-04-19 devnull 		return -1;

205 564ca709 2004-04-19 devnull 

206 564ca709 2004-04-19 devnull 	/*

207 564ca709 2004-04-19 devnull 	 * Unix and Plan 9 differ on what the right order of pid, text, and core is.

208 564ca709 2004-04-19 devnull 	 * I never remember anyway.  Let's just accept them in any order.

209 564ca709 2004-04-19 devnull 	 */

210 564ca709 2004-04-19 devnull 	omode = wtflag ? ORDWR : OREAD;

211 564ca709 2004-04-19 devnull 	for(i=0; i<argc; i++){

212 564ca709 2004-04-19 devnull 		if(isnumeric(argv[i])){

213 564ca709 2004-04-19 devnull 			if(pid){

214 564ca709 2004-04-19 devnull 				fprint(2, "already have pid %d; ignoring pid %d\n", pid, argv[i]);

215 564ca709 2004-04-19 devnull 				continue;

216 564ca709 2004-04-19 devnull 			}

217 564ca709 2004-04-19 devnull 			if(corhdr){

218 564ca709 2004-04-19 devnull 				fprint(2, "already have core %s; ignoring pid %d\n", corfil, pid);

219 564ca709 2004-04-19 devnull 				continue;

220 564ca709 2004-04-19 devnull 			}

221 564ca709 2004-04-19 devnull 			pid = atoi(argv[i]);

222 564ca709 2004-04-19 devnull 			continue;

223 564ca709 2004-04-19 devnull 		}

224 564ca709 2004-04-19 devnull 		if((hdr = crackhdr(argv[i], omode)) == nil){

225 564ca709 2004-04-19 devnull 			fprint(2, "crackhdr %s: %r\n", argv[i]);

226 f9aa99c7 2004-06-09 devnull 			if(argc == 1 && (fd = open(argv[i], omode)) > 0){

227 f9aa99c7 2004-06-09 devnull 				fprint(2, "loading %s direct mapped\n", argv[i]);

228 f9aa99c7 2004-06-09 devnull 				symmap = dumbmap(fd);

229 f9aa99c7 2004-06-09 devnull 				cormap = dumbmap(fd);

230 f9aa99c7 2004-06-09 devnull 				symfil = argv[i];

231 f9aa99c7 2004-06-09 devnull 				corfil = argv[i];

232 f9aa99c7 2004-06-09 devnull 				goto Run;

233 f9aa99c7 2004-06-09 devnull 			}

234 564ca709 2004-04-19 devnull 			continue;

235 564ca709 2004-04-19 devnull 		}

236 564ca709 2004-04-19 devnull 		fprint(2, "%s: %s %s %s\n", argv[i], hdr->aname, hdr->mname, hdr->fname);

237 564ca709 2004-04-19 devnull 		if(hdr->ftype == FCORE){

238 564ca709 2004-04-19 devnull 			if(pid){

239 564ca709 2004-04-19 devnull 				fprint(2, "already have pid %d; ignoring core %s\n", pid, argv[i]);

240 564ca709 2004-04-19 devnull 				uncrackhdr(hdr);

241 564ca709 2004-04-19 devnull 				continue;

242 564ca709 2004-04-19 devnull 			}

243 564ca709 2004-04-19 devnull 			if(corhdr){

244 564ca709 2004-04-19 devnull 				fprint(2, "already have core %s; ignoring core %s\n", corfil, argv[i]);

245 564ca709 2004-04-19 devnull 				uncrackhdr(hdr);

246 564ca709 2004-04-19 devnull 				continue;

247 564ca709 2004-04-19 devnull 			}

248 564ca709 2004-04-19 devnull 			corhdr = hdr;

249 564ca709 2004-04-19 devnull 			corfil = argv[i];

250 564ca709 2004-04-19 devnull 		}else{

251 564ca709 2004-04-19 devnull 			if(symhdr){

252 564ca709 2004-04-19 devnull 				fprint(2, "already have text %s; ignoring text %s\n", symfil, argv[i]);

253 564ca709 2004-04-19 devnull 				uncrackhdr(hdr);

254 564ca709 2004-04-19 devnull 				continue;

255 564ca709 2004-04-19 devnull 			}

256 564ca709 2004-04-19 devnull 			symhdr = hdr;

257 564ca709 2004-04-19 devnull 			symfil = argv[i];

258 564ca709 2004-04-19 devnull 		}

259 564ca709 2004-04-19 devnull 	}

260 564ca709 2004-04-19 devnull 

261 564ca709 2004-04-19 devnull 	if(symhdr==nil){

262 564ca709 2004-04-19 devnull 		symfil = "a.out";

263 564ca709 2004-04-19 devnull 		if(pid){

264 564ca709 2004-04-19 devnull 			if((s = proctextfile(pid)) != nil){

265 564ca709 2004-04-19 devnull 				fprint(2, "pid %d: text %s\n", pid, s);

266 564ca709 2004-04-19 devnull 				symfil = s;

267 564ca709 2004-04-19 devnull 			}

268 564ca709 2004-04-19 devnull 		}

269 4f2ac1b7 2005-01-23 devnull 		if(corhdr){

270 4f2ac1b7 2005-01-23 devnull 			/*

271 4f2ac1b7 2005-01-23 devnull 			 * prog gives only the basename of the command,

272 4f2ac1b7 2005-01-23 devnull 			 * so try the command line for a path.

273 4f2ac1b7 2005-01-23 devnull 			 */

274 4f2ac1b7 2005-01-23 devnull 			if((s = strdup(corhdr->cmdline)) != nil){

275 4f2ac1b7 2005-01-23 devnull 				t = strchr(s, ' ');

276 4f2ac1b7 2005-01-23 devnull 				if(t)

277 4f2ac1b7 2005-01-23 devnull 					*t = 0;

278 4f2ac1b7 2005-01-23 devnull 				if((t = searchpath(s)) != nil){

279 4f2ac1b7 2005-01-23 devnull 					fprint(2, "core: text %s\n", t);

280 4f2ac1b7 2005-01-23 devnull 					symfil = t;

281 4f2ac1b7 2005-01-23 devnull 				}

282 4f2ac1b7 2005-01-23 devnull 				free(s);

283 4f2ac1b7 2005-01-23 devnull 			}

284 4f2ac1b7 2005-01-23 devnull 		}

285 564ca709 2004-04-19 devnull 

286 c2a9c3bb 2004-04-19 devnull 		if((symhdr = crackhdr(symfil, omode)) == nil){

287 564ca709 2004-04-19 devnull 			fprint(2, "crackhdr %s: %r\n", symfil);

288 564ca709 2004-04-19 devnull 			symfil = nil;

289 4f2ac1b7 2005-01-23 devnull 		}else

290 4f2ac1b7 2005-01-23 devnull 			fprint(2, "%s: %s %s %s\n", symfil, symhdr->aname, symhdr->mname, symhdr->fname);	

291 564ca709 2004-04-19 devnull 	}

292 564ca709 2004-04-19 devnull 

293 564ca709 2004-04-19 devnull 	if(symhdr)

294 8b549a62 2005-01-07 devnull 		symopen(symhdr);

295 564ca709 2004-04-19 devnull 

296 564ca709 2004-04-19 devnull 	if(!mach)

297 564ca709 2004-04-19 devnull 		mach = machcpu;

298 564ca709 2004-04-19 devnull 

299 564ca709 2004-04-19 devnull 	/*

300 564ca709 2004-04-19 devnull 	 * Set up maps.

301 564ca709 2004-04-19 devnull 	 */

302 564ca709 2004-04-19 devnull 	symmap = allocmap();

303 564ca709 2004-04-19 devnull 	cormap = allocmap();

304 564ca709 2004-04-19 devnull 	if(symmap == nil || cormap == nil)

305 564ca709 2004-04-19 devnull 		sysfatal("allocating maps: %r");

306 564ca709 2004-04-19 devnull 

307 564ca709 2004-04-19 devnull 	if(symhdr){

308 564ca709 2004-04-19 devnull 		if(mapfile(symhdr, 0, symmap, nil) < 0)

309 564ca709 2004-04-19 devnull 			fprint(2, "mapping %s: %r\n", symfil);

310 564ca709 2004-04-19 devnull 		mapfile(symhdr, 0, cormap, nil);

311 564ca709 2004-04-19 devnull 	}

312 564ca709 2004-04-19 devnull 

313 f9aa99c7 2004-06-09 devnull Run:

314 4f2ac1b7 2005-01-23 devnull 	setstring("objtype", mach->name);

315 4f2ac1b7 2005-01-23 devnull 	setstring("textfile", symfil);

316 4f2ac1b7 2005-01-23 devnull 	setstring("systype", symhdr ? symhdr->aname : "");

317 4f2ac1b7 2005-01-23 devnull 	setstring("corefile", corfil);

318 564ca709 2004-04-19 devnull 

319 4f2ac1b7 2005-01-23 devnull 	l = mkvar("pids");

320 4f2ac1b7 2005-01-23 devnull 	l->v->set = 1;

321 4f2ac1b7 2005-01-23 devnull 	l->v->type = TLIST;

322 4f2ac1b7 2005-01-23 devnull 	l->v->store.u.l = nil;

323 564ca709 2004-04-19 devnull 

324 564ca709 2004-04-19 devnull 	if(pid)

325 564ca709 2004-04-19 devnull 		sproc(pid);

326 564ca709 2004-04-19 devnull 	if(corhdr)

327 564ca709 2004-04-19 devnull 		setcore(corhdr);

328 564ca709 2004-04-19 devnull 	varreg();

329 564ca709 2004-04-19 devnull 	return 0;

330 564ca709 2004-04-19 devnull }

331 564ca709 2004-04-19 devnull 

332 564ca709 2004-04-19 devnull void

333 564ca709 2004-04-19 devnull setcore(Fhdr *hdr)

334 564ca709 2004-04-19 devnull {

335 4f2ac1b7 2005-01-23 devnull 	int i;

336 4f2ac1b7 2005-01-23 devnull 	Lsym *l;

337 4f2ac1b7 2005-01-23 devnull 	Value *v;

338 4f2ac1b7 2005-01-23 devnull 	List **tail, *tl;

339 4f2ac1b7 2005-01-23 devnull 

340 564ca709 2004-04-19 devnull 	unmapproc(cormap);

341 564ca709 2004-04-19 devnull 	unmapfile(corhdr, cormap);

342 564ca709 2004-04-19 devnull 	free(correg);

343 564ca709 2004-04-19 devnull 	correg = nil;

344 564ca709 2004-04-19 devnull 

345 564ca709 2004-04-19 devnull 	if(hdr == nil)

346 564ca709 2004-04-19 devnull 		error("no core");

347 564ca709 2004-04-19 devnull 	if(mapfile(hdr, 0, cormap, &correg) < 0)

348 564ca709 2004-04-19 devnull 		error("mapfile %s: %r", hdr->filename);

349 564ca709 2004-04-19 devnull 	corhdr = hdr;

350 564ca709 2004-04-19 devnull 	corfil = hdr->filename;

351 4f2ac1b7 2005-01-23 devnull 

352 4f2ac1b7 2005-01-23 devnull 	l = mkvar("pid");

353 4f2ac1b7 2005-01-23 devnull 	v = l->v;

354 4f2ac1b7 2005-01-23 devnull 	v->store.fmt = 'D';

355 4f2ac1b7 2005-01-23 devnull 	v->set = 1;

356 4f2ac1b7 2005-01-23 devnull 	v->store.u.ival = hdr->pid;

357 4f2ac1b7 2005-01-23 devnull 

358 4f2ac1b7 2005-01-23 devnull 	setstring("corefile", corfil);

359 4f2ac1b7 2005-01-23 devnull 	setstring("cmdline", hdr->cmdline);

360 4f2ac1b7 2005-01-23 devnull 

361 4f2ac1b7 2005-01-23 devnull 	l = mkvar("pids");

362 4f2ac1b7 2005-01-23 devnull 	l->v->set = 1;

363 4f2ac1b7 2005-01-23 devnull 	l->v->type = TLIST;

364 4f2ac1b7 2005-01-23 devnull 	l->v->store.u.l = nil;

365 4f2ac1b7 2005-01-23 devnull 	tail = &l->v->store.u.l;

366 4f2ac1b7 2005-01-23 devnull 	for(i=0; i<hdr->nthread; i++){

367 4f2ac1b7 2005-01-23 devnull 		tl = al(TINT);

368 4f2ac1b7 2005-01-23 devnull 		tl->store.u.ival = hdr->thread[i].id;

369 4f2ac1b7 2005-01-23 devnull 		tl->store.fmt = 'X';

370 4f2ac1b7 2005-01-23 devnull 		*tail = tl;

371 4f2ac1b7 2005-01-23 devnull 		tail = &tl->next;

372 4f2ac1b7 2005-01-23 devnull 	}

373 4f2ac1b7 2005-01-23 devnull 

374 4f2ac1b7 2005-01-23 devnull 	if(hdr->nthread)

375 4f2ac1b7 2005-01-23 devnull 		sproc(hdr->thread[0].id);

376 564ca709 2004-04-19 devnull }

377 564ca709 2004-04-19 devnull 

378 564ca709 2004-04-19 devnull void

379 564ca709 2004-04-19 devnull die(void)

380 564ca709 2004-04-19 devnull {

381 564ca709 2004-04-19 devnull 	Lsym *s;

382 564ca709 2004-04-19 devnull 	List *f;

383 4f2ac1b7 2005-01-23 devnull 	int first;

384 564ca709 2004-04-19 devnull 

385 564ca709 2004-04-19 devnull 	Bprint(bout, "\n");

386 564ca709 2004-04-19 devnull 

387 4f2ac1b7 2005-01-23 devnull 	first = 1;

388 564ca709 2004-04-19 devnull 	s = look("proclist");

389 564ca709 2004-04-19 devnull 	if(s && s->v->type == TLIST) {

390 564ca709 2004-04-19 devnull 		for(f = s->v->store.u.l; f; f = f->next){

391 564ca709 2004-04-19 devnull 			detachproc((int)f->store.u.ival);

392 4f2ac1b7 2005-01-23 devnull 			Bprint(bout, "%s %d", first ? "/bin/kill -9" : "", (int)f->store.u.ival);

393 4f2ac1b7 2005-01-23 devnull 			first = 0;

394 564ca709 2004-04-19 devnull 		}

395 564ca709 2004-04-19 devnull 	}

396 4f2ac1b7 2005-01-23 devnull 	if(!first)

397 4f2ac1b7 2005-01-23 devnull 		Bprint(bout, "\n");

398 564ca709 2004-04-19 devnull 	exits(0);

399 564ca709 2004-04-19 devnull }

400 564ca709 2004-04-19 devnull 

401 564ca709 2004-04-19 devnull void

402 564ca709 2004-04-19 devnull userinit(void)

403 564ca709 2004-04-19 devnull {

404 564ca709 2004-04-19 devnull 	Lsym *l;

405 564ca709 2004-04-19 devnull 	Node *n;

406 564ca709 2004-04-19 devnull 	char buf[128], *p;

407 564ca709 2004-04-19 devnull 

408 13e66070 2004-04-20 devnull 	sprint(buf, "#9/acid/%s", mach->name);

409 13e66070 2004-04-20 devnull 	loadmodule(unsharp(buf));

410 c8b6342d 2005-01-13 devnull 	p = getenv("HOME");

411 564ca709 2004-04-19 devnull 	if(p != 0) {

412 564ca709 2004-04-19 devnull 		sprint(buf, "%s/lib/acid", p);

413 564ca709 2004-04-19 devnull 		silent = 1;

414 564ca709 2004-04-19 devnull 		loadmodule(buf);

415 564ca709 2004-04-19 devnull 	}

416 564ca709 2004-04-19 devnull 

417 564ca709 2004-04-19 devnull 	interactive = 0;

418 564ca709 2004-04-19 devnull 	if(setjmp(err)) {

419 564ca709 2004-04-19 devnull 		unwind();

420 564ca709 2004-04-19 devnull 		return;

421 564ca709 2004-04-19 devnull 	}

422 564ca709 2004-04-19 devnull 	l = look("acidinit");

423 564ca709 2004-04-19 devnull 	if(l && l->proc) {

424 564ca709 2004-04-19 devnull 		n = an(ONAME, ZN, ZN);

425 564ca709 2004-04-19 devnull 		n->sym = l;

426 564ca709 2004-04-19 devnull 		n = an(OCALL, n, ZN);

427 564ca709 2004-04-19 devnull 		execute(n);

428 564ca709 2004-04-19 devnull 	}

429 564ca709 2004-04-19 devnull }

430 564ca709 2004-04-19 devnull 

431 564ca709 2004-04-19 devnull void

432 564ca709 2004-04-19 devnull loadmodule(char *s)

433 564ca709 2004-04-19 devnull {

434 564ca709 2004-04-19 devnull 	interactive = 0;

435 564ca709 2004-04-19 devnull 	if(setjmp(err)) {

436 564ca709 2004-04-19 devnull 		unwind();

437 564ca709 2004-04-19 devnull 		return;

438 564ca709 2004-04-19 devnull 	}

439 564ca709 2004-04-19 devnull 	pushfile(s);

440 564ca709 2004-04-19 devnull 	silent = 0;

441 564ca709 2004-04-19 devnull 	yyparse();

442 564ca709 2004-04-19 devnull 	popio();

443 564ca709 2004-04-19 devnull 	return;

444 564ca709 2004-04-19 devnull }

445 564ca709 2004-04-19 devnull 

446 564ca709 2004-04-19 devnull Node*

447 564ca709 2004-04-19 devnull an(int op, Node *l, Node *r)

448 564ca709 2004-04-19 devnull {

449 564ca709 2004-04-19 devnull 	Node *n;

450 564ca709 2004-04-19 devnull 

451 564ca709 2004-04-19 devnull 	n = gmalloc(sizeof(Node));

452 564ca709 2004-04-19 devnull 	memset(n, 0, sizeof(Node));

453 564ca709 2004-04-19 devnull 	n->gc.gclink = gcl;

454 564ca709 2004-04-19 devnull 	gcl = (Gc*)n;

455 564ca709 2004-04-19 devnull 	n->op = op;

456 564ca709 2004-04-19 devnull 	n->left = l;

457 564ca709 2004-04-19 devnull 	n->right = r;

458 564ca709 2004-04-19 devnull 	return n;

459 564ca709 2004-04-19 devnull }

460 564ca709 2004-04-19 devnull 

461 564ca709 2004-04-19 devnull List*

462 564ca709 2004-04-19 devnull al(int t)

463 564ca709 2004-04-19 devnull {

464 564ca709 2004-04-19 devnull 	List *l;

465 564ca709 2004-04-19 devnull 

466 564ca709 2004-04-19 devnull 	l = gmalloc(sizeof(List));

467 564ca709 2004-04-19 devnull 	memset(l, 0, sizeof(List));

468 564ca709 2004-04-19 devnull 	l->type = t;

469 564ca709 2004-04-19 devnull 	l->gc.gclink = gcl;

470 564ca709 2004-04-19 devnull 	gcl = (Gc*)l;

471 564ca709 2004-04-19 devnull 	return l;

472 564ca709 2004-04-19 devnull }

473 564ca709 2004-04-19 devnull 

474 564ca709 2004-04-19 devnull Node*

475 564ca709 2004-04-19 devnull con(int v)

476 564ca709 2004-04-19 devnull {

477 564ca709 2004-04-19 devnull 	Node *n;

478 564ca709 2004-04-19 devnull 

479 564ca709 2004-04-19 devnull 	n = an(OCONST, ZN, ZN);

480 564ca709 2004-04-19 devnull 	n->store.u.ival = v;

481 564ca709 2004-04-19 devnull 	n->store.fmt = 'X';

482 564ca709 2004-04-19 devnull 	n->type = TINT;

483 564ca709 2004-04-19 devnull 	return n;

484 564ca709 2004-04-19 devnull }

485 564ca709 2004-04-19 devnull 

486 564ca709 2004-04-19 devnull void

487 564ca709 2004-04-19 devnull fatal(char *fmt, ...)

488 564ca709 2004-04-19 devnull {

489 564ca709 2004-04-19 devnull 	char buf[128];

490 564ca709 2004-04-19 devnull 	va_list arg;

491 564ca709 2004-04-19 devnull 

492 564ca709 2004-04-19 devnull 	va_start(arg, fmt);

493 564ca709 2004-04-19 devnull 	vseprint(buf, buf+sizeof(buf), fmt, arg);

494 564ca709 2004-04-19 devnull 	va_end(arg);

495 564ca709 2004-04-19 devnull 	fprint(2, "%s: %Z (fatal problem) %s\n", argv0, buf);

496 564ca709 2004-04-19 devnull 	exits(buf);

497 564ca709 2004-04-19 devnull }

498 564ca709 2004-04-19 devnull 

499 564ca709 2004-04-19 devnull void

500 564ca709 2004-04-19 devnull yyerror(char *fmt, ...)

501 564ca709 2004-04-19 devnull {

502 564ca709 2004-04-19 devnull 	char buf[128];

503 564ca709 2004-04-19 devnull 	va_list arg;

504 564ca709 2004-04-19 devnull 

505 564ca709 2004-04-19 devnull 	if(strcmp(fmt, "syntax error") == 0) {

506 564ca709 2004-04-19 devnull 		yyerror("syntax error, near symbol '%s'", symbol);

507 564ca709 2004-04-19 devnull 		return;

508 564ca709 2004-04-19 devnull 	}

509 564ca709 2004-04-19 devnull 	va_start(arg, fmt);

510 564ca709 2004-04-19 devnull 	vseprint(buf, buf+sizeof(buf), fmt, arg);

511 564ca709 2004-04-19 devnull 	va_end(arg);

512 564ca709 2004-04-19 devnull 	print("%Z: %s\n", buf);

513 564ca709 2004-04-19 devnull }

514 564ca709 2004-04-19 devnull 

515 564ca709 2004-04-19 devnull void

516 564ca709 2004-04-19 devnull marktree(Node *n)

517 564ca709 2004-04-19 devnull {

518 564ca709 2004-04-19 devnull 

519 564ca709 2004-04-19 devnull 	if(n == 0)

520 564ca709 2004-04-19 devnull 		return;

521 564ca709 2004-04-19 devnull 

522 564ca709 2004-04-19 devnull 	marktree(n->left);

523 564ca709 2004-04-19 devnull 	marktree(n->right);

524 564ca709 2004-04-19 devnull 

525 564ca709 2004-04-19 devnull 	n->gc.gcmark = 1;

526 564ca709 2004-04-19 devnull 	if(n->op != OCONST)

527 564ca709 2004-04-19 devnull 		return;

528 564ca709 2004-04-19 devnull 

529 564ca709 2004-04-19 devnull 	switch(n->type) {

530 564ca709 2004-04-19 devnull 	case TSTRING:

531 564ca709 2004-04-19 devnull 		n->store.u.string->gc.gcmark = 1;

532 564ca709 2004-04-19 devnull 		break;

533 564ca709 2004-04-19 devnull 	case TLIST:

534 564ca709 2004-04-19 devnull 		marklist(n->store.u.l);

535 564ca709 2004-04-19 devnull 		break;

536 564ca709 2004-04-19 devnull 	case TCODE:

537 564ca709 2004-04-19 devnull 		marktree(n->store.u.cc);

538 564ca709 2004-04-19 devnull 		break;

539 564ca709 2004-04-19 devnull 	}

540 564ca709 2004-04-19 devnull }

541 564ca709 2004-04-19 devnull 

542 564ca709 2004-04-19 devnull void

543 564ca709 2004-04-19 devnull marklist(List *l)

544 564ca709 2004-04-19 devnull {

545 564ca709 2004-04-19 devnull 	while(l) {

546 564ca709 2004-04-19 devnull 		l->gc.gcmark = 1;

547 564ca709 2004-04-19 devnull 		switch(l->type) {

548 564ca709 2004-04-19 devnull 		case TSTRING:

549 564ca709 2004-04-19 devnull 			l->store.u.string->gc.gcmark = 1;

550 564ca709 2004-04-19 devnull 			break;

551 564ca709 2004-04-19 devnull 		case TLIST:

552 564ca709 2004-04-19 devnull 			marklist(l->store.u.l);

553 564ca709 2004-04-19 devnull 			break;

554 564ca709 2004-04-19 devnull 		case TCODE:

555 564ca709 2004-04-19 devnull 			marktree(l->store.u.cc);

556 564ca709 2004-04-19 devnull 			break;

557 564ca709 2004-04-19 devnull 		}

558 564ca709 2004-04-19 devnull 		l = l->next;

559 564ca709 2004-04-19 devnull 	}

560 564ca709 2004-04-19 devnull }

561 564ca709 2004-04-19 devnull 

562 564ca709 2004-04-19 devnull void

563 564ca709 2004-04-19 devnull gc(void)

564 564ca709 2004-04-19 devnull {

565 564ca709 2004-04-19 devnull 	int i;

566 564ca709 2004-04-19 devnull 	Lsym *f;

567 564ca709 2004-04-19 devnull 	Value *v;

568 564ca709 2004-04-19 devnull 	Gc *m, **p, *next;

569 564ca709 2004-04-19 devnull 

570 564ca709 2004-04-19 devnull 	if(dogc < Mempergc)

571 564ca709 2004-04-19 devnull 		return;

572 564ca709 2004-04-19 devnull 	dogc = 0;

573 564ca709 2004-04-19 devnull 

574 564ca709 2004-04-19 devnull 	/* Mark */

575 564ca709 2004-04-19 devnull 	for(m = gcl; m; m = m->gclink)

576 564ca709 2004-04-19 devnull 		m->gcmark = 0;

577 564ca709 2004-04-19 devnull 

578 564ca709 2004-04-19 devnull 	/* Scan */

579 564ca709 2004-04-19 devnull 	for(i = 0; i < Hashsize; i++) {

580 564ca709 2004-04-19 devnull 		for(f = hash[i]; f; f = f->hash) {

581 564ca709 2004-04-19 devnull 			marktree(f->proc);

582 564ca709 2004-04-19 devnull 			if(f->lexval != Tid)

583 564ca709 2004-04-19 devnull 				continue;

584 564ca709 2004-04-19 devnull 			for(v = f->v; v; v = v->pop) {

585 564ca709 2004-04-19 devnull 				switch(v->type) {

586 564ca709 2004-04-19 devnull 				case TSTRING:

587 564ca709 2004-04-19 devnull 					v->store.u.string->gc.gcmark = 1;

588 564ca709 2004-04-19 devnull 					break;

589 564ca709 2004-04-19 devnull 				case TLIST:

590 564ca709 2004-04-19 devnull 					marklist(v->store.u.l);

591 564ca709 2004-04-19 devnull 					break;

592 564ca709 2004-04-19 devnull 				case TCODE:

593 564ca709 2004-04-19 devnull 					marktree(v->store.u.cc);

594 564ca709 2004-04-19 devnull 					break;

595 4f2ac1b7 2005-01-23 devnull 				case TCON:

596 4f2ac1b7 2005-01-23 devnull 					marktree(v->store.u.con);

597 4f2ac1b7 2005-01-23 devnull 					break;

598 564ca709 2004-04-19 devnull 				}

599 564ca709 2004-04-19 devnull 			}

600 564ca709 2004-04-19 devnull 		}

601 564ca709 2004-04-19 devnull 	}

602 564ca709 2004-04-19 devnull 

603 564ca709 2004-04-19 devnull 	/* Free */

604 564ca709 2004-04-19 devnull 	p = &gcl;

605 564ca709 2004-04-19 devnull 	for(m = gcl; m; m = next) {

606 564ca709 2004-04-19 devnull 		next = m->gclink;

607 564ca709 2004-04-19 devnull 		if(m->gcmark == 0) {

608 564ca709 2004-04-19 devnull 			*p = next;

609 564ca709 2004-04-19 devnull 			free(m);	/* Sleazy reliance on my malloc */

610 564ca709 2004-04-19 devnull 		}

611 564ca709 2004-04-19 devnull 		else

612 564ca709 2004-04-19 devnull 			p = &m->gclink;

613 564ca709 2004-04-19 devnull 	}

614 564ca709 2004-04-19 devnull }

615 564ca709 2004-04-19 devnull 

616 564ca709 2004-04-19 devnull void*

617 564ca709 2004-04-19 devnull gmalloc(long l)

618 564ca709 2004-04-19 devnull {

619 564ca709 2004-04-19 devnull 	void *p;

620 564ca709 2004-04-19 devnull 

621 564ca709 2004-04-19 devnull 	dogc += l;

622 564ca709 2004-04-19 devnull 	p = malloc(l);

623 564ca709 2004-04-19 devnull 	if(p == 0)

624 564ca709 2004-04-19 devnull 		fatal("out of memory");

625 564ca709 2004-04-19 devnull 	return p;

626 564ca709 2004-04-19 devnull }

627 564ca709 2004-04-19 devnull 

628 564ca709 2004-04-19 devnull void

629 564ca709 2004-04-19 devnull checkqid(int f1, int pid)

630 564ca709 2004-04-19 devnull {

631 564ca709 2004-04-19 devnull 	int fd;

632 564ca709 2004-04-19 devnull 	Dir *d1, *d2;

633 564ca709 2004-04-19 devnull 	char buf[128];

634 564ca709 2004-04-19 devnull 

635 564ca709 2004-04-19 devnull 	if(kernel)

636 564ca709 2004-04-19 devnull 		return;

637 564ca709 2004-04-19 devnull 

638 564ca709 2004-04-19 devnull 	d1 = dirfstat(f1);

639 564ca709 2004-04-19 devnull 	if(d1 == nil){

640 564ca709 2004-04-19 devnull 		print("checkqid: (qid not checked) dirfstat: %r\n");

641 564ca709 2004-04-19 devnull 		return;

642 564ca709 2004-04-19 devnull 	}

643 564ca709 2004-04-19 devnull 

644 564ca709 2004-04-19 devnull 	sprint(buf, "/proc/%d/text", pid);

645 564ca709 2004-04-19 devnull 	fd = open(buf, OREAD);

646 564ca709 2004-04-19 devnull 	if(fd < 0 || (d2 = dirfstat(fd)) == nil){

647 564ca709 2004-04-19 devnull 		print("checkqid: (qid not checked) dirstat %s: %r\n", buf);

648 564ca709 2004-04-19 devnull 		free(d1);

649 564ca709 2004-04-19 devnull 		if(fd >= 0)

650 564ca709 2004-04-19 devnull 			close(fd);

651 564ca709 2004-04-19 devnull 		return;

652 564ca709 2004-04-19 devnull 	}

653 564ca709 2004-04-19 devnull 

654 564ca709 2004-04-19 devnull 	close(fd);

655 564ca709 2004-04-19 devnull 

656 564ca709 2004-04-19 devnull 	if(d1->qid.path != d2->qid.path || d1->qid.vers != d2->qid.vers || d1->qid.type != d2->qid.type){

657 564ca709 2004-04-19 devnull 		print("path %llux %llux vers %lud %lud type %d %d\n",

658 564ca709 2004-04-19 devnull 			d1->qid.path, d2->qid.path, d1->qid.vers, d2->qid.vers, d1->qid.type, d2->qid.type);

659 564ca709 2004-04-19 devnull 		print("warning: image does not match text for pid %d\n", pid);

660 564ca709 2004-04-19 devnull 	}

661 564ca709 2004-04-19 devnull 	free(d1);

662 564ca709 2004-04-19 devnull 	free(d2);

663 564ca709 2004-04-19 devnull }

664 564ca709 2004-04-19 devnull 

665 564ca709 2004-04-19 devnull void

666 564ca709 2004-04-19 devnull catcher(void *junk, char *s)

667 564ca709 2004-04-19 devnull {

668 564ca709 2004-04-19 devnull 	USED(junk);

669 564ca709 2004-04-19 devnull 

670 564ca709 2004-04-19 devnull 	if(strstr(s, "interrupt")) {

671 564ca709 2004-04-19 devnull 		gotint = 1;

672 564ca709 2004-04-19 devnull 		noted(NCONT);

673 564ca709 2004-04-19 devnull 	}

674 564ca709 2004-04-19 devnull 	if(strstr(s, "child"))

675 564ca709 2004-04-19 devnull 		noted(NCONT);

676 564ca709 2004-04-19 devnull fprint(2, "note: %s\n", s);

677 564ca709 2004-04-19 devnull 	noted(NDFLT);

678 564ca709 2004-04-19 devnull }

679 564ca709 2004-04-19 devnull 

680 564ca709 2004-04-19 devnull char*

681 564ca709 2004-04-19 devnull system(void)

682 564ca709 2004-04-19 devnull {

683 564ca709 2004-04-19 devnull 	char *cpu, *p, *q;

684 564ca709 2004-04-19 devnull 	static char kernel[128];

685 564ca709 2004-04-19 devnull 

686 564ca709 2004-04-19 devnull 	cpu = getenv("cputype");

687 564ca709 2004-04-19 devnull 	if(cpu == 0) {

688 564ca709 2004-04-19 devnull 		cpu = "mips";

689 564ca709 2004-04-19 devnull 		print("$cputype not set; assuming %s\n", cpu);

690 564ca709 2004-04-19 devnull 	}

691 564ca709 2004-04-19 devnull 	p = getenv("terminal");

692 564ca709 2004-04-19 devnull 	if(p == 0 || (p=strchr(p, ' ')) == 0 || p[1] == ' ' || p[1] == 0) {

693 564ca709 2004-04-19 devnull 		p = "9power";

694 564ca709 2004-04-19 devnull 		print("missing or bad $terminal; assuming %s\n", p);

695 564ca709 2004-04-19 devnull 	}

696 564ca709 2004-04-19 devnull 	else{

697 564ca709 2004-04-19 devnull 		p++;

698 564ca709 2004-04-19 devnull 		q = strchr(p, ' ');

699 564ca709 2004-04-19 devnull 		if(q)

700 564ca709 2004-04-19 devnull 			*q = 0;

701 564ca709 2004-04-19 devnull 		sprint(kernel, "/%s/9%s", cpu, p);

702 564ca709 2004-04-19 devnull 	}

703 564ca709 2004-04-19 devnull 	return kernel;

704 564ca709 2004-04-19 devnull }

705 564ca709 2004-04-19 devnull 

706 564ca709 2004-04-19 devnull int

707 564ca709 2004-04-19 devnull isnumeric(char *s)

708 564ca709 2004-04-19 devnull {

709 564ca709 2004-04-19 devnull 	while(*s) {

710 564ca709 2004-04-19 devnull 		if(*s < '0' || *s > '9')

711 564ca709 2004-04-19 devnull 			return 0;

712 564ca709 2004-04-19 devnull 		s++;

713 564ca709 2004-04-19 devnull 	}

714 564ca709 2004-04-19 devnull 	return 1;

715 564ca709 2004-04-19 devnull }

716 564ca709 2004-04-19 devnull 

717 564ca709 2004-04-19 devnull int

718 564ca709 2004-04-19 devnull xfmt(Fmt *f)

719 564ca709 2004-04-19 devnull {

720 564ca709 2004-04-19 devnull 	f->flags ^= FmtSharp;

721 564ca709 2004-04-19 devnull 	return __ifmt(f);

722 564ca709 2004-04-19 devnull }