Tcl.js/benchmark.js at master · cyanogilvie/Tcl.js · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
#!/usr/bin/env node

var Benchmark = require('benchmark');
var suite = new Benchmark.Suite('tcl', {});

var requirejs = require('requirejs');
requirejs.config({
	baseUrl: '/Users/cyan/git/js',
	paths: {
		tcl:		'tcl/amd',
		sop:		'tcl/amd',
		cfcrypto:	'crypto/src/amd',
		webtoolkit:	'3rd_party/webtoolkit',
		ds:			'datasource/amd',
		cflib:		'cflib/amd'
	},
	nodeRequire: require
});

requirejs([
	'tcl/interp',
	'tcl/tclobject',
	'webtoolkit/sprintf',
	'tcl/list'
], function(
	Interp,
	tclobj,
	sprintf,
	tcllist
){
	function report(result){
		var usec = 1000000.0/result.currentTarget.hz;
		console.log(sprintf('%25s: %15.5f / sec ± %f, usec/it: %.4f', result.currentTarget.name, result.currentTarget.hz, result.currentTarget.stats.deviation, usec));
	}

	var interp = new Interp();
	interp.registerCommand('puts', function(args){
		interp.checkArgs(args, 1, 'string');
		console.log(args[1].toString());
	});

	/*
	suite.add('puts hello world', function(deferred){
		interp.TclEval('puts "hello, world"', function(res){
			deferred.resolve();
		});
	});
	 */

	suite.add('list parse', function(){
		tcllist.list2array('1 2 3');
	}, {onComplete: report});

	suite.add('deferred overhead', function(deferred){
		deferred.resolve();
	}, {defer: true, async: true, onComplete: report});

	suite.add('set a b', function(deferred){
		interp.TclEval('set a b', function(res){
			deferred.resolve();
		});
	}, {defer: true, async: true, onComplete: report});
	suite.add('sync set a b', function(){
		interp.TclEval('set a b', function(){});
	}, {onComplete: report});


	var obj = tclobj.AsObj('set a b');
	obj.IncrRefCount();
	suite.add('preparsed set a b', function(deferred){
		interp.TclEval(obj, function(res){
			deferred.resolve();
		});
	}, {defer: true, onComplete: report});
	suite.add('sync preparsed set a b', function(){
		interp.TclEval(obj, function(){});
	}, {onComplete: report});

	suite.add('expr 1 + 2', function(deferred){
		interp.TclExpr('1 + 2', function(res){
			deferred.resolve();
		});
	}, {defer: true, onComplete: report});
	suite.add('sync expr 1 + 2', function(){
		interp.TclExpr('1 + 2', function(){});
	}, {onComplete: report});

	var eobj = tclobj.AsObj('1 + 2');
	eobj.IncrRefCount();
	suite.add('parsed expr 1 + 2', function(deferred){
		interp.TclExpr(eobj, function(res){
			deferred.resolve();
		});
	}, {defer: true, onComplete: report});
	suite.add('sync parsed expr 1 + 2', function(){
		interp.TclExpr(eobj, function(){});
	}, {onComplete: report});

	var e2obj;
	//e2obj = tclobj.AsObj('$a+-min(3, 4)+[get_num]-$b([get_num]) eq "42 [get_num]"');
	e2obj = tclobj.AsObj('$a+-min(3, 4)+[get_num]-$b([get_num]) eq {42}');
	eobj.IncrRefCount();
	interp.registerCommand('get_num', function(args){
		return 43;
	});
	interp.set_var('a', 6);
	interp.set_array('b', 'x', 40);
	interp.set_array('b', 'y', 4);
	interp.set_array('b', '43', 4);
	suite.add('parsed complex expression', function(deferred){
		interp.TclExpr(e2obj, function(res){
			deferred.resolve();
		});
	}, {defer: true, onComplete: report});
	suite.add('sync parsed complex expr', function(){
		interp.TclExpr(e2obj, function(){});
	}, {onComplete: report});
	interp.TclExpr(e2obj, function(res){
		console.log('sync parsed complex expr result: '+res.result);
	});

	var lobj = tclobj.AsObj('1 2 3');
	lobj.IncrRefCount();
	lobj.GetList();
	suite.add('llength obj', function(){
		var list = lobj.GetList();
		return list.length;
	}, {onComplete: report})

	suite.run({
		async: true
	});
});