Merged.

Pascal J. Bourguignon [2013-06-22 10:25]
Merged.
Filename
common-lisp/apple-file/apple-file.lisp
diff --git a/common-lisp/apple-file/apple-file.lisp b/common-lisp/apple-file/apple-file.lisp
index 4ab58ce..ec53e9e 100644
--- a/common-lisp/apple-file/apple-file.lisp
+++ b/common-lisp/apple-file/apple-file.lisp
@@ -835,8 +835,13 @@ FORK:   (member :info :data :resource)
       (let ((resources (resources (resource-header (entry-decoded (find :resource-fork-id (header-entries header) :key (function entry-kind)))))))
         (dolist (resources resources)
           (format t "Resource type: ~A" (format-signature (resource-type (first resources))))
-          (dolist (resource resources)
-            (format t " ~A~@[(~A)~]" (resource-id resource) (resource-name resource)))
+          (if (string= "STR " (format-signature (resource-type (first resources))))
+
+            (dolist (resource resources)
+              (format t "~&    ~A[~A]~@[(~A)~]: ~S~%" (resource-id resource) (length (resource-data resource)) (resource-name resource)
+                      (map 'string 'code-char (subseq (resource-data resource) 1))))
+            (dolist (resource resources)
+              (format t " ~A[~A]~@[(~A)~]" (resource-id resource) (length (resource-data resource)) (resource-name resource))))
           (terpri)))))
   (values))
ViewGit