Adding in pin handling.

ueforth/Makefile

@@ -4,7 +4,7 @@ RES = $(OUT)/resources
 WEB = $(OUT)/web
 POSIX = $(OUT)/posix
 WINDOWS = $(OUT)/windows
-ARDUINO = $(OUT)/arduino/ueforth
+ARDUINO = $(OUT)/arduino
 DEPLOY = $(OUT)/deploy
 
 CFLAGS = -Wall -Werror \

ueforth/arduino/arduino.fs

@@ -15,6 +15,13 @@
 : freq ( n n -- ) 1000 * 13 ledcSetup drop ;
 : tone ( n n -- ) 1000 * ledcWriteTone drop ;
 
+( Basic Ardiuno Constants )
+0 constant LOW
+1 constant HIGH
+1 constant INPUT
+2 constant OUTPUT
+2 constant LED
+
 ( WiFi Modes )
 0 constant WIFI_MODE_NULL
 1 constant WIFI_MODE_STA
@@ -26,3 +33,5 @@
 115200 Serial.begin
 100 ms
 -1 z" /spiffs" 10 SPIFFS.begin drop
+led OUTPUT pinMode
+high led pin

ueforth/arduino/arduino.template.ino

@@ -136,6 +136,10 @@
       tos = (cell_t) ((WebServer *) tos)->method()) \
   X("WebServer.handleClient", WEBSERVER_HANDLE_CLIENT, \
       ((WebServer *) tos)->handleClient(); DROP) \
+  X("OUTPUT", OUTPUT, DUP; tos = OUTPUT) \
+  X("INPUT", INPUT, DUP; tos = INPUT) \
+  X("LOW", LOW, DUP; tos = LOW) \
+  X("HIGH", HIGH, DUP; tos = HIGH) \
 
 // TODO: Why doesn't ftruncate exist?
 //  X("RESIZE-FILE", RESIZE_FILE, cell_t fd = tos; DROP; \