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

remove a layer of indirection from classes.c-types

db4
Joe Groff 2009-08-19 18:54:11 -05:00
parent c898593983
commit d99a126ca4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/classes/c-types/c-types.factor
View File

@ -62,7 +62,7 @@ SYMBOLS: long ulong long-bits ;
>> >>
: set-class-c-type ( class c-type <direct-array> -- ) : set-class-c-type ( class c-type <direct-array> -- )
[ "class-c-type" set-word-prop ] [ c-type "class-c-type" set-word-prop ]
[ "class-direct-array" set-word-prop ] bi-curry* bi ; [ "class-direct-array" set-word-prop ] bi-curry* bi ;
: class-c-type ( class -- c-type ) : class-c-type ( class -- c-type )
@ -103,12 +103,12 @@ ulonglong [ 64 bits ] "coercer" set-word-prop
PREDICATE: c-type-class < class PREDICATE: c-type-class < class
"class-c-type" word-prop ; "class-c-type" word-prop ;
GENERIC: direct-array-of ( alien len class -- array ) GENERIC: direct-array-of ( alien len class -- array ) inline
M: c-type-class direct-array-of M: c-type-class direct-array-of
class-direct-array execute( alien len -- array ) ; inline class-direct-array execute( alien len -- array ) ; inline
M: c-type-class c-type class-c-type c-type ; M: c-type-class c-type class-c-type ;
M: c-type-class c-type-align class-c-type c-type-align ; M: c-type-class c-type-align class-c-type c-type-align ;
M: c-type-class c-type-getter class-c-type c-type-getter ; M: c-type-class c-type-getter class-c-type c-type-getter ;
M: c-type-class c-type-setter class-c-type c-type-setter ; M: c-type-class c-type-setter class-c-type c-type-setter ;