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

make direct-*-arrays prettyprint

db4
Joe Groff 2009-08-13 12:05:46 -04:00
parent fd02e59ea1
commit a2569ea50b
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/specialized-arrays/direct/functor/functor.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: functors sequences sequences.private kernel words classes USING: functors sequences sequences.private kernel words classes
math alien alien.c-types byte-arrays accessors math alien alien.c-types byte-arrays accessors
specialized-arrays ; specialized-arrays prettyprint.custom ;
IN: specialized-arrays.direct.functor IN: specialized-arrays.direct.functor
FUNCTOR: define-direct-array ( T -- ) FUNCTOR: define-direct-array ( T -- )
@ -10,6 +10,7 @@ FUNCTOR: define-direct-array ( T -- )
A' IS ${T}-array A' IS ${T}-array
>A' IS >${T}-array >A' IS >${T}-array
<A'> IS <${A'}> <A'> IS <${A'}>
A'{ IS ${A'}{
A DEFINES-CLASS direct-${T}-array A DEFINES-CLASS direct-${T}-array
<A> DEFINES <${A}> <A> DEFINES <${A}>
@ -30,6 +31,12 @@ M: A set-nth-unsafe underlying>> SET-NTH call ;
M: A like drop dup A instance? [ >A' ] unless ; M: A like drop dup A instance? [ >A' ] unless ;
M: A new-sequence drop <A'> ; M: A new-sequence drop <A'> ;
M: A pprint-delims drop \ A'{ \ } ;
M: A >pprint-sequence ;
M: A pprint* pprint-object ;
INSTANCE: A sequence INSTANCE: A sequence
;FUNCTOR ;FUNCTOR