ktye.github.io/w.html at master · sutibu/ktye.github.io · 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
<head><meta charset="utf-8"><title>w</title></head>
<link rel='icon' type'image/png' href="k32.png">
<style>
 html,body,textarea,input,select{margin:0;padding:0;overflow:hidden;font-family:monospace;background:#efefef;}table{position:absolute;width:100%;height:100%;border-collapse:collapse;}td{width:50%;}
 textarea{top:0;left:0;width:100%;height:100%;background:black;color:#cccccc;border:none;resize:none;overflow-y:auto;overflow-x:hidden;scrollbar-width:none;}::-webkit-scrollbar{width:0;height:0;}
 textarea:focus{color:white;}
 .r{float:right;}#dl{display:none;}
</style>


<table><tr>
<td><textarea id="iterm" class="term" wrap="off" spellcheck="false"></textarea></td>
<td><textarea id="oterm" class="term" wrap="off" spellcheck="false"></textarea></td></tr><tr style="height:30px">
<td>
 <select id="exmpl"></select>
 <select id="targt" class="r">
  <option         >AST</option>
  <option selected>wasm</option>
 </select></td><td>
 <button id="compl">compile</button>
 <button class="r" id="dlbut">download</button></td>
</tr></table>
<a id="dl"></a>

<script>
var iterm = document.getElementById("iterm")
var oterm = document.getElementById("oterm")
var exmpl = document.getElementById("exmpl")
var compl = document.getElementById("compl")
var dlbut = document.getElementById("dlbut")
var targt = document.getElementById("targt")
function KO(s){oterm.value += s;oterm.scrollTo(0,oterm.scrollHeight)}
function us(s){return new TextEncoder("utf-8").encode(s)}
function su(u){return (u.length)?new TextDecoder("utf-8").decode(u):""}
function cu(u){var x=mk(1,u.length);K.C.set(u,8+x);return x}
function sk(x){var n=nn(x);var s=su(K.C.slice(x+8,x+8+n));dx(x);return s}
function sy(s){return sc(cu(us(s)))}

// ktye wasm module
var K
var draw  = function(w,h,p){}
var grow  = function(x)    {var cur=K.exports.mem.buffer.byteLength;if((1<<x)>cur){var a=(1<<x)-cur;K.exports.mem.grow(a>>>16); msl()};return x}
var printc= function(x,y)  {KO(su(K.C.slice(x,x+y)))}
var msl   = function()     {var b=K.exports.mem.buffer;K.C=new Uint8Array(b);K.U=new Uint32Array(b);K.I=new Int32Array(b);K.F=new Float64Array(b)}
var env = {"ext":{"sin":Math.sin,"cos":Math.cos,"exp":Math.exp,"log":Math.log,"atan2":Math.atan2,"hypot":Math.hypot,"draw":draw,"grow":grow,"printc":printc} }
var nn, tp, dx, mk, sc, val, kst, asn, atx, lup, bak
function kinit(r,f){
 K=r.instance;msl();K.exports.ini(16);bak=K.C.slice(0);var e=K.exports
 nn=e.nn;tp=e.tp;dx=e.dx;rx=e.rx;mk=e.mk;sc=e.sc;val=e.val;kst=e.kst;asn=e.asn;atx=e.atx;lup=e.lup;
 if(f!=undefined)f()
}
function ktry(s){
 try     {var x=sk(kst(val(cu(us(s))))); bak=K.C.slice(0, 1<<K.U[32]);return x}
 catch(e){K.C.set(bak);return "!\n"}}


var w
function strip(s){return s.split("\n\\")[0]}
fetch("w.k").then(r=>{return r.text()}).then(s=>w=us(strip(s)))

var b
fetch('k.wasm').then(r=>r.arrayBuffer()).then(r=>WebAssembly.instantiate(b=r,env)).then(r=>kinit(r))

var dl = document.getElementById("dl")
function run(){
 dx(val(cu(w)))
 try{
  var t0 = performance.now()
  dx(atx(lup(sy("compile")),cu(us(iterm.value))))
  var r = atx(lup(sy(targt.value)),mk(1,0))
  var t1 = performance.now()
  oterm.value=(t1-t0) + " ms\n"
  o=K.C.slice(r+8,r+8+nn(r));if(targt.value=="AST"){oterm.value+=su(o)} else hexdump(o);
  var y = new Blob([o], {type:"application/octet-stream"})
  dl.href = URL.createObjectURL(y)
  dl.download = "o." + targt.value
  dlbut.disabled = false
 }catch(e){
  oterm.value = "! " + e.toString()
 }
}

function hexdump(u){var o=function(s){oterm.value+=s};for(var i=0;i<u.length;i++){(i%32==0)?o("\n"):(i%4==0)?o(" "):0;o(u[i].toString(16).padStart(2,'0'))}o("\n")}


var macro = `v1:{xt:tp x;xn:nn x;xp:8+x}v2:{v1;yt:tp y;yn:nn y;yp:8+y}
nn:I:I{(x<256)? :1;536870911&I x}
tp:I:I{(x<256)? :0;(I x)>>29}
f:I:II{v2;xp+yp}`

var examples = {"x+y":"f:I:II{x+y}","+/!n":"sum:I:I{r:0;x/r+:i;r}","macro":macro}
function initex(){Object.keys(examples).forEach(s=>{var o=document.createElement("option");o.text=s;exmpl.add(o)})}
fetch('s').then(r=>r.text()).then(r=>{examples["k.w"]=r;initex()})

//Object.keys(pages).forEach((page) => console.log(page));

exmpl.onchange = function(e){iterm.value=examples[e.target.value];oterm.value=""}
dlbut.onclick  = function(e){dl.click()}
compl.onclick  = function(e){oterm.value="compiling..."; WebAssembly.instantiate(b,env).then(r=>kinit(r,run))}


iterm.placeholder="in(w)";oterm.placeholder="out"
iterm.value=examples["x+y"];oterm.value=""
dl.disabled=true
</script>
</body>
</html>