Как преобразовать массив байтов в строку в Common Lisp?

Я вызываю смешной API, который возвращает массив байтов, но мне нужен текстовый поток. Есть ли простой способ получить текстовый поток из массива байтов? На данный момент я просто бросил вместе:

(defun bytearray-to-string (bytes)
  (let ((str (make-string (length bytes))))
    (loop for byte across bytes
       for i from 0
       do (setf (aref str i) (code-char byte)))
    str))

а затем оберните результат с помощью input-from-string, но это не лучший способ. (Кроме того, это ужасно неэффективно.)

В этом случае я всегда знаю ASCII, поэтому интерпретация его как ASCII или UTF-8 будет в порядке. Я использую SBCL с поддержкой Unicode, но я предпочел бы портативное (даже ASCII-only) решение для SBCL-Unicode-специфического.

Ответ 1

FLEXI-STREAMS (http://weitz.de/flexi-streams/) имеет переносимую функцию преобразования

(flexi-streams:octets-to-string #(72 101 108 108 111) :external-format :utf-8)

=>

"Hello"

Или, если вы хотите поток:

(flexi-streams:make-flexi-stream
   (flexi-streams:make-in-memory-input-stream
      #(72 101 108 108 111))
   :external-format :utf-8)

возвращает поток, который считывает текст из байтового вектора

Ответ 2

Для этого преобразования есть две переносимые библиотеки:

flexi-streams, уже упомянутые в другом ответе.

Эта библиотека старше и имеет больше возможностей, в частности расширяемые потоки.
Babel, библиотека, специально предназначенная для кодирования и декодирования символов

Основным преимуществом Babel над flexi-потоками является скорость.

Для лучшей производительности используйте Babel, если у вас есть необходимые функции, и в противном случае вернитесь в flexi-streams. Ниже (слабая ненаучная) микробенчмарк, иллюстрирующий разницу в скорости.

Для этого тестового примера Babel 337 раз быстрее и нуждается в 200 раз меньше памяти.

(asdf:operate 'asdf:load-op :flexi-streams)
(asdf:operate 'asdf:load-op :babel)

(defun flexi-streams-test (bytes n)
  (loop
     repeat n
     collect (flexi-streams:octets-to-string bytes :external-format :utf-8)))

(defun babel-test (bytes n)
  (loop
     repeat n
     collect (babel:octets-to-string bytes :encoding :utf-8)))

(defun test (&optional (data #(72 101 108 108 111))
                       (n 10000))
  (let* ((ub8-vector (coerce data '(simple-array (unsigned-byte 8) (*))))
         (result1 (time (flexi-streams-test ub8-vector n)))
         (result2 (time (babel-test ub8-vector n))))
    (assert (equal result1 result2))))

#|
CL-USER> (test)
Evaluation took:
  1.348 seconds of real time
  1.328083 seconds of user run time
  0.020002 seconds of system run time
  [Run times include 0.12 seconds GC run time.]
  0 calls to %EVAL
  0 page faults and
  126,402,160 bytes consed.
Evaluation took:
  0.004 seconds of real time
  0.004 seconds of user run time
  0.0 seconds of system run time
  0 calls to %EVAL
  0 page faults and
  635,232 bytes consed.
|#

Ответ 3

Если вам не нужно беспокоиться о кодировке UTF-8 (что, по сути, означает "просто ASCII" ), вы можете использовать MAP:

(map 'string #' code- char # (72 101 108 108 111))

Ответ 4

SBCL поддерживает так называемый Gray Streams. Это расширяемые потоки на основе CLOS-классов и общих функций. Вы можете создать подкласс текстового потока, который будет получать символы из массива байтов.

Ответ 5

Я говорю, что я предлагаю предлагаемые решения flexistream или babel.

Но только для полноты и пользы будущих гуглеров, прибывающих на эту страницу, я хочу упомянуть собственный sbcl sb-ext: октеты для строки:

   SB-EXT:OCTETS-TO-STRING is an external symbol in #<PACKAGE "SB-EXT">.
   Function: #<FUNCTION SB-EXT:OCTETS-TO-STRING>
   Its associated name (as in FUNCTION-LAMBDA-EXPRESSION) is
     SB-EXT:OCTETS-TO-STRING.
   The function arguments are:  (VECTOR &KEY (EXTERNAL-FORMAT DEFAULT) (START 0)
                                          END)
   Its defined argument types are:
     ((VECTOR (UNSIGNED-BYTE 8)) &KEY (:EXTERNAL-FORMAT T) (:START T) (:END T))
   Its result type is:
     *

Ответ 6

Попробуйте функцию FORMAT. (FORMAT NIL ...) возвращает результаты в виде строки.