summaryrefslogtreecommitdiff
path: root/attributes.lisp
diff options
context:
space:
mode:
authorAleksei Eaves <alekseijeaves@protonmail.com>2024-04-16 11:02:08 +1000
committerAleksei Eaves <alekseijeaves@protonmail.com>2024-04-16 11:02:08 +1000
commit24cad130fb3b4f81d029bd9edd6ed4e733507fbf (patch)
tree43aec53b785177a09829206d7ec2cbc483ece000 /attributes.lisp
parent75db422f7b9c73f1057bf3187c73bfaeb6003a0b (diff)
grammar.lisp -> syntax.lisp, added attribute pass and word rule
Diffstat (limited to 'attributes.lisp')
-rw-r--r--attributes.lisp39
1 files changed, 39 insertions, 0 deletions
diff --git a/attributes.lisp b/attributes.lisp
new file mode 100644
index 0000000..9cfc6b7
--- /dev/null
+++ b/attributes.lisp
@@ -0,0 +1,39 @@
+;; -*- mode: common-lisp -*-
+#|
+clasm-6502: An assembler for the 6502 written in Common Lisp.
+Copyright (C) 2024 Aleksei Eaves
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Lesser General Public
+License as published by the Free Software Foundation; either
+version 2.1 of the License, or (at your option) any later version.
+
+This library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+Lesser General Public License for more details.
+
+You should have received a copy of the GNU Lesser General Public
+License along with this library; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+|#
+
+(defun attributes-list (program-list)
+ "Grab a progams attributes."
+ (let ((get-attribute-list nil))
+ (dolist (i program-list)
+ (if (eq (syntax-rule (cadr i) *line-syntax*) 'attribute)
+ (setf get-attribute-list
+ (cons (cadr i)
+ get-attribute-list))))
+ get-attribute-list))
+
+(defun attributes-remove (program-list)
+ "Remove a progams attributes."
+ (let ((return-list nil))
+ (dolist (i program-list)
+ (if (not (eq (syntax-rule (cadr i) *line-syntax*) 'attribute))
+ (setf return-list
+ (cons i
+ return-list))))
+ (reverse return-list)))