Changeset 5381

Timestamp:

Oct 19, 2006, 12:20:02 PM (18 years ago)

Author:

Gary Byers

Message:

Careful BLTing strings to/from foreign memory.

Location:

trunk/ccl/examples

Files:

• cocoa-editor.lisp (modified) (1 diff)
• cocoa-listener.lisp (modified) (2 diffs)

trunk/ccl/examples/cocoa-editor.lisp

@@ -379 +379 @@
                       (len (length chars)))
                  (unless (zerop len)
-                   (%copy-ivector-to-ptr chars 0 bytes pos len)
+                   (%cstr-pointer chars (%inc-ptr bytes pos) nil)
                    (incf pos len))
                  (when next
-                   (setf (%get-byte bytes pos) (char-code #\return))
                    (when cp/m-p
+                     (setf (%get-byte bytes pos) (char-code #\return))
                      (incf pos)
                    (setf (%get-byte bytes pos) (char-code #\linefeed))  

trunk/ccl/examples/cocoa-listener.lisp

@@ -113 +113 @@
            (data-length (send (the ns:ns-data data) 'length))
            (buffer (hemlock-document-buffer document))
-           (string (make-string data-length))
+           (string (%str-from-ptr (send data 'bytes) data-length))
            (fh filehandle))
-      (%copy-ptr-to-ivector (send data 'bytes) 0 string 0 data-length)
       (enqueue-buffer-operation
        buffer
@@ -155 +154 @@
          (bytes (send data 'mutable-bytes)))
     (declare (type ns:ns-file-handle filehandle))
-    (%copy-ivector-to-ptr string 0 bytes 0 len)
+    (%cstr-pointer string bytes nil)
     (send filehandle :write-data data)
     (send filehandle 'synchronize-file)))