about summary refs log tree commit diff stats
path: root/arc/.traces/convert-names-record-fields-indirect
blob: d621b275ea4015b9aa3cee3c89adaf076ee8b74e (plain) (blame) 
1
2
3
4
5
6
7
8
9
10
11
12

cn0: convert-names in 
cn0: (((x integer)) <- ((get)) ((34 integer-boolean-pair-address) (deref)) ((bool offset))) nil nil
cn0: field-access bool in 34integer-boolean-pair-addressderef of type integer-boolean-pair
cn0: new field; computing location
cn0: field location 1
cn0: checking arg ((34 integer-boolean-pair-address) (deref))
maybe-add: ((34 integer-boolean-pair-address) (deref))
cn0: checking arg ((bool offset))
cn0: checking oarg ((x integer))
maybe-add: ((x integer))
cn0: location for oarg ((x integer)): 1
cn1: (((1 integer)) <- ((get)) ((34 integer-boolean-pair-address) (deref)) ((1 offset)))
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-09-25 19:23:48 +0000
;lint> #:<lsymbol> #:<lstring> #:<lend> #:<lident> #:ident #:lexer)) (in-package #:clex) (defclass <lexeme> () () (:metaclass <abstract-class>)) (defclass <lint> (<lexeme>) ((int :reader int))) (defclass <lident> (<lexeme>) ((ident :reader ident))) (defclass <lsymbol> (<lexeme>) ((lsymbol :reader lsymbol))) (defclass <lstring> (<lexeme>) ((lstring :reader lstring))) (defclass <lend> (<lexeme>) ()) (defclass <string-lexer> () ((lstring :initarg :s :accessor lstring) (current :initform 0 :accessor current) (size :accessor size))) (defmethod initialize-object :after ((self <string-lexer>) initargs) (setf (size self) (length (lstring self)))) (defgeneric forward (cl &rest args)) (defmethod forward ((cl <string-lexer>) &rest args) (let ((incr (if (null args) 1 (car args)))) (setf (current cl) (+ (current cl) incr)))) (defgeneric extract (pred cl)) (defmethod extract (pred (cl <string-lexer>)) (let* ((st (lstring cl)) (pos (current cl)) (res nil)) (labels ((ext (n) (if (and (< n (size cl)) (funcall pred (elt st n))) (ext (+ n 1)) n))) (setq res (ext pos)) (setf (current cl) res) (subseq (lstring cl) pos (- res pos))))) (defgeneric extract-int (cl)) (defmethod extract-int ((cl <string-lexer>)) (flet ((is-int (x) (and (char>= x #\0) (char<= x #\9)))) (parse-integer (extract #'is-int cl)))) (defgeneric extract-ident (cl)) (defmethod extract-ident ((cl <string-lexer>)) (flet ((is-alpha-num (x) (or (and (char>= x #\a) (char<= x #\z)) (and (char>= x #\A) (char<= x #\Z)) (and (char>= x #\0) (char<= x #\9)) (char= x #\_)))) (extract #'is-alpha-num cl))) (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")
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-09-25 19:23:43 +0000