From 9e37780cd41c8e891e3c249175daa6cd88ae9505 Mon Sep 17 00:00:00 2001
From: hama <hama@siduction.net>
Date: Sun, 17 Aug 2014 00:20:17 +0200
Subject: [PATCH] dayly work

---
 bench/.gitignore  |   8 ++
 bench/mk_bench.pl | 222 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 230 insertions(+)
 create mode 100644 bench/.gitignore
 create mode 100644 bench/mk_bench.pl

diff --git a/bench/.gitignore b/bench/.gitignore
new file mode 100644
index 0000000..4f7845b
--- /dev/null
+++ b/bench/.gitignore
@@ -0,0 +1,8 @@
+a.out
+Bench.class
+Bench.java
+bench.txt
+cppbench.cpp
+mfbench.mf
+plbench.pl
+pybench.py
diff --git a/bench/mk_bench.pl b/bench/mk_bench.pl
new file mode 100644
index 0000000..666f0dd
--- /dev/null
+++ b/bench/mk_bench.pl
@@ -0,0 +1,222 @@
+#! /usr/bin/perl
+
+use strict;
+
+my $lang = shift;
+$lang = "py" unless $lang;
+my $count = shift;
+$count = 50*1000 unless $count;
+my $loops = shift;
+$loops = 200 unless $loops;
+
+print "count: $count loops: $loops\n";
+if ($lang =~ /^py/i){
+	&pyAssign;
+} elsif  ($lang =~ /^j/i){
+	&javaAssign;
+} elsif  ($lang =~ /^c/i){
+	&cppAssign;
+} elsif  ($lang =~ /^p.*l/i){
+	&plAssign;
+} elsif  ($lang =~ /^m/i){
+	&mfAssign;
+} else {
+	die "unknown language: $lang. Use py pl java cpp";
+}
+
+exit 0;
+
+
+sub pyAssign {
+	print "pyAssign...\n";
+	open (my $OUT, ">", "pybench.py") || die "pybench.py: $!";
+	&pyPrefix($OUT);
+	my $ix = 1;
+	while($ix < $count){
+		print $OUT sprintf("    variable%d = variable%d + 1\n", $ix, $ix - 1);
+		$ix++;
+	}
+	print $OUT sprintf("    return variable%d\n", $ix - 1);
+	&pySuffix($OUT);
+	close $OUT;
+}
+sub pyPrefix{
+	my $OUT = shift;
+	print $OUT <<EOS;
+import time
+def doIt(defValue):
+    variable0 = defValue
+EOS
+}
+sub pySuffix{
+	my $OUT = shift;
+	print $OUT <<EOS;
+if __name__ == '__main__':
+    start = time.time()
+    ix = $loops
+    rc = 0
+    while ix > 0 :
+        ix -= 1
+        rc += doIt(ix)
+    end = time.time()
+    print("rc", rc, " time of doIt: ", (end - start))
+EOS
+}
+
+sub plAssign {
+	print "plAssign...\n";
+	open (my $OUT, ">", "plbench.pl") || die "plbench.pl: $!";
+	&plPrefix($OUT);
+	my $ix = 1;
+	while($ix < $count){
+		print $OUT sprintf("    my \$variable%d = \$variable%d + 1;\n", $ix, $ix - 1);
+		$ix++;
+	}
+	&plSuffix($OUT);
+	close $OUT;
+}
+sub plPrefix{
+	my $OUT = shift;
+	print $OUT <<'EOS';
+use strict;
+sub doIt{
+    my $variable0 = shift;
+EOS
+}
+sub plSuffix{
+	my $OUT = shift;
+	print $OUT <<EOS;
+}
+my \$start = time();
+my \$rc = 0;
+my \$ix = $loops;
+while (\$ix--){
+	\$rc += &doIt(\$ix);
+}
+my \$end = time();
+print "rc: ", \$rc, " time of doIt: ", \$end - \$start, "\n";
+EOS
+}
+
+sub javaAssign {
+	print "javaAssign...\n";
+	open (my $OUT, ">", "Bench.java") || die "Bench.java: $!";
+	&javaPrefix($OUT);
+	my $ix = 1;
+	while($ix < $count){
+		print $OUT sprintf("        int variable%d = variable%d + 1;\n", $ix, $ix - 1);
+		$ix++;
+	}
+	print $OUT sprintf("        return variable%d;\n", $ix - 1);
+	&javaSuffix($OUT);
+	close $OUT;
+}
+sub javaPrefix{
+	my $OUT = shift;
+	print $OUT <<'EOS';
+public class Bench {
+    int doIt(int defValue){
+    int variable0 = defValue;
+EOS
+}
+sub javaSuffix{
+	my $OUT = shift;
+	print $OUT <<EOS;
+    }
+    public static void main(String[] args) {
+        long start = System.currentTimeMillis();
+        Bench bench = new Bench();
+        int rc = 0;
+        int ix = $loops;
+        while(ix-- > 0)
+			rc += bench.doIt(ix);
+        long end = System.currentTimeMillis();
+        System.out.println(String.format("rc: %d time of doIt(): %.3f", 
+                rc, (end - start) / 1000.0));
+
+    }
+}
+EOS
+}
+
+sub cppAssign {
+	print "cppAssign...\n";
+	open (my $OUT, ">", "cppbench.cpp") || die "cppbench.cpp: $!";
+	&cppPrefix($OUT);
+	my $ix = 1;
+	while($ix < $count){
+		print $OUT sprintf("        int variable%d = variable%d + 1;\n", $ix, $ix - 1);
+		$ix++;
+	}
+	print $OUT sprintf("        return variable%d;\n", $ix - 1);
+	&cppSuffix($OUT);
+	close $OUT;
+}
+sub cppPrefix{
+	my $OUT = shift;
+	print $OUT <<'EOS';
+#include <stdio.h>
+#include <time.h>
+class Bench {
+public:
+    int doIt(int defValue){
+    int variable0 = defValue;
+EOS
+}
+sub cppSuffix{
+	my $OUT = shift;
+	print $OUT <<EOS;
+    }
+};
+int main(int argc, char**argv) {
+    time_t start = time(NULL);
+    Bench bench;
+    int ix = $loops;
+    int rc = 0;
+    while(ix-- > 0){
+		rc += bench.doIt(ix);
+	}
+    time_t end = time(NULL);
+    printf("rc: %d time of doIt(): %d", rc, (end - start));
+}
+EOS
+}
+
+sub mfAssign {
+	print "mfAssign...\n";
+	open (my $OUT, ">", "mfbench.mf") || die "mfbench.mf: $!";
+	&mfPrefix($OUT);
+	my $ix = 1;
+	while($ix < $count){
+		print $OUT sprintf("        Int variable%d = variable%d + 1;\n", $ix, $ix - 1);
+		$ix++;
+	}
+	print $OUT sprintf("        variable%d;\n", $ix - 1);
+	&mfSuffix($OUT);
+	close $OUT;
+}
+sub mfPrefix{
+	my $OUT = shift;
+	print $OUT <<'EOS';
+func Int doIt(Int defValue) :
+    Int variable0 = defValue;
+EOS
+}
+sub mfSuffix{
+	my $OUT = shift;
+	print $OUT <<EOS;
+endf
+func Int main(List argv) :
+    //time_t start = time(NULL);
+    Int ix = $loops;
+    Int rc = 0;
+    while ix-- > 0 do
+        rc += bench.doIt(ix);
+    od
+    //time_t end = time(NULL);
+    //printf("rc: %d time of doIt(): %d", rc, (end - start));
+endf
+EOS
+}
+
+
-- 
2.39.5