If a file needs more than this, it's probably an indication that
the grammar is excessively redundant.")
+(defvar wisi-parse-max-parallel-current (cons 0 0)
+ "Cons (count . point); Maximum number of parallel parsers used in most recent parse,
+point at which that max was spawned.")
+
(defvar wisi-debug 0
"wisi debug mode:
0 : normal - ignore parse errors, for indenting new code
(token (funcall lexer))
some-pending)
+ (setq wisi-parse-max-parallel-current (cons 0 0))
+
(aset (wisi-parser-state-stack (aref parser-states 0)) 0 0) ;; Initial state
(while (not (eq active 'accept))
)))
)
(setq active-parser-count (1+ active-parser-count))
+ (when (> active-parser-count (car wisi-parse-max-parallel-current))
+ (setq wisi-parse-max-parallel-current (cons active-parser-count (point))))
(setf (wisi-parser-state-label result) j)
(aset parser-states j result))
(when (> wisi-debug 1)