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

Remove ascii dependency from Mac OS X bootstrap

db4
Slava Pestov 2008-12-08 19:13:58 -06:00
parent 11c138ae95
commit 1604e18d71
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/cocoa/messages/messages.factor
View File

@ -3,7 +3,7 @@
USING: accessors alien alien.c-types alien.strings arrays assocs USING: accessors alien alien.c-types alien.strings arrays assocs
continuations combinators compiler compiler.alien kernel math continuations combinators compiler compiler.alien kernel math
namespaces make parser quotations sequences strings words namespaces make parser quotations sequences strings words
cocoa.runtime io macros memoize io.encodings.ascii cocoa.runtime io macros memoize io.encodings.utf8
effects libc libc.private parser lexer init core-foundation fry effects libc libc.private parser lexer init core-foundation fry
generalizations specialized-arrays.direct.alien ; generalizations specialized-arrays.direct.alien ;
IN: cocoa.messages IN: cocoa.messages
@ -180,7 +180,7 @@ assoc-union alien>objc-types set-global
: method-arg-type ( method i -- type ) : method-arg-type ( method i -- type )
method_copyArgumentType method_copyArgumentType
[ ascii alien>string parse-objc-type ] keep [ utf8 alien>string parse-objc-type ] keep
(free) ; (free) ;
: method-arg-types ( method -- args ) : method-arg-types ( method -- args )
@ -189,7 +189,7 @@ assoc-union alien>objc-types set-global
: method-return-type ( method -- ctype ) : method-return-type ( method -- ctype )
method_copyReturnType method_copyReturnType
[ ascii alien>string parse-objc-type ] keep [ utf8 alien>string parse-objc-type ] keep
(free) ; (free) ;
: register-objc-method ( method -- ) : register-objc-method ( method -- )

4
basis/cocoa/subclassing/subclassing.factor
View File

@ -3,12 +3,12 @@
USING: alien alien.c-types alien.strings arrays assocs USING: alien alien.c-types alien.strings arrays assocs
combinators compiler hashtables kernel libc math namespaces combinators compiler hashtables kernel libc math namespaces
parser sequences words cocoa.messages cocoa.runtime locals parser sequences words cocoa.messages cocoa.runtime locals
compiler.units io.encodings.ascii continuations make fry ; compiler.units io.encodings.utf8 continuations make fry ;
IN: cocoa.subclassing IN: cocoa.subclassing
: init-method ( method -- sel imp types ) : init-method ( method -- sel imp types )
first3 swap first3 swap
[ sel_registerName ] [ execute ] [ ascii string>alien ] [ sel_registerName ] [ execute ] [ utf8 string>alien ]
tri* ; tri* ;
: throw-if-false ( obj what -- ) : throw-if-false ( obj what -- )