From 10b5ba35c96f72e5b66698b36c7e0a38b555f394 Mon Sep 17 00:00:00 2001
From: Darren Bane <darren.bane@emdalo.com>
Date: Fri, 4 Dec 2020 21:02:35 +0000
Subject: Start porting 'lexer'

---
 clex.lisp | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/clex.lisp b/clex.lisp
index 550ead4..7ca04f0 100644
--- a/clex.lisp
+++ b/clex.lisp
@@ -6,7 +6,8 @@
    #:<lstring>
    #:<lend>
    #:<lident>
-   #:ident))
+   #:ident
+   #:lexer))
 (in-package #:clex)
 
 (defclass <lexeme> () () (:metaclass <abstract-class>))
@@ -60,5 +61,23 @@
 
 (defgeneric lexer (cl))
 (defmethod lexer ((cl <string-lexer>))
+  (flet ((lexer-char (c)
+	   (cond ((member c '(#\space #\tab))
+		  (forward cl)
+		  (lexer cl))		; NB: tail recursion. ok?
+		 ((or (and (char>= c #\a) (char<= c #\z))
+		      (and (char>= c #\A) (char<= c #\Z)))
+		  (make-instance (find-class '<lident>) 'i (extract-ident cl)))
+		 ((char= c #\")
+		  (forward cl)
+		  (let ((res (make-instance (find-class '<lstring>) 's (extract (lambda (c) (char/= c #\")) cl))))
+		    (forward cl)
+		    res))
+		 ((member c '(#\+ #\- #\* #\/ #\% #\& #\| #\! #\= #\( #\)))
+		  (forward cl)
+		  (make-instance (find-class '<lsymbol>) 's (string c)))
+		 ((member c '(#\< #\>))
+		  (forward cl)
+		  
   )
 (provide "clex")
-- 
cgit 1.4.1-2-gfad0