- safe some memory buffers, only 5K free...

- flag to be able to include/not IMACS in common.c
- rename stackUsed to stackLeft
- rename a.out to esp-lisp
- made ./run only run

Author: yesco

common.c

@@ -326,7 +326,7 @@ int iscomment(char* s) {
 }
 
 // line is increased in increments of this
-#define MAXLINE 1024
+#define MAXLINE 256
 
 int process_file(void* envp, char* filename, process_input process, int verbosity) {
     FILE *file = fopen(filename, "r");
@@ -381,15 +381,21 @@ int process_file(void* envp, char* filename, process_input process, int verbosit
     return ret;
 }
 
+#define IMACS
+
 #undef CTRL // shadows something from ttyefault.h (included termios.h)
 #define NO_MAIN
 #ifndef UNIX
   #define OTA
 #endif
 #define BUFF_SIZE 1024
+
+#ifdef IMACS
 #include "imacs/imacs.c"
+#endif
 
 char* editor(char* s, char* title) {
+#ifdef IMACS
     imacs_buffer b;
     imacs_init(&b, s, 0);
     b.filename = title ? title : "esp-lisp-data";
@@ -402,6 +408,6 @@ char* editor(char* s, char* title) {
     // TODO: a imacs_clean()?
     free(b.buff);
     b.buff = NULL;
-
+#endif
     return s;
 }

esplisp.c

@@ -112,7 +112,7 @@ void print_memory_info(int verbose) {
         // The value returned is the high water mark in words (for example,
         // on a 32 bit machine a return value of 1 would indicate that
         // 4 bytes of stack were unused)
-        printf("stackUsed=%lu ", uxTaskGetStackHighWaterMark(NULL));
+        printf("stackLeft=%lu ", uxTaskGetStackHighWaterMark(NULL));
         if (startMem) printf("startMem=%u ", startMem);
         if (startTask) printf("startTask=%u ", startTask);
         if (afterInit) printf("afterInit=%u ", afterInit);
@@ -236,6 +236,8 @@ unsigned int randomized() {
 
 // stack = 2048
 // used_count=73 cons_count=333 free=21896 USED=16 bytes startMem=37636 startTask=28360 startTask=22604 
+// stack = 2048 @ 2016-08-22:
+// used_count=11 cons_count=1734 free=5336 USED=12 bytes stackUsed=1525 startMem=38780 startTask=26416 afterInit=6460
 
 // stack = 1024
 // used_count=72 cons_count=354 free=26612 USED=16 bytes startMem=37636 startTask=32456 startTask=26700 
@@ -244,8 +246,8 @@ unsigned int randomized() {
 // used_count=72 cons_count=354 free=28660 USED=16 bytes startMem=37636 startTask=34504 startTask=28748
 // a recurse -> 52 deep
 
-//(- 31768 28748) = 3020 cost of a task of 512 bytes
-//(- 31768 22604) = 9164 cost of a task with 2048 bytes
+//(- 31768 28748) = 3020 cost of a task with  512 entries (*  512 4) = 2048 bytes (1k extra)
+//(- 31768 22604) = 9164 cost of a task with 2048 entries (* 2048 4) = 8192 bytes (1k extra)
 //
 //(- 37636 31768) = 5668
 //(- 37636 34504) = 3132 for  512

httpd.c

@@ -15,7 +15,7 @@
 
 #include "compat.h"
 
-#define BUFSIZE 1024
+#define BUFSIZE 512
 #define MAXQUEUE 10
 
 // consider looking at using something that handles post

imacs

@@ -177,7 +177,7 @@ PRIM funame(lisp f);
 lisp* global_envp = NULL;
 
 // big value ok as it's used mostly no inside evaluation but outside at toplevel
-#define READLINE_MAXLEN 1024
+#define READLINE_MAXLEN 512
 
 // set to 1 to get GC tracing messages
 // adding real debugging - http://software-lab.de/doc/tut.html#dbg

lisp.c

@@ -33,13 +33,13 @@ stty sane
 popd
 
 echo "--- compiling opt ---"
-cp tlisp.ccc tlisp.c && gcc -m32 -O2 -DUNIX=1 tlisp.c common.c httpd.c symbols.c lisp.c -o opt ; rm tlisp.c
+#cp tlisp.ccc tlisp.c && gcc -m32 -O2 -DUNIX=1 tlisp.c common.c httpd.c symbols.c lisp.c -o opt ; rm tlisp.c
 
 ###cp tlisp.ccc tlisp.c && gcc --enable-checking -v -da -Q -g -O0 -DTEST=1 tlisp.c lisp.c && ./a.out ; rm tlisp.c
 
-echo "--- compile for ESP8266 ---"
-echo
-echo "----------------------------------------------------------------------"
-source add-path && make
-echo "----------------------------------------------------------------------"
-echo
+#echo "--- compile for ESP8266 ---"
+#echo
+#echo "----------------------------------------------------------------------"
+#source add-path && make
+#echo "----------------------------------------------------------------------"
+#echo