alien.data: adding stream-read-c-ptr

mrjbq7 · Dec 2, 2023 · d2acccb · d2acccb
1 parent 011e378
commit d2acccb
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/basis/alien/data/data.factor b/basis/alien/data/data.factor
@@ -3,8 +3,8 @@
 USING: accessors alien alien.arrays alien.c-types alien.strings
 arrays byte-arrays combinators combinators.short-circuit
 cpu.architecture generalizations io io.streams.memory kernel
-libc math parser sequences stack-checker.dependencies summary
-words ;
+libc math namespaces parser sequences stack-checker.dependencies
+summary words ;
 IN: alien.data
 
 : <ref> ( value c-type -- c-ptr )
@@ -14,6 +14,12 @@ IN: alien.data
 : deref ( c-ptr c-type -- value )
     [ 0 ] dip alien-value ; inline
 
+: stream-read-c-ptr ( c-ptr stream -- value )
+    over [ heap-size ] [ stream-read ] [ deref ] tri* ; inline
+
+: read-c-ptr ( c-ptr -- value )
+    input-stream get stream-read-c-ptr ; inline
+
 : little-endian? ( -- ? ) 1 int <ref> char deref 1 = ; foldable
 
 GENERIC: c-array-constructor ( c-type -- word ) foldable

diff --git a/basis/io/backend/unix/unix.factor b/basis/io/backend/unix/unix.factor
@@ -141,7 +141,7 @@ M: stdin dispose*
 
 : wait-for-stdin ( stdin -- size )
     [ control>> CHAR: X over io:stream-write1 io:stream-flush ]
-    [ size>> ssize_t heap-size swap io:stream-read ssize_t deref ]
+    [ size>> ssize_t swap stream-read-c-ptr ]
     bi ;
 
 :: refill-stdin ( buffer stdin size -- )