commit - 7966faa931bfa9cf4ca53dd2d5b6e1eb0f174411
commit + 709efa017c326a283328704fa82d81a99b639932
blob - ccead4ff9468fd3836c6e20910650c9abcb064df
blob + e47e20a88dcf7900c2a54eb501dac3007080ddd1
--- src/cmd/acid/builtin.c
+++ src/cmd/acid/builtin.c
@@ -43,6 +43,7 @@ void	includepipe(Node*, Node*);
 void	regexp(Node*, Node*);
 void textfile(Node*, Node*);
 void deltextfile(Node*, Node*);
+void stringn(Node*, Node*);
 
 typedef struct Btab Btab;
 struct Btab
@@ -83,6 +84,7 @@ struct Btab
 	"status",	status,
 	"stop",		stop,
 	"strace",	strace,
+	"stringn",	stringn,
 	"sysstop",		sysstop,
 	"textfile",	textfile,
 	"waitstop",	waitstop,
@@ -1473,4 +1475,46 @@ deltextfile(Node *r, Node *args)
 	if(!did)
 		error("symbol file %s not open", file);
 }
+
+int xget1(Map *m, ulong addr, u8int *a, int n);
+
+void
+stringn(Node *r, Node *args)
+{
+	uint addr;
+	int i, n, ret;
+	Node res, *av[Maxarg];
+	char *buf;
+
+	na = 0;
+	flatten(av, args);
+	if(na != 2)
+		error("stringn(addr, n): arg count");
+
+	expr(av[0], &res);
+	if(res.type != TINT)
+		error("stringn(addr, n): arg type");
+	addr = res.store.u.ival;
+
+	expr(av[1], &res);
+	if(res.type != TINT)
+		error("stringn(addr,n): arg type");
+	n = res.store.u.ival;
 
+	buf = malloc(n+1);
+	if(buf == nil)
+		error("out of memory");
+
+	r->type = TSTRING;
+	for(i=0; i<n; i++){
+		ret = xget1(cormap, addr, (uchar*)&buf[i], 1);
+		if(ret < 0){
+			free(buf);
+			error("indir: %r");
+		}
+		addr++;
+	}
+	buf[n] = 0;
+	r->store.u.string = strnode(buf);
+	free(buf);
+}