\ Copyright 2022 Bradley D. Nelson
\
\ Licensed under the Apache License, Version 2.0 (the "License");
\ you may not use this file except in compliance with the License.
\ You may obtain a copy of the License at
\
\     http://www.apache.org/licenses/LICENSE-2.0
\
\ Unless required by applicable law or agreed to in writing, software
\ distributed under the License is distributed on an "AS IS" BASIS,
\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
\ See the License for the specific language governing permissions and
\ limitations under the License.

internals definitions
( TODO: Figure out why this has to happen so late. )
transfer internals-builtins
forth definitions internals
( Bring a forth to the top of the vocabulary. )
: ok   ." uEforth" raw-ok ;

: jseval! ( a n index -- ) 0 call ;

r|
(function(sp) {
  var n = i32[sp>>2]; sp -= 4;
  var a = i32[sp>>2]; sp -= 4;
  var text = GetString(a, n);
  eval(text);
  return sp;
})
| 1 jseval!
: jseval ( a n -- ) 1 call ;

r"
  if (!globalObj['write']) {
    var con = document.createElement('pre');
    con.id = 'console';
    document.body.appendChild(con);
    window.inbuffer = [];
    window.outbuffer = '';
    window.onkeypress = function(e) {
      window.inbuffer.push(e.keyCode);
    };
    window.onkeydown = function(e) {
      if (e.keyCode == 8) {
        window.inbuffer.push(e.keyCode);
      }
    };
  }
" jseval

r|
(function(sp) {
  var n = i32[sp>>2]; sp -= 4;
  var a = i32[sp>>2]; sp -= 4;
  if (globalObj['write']) {
    var text = GetString(a, n);
    write(text);
  } else {
    var con = document.getElementById('console');
    for (var i = 0; i < n; ++i) {
      var ch = u8[a + i];
      if (ch == 12) {
        window.outbuffer = '';
      } else if (ch == 8) {
        window.outbuffer = window.outbuffer.slice(0, -1);
      } else if (ch == 13) {
      } else {
        window.outbuffer += String.fromCharCode(ch);
      }
    }
    con.innerText = window.outbuffer + String.fromCharCode(0x2592);
    window.scrollTo(0, document.body.scrollHeight);
  }
  return sp;
})
| 2 jseval!
: web-type ( a n -- ) 2 call yield ;
' web-type is type

r|
(function(sp) {
  if (window.inbuffer.length) {
    sp += 4; i32[sp>>2] = window.inbuffer.shift();
  } else {
    sp += 4; i32[sp>>2] = 0;
  }
  return sp;
})
| 3 jseval!
: web-key ( -- n ) begin yield 3 call dup if exit then drop again ;
' web-key is key

r|
(function(sp) {
  sp += 4; i32[sp>>2] = window.inbuffer.length ? -1 : 0;
  return sp;
})
| 4 jseval!
: web-key? ( -- f ) yield 4 call ;
' web-key? is key?

: page   12 emit ;

transfer forth
forth
ok