shithub: mc

Download patch

ref: 40d6f7b5cc0cb9e5de1675a1441ad0dfc0a66bda
parent: cf1c6aa5e3025d81896eba7d3f0858b37bdc7309
author: Ori Bernstein <[email protected]>
date: Sun Sep 3 20:29:06 EDT 2017

`mbld bench` now works.

--- a/mbld/deps.myr
+++ b/mbld/deps.myr
@@ -105,6 +105,13 @@
 
 			n.wdir = std.sldup(mt.dir)
 			std.slpush(&n.cmd, std.pathjoin([b.basedir, opt_objdir, mt.dir, mt.name][:]))
+		elif mt.isbench
+			n = node(g, mt.name)
+			depends(g, n, to)
+			addnode(g, "bench", n)
+
+			n.wdir = std.sldup(mt.dir)
+			std.slpush(&n.cmd, std.pathjoin([b.basedir, opt_objdir, mt.dir, mt.name][:]))
 		else
 			addnode(g, "all", go)
 			go.instdir = config.Binpath
@@ -264,10 +271,19 @@
 const addtests = {b, name, mt
 	for f : mt.inputs
 		addtest(b, mt, f)
+		addbench(b, mt, f)
 	;;
 }
 
 const addtest = {b, mt, f
+	addalt(b, mt, "test", f)
+}
+
+const addbench = {b, mt, f
+	addalt(b, mt, "bench", f)
+}
+
+const addalt = {b, mt, kind, f
 	var libs, deps
 	var sp, tp, op
 	var s, t, o
@@ -280,7 +296,7 @@
 	*/
 	g = b.deps
 	s = changesuffix(f, ".myr")
-	sp = std.pathjoin([mt.dir, "test", s][:])
+	sp = std.pathjoin([mt.dir, kind, s][:])
 	std.slfree(s)
 	if !std.fexists(sp)
 		std.slfree(sp)
@@ -291,11 +307,11 @@
 	leaf(g, sp)
 
 	t = changesuffix(f, "")
-	tp = std.pathjoin([opt_objdir, mt.dir, "test", t][:])
+	tp = std.pathjoin([opt_objdir, mt.dir, kind, t][:])
 	std.slfree(t)
 
 	o = changesuffix(f, config.Objsuffix)
-	op = std.pathjoin([opt_objdir, mt.dir, "test", o][:])
+	op = std.pathjoin([opt_objdir, mt.dir, kind, o][:])
 	std.slfree(o)
 
 	n = node(g, sp)
@@ -325,9 +341,9 @@
 	n = node(g, tp)
 	depends(g, n, tp)
 	n.wdir = std.sldup(std.dirname(std.dirname(sp)))
-	std.slpush(&n.cmd, std.pathjoin([b.basedir, opt_objdir, mt.dir, "test", std.basename(tp)][:]))
+	std.slpush(&n.cmd, std.pathjoin([b.basedir, opt_objdir, mt.dir, kind, std.basename(tp)][:]))
 
-	addnode(g, "test", n)
+	addnode(g, kind, n)
 }
 
 const resolve = {b
--- a/mbld/main.myr
+++ b/mbld/main.myr
@@ -96,6 +96,7 @@
 			| "install":	r = bld.install(b)
 			| "uninstall":	r = bld.uninstall(b)
 			| "test":	r = bld.test(b, cmd.args[1:])
+			| "bench":	r = bld.bench(b, cmd.args[1:])
 			| "list":	r = show(b, cmd.args[1:])
 			| _:
 				ok = true
--- a/mbld/parse.myr
+++ b/mbld/parse.myr
@@ -191,6 +191,7 @@
 	| `std.Some "bin":	bintarget(b, p)
 	| `std.Some "lib":	libtarget(b, p)
 	| `std.Some "test":	testtarget(b, p)
+	| `std.Some "bench":	benchtarget(b, p)
 	| `std.Some "gen":	cmdtarget(b, p, "gen", false)
 	| `std.Some "cmd":	cmdtarget(b, p, "cmd", true)
 	| `std.Some "data":	datatarget(b, p, "data")
@@ -291,6 +292,15 @@
 	addtarg(p, b, t.name, t.tags, `Bin t)
 }
 
+/* benchtarget: myrtarget */
+const benchtarget = {b, p
+	var t
+	t = myrtarget(b, p, "bench")
+	t.isbench = true
+	t.install = false
+	addtarg(p, b, t.name, t.tags, `Bin t)
+}
+
 /* mantarget: anontarget */
 const mantarget = {b, p
 	var targ
@@ -315,7 +325,7 @@
 /* gentarget: wordlist {attrs} = wordlist ;; */
 const cmdtarget = {b, p, cmd, iscmd
 	var outlist, deplist, cmdlist, tags
-	var durable, istest
+	var durable, istest, isbench
 	var attrs
 	var gt
 
@@ -356,6 +366,7 @@
 		match elt
 		| ("durable", ""):	durable = true
 		| ("test", ""):		istest = true
+		| ("bench", ""):	isbench = true
 		| ("notest", ""):	istest = false
 		| ("dep", depname):	std.slpush(&deplist, depname)
 		| ("tag", tag):	std.slpush(&tags, tag)
@@ -371,6 +382,7 @@
 		.gen=outlist,
 		.durable=durable,
 		.istest=istest,
+		.isbench=isbench,
 		.deps=deplist,
 		.cmd=cmdlist,
 		.tags=tags,
@@ -391,7 +403,7 @@
 const myrtarget = {b, p, targ
 	var ldscript, runtime, install, incpath, tags
 	var libdeps, name, inputs, attrs
-	var istest
+	var istest, isbench
 	var fsel
 
 	match word(p)
@@ -441,6 +453,7 @@
 		| ("inst", ""):		install = true
 		| ("noinst", ""):	install = false
 		| ("test", ""):		istest = true
+		| ("bench", ""):	isbench = true
 		| ("notest", ""):	istest = false
 		| (invalid, ""):	std.fatal("{}: invalid attr '{}'\n", targ, invalid)
 		| (invalid, attr):	std.fatal("{}: invalid attr '{} = {}'\n", targ, invalid, attr)
@@ -456,6 +469,7 @@
 		.libdeps=libdeps,
 		.islib=false,
 		.istest=istest,
+		.isbench=isbench,
 		/* attrs */
 		.tags=tags,
 		.install=install,
--- a/mbld/test.myr
+++ b/mbld/test.myr
@@ -10,17 +10,26 @@
 
 pkg bld =
 	const test	: (b : build#, targs : byte[:][:] -> bool)
+	const bench	: (b : build#, targs : byte[:][:] -> bool)
 ;;
 
 const test = {b, targs
+	-> go(b, targs, "test")
+}
+
+const bench = {b, targs
+	-> go(b, targs, "bench")
+}
+
+const go = {b, targs, kind
 	var failed, ok
 	var tests
 
-	if !buildtarg(b, "test")
+	if !buildtarg(b, kind)
 		std.exit(1)
 	;;
 	if targs.len == 0
-		tests = std.htgetv(b.deps.targs, "test", [][:])
+		tests = std.htgetv(b.deps.targs, kind, [][:])
 	else
 		tests = [][:]
 		for t : targs
--- a/mbld/types.myr
+++ b/mbld/types.myr
@@ -45,6 +45,7 @@
 
 		islib	: bool
 		istest	: bool
+		isbench	: bool
 		install	: bool
 
 	;;
@@ -57,6 +58,7 @@
 		tags	: byte[:][:]
 		durable	: bool
 		istest	: bool
+		isbench	: bool
 	;;
 
 	type mantarg = struct