Merge pull request #11 from a2intl/add-adc

Add adc function

Author: yesco

compat.h

@@ -111,6 +111,7 @@ void httpd_loop(int s);
   void gpio_enable(int pin, int state);
   void gpio_write(int pin, int value);
   int gpio_read(int pin);
+  int sdk_system_adc_read();
 
   // flash simulation in RAM
   #define SPI_FLASH_RESULT_OK 0
@@ -128,6 +129,8 @@ void httpd_loop(int s);
 
   #define flash_memory ((unsigned char*)(0x40200000 + FS_ADDRESS))
 
+  #include <stdbool.h>
+  #include <espressif/esp_system.h>
   #include "esp_spiffs.h"
   #include "spiffs.h"
 

lisp.c

@@ -833,6 +833,11 @@ PRIM dht(lisp pin) {
     return cons(mkint(t), mkint(h));
 }
 
+PRIM adc() {
+    int v = sdk_system_adc_read();
+    return mkint(v);
+}
+
 // CONTROL INTERRUPTS:
 // -------------------
 // (interrupt PIN 0)  : disable
@@ -3366,6 +3371,7 @@ lisp lisp_init() {
     DEFPRIM(in, 1, in);
     DEFPRIM(dht, 1, dht);
     DEFPRIM(interrupt, 2, interrupt);
+    DEFPRIM(adc, 0, adc);
 
     // system stuff
     DEFPRIM(gc, -1, gc);

tlisp.ccc

@@ -24,6 +24,7 @@
 void gpio_enable(int pin, int state) {}
 void gpio_write(int pin, int value) {}
 int gpio_read(int pin) { return 0; }
+int sdk_system_adc_read() { return 777; }
 
 void interrupt_init (int pin, int changeType) {}
 int getInterruptCount(int pin, int mode) { return -1; }