diff options
Diffstat (limited to 'attributes.lisp')
| -rw-r--r-- | attributes.lisp | 39 |
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))) |