From 4b61e7a8949dee61d40e59710fd1af733926c498 Mon Sep 17 00:00:00 2001 From: plugd Date: Mon, 10 Apr 2023 10:17:50 +0200 Subject: [PATCH] Working on tokenizer. --- ez.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/ez.el b/ez.el index 65990b7..268becd 100644 --- a/ez.el +++ b/ez.el @@ -848,10 +848,14 @@ 'wait-for-input) (defun ez-op-read2 (input-string) - (ez-tokenize-string input-string - (car ez--next-read-args) - (cadr ez--next-read-args)) - 'run) + (let ((baddr1 (car ez--next-read-args)) + (baddr2 (cadr ez--next-read-args))) + + (dotimes (i (length input-string)) + (ez-mem-set-byte (+ baddr1 1 i) (downcase (elt input-string i)))) + (ez-mem-set-byte (+ baddr1 1 (length input-string)) 0) + + )) ;; Execution loop -- 2.20.1