alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Drop file split.

Browse Source
This commit is contained in:
Brad Nelson
2021-01-09 14:34:14 -08:00
parent 4b012fdf44
commit 55bc26564c
1 changed files with 3 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
ueforth/arduino/arduino_server.fs
View File

@ -37,11 +37,7 @@ Upload File: <input id="filepick" type="file" name="files[]"></input><br/>
<br/> <br/>
<textarea id="output" readonly></textarea> <textarea id="output" readonly></textarea>
<input id="prompt" type="prompt"></input><br/> <input id="prompt" type="prompt"></input><br/>
<script src="terminal1.js"></script> <script>
<script src="terminal2.js"></script>
| s>z constant index-html
r|
var prompt = document.getElementById('prompt'); var prompt = document.getElementById('prompt');
var filepick = document.getElementById('filepick'); var filepick = document.getElementById('filepick');
var output = document.getElementById('output'); var output = document.getElementById('output');
@ -71,9 +67,6 @@ function ask(cmd, callback) {
if (callback !== undefined) { callback(); } if (callback !== undefined) { callback(); }
}); });
} }
| s>z constant terminal1-js
r|
prompt.onkeyup = function(event) { prompt.onkeyup = function(event) {
if (event.keyCode === 13) { if (event.keyCode === 13) {
event.preventDefault(); event.preventDefault();
@ -100,7 +93,7 @@ window.onload = function() {
prompt.focus(); prompt.focus();
}; };
</script> </script>
| s>z constant terminal2-js | s>z constant index-html
variable webserver variable webserver
20000 constant out-size 20000 constant out-size
@ -113,16 +106,6 @@ create out-string out-size 1+ allot align
200 z" text/html" index-html webserver @ WebServer.send 200 z" text/html" index-html webserver @ WebServer.send
; ;
: handle-terminal1
terminal1-js z>s nip webserver @ WebServer.setContentLength
200 z" text/html" terminal1-js webserver @ WebServer.send
;
: handle-terminal2
terminal2-js z>s nip webserver @ WebServer.setContentLength
200 z" text/html" terminal2-js webserver @ WebServer.send
;
: handle-input : handle-input
z" cmd" webserver @ WebServer.hasArg if z" cmd" webserver @ WebServer.hasArg if
z" cmd" webserver @ WebServer.arg input-stream >stream pause z" cmd" webserver @ WebServer.arg input-stream >stream pause
@ -139,9 +122,8 @@ create out-string out-size 1+ allot align
: do-serve : do-serve
80 WebServer.new webserver ! 80 WebServer.new webserver !
z" /webui" ['] handle-index webserver @ WebServer.on
z" /" ['] handle-index webserver @ WebServer.on z" /" ['] handle-index webserver @ WebServer.on
z" /terminal1.js" ['] handle-terminal1 webserver @ WebServer.on
z" /terminal2.js" ['] handle-terminal2 webserver @ WebServer.on
z" /input" ['] handle-input webserver @ WebServer.on z" /input" ['] handle-input webserver @ WebServer.on
webserver @ WebServer.begin webserver @ WebServer.begin
begin begin