examples/userModules.svg

<?xml version="1.0" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<svg version="1.1" width="1200" height="334" onload="init(evt)" viewBox="0 0 1200 334" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
<!-- Flame graph stack visualization. See https://github.com/brendangregg/FlameGraph for latest version, and http://www.brendangregg.com/flamegraphs.html for examples. -->
<!-- NOTES:  -->
<defs>
	<linearGradient id="background" y1="0" y2="1" x1="0" x2="0" >
		<stop stop-color="#eeeeee" offset="5%" />
		<stop stop-color="#eeeeb0" offset="95%" />
	</linearGradient>
</defs>
<style type="text/css">
	text { font-family:Verdana; font-size:12px; fill:rgb(0,0,0); }
	#search, #ignorecase { opacity:0.1; cursor:pointer; }
	#search:hover, #search.show, #ignorecase:hover, #ignorecase.show { opacity:1; }
	#subtitle { text-anchor:middle; font-color:rgb(160,160,160); }
	#title { text-anchor:middle; font-size:17px}
	#unzoom { cursor:pointer; }
	#frames > *:hover { stroke:black; stroke-width:0.5; cursor:pointer; }
	.hide { display:none; }
	.parent { opacity:0.5; }
</style>
<script type="text/ecmascript">
<![CDATA[
	"use strict";
	var details, searchbtn, unzoombtn, matchedtxt, svg, searching, currentSearchTerm, ignorecase, ignorecaseBtn;
	function init(evt) {
		details = document.getElementById("details").firstChild;
		searchbtn = document.getElementById("search");
		ignorecaseBtn = document.getElementById("ignorecase");
		unzoombtn = document.getElementById("unzoom");
		matchedtxt = document.getElementById("matched");
		svg = document.getElementsByTagName("svg")[0];
		searching = 0;
		currentSearchTerm = null;
	}

	window.addEventListener("click", function(e) {
		var target = find_group(e.target);
		if (target) {
			if (target.nodeName == "a") {
				if (e.ctrlKey === false) return;
				e.preventDefault();
			}
			if (target.classList.contains("parent")) unzoom();
			zoom(target);
		}
		else if (e.target.id == "unzoom") unzoom();
		else if (e.target.id == "search") search_prompt();
		else if (e.target.id == "ignorecase") toggle_ignorecase();
	}, false)

	// mouse-over for info
	// show
	window.addEventListener("mouseover", function(e) {
		var target = find_group(e.target);
		if (target) details.nodeValue = "Function: " + g_to_text(target);
	}, false)

	// clear
	window.addEventListener("mouseout", function(e) {
		var target = find_group(e.target);
		if (target) details.nodeValue = ' ';
	}, false)

	// ctrl-F for search
	window.addEventListener("keydown",function (e) {
		if (e.keyCode === 114 || (e.ctrlKey && e.keyCode === 70)) {
			e.preventDefault();
			search_prompt();
		}
	}, false)

	// ctrl-I to toggle case-sensitive search
	window.addEventListener("keydown",function (e) {
		if (e.ctrlKey && e.keyCode === 73) {
			e.preventDefault();
			toggle_ignorecase();
		}
	}, false)

	// functions
	function find_child(node, selector) {
		var children = node.querySelectorAll(selector);
		if (children.length) return children[0];
		return;
	}
	function find_group(node) {
		var parent = node.parentElement;
		if (!parent) return;
		if (parent.id == "frames") return node;
		return find_group(parent);
	}
	function orig_save(e, attr, val) {
		if (e.attributes["_orig_" + attr] != undefined) return;
		if (e.attributes[attr] == undefined) return;
		if (val == undefined) val = e.attributes[attr].value;
		e.setAttribute("_orig_" + attr, val);
	}
	function orig_load(e, attr) {
		if (e.attributes["_orig_"+attr] == undefined) return;
		e.attributes[attr].value = e.attributes["_orig_" + attr].value;
		e.removeAttribute("_orig_"+attr);
	}
	function g_to_text(e) {
		var text = find_child(e, "title").firstChild.nodeValue;
		return (text)
	}
	function g_to_func(e) {
		var func = g_to_text(e);
		// if there's any manipulation we want to do to the function
		// name before it's searched, do it here before returning.
		return (func);
	}
	function update_text(e) {
		var r = find_child(e, "rect");
		var t = find_child(e, "text");
		var w = parseFloat(r.attributes.width.value) -3;
		var txt = find_child(e, "title").textContent.replace(/\([^(]*\)$/,"");
		t.attributes.x.value = parseFloat(r.attributes.x.value) + 3;

		// Smaller than this size won't fit anything
		if (w < 2 * 12 * 0.59) {
			t.textContent = "";
			return;
		}

		t.textContent = txt;
		// Fit in full text width
		if (/^ *$/.test(txt) || t.getSubStringLength(0, txt.length) < w)
			return;

		for (var x = txt.length - 2; x > 0; x--) {
			if (t.getSubStringLength(0, x + 2) <= w) {
				t.textContent = txt.substring(0, x) + "..";
				return;
			}
		}
		t.textContent = "";
	}

	// zoom
	function zoom_reset(e) {
		if (e.attributes != undefined) {
			orig_load(e, "x");
			orig_load(e, "width");
		}
		if (e.childNodes == undefined) return;
		for (var i = 0, c = e.childNodes; i < c.length; i++) {
			zoom_reset(c[i]);
		}
	}
	function zoom_child(e, x, ratio) {
		if (e.attributes != undefined) {
			if (e.attributes.x != undefined) {
				orig_save(e, "x");
				e.attributes.x.value = (parseFloat(e.attributes.x.value) - x - 10) * ratio + 10;
				if (e.tagName == "text")
					e.attributes.x.value = find_child(e.parentNode, "rect[x]").attributes.x.value + 3;
			}
			if (e.attributes.width != undefined) {
				orig_save(e, "width");
				e.attributes.width.value = parseFloat(e.attributes.width.value) * ratio;
			}
		}

		if (e.childNodes == undefined) return;
		for (var i = 0, c = e.childNodes; i < c.length; i++) {
			zoom_child(c[i], x - 10, ratio);
		}
	}
	function zoom_parent(e) {
		if (e.attributes) {
			if (e.attributes.x != undefined) {
				orig_save(e, "x");
				e.attributes.x.value = 10;
			}
			if (e.attributes.width != undefined) {
				orig_save(e, "width");
				e.attributes.width.value = parseInt(svg.width.baseVal.value) - (10 * 2);
			}
		}
		if (e.childNodes == undefined) return;
		for (var i = 0, c = e.childNodes; i < c.length; i++) {
			zoom_parent(c[i]);
		}
	}
	function zoom(node) {
		var attr = find_child(node, "rect").attributes;
		var width = parseFloat(attr.width.value);
		var xmin = parseFloat(attr.x.value);
		var xmax = parseFloat(xmin + width);
		var ymin = parseFloat(attr.y.value);
		var ratio = (svg.width.baseVal.value - 2 * 10) / width;

		// XXX: Workaround for JavaScript float issues (fix me)
		var fudge = 0.0001;

		unzoombtn.classList.remove("hide");

		var el = document.getElementById("frames").children;
		for (var i = 0; i < el.length; i++) {
			var e = el[i];
			var a = find_child(e, "rect").attributes;
			var ex = parseFloat(a.x.value);
			var ew = parseFloat(a.width.value);
			var upstack;
			// Is it an ancestor
			if (0 == 0) {
				upstack = parseFloat(a.y.value) > ymin;
			} else {
				upstack = parseFloat(a.y.value) < ymin;
			}
			if (upstack) {
				// Direct ancestor
				if (ex <= xmin && (ex+ew+fudge) >= xmax) {
					e.classList.add("parent");
					zoom_parent(e);
					update_text(e);
				}
				// not in current path
				else
					e.classList.add("hide");
			}
			// Children maybe
			else {
				// no common path
				if (ex < xmin || ex + fudge >= xmax) {
					e.classList.add("hide");
				}
				else {
					zoom_child(e, xmin, ratio);
					update_text(e);
				}
			}
		}
		search();
	}
	function unzoom() {
		unzoombtn.classList.add("hide");
		var el = document.getElementById("frames").children;
		for(var i = 0; i < el.length; i++) {
			el[i].classList.remove("parent");
			el[i].classList.remove("hide");
			zoom_reset(el[i]);
			update_text(el[i]);
		}
		search();
	}

	// search
	function toggle_ignorecase() {
		ignorecase = !ignorecase;
		if (ignorecase) {
			ignorecaseBtn.classList.add("show");
		} else {
			ignorecaseBtn.classList.remove("show");
		}
		reset_search();
		search();
	}
	function reset_search() {
		var el = document.querySelectorAll("#frames rect");
		for (var i = 0; i < el.length; i++) {
			orig_load(el[i], "fill")
		}
	}
	function search_prompt() {
		if (!searching) {
			var term = prompt("Enter a search term (regexp " +
			    "allowed, eg: ^ext4_)"
			    + (ignorecase ? ", ignoring case" : "")
			    + "\nPress Ctrl-i to toggle case sensitivity", "");
			if (term != null) {
				currentSearchTerm = term;
				search();
			}
		} else {
			reset_search();
			searching = 0;
			currentSearchTerm = null;
			searchbtn.classList.remove("show");
			searchbtn.firstChild.nodeValue = "Search"
			matchedtxt.classList.add("hide");
			matchedtxt.firstChild.nodeValue = ""
		}
	}
	function search(term) {
		if (currentSearchTerm === null) return;
		var term = currentSearchTerm;

		var re = new RegExp(term, ignorecase ? 'i' : '');
		var el = document.getElementById("frames").children;
		var matches = new Object();
		var maxwidth = 0;
		for (var i = 0; i < el.length; i++) {
			var e = el[i];
			var func = g_to_func(e);
			var rect = find_child(e, "rect");
			if (func == null || rect == null)
				continue;

			// Save max width. Only works as we have a root frame
			var w = parseFloat(rect.attributes.width.value);
			if (w > maxwidth)
				maxwidth = w;

			if (func.match(re)) {
				// highlight
				var x = parseFloat(rect.attributes.x.value);
				orig_save(rect, "fill");
				rect.attributes.fill.value = "rgb(230,0,230)";

				// remember matches
				if (matches[x] == undefined) {
					matches[x] = w;
				} else {
					if (w > matches[x]) {
						// overwrite with parent
						matches[x] = w;
					}
				}
				searching = 1;
			}
		}
		if (!searching)
			return;

		searchbtn.classList.add("show");
		searchbtn.firstChild.nodeValue = "Reset Search";

		// calculate percent matched, excluding vertical overlap
		var count = 0;
		var lastx = -1;
		var lastw = 0;
		var keys = Array();
		for (k in matches) {
			if (matches.hasOwnProperty(k))
				keys.push(k);
		}
		// sort the matched frames by their x location
		// ascending, then width descending
		keys.sort(function(a, b){
			return a - b;
		});
		// Step through frames saving only the biggest bottom-up frames
		// thanks to the sort order. This relies on the tree property
		// where children are always smaller than their parents.
		var fudge = 0.0001;	// JavaScript floating point
		for (var k in keys) {
			var x = parseFloat(keys[k]);
			var w = matches[keys[k]];
			if (x >= lastx + lastw - fudge) {
				count += w;
				lastx = x;
				lastw = w;
			}
		}
		// display matched percent
		matchedtxt.classList.remove("hide");
		var pct = 100 * count / maxwidth;
		if (pct != 100) pct = pct.toFixed(1)
		matchedtxt.firstChild.nodeValue = "Matched: " + pct + "%";
	}
]]>
</script>
<rect x="0.0" y="0" width="1200.0" height="334.0" fill="url(#background)"  />
<text id="title" x="600.00" y="24" >Example</text>
<text id="subtitle" x="600.00" y="48" >Time</text>
<text id="details" x="10.00" y="317" > </text>
<text id="unzoom" x="10.00" y="24" class="hide">Reset Zoom</text>
<text id="search" x="1090.00" y="24" >Search</text>
<text id="ignorecase" x="1174.00" y="24" >ic</text>
<text id="matched" x="1090.00" y="317" > </text>
<g id="frames">
<g >
<title>all (298 bytes, 100%)</title><rect x="10.0" y="285" width="1180.0" height="15.0" fill="rgb(252,123,42)" rx="2" ry="2" />
<text  x="13.00" y="295.5" ></text>
</g>
<g >
<title>sieve.sieve' (5 bytes, 1.68%)</title><rect x="10.0" y="189" width="19.8" height="15.0" fill="rgb(249,152,16)" rx="2" ry="2" />
<text  x="13.00" y="199.5" ></text>
</g>
<g >
<title>CAF:semiprimes_$ssemiprimes (274 bytes, 91.95%)</title><rect x="105.0" y="253" width="1085.0" height="15.0" fill="rgb(241,205,20)" rx="2" ry="2" />
<text  x="108.03" y="263.5" >CAF:semiprimes_$ssemiprimes</text>
</g>
<g >
<title>Data.PQueue.Prio.Internals.extractForest.&lt;? (1 bytes, 0.34%)</title><rect x="10.0" y="77" width="4.0" height="15.0" fill="rgb(215,6,18)" rx="2" ry="2" />
<text  x="13.00" y="87.5" ></text>
</g>
<g >
<title>Data.PQueue.Prio.Internals.minViewWithKey (3 bytes, 1.01%)</title><rect x="10.0" y="125" width="11.9" height="15.0" fill="rgb(252,148,54)" rx="2" ry="2" />
<text  x="13.00" y="135.5" ></text>
</g>
<g >
<title>countSemiprimes (19 bytes, 6.38%)</title><rect x="29.8" y="221" width="75.2" height="15.0" fill="rgb(251,80,23)" rx="2" ry="2" />
<text  x="32.80" y="231.5" >countSem..</text>
</g>
<g >
<title>semiprimes (274 bytes, 91.95%)</title><rect x="105.0" y="237" width="1085.0" height="15.0" fill="rgb(215,130,51)" rx="2" ry="2" />
<text  x="108.03" y="247.5" >semiprimes</text>
</g>
<g >
<title>Data.List.Ordered.unionBy.loop (200 bytes, 67.11%)</title><rect x="394.1" y="173" width="791.9" height="15.0" fill="rgb(205,55,48)" rx="2" ry="2" />
<text  x="397.09" y="183.5" >Data.List.Ordered.unionBy.loop</text>
</g>
<g >
<title>sieve.reinsert (1 bytes, 0.34%)</title><rect x="21.9" y="157" width="3.9" height="15.0" fill="rgb(218,28,39)" rx="2" ry="2" />
<text  x="24.88" y="167.5" ></text>
</g>
<g >
<title>primes.large (5 bytes, 1.68%)</title><rect x="10.0" y="221" width="19.8" height="15.0" fill="rgb(239,208,12)" rx="2" ry="2" />
<text  x="13.00" y="231.5" ></text>
</g>
<g >
<title>Data.Vector.Fusion.Util.&gt;&gt;= (9 bytes, 3.02%)</title><rect x="53.6" y="189" width="35.6" height="15.0" fill="rgb(212,152,51)" rx="2" ry="2" />
<text  x="56.56" y="199.5" >Dat..</text>
</g>
<g >
<title>Data.PQueue.Prio.Internals.extractForest (3 bytes, 1.01%)</title><rect x="10.0" y="93" width="11.9" height="15.0" fill="rgb(211,33,24)" rx="2" ry="2" />
<text  x="13.00" y="103.5" ></text>
</g>
<g >
<title>Data.List.Ordered.unionBy (200 bytes, 67.11%)</title><rect x="394.1" y="189" width="791.9" height="15.0" fill="rgb(220,118,39)" rx="2" ry="2" />
<text  x="397.09" y="199.5" >Data.List.Ordered.unionBy</text>
</g>
<g >
<title>countSemiprimes.noOfSemiprimes (19 bytes, 6.38%)</title><rect x="29.8" y="205" width="75.2" height="15.0" fill="rgb(215,168,21)" rx="2" ry="2" />
<text  x="32.80" y="215.5" >countSem..</text>
</g>
<g >
<title>sieve.adjust.(...) (3 bytes, 1.01%)</title><rect x="10.0" y="157" width="11.9" height="15.0" fill="rgb(225,128,51)" rx="2" ry="2" />
<text  x="13.00" y="167.5" ></text>
</g>
<g >
<title>isNSemiprime.\ (1 bytes, 0.34%)</title><rect x="101.1" y="173" width="3.9" height="15.0" fill="rgb(213,226,9)" rx="2" ry="2" />
<text  x="104.07" y="183.5" ></text>
</g>
<g >
<title>Data.PQueue.Prio.Internals.extractHeap (3 bytes, 1.01%)</title><rect x="10.0" y="109" width="11.9" height="15.0" fill="rgb(209,39,0)" rx="2" ry="2" />
<text  x="13.00" y="119.5" ></text>
</g>
<g >
<title>sieve (5 bytes, 1.68%)</title><rect x="10.0" y="205" width="19.8" height="15.0" fill="rgb(251,53,35)" rx="2" ry="2" />
<text  x="13.00" y="215.5" ></text>
</g>
<g >
<title>Data.PQueue.Prio.Internals.insert (1 bytes, 0.34%)</title><rect x="21.9" y="141" width="3.9" height="15.0" fill="rgb(243,29,52)" rx="2" ry="2" />
<text  x="24.88" y="151.5" ></text>
</g>
<g >
<title>semiprimes.facts (1 bytes, 0.34%)</title><rect x="1186.0" y="205" width="4.0" height="15.0" fill="rgb(244,39,19)" rx="2" ry="2" />
<text  x="1189.04" y="215.5" ></text>
</g>
<g >
<title>primes (5 bytes, 1.68%)</title><rect x="10.0" y="237" width="19.8" height="15.0" fill="rgb(206,68,34)" rx="2" ry="2" />
<text  x="13.00" y="247.5" ></text>
</g>
<g >
<title>CAF:run32 (19 bytes, 6.38%)</title><rect x="29.8" y="253" width="75.2" height="15.0" fill="rgb(206,209,10)" rx="2" ry="2" />
<text  x="32.80" y="263.5" >CAF:run32</text>
</g>
<g >
<title>Data.Vector.Fusion.Stream.Monadic.fmap (4 bytes, 1.34%)</title><rect x="73.4" y="173" width="15.8" height="15.0" fill="rgb(221,204,43)" rx="2" ry="2" />
<text  x="76.36" y="183.5" ></text>
</g>
<g >
<title>Data.Vector.Unboxed.Base.basicUnsafeIndexM (3 bytes, 1.01%)</title><rect x="89.2" y="189" width="11.9" height="15.0" fill="rgb(238,157,48)" rx="2" ry="2" />
<text  x="92.19" y="199.5" ></text>
</g>
<g >
<title>Data.PQueue.Prio.Internals.incr (2 bytes, 0.67%)</title><rect x="14.0" y="61" width="7.9" height="15.0" fill="rgb(225,99,49)" rx="2" ry="2" />
<text  x="16.96" y="71.5" ></text>
</g>
<g >
<title>Data.PQueue.Prio.Internals.incrExtract (2 bytes, 0.67%)</title><rect x="14.0" y="77" width="7.9" height="15.0" fill="rgb(241,23,44)" rx="2" ry="2" />
<text  x="16.96" y="87.5" ></text>
</g>
<g >
<title>semiprimes.\ (274 bytes, 91.95%)</title><rect x="105.0" y="221" width="1085.0" height="15.0" fill="rgb(241,212,31)" rx="2" ry="2" />
<text  x="108.03" y="231.5" >semiprimes.\</text>
</g>
<g >
<title>sieve.adjust (4 bytes, 1.34%)</title><rect x="10.0" y="173" width="15.8" height="15.0" fill="rgb(219,139,42)" rx="2" ry="2" />
<text  x="13.00" y="183.5" ></text>
</g>
<g >
<title>isNSemiprime (1 bytes, 0.34%)</title><rect x="101.1" y="189" width="3.9" height="15.0" fill="rgb(216,67,39)" rx="2" ry="2" />
<text  x="104.07" y="199.5" ></text>
</g>
<g >
<title>sieve.crossoff (1 bytes, 0.34%)</title><rect x="25.8" y="173" width="4.0" height="15.0" fill="rgb(254,79,16)" rx="2" ry="2" />
<text  x="28.84" y="183.5" ></text>
</g>
<g >
<title>Data.List.Ordered.union (273 bytes, 91.61%)</title><rect x="105.0" y="205" width="1081.0" height="15.0" fill="rgb(218,95,3)" rx="2" ry="2" />
<text  x="108.03" y="215.5" >Data.List.Ordered.union</text>
</g>
<g >
<title>Data.PQueue.Prio.Internals.insert (1 bytes, 0.34%)</title><rect x="25.8" y="157" width="4.0" height="15.0" fill="rgb(232,228,32)" rx="2" ry="2" />
<text  x="28.84" y="167.5" ></text>
</g>
<g >
<title>Data.Vector.Fusion.Util.&gt;&gt;= (3 bytes, 1.01%)</title><rect x="89.2" y="173" width="11.9" height="15.0" fill="rgb(249,209,33)" rx="2" ry="2" />
<text  x="92.19" y="183.5" ></text>
</g>
<g >
<title>primesTo (1 bytes, 0.34%)</title><rect x="1186.0" y="189" width="4.0" height="15.0" fill="rgb(235,63,31)" rx="2" ry="2" />
<text  x="1189.04" y="199.5" ></text>
</g>
<g >
<title>MAIN (298 bytes, 100.00%)</title><rect x="10.0" y="269" width="1180.0" height="15.0" fill="rgb(234,227,0)" rx="2" ry="2" />
<text  x="13.00" y="279.5" >MAIN</text>
</g>
<g >
<title>run (19 bytes, 6.38%)</title><rect x="29.8" y="237" width="75.2" height="15.0" fill="rgb(219,94,52)" rx="2" ry="2" />
<text  x="32.80" y="247.5" >run</text>
</g>
<g >
<title>Data.PQueue.Prio.Min.deleteFindMin (3 bytes, 1.01%)</title><rect x="10.0" y="141" width="11.9" height="15.0" fill="rgb(237,228,52)" rx="2" ry="2" />
<text  x="13.00" y="151.5" ></text>
</g>
<g >
<title>CAF:primesTo8 (5 bytes, 1.68%)</title><rect x="10.0" y="253" width="19.8" height="15.0" fill="rgb(219,38,9)" rx="2" ry="2" />
<text  x="13.00" y="263.5" ></text>
</g>
<g >
<title>Data.Vector.Unboxed.Base.basicUnsafeWrite (1 bytes, 0.34%)</title><rect x="101.1" y="157" width="3.9" height="15.0" fill="rgb(224,110,16)" rx="2" ry="2" />
<text  x="104.07" y="167.5" ></text>
</g>
</g>
</svg>