xfnw
/
commoned
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

reorder functions a bit, comment

This commit is contained in:
xfnw 2023-10-11 19:09:59 -04:00
parent 66b29f6df0
commit cd7a4cc682
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
ce.cl
View File

@ -110,6 +110,7 @@
(format t "~a," inpoint))
(format t "~a~%" outpoint))
; TODO: needs error handling, and to be able to "open" nonexistant files
(defun ce-command-open (c)
"open a file for editing"
(ce-reset-input)
@ -120,22 +121,6 @@
(setq filename name)
(setq buffer (uiop:read-file-lines filename))))))
(defun ce-command-write (c)
"write a file to disk"
(ce-reset-input)
(let ((name (read-line)))
(with-open-file (out (if (string= "" name) filename name)
:direction :output
:if-exists :overwrite
:if-does-not-exist :create)
(format out "~{~a~%~}" buffer))))
(defun ce-command-number (c)
"input a number"
(if (or (= 0 newpoint) (= 2 newpoint))
(progn (setq newpoint (+ 1 newpoint)) (setq outpoint 0)))
(setq outpoint (+ (* 10 outpoint) (digit-char-p c))))
(defun ce-command-help (c)
"get help for commoned commands"
(ce-reset-input)
@ -155,3 +140,20 @@ specific command. the recognized commands are as follows:
(let ((in (mod inpoint mlen)) (out (+ 1 (mod outpoint mlen))))
(format t "~{~a~%~}" (subseq buffer in out)))))
; TODO: needs error handling
(defun ce-command-write (c)
"write a file to disk"
(ce-reset-input)
(let ((name (read-line)))
(with-open-file (out (if (string= "" name) filename name)
:direction :output
:if-exists :overwrite
:if-does-not-exist :create)
(format out "~{~a~%~}" buffer))))
(defun ce-command-number (c)
"input a number"
(if (or (= 0 newpoint) (= 2 newpoint))
(progn (setq newpoint (+ 1 newpoint)) (setq outpoint 0)))
(setq outpoint (+ (* 10 outpoint) (digit-char-p c))))