Changeset 5296

Timestamp:

Oct 5, 2006, 5:09:49 AM (18 years ago)

Author:

Gary Byers

Message:

WITH-ENCODED-CSTR(s). (Hey, it's a start.)

File:

• trunk/ccl/lib/macros.lisp (modified) (1 diff)

trunk/ccl/lib/macros.lisp

@@ -1576 +1576 @@
 (defmacro with-cstrs (speclist &body body)
    (with-specs-aux 'with-cstr speclist body))
+
+(defmacro with-encoded-cstr (encoding-name (sym string &optional start end)
+                                 &rest body &environment env)
+  (let* ((encoding (get-character-encoding encoding-name))
+         (str (gensym)))
+    (multiple-value-bind (body decls) (parse-body body env nil)
+      `(let* ((,str ,string))
+        (%stack-block ((,sym (cstring-encoded-length-in-bytes ,encoding ,str ,start ,end) :clear t))
+          ,@decls
+          (encode-string-to-memory ,encoding ,sym 0 ,str ,start ,end)
+          ,@body)))))
+
+(defmacro with-encoded-cstrs (encoding-name bindings &body body)
+  (with-specs-aux 'with-encoded-cstr (mapcar #'(lambda (b)
+                                                 `(,encoding-name ,b))
+                                             bindings) body))