Added camera command

Author: Stefan

Basic2/Posix/basic.c

@@ -232,6 +232,9 @@ const char shelp[]		PROGMEM = "HELP";
 const char sshl[]		PROGMEM = "<<";
 const char sshr[]		PROGMEM = ">>";
 const char sbit[]		PROGMEM = "BIT";
+#ifdef HASCAMERA
+const char scam[]	PROGMEM = "CAM";
+#endif
 
 
 /* zero terminated keyword storage */
@@ -315,6 +318,9 @@ const char* const keyword[] PROGMEM = {
   shelp,
 #endif
   sshl, sshr, sbit,
+#ifdef HASCAMERA
+  scam,
+#endif
   0
 };
 
@@ -396,6 +402,9 @@ const token_t tokens[] PROGMEM = {
   THELP,
 #endif
   TSHL, TSHR, TBIT,
+#ifdef HASCAMERA
+  TCAM,
+#endif
   0
 };
 
@@ -7065,6 +7074,30 @@ void xhelp() {
   }
 }
 
+/* 
+ * The camera control command for ESP32 cameras and similar MCU cams
+ * currently only a stub, no functionality, just to shape the syntax
+ */
+
+void xcam() {
+  nexttoken(); 
+  switch(token) {
+    case TGET: /* get an image from the camera to the buffer */
+      nexttoken();
+      cameraget();
+      break;
+    case TSET: /* set the camera parameters */
+      nexttoken();
+      cameraset();
+      break;
+    case TSAVE: /* save the image to the filesystem */
+      nexttoken();
+      camerasave();
+      break;
+  }
+  while(!termsymbol()) nexttoken();
+}
+
 /*
    NEW the general cleanup function - new deletes everything
 
@@ -8588,6 +8621,15 @@ void xwire() {
 
   nexttoken();
 #if defined(HASWIRE) || defined(HASSIMPLEWIRE)
+/* a stop causes a release of the bus, can be used after multiple one byte writes
+   currently part of the cycle */
+/*
+  if (token == STOP) { 
+     wirestop(); 
+     return;
+  }
+*/
+
   parsearguments();
   if (!USELONGJUMP && er) return;
 
@@ -8606,7 +8648,7 @@ void xwire() {
 
 void xfwire() {
 #if defined(HASWIRE) || defined(HASSIMPLEWIRE)
-  uint8_t port;
+  int port;
   ioer=0;
   port=pop();
   if (!USELONGJUMP && er) return;
@@ -10543,6 +10585,11 @@ void statement() {
       case THELP:
         xhelp();
         break;
+#endif
+#ifdef HASCAMERA
+      case TCAM:
+        xcam();
+        break;
 #endif
       default:
         /*  strict syntax checking */

Basic2/Posix/basic.h

@@ -220,8 +220,9 @@
  * Extension tokens can be in the range from -128 upwards.
  * one needs to set HASLONGTOKENS. Currently ony one set of 
  * extension tokens is implemented ranging from -128 to -255.
- *
- * ****  right now unused and untested **** */
+ */
+
+ #define TCAM -128
 
 /* BASEKEYWORD is used by the lexer. From this keyword on it tries to match. */
 #define BASEKEYWORD -121
@@ -821,6 +822,9 @@ void xendswitch();
 /* the editor */
 void xedit(); 
 
+/* camera support with a meta command */
+void xcam();
+
 /* the statement loop */
 void statement();
 

Basic2/Posix/hardware.h

@@ -51,6 +51,7 @@
  * POSIXMQTT: analogous to ARDUINOMQTT, send and receive MQTT messages (unfinished)
  * POSIXWIRING: use the (deprectated) wiring code for gpio on Raspberry Pi
  * POSIXPIGPIO: use the pigpio library on a Raspberry PI  - currently broken - wire change - don't use
+ * ESP32CAMERA: a stub to help with development of the MCU code
  */
 
 #define POSIXTERMINAL
@@ -62,6 +63,7 @@
 #undef POSIXMQTT
 #undef POSIXWIRING
 #undef POSIXPIGPIO
+#define ESP32CAMERA
 
 /* simulates SPI RAM, only test code, keep undefed if you don't want to do something special */
 #undef SPIRAMSIMULATOR
@@ -205,6 +207,11 @@ unsigned long millis();
  */
 #undef HASRF24
 
+/* the camera development helper */
+#ifdef ESP32CAMERA
+#define HASCAMERA
+#endif
+
 /* 
  *  Tell BASIC we have MQTT
  */

Basic2/Posix/language.h

@@ -128,9 +128,9 @@
 #define HASFULLINSTR
 #define HASLOOPOPT
 #define HASNUMSYSTEM
+#define HASCAMERA
 #endif
 
-
 /*
  *
  * Odd stuff - these things change the behaviour of BASIC in some aspects.
@@ -204,6 +204,7 @@
 #undef HASNUMSYSTEM
 #undef HASPOWER
 #undef HASUSRCALL
+#undef HASCAMERA
 #endif
 
 /* the original Palo Alto Tinybasic, this is the real minimum */
@@ -239,6 +240,7 @@
 #undef HASNUMSYSTEM
 #undef HASPOWER
 #undef HASUSRCALL
+#undef HASCAMERA
 #endif
 
 /* all features minus float and tone */
@@ -269,6 +271,7 @@
 #define HASFULLINSTR
 #define HASLOOPOPT
 #define HASNUMSYSTEM
+#undef  HASCAMERA
 #endif
 
 /* a simple integer basic for small systems mainly the UNO */
@@ -301,6 +304,7 @@
 #undef HASNUMSYSTEM
 #undef HASPOWER
 #undef HASUSRCALL
+#undef HASCAMERA
 #endif
 
 /* a small integer BASIC for 32kB systems with big cores */
@@ -333,6 +337,7 @@
 #undef HASNUMSYSTEM
 #undef HASPOWER
 #undef HASUSRCALL
+#undef HASCAMERA
 #endif
 
 
@@ -364,6 +369,7 @@
 #define HASFULLINSTR
 #define HASLOOPOPT
 #define HASNUMSYSTEM
+#define HASCAMERA
 #endif
 
 /* a simple BASIC with float support */
@@ -396,6 +402,7 @@
 #undef HASNUMSYSTEM
 #undef HASPOWER
 #undef HASUSRCALL
+#undef HASCAMERA
 #endif
 
 /* a Tinybasic with float support */
@@ -428,6 +435,7 @@
 #undef HASNUMSYSTEM
 #undef HASPOWER
 #undef HASUSRCALL
+#undef HASCAMERA
 #endif
 
 /* 
@@ -462,3 +470,8 @@
 #if !defined(DISPLAYHASGRAPH) 
 #undef HASGRAPH
 #endif
+
+/* the camera sits in the long token space */
+#if defined(HASCAMERA)
+#define HASLONGTOKENS
+#endif

Basic2/Posix/runtime.c

@@ -2150,6 +2150,10 @@ char radioread() { return 0; }
 void sensorbegin() {}
 float sensorread(uint8_t s, uint8_t v) {return 0;};
 
+/* the camera - a stub to help with development */
+#ifdef HASCAMERA
+#include "src/Runtime/esp32cam.h"
+#endif
 
 /* 
  *  event handling wrappers, to keep Arduino specifics out of BASIC