From 7e14e38cc0e2915c40ae9933ad2ba14e38011dde Mon Sep 17 00:00:00 2001 From: slava Date: Tue, 7 Feb 2006 03:58:18 +0000 Subject: [PATCH] Debugging Cocoa bridge --- TODO.FACTOR.txt | 2 +- library/alien/objective-c/utils.factor | 1 + library/test/alien.factor | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt index 2d2cd17b88..e1bd2450a4 100644 --- a/TODO.FACTOR.txt +++ b/TODO.FACTOR.txt @@ -1,4 +1,4 @@ -- file responder issues +- fix the windows build - if select() returns an error, fep - FILE* leaked in process.factor - fix remaining HTML stream issues diff --git a/library/alien/objective-c/utils.factor b/library/alien/objective-c/utils.factor index be8c18a0f5..3822fb4da4 100644 --- a/library/alien/objective-c/utils.factor +++ b/library/alien/objective-c/utils.factor @@ -53,6 +53,7 @@ C: selector ( name -- sel ) [ set-selector-name ] keep ; : (parse-objc-type) ( i string -- ctype ) 2dup nth >r >r 1+ r> r> { + { [ dup "rnNoORV" member? ] [ drop (parse-objc-type) ] } { [ dup CHAR: ^ = ] [ 3drop "void*" ] } { [ dup CHAR: { = ] [ drop objc-struct-type ] } { [ dup CHAR: [ = ] [ 3drop "void*" ] } diff --git a/library/test/alien.factor b/library/test/alien.factor index 24fad8b9ff..d74c416bb1 100644 --- a/library/test/alien.factor +++ b/library/test/alien.factor @@ -52,4 +52,4 @@ cell 8 = [ [ "example" ] [ "{example=@*i}" 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