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

Hid most of the arduino imports.

Browse Source
This commit is contained in:
Brad Nelson
2021-02-06 20:16:46 -08:00
parent 53d889ee38
commit dfe3e0a2e2
4 changed files with 59 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ueforth/Makefile
View File

@ -128,8 +128,9 @@ WINDOWS_BOOT = common/boot.fs common/vocabulary.fs common/hide_calls.fs common/a
$(GEN)/windows_boot.h: common/source_to_string.js $(WINDOWS_BOOT) | $(GEN) $(GEN)/windows_boot.h: common/source_to_string.js $(WINDOWS_BOOT) | $(GEN)
echo "ok" | cat $(WINDOWS_BOOT) - | $< boot >$@ echo "ok" | cat $(WINDOWS_BOOT) - | $< boot >$@
ARDUINO_BOOT = common/boot.fs common/vocabulary.fs arduino/hide_io.fs \ ARDUINO_BOOT = common/boot.fs common/vocabulary.fs \
arduino/arduino.fs arduino/arduino_highlevel.fs \ arduino/arduino.fs arduino/arduino_highlevel.fs \
arduino/hide_io.fs \
common/highlevel.fs common/filetools.fs \ common/highlevel.fs common/filetools.fs \
common/tasks.fs common/streams.fs arduino/arduino_server.fs \ common/tasks.fs common/streams.fs arduino/arduino_server.fs \
arduino/esp_camera.fs common/blocks.fs common/utils.fs \ arduino/esp_camera.fs common/blocks.fs common/utils.fs \

1
ueforth/arduino/arduino.template.ino
View File

@ -69,6 +69,7 @@
tos = (cell_t) (1000000 * ledcWriteTone(*sp, tos / 1000.0)); --sp) \ tos = (cell_t) (1000000 * ledcWriteTone(*sp, tos / 1000.0)); --sp) \
X("ledcWriteNote", LEDC_WRITE_NOTE, \ X("ledcWriteNote", LEDC_WRITE_NOTE, \
tos = (cell_t) (1000000 * ledcWriteNote(sp[-1], (note_t) *sp, tos)); sp -=2) \ tos = (cell_t) (1000000 * ledcWriteNote(sp[-1], (note_t) *sp, tos)); sp -=2) \
/* General System */ \
X("MS", MS, delay(tos); DROP) \ X("MS", MS, delay(tos); DROP) \
X("TERMINATE", TERMINATE, exit(tos)) \ X("TERMINATE", TERMINATE, exit(tos)) \
/* File words */ \ /* File words */ \

5
ueforth/arduino/arduino_server.fs
View File

@ -112,6 +112,11 @@ WebServer
: WebServer.new WebServer.new ; : WebServer.new WebServer.new ;
: WebServer.begin WebServer.begin ; : WebServer.begin WebServer.begin ;
: WebServer.handleClient WebServer.handleClient ; : 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 web-interface
variable webserver variable webserver

51
ueforth/arduino/hide_io.fs
View File

@ -23,3 +23,54 @@ transfer{
WebServer.args WebServer.setContentLength WebServer.args WebServer.setContentLength
}transfer }transfer
forth definitions forth definitions
vocabulary WiFi WiFi definitions
transfer{
WiFi.config
WiFi.begin WiFi.disconnect
WiFi.status
WiFi.macAddress WiFi.localIP
WiFi.mode
WiFi.setTxPower WiFi.getTxPower
WIFI_MODE_APSTA WIFI_MODE_AP WIFI_MODE_STA WIFI_MODE_NULL
}transfer
forth definitions
vocabulary SD_MMC SD_MMC definitions
transfer{
SD_MMC.begin SD_MMC.end
SD_MMC.cardType
SD_MMC.totalBytes SD_MMC.usedBytes
}transfer
forth definitions
vocabulary SPIFFS SPIFFS definitions
transfer{
SPIFFS.begin SPIFFS.end
SPIFFS.format
SPIFFS.totalBytes SPIFFS.usedBytes
}transfer
forth definitions
vocabulary ledc ledc definitions
transfer{
ledcSetup ledcAttachPin ledcDetachPin
ledcRead ledcReadFreq
ledcWrite ledcWriteTone ledcWriteNote
}transfer
forth definitions
vocabulary Serial Serial definitions
transfer{
Serial.begin Serial.end
Serial.available Serial.readBytes
Serial.write Serial.flush
}transfer
forth definitions
internals definitions
transfer{
malloc sysfree realloc
}transfer
forth definitions