strings>char*-array ( strings -- char*-array )

Vocabulary

opencl.private

Inputs

strings

an object

Outputs

char*-array

an object

Definition

USING: io.encodings.ascii io.encodings.string kernel libc
sequences specialized-arrays.instances.alien.c-types.void* ;

IN: opencl.private

: strings>char*-array ( strings -- char*-array )
    [
        ascii encode dup length dup malloc [ cl-not-null ] keep
        &free [ -rot memcpy ] keep
    ] void*-array{ } map-as ;