Minor correction

There was some minor issues with prettify. The escape character "\" wasn't properly evaluated.
We also modify the name evall_js_sync as evall_js_async, which is more consistent with what it does. This function handles asynchronous javascript calls.

Author: ClaudeRoux

binaries/wasm/lispe.wasm

@@ -1440,7 +1440,7 @@ class List : public Element {
     Element* evall_input(LispE* lisp);
 #ifdef LISPE_WASM
     Element* evall_js(LispE* lisp);
-    Element* evall_js_sync(LispE* lisp);
+    Element* evall_js_async(LispE* lisp);
 #endif
     Element* evall_lambda(LispE* lisp);
     Element* evall_last(LispE* lisp);

docs/lispe.wasm

@@ -505,7 +505,7 @@ Element* List::evall_js(LispE* lisp) {
     return lisp->provideString(code);
 }
 
-Element* List::evall_js_sync(LispE* lisp) {
+Element* List::evall_js_async(LispE* lisp) {
     static int i = 0;
     Element* element = liste[1]->eval(lisp);
     string code;

include/listes.h

@@ -31,7 +31,7 @@ void decrement_total() {
     total_objects--;
 }
 
-static std::string version = "1.2026.8.18.10.46";
+static std::string version = "1.2026.8.20.11.3";
 string LispVersion() {
     return version;
 }
@@ -517,7 +517,7 @@ void Delegation::initialisation(LispE* lisp) {
     set_instruction(l_infix, "infix", P_TWO, &List::evall_infix, new List_infix_eval());
 #ifdef LISPE_WASM 
     set_instruction(l_evaljs, "evaljs", P_TWO, &List::evall_js);
-    set_instruction(l_evaljssync, "asyncjs", P_ATLEASTTWO, &List::evall_js_sync);
+    set_instruction(l_evaljssync, "asyncjs", P_ATLEASTTWO, &List::evall_js_async);
 #else
     set_instruction(l_getchar, "getchar", P_ONE, &List::evall_getchar);
     set_instruction(l_input, "input@", P_ONE | P_TWO, &List::evall_input);
@@ -3853,3 +3853,4 @@ Element* List::evall_memory(LispE* lisp) {
 
 
 
+

src/eval.cxx

@@ -1417,7 +1417,11 @@ Exporting string doublequoted(string value) {
         c = value[i];
         if (c == '\\') {
             output += c;
-            output += value[++i];
+            c = value[++i];
+            if (c)
+                output += c;
+            else
+                output += '\\';
             continue;
         }
         if (c == '"')
@@ -1440,7 +1444,11 @@ Exporting wstring wdoublequoted(wstring value) {
         c = value[i];
         if (c == '\\') {
             output += c;
-            output += value[++i];
+            c = value[++i];
+            if (c)
+                output += c;
+            else
+                output += '\\';
             continue;
         }
         if (c == '"')
@@ -1467,7 +1475,11 @@ Exporting u_ustring udoublequoted(u_ustring value) {
         c = value[i];
         if (c == '\\') {
             output += c;
-            output += value[++i];
+            c = value[++i];
+            if (c)
+                output += c;
+            else
+                output += '\\';
             continue;
         }
         if (c == '"')
@@ -4562,7 +4574,12 @@ long IndentationCode(string& codestr) {
                 p = i;
                 while (r < sz) {
                     p = pos[r++];
-                    if ((codestr[p-1] != '\\' && codestr[p] == '"') || codestr[p] == '\n')
+                    if (codestr[p] == '\\') {
+                        r++;
+                        continue;
+                    }
+                        
+                    if (codestr[p] == '"' || codestr[p] == '\n')
                         break;
                 }
                 p++;
@@ -4828,7 +4845,13 @@ void IndentationCode(string& str, string& codeindente) {
                 p = i;
                 while (r < sz) {
                     p = pos[r++];
-                    if ((codestr[p-1] != '\\' && codestr[p] == '"') || codestr[p] == '\n')
+                    c = codestr[p];
+                    if (c == '\\') {
+                        r++;
+                        continue;
+                    }
+                        
+                    if (c == '"' || c == '\n')
                         break;
                 }
                 p++;
@@ -5188,7 +5211,13 @@ void IndentatingCode(string& str, string& codeindente) {
                 p = i;
                 while (r < sz) {
                     p = pos[r++];
-                    if ((codestr[p-1] != '\\' && codestr[p] == '"') || codestr[p] == '\n')
+                    c = codestr[p];
+                    if (c == '\\') {
+                        r++;
+                        continue;
+                    }
+                        
+                    if (c == '"' || c == '\n')
                         break;
                 }
                 p++;