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

Fixing arduino to use also.

Browse Source
This commit is contained in:
Brad Nelson
2021-02-07 01:16:39 -08:00
parent f4be0ab2d9
commit 0cf9862cdb
2 changed files with 7 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
ueforth/arduino/arduino_server.fs
View File

@ -1,6 +1,7 @@
( Server Terminal ) ( Server Terminal )
vocabulary web-interface web-interface definitions also streams also WebServer also WiFi
vocabulary web-interface also web-interface definitions
: n. ( n -- ) <# #s #> type ; : ip# dup 255 and n. [char] . emit 256 / ; : n. ( n -- ) <# #s #> type ; : ip# dup 255 and n. [char] . emit 256 / ;
: ip. ( n -- ) ip# ip# ip# 255 and . ; : ip. ( n -- ) ip# ip# ip# 255 and . ;
@ -98,33 +99,10 @@ window.onload = function() {
</script> </script>
| s>z constant index-html | s>z constant index-html
streams
: >stream >stream ;
: stream> stream> ;
: stream>ch stream>ch ;
: stream stream ;
WebServer
: WebServer.setContentLength WebServer.setContentLength ;
: WebServer.arg WebServer.arg ;
: WebServer.hasArg WebServer.hasArg ;
: WebServer.send WebServer.send ;
: WebServer.on WebServer.on ;
: WebServer.new WebServer.new ;
: WebServer.begin WebServer.begin ;
: WebServer.handleClient WebServer.handleClient ;
WiFi
: WiFi.mode WiFi.mode ;
: WiFi.begin WiFi.begin ;
: WiFi.localIP WiFi.localIP ;
: WIFI_MODE_STA WIFI_MODE_STA ;
web-interface
variable webserver variable webserver
20000 constant out-size 20000 constant out-size
200 stream input-stream 200 stream input-stream
out-size dup stream output-stream out-size dup stream output-stream
create out-string out-size 1+ allot align create out-string out-size 1+ allot align
: handle-index : handle-index
@ -166,13 +144,13 @@ create out-string out-size 1+ allot align
webserver-task start-task webserver-task start-task
; ;
: wifi ( z z -- ) : login ( z z -- )
WIFI_MODE_STA Wifi.mode WIFI_MODE_STA Wifi.mode
WiFi.begin begin WiFi.localIP 0= while 100 ms repeat WiFi.localIP ip. cr WiFi.begin begin WiFi.localIP 0= while 100 ms repeat WiFi.localIP ip. cr
z" ueforth" MDNS.begin if ." MDNS started" else ." MDNS failed" then cr ; z" ueforth" MDNS.begin if ." MDNS started" else ." MDNS failed" then cr ;
forth definitions web-interface also forth definitions
: webui ( z z -- ) wifi serve ; : webui ( z z -- ) login serve ;
forth only forth definitions

1
ueforth/examples/serialbt.fs
View File

@ -1,3 +1,4 @@
also SerialBT also internals
SerialBT.new constant bt SerialBT.new constant bt
z" ueforthbt" 0 bt SerialBT.begin . z" ueforthbt" 0 bt SerialBT.begin .
esp_bt_dev_get_address hex 6 dump cr esp_bt_dev_get_address hex 6 dump cr