made string encoding a settable variable, defaulting to :utf-8. Made the function interface to it external, made a config file to house it in
Sat Nov 3 14:33:59 PDT 2007 Ties Stuij <ties@stuij.se>
* made string encoding a settable variable, defaulting to :utf-8. Made the function interface to it external, made a config file to house it in
diff -rN -u old-armish/armish.asd new-armish/armish.asd
--- old-armish/armish.asd 2014-07-26 06:12:23.000000000 -0700
+++ new-armish/armish.asd 2014-07-26 06:12:23.000000000 -0700
@@ -12,7 +12,8 @@
((:module :src
:components
((:file "packages")
- (:file "helpers" :depends-on ("packages"))
+ (:file "config" :depends-on ("packages"))
+ (:file "helpers" :depends-on ("config"))
(:file "assembler" :depends-on ("helpers"))
(:file "arm-instructions" :depends-on ("assembler"))
(:file "thumb-instructions" :depends-on ("assembler"))
diff -rN -u old-armish/src/config.lisp new-armish/src/config.lisp
--- old-armish/src/config.lisp 1969-12-31 16:00:00.000000000 -0800
+++ new-armish/src/config.lisp 2014-07-26 06:12:23.000000000 -0700
@@ -0,0 +1,8 @@
+(in-package :armish)
+
+(defvar *string-end* 0)
+
+(defparameter *string-encoding* :utf-8)
+
+(defun set-armish-string-encoding (encoding)
+ (setf *string-encoding* encoding))
\ No newline at end of file
diff -rN -u old-armish/src/directives.lisp new-armish/src/directives.lisp
--- old-armish/src/directives.lisp 2014-07-26 06:12:23.000000000 -0700
+++ new-armish/src/directives.lisp 2014-07-26 06:12:23.000000000 -0700
@@ -1,7 +1,5 @@
(in-package :armish)
-(defvar *string-end* 0)
-
(defmacro define-directive (name args &body body)
"Makes a new instruction function and adds it to the instruction set."
`(setf (gethash ',name *directives*) (lambda ,args ,@body)))