baud setting function

Author: yesco

add-path

@@ -6,6 +6,7 @@ typedef unsigned int uint32_t;
 
 int clock_ms();
 int delay_ms(int ms);
+void set_baud(int speed);
 
 unsigned int randomized(); // return pseudorandom seeed
 

compat.h

@@ -164,6 +164,10 @@ int clock_ms() {
     return xTaskGetTickCount() * 10;
 }
 
+void set_baud(int speed) {
+    sdk_uart_div_modify(0, UART_CLK_FREQ / speed);
+}
+
 unsigned int time_ms() {
   //#include "user_interface.h" espressif: uint32 system_get_time(void)
   // it returns microseconds ( http://bbs.espressif.com/viewtopic.php?t=42 )
@@ -266,7 +270,7 @@ void user_init(void) {
     lastTick = xTaskGetTickCount();
     startMem = lastMem = xPortGetFreeHeapSize();
 
-    sdk_uart_div_modify(0, UART_CLK_FREQ / 115200);
+    set_baud(115200);
 
     // enable file system
     esp_spiffs_init();

esplisp.c

@@ -2586,7 +2586,12 @@ PRIM time_(lisp* envp, lisp exp) {
 }
 
 PRIM delay(lisp ms) {
-  return mkint(delay_ms(getint(ms)));
+    return mkint(delay_ms(getint(ms)));
+}
+
+PRIM baud(lisp speed) {
+    set_baud(getint(speed));
+    return nil;
 }
 
 // TODO: time functions... http://naggum.no/lugm-time.html
@@ -3389,6 +3394,7 @@ lisp lisp_init() {
 
     DEFPRIM(ticks, 1, ticks);
     DEFPRIM(clock, 1, clock_);
+    DEFPRIM(baud, 1, baud);
     DEFPRIM(delay, 1, delay);
     DEFPRIM(time, -1, time_);
 

lisp.c

@@ -99,6 +99,7 @@ lisp symbol_len(char *s, int len) {
     unsigned long h = larsons_hash(s, len);
     h = (h ^ (h >> 16) ^ (h << 16)) & 0xffffff; // 24 bits
     sym = (lisp)(h << 8 | 0xfff); // lower 8 bits all set! (and one 0)
+    // TODO: detect collission!!!!
     hashsym(sym, s, len, 1); // create binding
     return sym;
 }

symbols.c

@@ -64,6 +64,10 @@ int clock_ms() {
     return (int)(clock()) / clocks_per_ms;
 }
 
+void set_baud(int speed) {
+    // dummy
+}
+
 unsigned int time_ms() {
   struct timeval t;
   gettimeofday(&t, NULL);