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

alien.enums: make enum>number foldable so it optimizes constant enums to constant ints, make number>enum a macro so it doesn't use c-type metadata at runtime

db4
Joe Groff 2010-04-20 17:05:14 -07:00
parent fdeb305a3c
commit f9668be814
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/alien/enums/enums.factor
View File

@ -1,6 +1,6 @@
! (c)2010 Joe Groff, Erik Charlebois bsd license
USING: accessors alien.c-types arrays classes.singleton combinators
delegate fry generic.parser kernel math parser sequences words ;
delegate fry generic.parser kernel macros math parser sequences words ;
IN: alien.enums
<PRIVATE
@ -10,18 +10,18 @@ CONSULT: c-type-protocol enum-c-type
base-type>> ;
PRIVATE>
GENERIC: enum>number ( enum -- number )
GENERIC: enum>number ( enum -- number ) foldable
M: integer enum>number ;
: number>enum ( number enum-c-type -- enum )
c-type-boxer-quot call( x -- y ) ; inline
<PRIVATE
: enum-boxer ( members -- quot )
[ first2 swap '[ _ ] 2array ]
{ } map-as [ ] suffix '[ _ case ] ;
PRIVATE>
MACRO: number>enum ( enum-c-type -- )
c-type members>> enum-boxer ;
M: enum-c-type c-type-boxed-class drop object ;
M: enum-c-type c-type-boxer-quot members>> enum-boxer ;
M: enum-c-type c-type-unboxer-quot drop [ enum>number ] ;
@ -42,7 +42,7 @@ M: enum-c-type c-type-setter
: define-enum-constructor ( word -- )
[ name>> "<" ">" surround create-in ] keep
[ number>enum ] curry (( enum -- number )) define-inline ;
[ number>enum ] curry (( number -- enum )) define-inline ;
PRIVATE>