The Lambda Lab
/
projects
/
ez.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fcb66a4
)
Working on tokenizer.
author
plugd
<plugd@thelambdalab.xyz>
Mon, 10 Apr 2023 08:17:50 +0000
(10:17 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Mon, 10 Apr 2023 08:17:50 +0000
(10:17 +0200)
ez.el
patch
|
blob
|
history
diff --git
a/ez.el
b/ez.el
index
65990b7
..
268becd
100644
(file)
--- a/
ez.el
+++ b/
ez.el
@@
-848,10
+848,14
@@
'wait-for-input)
(defun ez-op-read2 (input-string)
'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
;; Execution loop