From cd70253021852f0c200e2ecb87b726961eddf90e Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Wed, 08 Feb 2017 22:22:24 -0500
Subject: eshtrans/join.sh: New experimental benchmarking script

---
diff --git a/eshtrans/join.sh b/eshtrans/join.sh
new file mode 100644
index 0000000..e40bf45
--- /dev/null
+++ b/eshtrans/join.sh
@@ -0,0 +1,83 @@
+#buf="$(cat "${0}")"
+buf="$(cat 'backend/codegen.esh')"
+#buf="$(cat 'frontend/lexer.esh')"
+
+eval "$(printf '%s' "${buf}" | awk -v FS='' -v j=0 \
+	-v squote="'" -v esc_squote="'\\\\''" '
+	{
+		for (i = 1; i <= NF; ++i) {
+			sub(squote, esc_squote, $i);
+			printf("lbufv_%d=" squote "%s" squote "\n",
+				j++, $i);
+		};
+		printf("lbufv_%d=" squote "\n" squote "\n", j++);
+	}
+	')"
+
+test_printf()
+{
+	foo()
+	{
+		i=0
+		while [ ${i} -le ${#buf} ]; do
+			c=$(eval "printf '%sx' \"\${lbufv_${i}}\"")
+			printf '%s' "${c%x}"
+			i=$((${i} + 1))
+		done
+	}
+	out="$(foo)"
+}
+
+test_concat()
+{
+	foo()
+	{
+		i=0
+		s=''
+		while [ ${i} -le ${#buf} ]; do
+			c=$(eval "printf '%sx' \"\${lbufv_${i}}\"")
+			s="${s}${c%x}"
+			i=$((${i} + 1))
+		done
+		printf '%s' "${s}"
+	}
+	out="$(foo)"
+}
+
+test_bc()
+{
+	foo()
+	{
+		eval "printf '%s' \"$(printf '${lbufv_%d}' $(printf \
+			'for (i = 0; i <= %d; ++i) i\n' ${#buf} | bc))\""
+	}
+	out="$(foo)"
+}
+
+test_awk()
+{
+	foo()
+	{
+		eval "printf '%s' \"$(printf '${lbufv_%d}' $(awk \
+			-v end=${#buf} \
+			'BEGIN { for (i = 0; i <= end; ++i) print(i); }'))\""
+	}
+	out="$(foo)"
+}
+
+if [ ${#} -eq 1 ]; then
+	test_${1}
+	if ! [ "x${buf}" = "x${out}" ]; then
+		printf 'Error: bad output:\n'
+		printf '%s' "${out}" | sed 's/^/\t/'
+	fi
+else
+	i=0
+	while [ ${i} -lt 3 ]; do
+		for f in printf concat bc awk; do
+			printf '%s:\n' "${f}"
+			time -p sh "${0}" "${f}" 2>&1 | sed 's/^/\t/'
+		done
+		i=$((${i} + 1))
+	done
+fi
--
cgit v0.9.1