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

Get everything in contrib/ to load

slava 2006-11-09 06:56:04 +00:00
parent 135adce9c2
commit b84d981175
6 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
TODO.FACTOR.txt
View File

@ -1,11 +1,6 @@
+ allot refactoring:
- sometimes fep when closing window
- mov 0x0(%esi),%ecx why?
- %allot-bignum-signed-2 is broken on both platforms
+ ui: + ui:
- sometimes fep when closing window
- windows rollover broken again - windows rollover broken again
- docs: don't pass volatile aliens to callbacks - docs: don't pass volatile aliens to callbacks
- live search: timer delay would be nice - live search: timer delay would be nice
@ -44,6 +39,7 @@
+ compiler/ffi: + compiler/ffi:
- %allot-bignum-signed-2 is broken on both platforms
- callback scheduling issue - callback scheduling issue
- amd64 structs-by-value bug - amd64 structs-by-value bug
- intrinsic fixnum>float float>fixnum fixnum>bignum bignum>fixnum - intrinsic fixnum>float float>fixnum fixnum>bignum bignum>fixnum

2
contrib/boids.factor
View File

@ -100,7 +100,7 @@ over boid-vel -rot relative-position angle-between ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: vsum ( vector-of-vectors --- vec ) { 0 0 } [ v+ ] reduce ; : vsum ( vector-of-vectors -- vec ) { 0 0 } [ v+ ] reduce ;
: vaverage ( seq-of-vectors -- seq ) dup vsum swap length v/n ; : vaverage ( seq-of-vectors -- seq ) dup vsum swap length v/n ;

2
contrib/coroutines.factor
View File

@ -26,7 +26,7 @@ USING: kernel generic ;
TUPLE: coroutine resumecc exitcc ; TUPLE: coroutine resumecc exitcc ;
: cocreate ( quot - co ) : cocreate ( quot -- co )
#! Create a new coroutine, which will execute the quotation #! Create a new coroutine, which will execute the quotation
#! when resumed. The quotation will have the coroutine #! when resumed. The quotation will have the coroutine
#! on the stack and an initial value (received from coresume) #! on the stack and an initial value (received from coresume)

4
contrib/json/json-reader.factor
View File

@ -27,10 +27,10 @@ IN: json
! Grammar for JSON from RFC 4627 ! Grammar for JSON from RFC 4627
USE: tools USE: tools
: [<&>] ( quot - quot ) : [<&>] ( quot -- quot )
{ } make unclip [ <&> ] reduce ; { } make unclip [ <&> ] reduce ;
: [<|>] ( quot - quot ) : [<|>] ( quot -- quot )
{ } make unclip [ <|> ] reduce ; { } make unclip [ <|> ] reduce ;
LAZY: 'ws' ( -- parser ) LAZY: 'ws' ( -- parser )

2
contrib/serialize/serialize.factor
View File

@ -193,7 +193,7 @@ DEFER: deserialize ( -- obj )
: deserialize-tuple ( -- array ) : deserialize-tuple ( -- array )
deserialize deserialize
deserialize array>tuple deserialize >tuple
[ intern-object ] keep ; [ intern-object ] keep ;
: deserialize-byte-array ( -- byte-array ) : deserialize-byte-array ( -- byte-array )

9
library/compiler/alien/primitive-types.factor
View File

@ -77,6 +77,15 @@ bootstrap-cell
"unbox_unsigned_1" "unbox_unsigned_1"
"uchar" define-primitive-type "uchar" define-primitive-type
! This is a hack; we need better ways of handling arrays
! inline structs
[ swap <displaced-alien> alien>char-string ]
[ swap <displaced-alien> swap set-alien-unsigned-1 ]
1
f
f
"char[]" define-primitive-type
[ alien-unsigned-4 zero? not ] [ alien-unsigned-4 zero? not ]
[ 1 0 ? set-alien-unsigned-4 ] [ 1 0 ? set-alien-unsigned-4 ]
4 4