From f3cc5d4cc7e722e44fe92e63a66983dfb012395c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Sat, 17 Dec 2022 03:48:05 -0300 Subject: Add negate operator and polish literals --- input.lisp | 20 ++++---------------- 1 file changed, 4 insertions(+), 16 deletions(-) (limited to 'input.lisp') diff --git a/input.lisp b/input.lisp index 2cdfd84..8b031fd 100644 --- a/input.lisp +++ b/input.lisp @@ -9,30 +9,18 @@ (<= (+ window-size (input-cursor input)) (length (input-data input)))) -(defun peek-1 (input) +(defun prefix? (target input) + (string= target (input-data input) :start2 (input-cursor input) :end2 (+ (input-cursor input) (length target)))) + +(defun peek (input) (char (input-data input) (input-cursor input))) -(defun peek-n (input window-size) - (subseq (input-data input) - (input-cursor input) - (+ window-size (input-cursor input)))) - -(defun peek-rest (input) - (subseq (input-data input) - (input-cursor input) - (length (input-data input)))) - (defun advance (input &optional (amount 1)) (let ((new-input (copy-structure input))) (incf (input-cursor new-input) amount) new-input)) -(defun advance-to-end (input) - (let ((new-input (copy-structure input))) - (setf (input-cursor new-input) (length (input-data input))) - new-input)) - (declaim (ftype (function (simple-string) (values input &optional)) from-string)) (defun from-string (str) (make-input :data str)) -- cgit v1.2.3