steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.marshall.private: remove marshall-TYPE and make () words private

db4
Jeremy Hughes 2009-07-14 10:25:34 +12:00
parent 1cca58d781
commit 702419c092
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/alien/marshall/private/private.factor
View File

@ -35,23 +35,20 @@ marshall-TYPE**-free DEFINES marshall-${TYPE}**-free
unmarshall-TYPE* DEFINES unmarshall-${TYPE}* unmarshall-TYPE* DEFINES unmarshall-${TYPE}*
unmarshall-TYPE*-free DEFINES unmarshall-${TYPE}*-free unmarshall-TYPE*-free DEFINES unmarshall-${TYPE}*-free
WHERE WHERE
: marshall-TYPE ( n -- byte-array ) <PRIVATE
[ bool>arg ] ptr-pass-through ;
: (marshall-TYPE*) ( n/seq -- alien ) : (marshall-TYPE*) ( n/seq -- alien )
[ <TYPE> malloc-byte-array ] [ <TYPE> malloc-byte-array ]
[ >TYPE-array malloc-underlying ] [ >TYPE-array malloc-underlying ]
marshall-x* ; marshall-x* ;
: (marshall-TYPE**) ( seq -- alien ) PRIVATE>
[ >TYPE-array malloc-underlying ]
map >void*-array malloc-underlying ;
: marshall-TYPE* ( n/seq -- alien ) : marshall-TYPE* ( n/seq -- alien )
[ (marshall-TYPE*) ] ptr-pass-through ; [ (marshall-TYPE*) ] ptr-pass-through ;
<PRIVATE
: (marshall-TYPE**) ( seq -- alien )
[ marshall-TYPE* ] void*-array{ } map-as malloc-underlying ;
PRIVATE>
: marshall-TYPE** ( seq -- alien ) : marshall-TYPE** ( seq -- alien )
[ (marshall-TYPE**) ] ptr-pass-through ; [ (marshall-TYPE**) ] ptr-pass-through ;
: marshall-TYPE*-free ( n/seq -- alien )
[ (marshall-TYPE*) &free ] ptr-pass-through ;
: marshall-TYPE**-free ( seq -- alien )
[ (marshall-TYPE**) &free ] ptr-pass-through ;
: unmarshall-TYPE* ( alien -- n ) : unmarshall-TYPE* ( alien -- n )
*TYPE ; inline *TYPE ; inline
: unmarshall-TYPE*-free ( alien -- n ) : unmarshall-TYPE*-free ( alien -- n )