Retropikzel
/
foreign-c-libraries
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix named pipes to work with new (foreign c) version

This commit is contained in:
retropikzel 2026-01-17 14:09:40 +02:00
parent 572cbe17ad
commit 0dd8f3c699
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
retropikzel/named-pipes.scm
View File

@ -83,7 +83,7 @@
pipe-read-u8-buffer pipe-read-u8-buffer
(c-type-size 'u8))) (c-type-size 'u8)))
(byte (if (> read-count 0) (byte (if (> read-count 0)
(c-bytevector-u8-ref pipe-read-u8-buffer 0) (c-bytevector-ref pipe-read-u8-buffer 'u8 0)
(eof-object)))) (eof-object))))
byte))) byte)))
@ -92,7 +92,7 @@
(lambda (byte pipe) (lambda (byte pipe)
(when (not (output-pipe? pipe)) (when (not (output-pipe? pipe))
(error "Can only write to output-pipe" pipe)) (error "Can only write to output-pipe" pipe))
(c-bytevector-u8-set! pipe-write-u8-buffer 0 byte) (c-bytevector-set! pipe-write-u8-buffer 'u8 0 byte)
(c-write (output-file-descriptor pipe) pipe-write-u8-buffer 1))) (c-write (output-file-descriptor pipe) pipe-write-u8-buffer 1)))
(define pipe-read-char-buffer (make-c-bytevector (c-type-size 'char))) (define pipe-read-char-buffer (make-c-bytevector (c-type-size 'char)))
@ -104,7 +104,7 @@
pipe-read-char-buffer pipe-read-char-buffer
(c-type-size 'char))) (c-type-size 'char)))
(char (if (> read-count 0) (char (if (> read-count 0)
(c-bytevector-char-ref pipe-read-char-buffer 0) (c-bytevector-ref pipe-read-char-buffer 'char 0)
(eof-object)))) (eof-object))))
char))) char)))
@ -113,7 +113,7 @@
(lambda (char pipe) (lambda (char pipe)
(when (not (output-pipe? pipe)) (when (not (output-pipe? pipe))
(error "Can only write to output-pipe" pipe)) (error "Can only write to output-pipe" pipe))
(c-bytevector-char-set! pipe-write-char-buffer 0 char) (c-bytevector-set! pipe-write-char-buffer 'char 0 char)
(c-write (output-file-descriptor pipe) (c-write (output-file-descriptor pipe)
pipe-write-char-buffer pipe-write-char-buffer
(c-type-size 'char)))) (c-type-size 'char))))