Working WAIT without busy-wait

TODO

@@ -1,12 +1,14 b''
 
-* Duplicate label error (in the parser)
-* Reporting error lines in the parser
 * MENU with async/await
 * Special locations
 * Special variables
 * CLI build for Linux
 * CLI build for Windows
-* Storing error lines in the parser to report it in runtime errors
+
+* Reporting error lines in the parser
+* Report duplicate label (in the parser)
+* reporting error lines at runtime (by storing them in every form in the parser
+* Report JUMP with missing label (in tagbody)
 
 * Build Istreblenie
 * Windows GUI (for the compiler)

examples/txt2gam-game.txt

@@ -14,7 +14,8 b" ACT '\xd0\x98\xd0\xb4\xd1\x82\xd0\xb8 \xd0\xb4\xd0\xbe\xd0\xbc\xd0\xbe\xd0\xb9':GOTO '\xd0\x94\xd0\xbe\xd0\xbc'"
 ACT 'Идти в магазин':GOTO 'Магазин'
 ACT 'Перенести ящик':
 	Ящик = Ящик + 1
-	IF Ящик = 3:
+    WAIT 500
+    IF Ящик = 3:
 		Деньги = Деньги + 5
 		Ящик = 0
 	END

extras/default.css

@@ -112,3 +112,10 b''
     justify-content: center;
     align-items: center;
 }
+
+/* misc */
+
+.disable a {
+  pointer-events: none;
+  cursor: default;
+}

src/api.ps

@@ -22,8 +22,23 b''
 (defun report-error (text)
   (alert text))
 
+(defun start-sleeping ()
+  (chain (by-id "qsp") class-list (add "disable"))
+  (setf (root sleeping) t))
+
+(defun finish-sleeping ()
+  (chain (by-id "qsp") class-list (remove "disable"))
+  (setf (root sleeping) nil))
+
 (defun sleep (msec)
-  (new (*promise (=> resolve (set-timeout resolve msec)))))
+  (start-sleeping)
+  (new (*promise
+        (lambda (resolve)
+          (set-timeout
+           (lambda ()
+             (finish-sleeping)
+             (resolve))
+           msec)))))
 
 (defun init-dom ()
   ;; Save/load buttons
@@ -95,8 +110,9 b''
         (funcall (getprop (root locs) name) args))))
 
 (defun call-act (title)
-  (with-frame
-      (funcall (getprop (root acts) title 'act))))
+  (unless (root sleeping)
+    (with-frame
+        (funcall (getprop (root acts) title 'act)))))
 
 ;;; Text windows
 

src/js-syms.lisp

@@ -27,7 +27,8 b''
  href parse
  set-prototype-of
  body append-child remove-child
- create-element set-attribute
+ add ; remove (is already in COMMON-LISP)
+ create-element set-attribute class-list
  *file-reader read-as-text
  style display src
  ;; lib

src/patches.lisp

@@ -7,7 +7,7 b''
   (psw (string-downcase "await "))
   (print-op-argument 'ps-js::await x))
 
-(define-trivial-special-ops await)
+(define-trivial-special-ops await ps-js::await)
 
 (define-statement-operator async-defun (name lambda-list &rest body)
   (multiple-value-bind (effective-args body-block docstring)