grammar.lisp -> syntax.lisp, added attribute pass and word rule

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)))