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

Debugging Cocoa bridge

darcs
slava 2006-02-07 03:58:18 +00:00
parent 74130d294a
commit 7e14e38cc0
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TODO.FACTOR.txt
View File

@ -1,4 +1,4 @@
- file responder issues - fix the windows build
- if select() returns an error, fep - if select() returns an error, fep
- FILE* leaked in process.factor - FILE* leaked in process.factor
- fix remaining HTML stream issues - fix remaining HTML stream issues

1
library/alien/objective-c/utils.factor
View File

@ -53,6 +53,7 @@ C: selector ( name -- sel ) [ set-selector-name ] keep ;
: (parse-objc-type) ( i string -- ctype ) : (parse-objc-type) ( i string -- ctype )
2dup nth >r >r 1+ r> r> { 2dup nth >r >r 1+ r> r> {
{ [ dup "rnNoORV" member? ] [ drop (parse-objc-type) ] }
{ [ dup CHAR: ^ = ] [ 3drop "void*" ] } { [ dup CHAR: ^ = ] [ 3drop "void*" ] }
{ [ dup CHAR: { = ] [ drop objc-struct-type ] } { [ dup CHAR: { = ] [ drop objc-struct-type ] }
{ [ dup CHAR: [ = ] [ 3drop "void*" ] } { [ dup CHAR: [ = ] [ 3drop "void*" ] }

2
library/test/alien.factor
View File

@ -52,4 +52,4 @@ cell 8 = [
[ "example" ] [ "{example=@*i}" parse-objc-type ] unit-test [ "example" ] [ "{example=@*i}" parse-objc-type ] unit-test
[ "void*" ] [ "[12^f]" parse-objc-type ] unit-test [ "void*" ] [ "[12^f]" parse-objc-type ] unit-test
[ "float*" ] [ "^f" parse-objc-type ] unit-test [ "void*" ] [ "^f" parse-objc-type ] unit-test