Как я могу читать и писать двоичные числа с помощью Chicken Scheme? - PullRequest
Новая
       22

Как я могу читать и писать двоичные числа с помощью Chicken Scheme?

1 голос
/ 03 февраля 2011

Я читаю двоичный формат данных с использованием Chicken, и до сих пор я работал с инту, работая с такими вещами, как (fx+ (fxshl (read-byte) 8) (read-byte)) (Big Endian).

Как я могу читать и писать с плавающей точкой? Я должен уметь читать и писать 32-разрядные и 64-разрядные двоичные числа с плавающей запятой IEEE 754-2008.

1 Ответ

0 голосов
/ 06 февраля 2011

Я пока не нашел хороших библиотек для этого, но я собрал вместе кое-что, что работает. Обратите внимание, что мне доступны только read-byte и read-string в качестве операций ввода. 

  ;;
  ;; These are some unfun C routines to convert 4 int-promoted bytes to a float
  ;; by manually assembling the float using bitwise operators
  ;;
  ;; Caveat! These will only work on platforms in which floats are 32-bit Big
  ;; Endian IEEE754-2008 numbers and doubles are 64-bit Big Endian IEEE754-2008
  ;; numbers! Also, stdint.h.
  ;;
  (define (readFloat)
    (let ([c-read-float
            (foreign-lambda* float
              ((int i1)
               (int i2)
               (int i3)
               (int i4))
               "uint8_t b1 = (uint8_t) i1;
                uint8_t b2 = (uint8_t) i2;
                uint8_t b3 = (uint8_t) i3;
                uint8_t b4 = (uint8_t) i4;

                uint32_t i = 0;

                i = b1;
                i = (i << 8) | b2;
                i = (i << 8) | b3;
                i = (i << 8) | b4;

                float f = *(float*)&i;

                C_return(f);")])
        (let* ([i1 (read-byte)]
               [i2 (read-byte)]
               [i3 (read-byte)]
               [i4 (read-byte)])
          (c-read-float i1 i2 i3 i4))))
...