20 lines
573 B
Factor
20 lines
573 B
Factor
|
! Copyright (C) 2008 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: alien alien.c-types alien.strings
|
||
|
|
combinators.short-circuit fry kernel layouts sequences ;
|
||
|
|
IN: unix.utilities
|
||
|
|
|
||
|
|
: more? ( alien -- ? )
|
||
|
|
{ [ ] [ *void* ] } 1&& ;
|
||
|
|
|
||
|
|
: advance ( void* -- void* )
|
||
|
|
cell swap <displaced-alien> ;
|
||
|
|
|
||
|
|
: alien>strings ( alien encoding -- strings )
|
||
|
|
[ [ dup more? ] ] dip
|
||
|
|
'[ [ advance ] [ *void* _ alien>string ] bi ]
|
||
|
|
[ ] produce nip ;
|
||
|
|
|
||
|
|
: strings>alien ( strings encoding -- alien )
|
||
|
|
'[ _ malloc-string ] map f suffix >c-void*-array ;
|