Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2025-01-18 22:26:39 +01:00
Code Issues Projects Releases Packages Wiki Activity

Extract sieve benchmark

Browse source
This commit is contained in:
Remko Tronçon 2018-05-29 08:48:08 +02:00
parent df64428f77
commit bebe495332
6 changed files with 84 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Makefile
View file

@ -21,6 +21,14 @@ tests: $(WASM_FILES)
sieve-vanilla: $(WASM_FILES) sieve-vanilla: $(WASM_FILES)
$(PARCEL) --no-hmr -o dist/sieve-vanilla.html tests/benchmarks/sieve-vanilla/index.html $(PARCEL) --no-hmr -o dist/sieve-vanilla.html tests/benchmarks/sieve-vanilla/index.html
.PHONY: benchmark-sieve
benchmark-sieve: $(WASM_FILES)
$(PARCEL) build -o dist/benchmark-sieve.html tests/benchmarks/sieve/index.html
.PHONY: benchmark-sieve-dev
benchmark-sieve-dev: $(WASM_FILES)
$(PARCEL) --no-hmr tests/benchmarks/sieve/index.html
wasm: $(WASM_FILES) src/tools/quadruple.wasm.hex wasm: $(WASM_FILES) src/tools/quadruple.wasm.hex
dist/waforth.wasm: src/waforth.wat dist dist/waforth.wasm: src/waforth.wat dist

24
src/shell/index.js
View file

@ -2,33 +2,11 @@ import "whatwg-fetch";
import "promise-polyfill/src/polyfill"; import "promise-polyfill/src/polyfill";
import $ from "jquery"; import $ from "jquery";
import WAForth from "./WAForth"; import WAForth from "./WAForth";
import sieve from "./sieve";
window.jQuery = $; window.jQuery = $;
require("jq-console"); require("jq-console");
// Copied from https://rosettacode.org/wiki/Sieve_of_Eratosthenes#Forth
const sieve = `
: prime? HERE + C@ 0= ;
: composite! HERE + 1 SWAP C! ;
: sieve
HERE OVER ERASE
2
BEGIN
2DUP DUP * >
WHILE
DUP prime? IF
2DUP DUP * DO
I composite!
DUP +LOOP
THEN
1+
REPEAT
DROP
1 SWAP 2 DO I prime? IF DROP I THEN LOOP .
;
`;
const forth = new WAForth(); const forth = new WAForth();
let jqconsole = $("#console").jqconsole("WAForth\n", ""); let jqconsole = $("#console").jqconsole("WAForth\n", "");

22
src/shell/sieve.js Normal file
View file

@ -0,0 +1,22 @@
// Copied from https://rosettacode.org/wiki/Sieve_of_Eratosthenes#Forth
export default `
: prime? HERE + C@ 0= ;
: composite! HERE + 1 SWAP C! ;
: sieve
HERE OVER ERASE
2
BEGIN
2DUP DUP * >
WHILE
DUP prime? IF
2DUP DUP * DO
I composite!
DUP +LOOP
THEN
1+
REPEAT
DROP
1 SWAP 2 DO I prime? IF DROP I THEN LOOP .
;
`;

2
src/waforth.wat
View file

@ -32,7 +32,7 @@
(define !returnStackBase #x4000) (define !returnStackBase #x4000)
(define !stackBase #x10000) (define !stackBase #x10000)
(define !dictionaryBase #x20000) (define !dictionaryBase #x20000)
(define !memorySize (* 1 1024 1024)) (define !memorySize (* 100 1024 1024))
(define !moduleHeader (define !moduleHeader
(string-append (string-append

10
tests/benchmarks/sieve/index.html Normal file
View file

@ -0,0 +1,10 @@
<!doctype html>
<html>
<head>
<meta charset="utf-8">
<title></title>
</head>
<body>
<script src="./index.js"></script>
</body>
</html>

42
tests/benchmarks/sieve/index.js Normal file
View file

@ -0,0 +1,42 @@
import WAForth from "../../../src/shell/WAForth";
import sieve from "../../../src/shell/sieve";
const ITERATIONS = 3;
const LIMIT = 50000000;
const forth = new WAForth();
let outputBuffer = [];
forth.onEmit = c => {
outputBuffer.push(String.fromCharCode(c));
};
document.body.innerHTML = "Loading...";
forth.start().then(
() => {
document.body.innerHTML = "<div>Running...</div>";
forth.run(sieve);
let i = 0;
const run = () => {
if (i < ITERATIONS) {
outputBuffer = [];
const t1 = performance.now();
outputBuffer = [77, 88];
forth.run(`${LIMIT} sieve`);
const t2 = performance.now();
document.body.innerHTML =
document.body.innerHTML +
`<div><pre style='display: inline-block; margin: 0; margin-right: 1rem'>${outputBuffer.join(
""
)}</pre><span>${(t2 - t1) / 1000.0}</span></div>`;
i += 1;
window.setTimeout(run, 0);
} else {
document.body.innerHTML = document.body.innerHTML + "<div>Done</div>";
}
};
window.setTimeout(run, 10);
},
err => {
console.error(err);
document.body.innerHTML = "Error";
}
);