factor: add newlines to .factor files

[factor.git] / basis / cocoa / runtime / runtime.factor

diff --git a/basis/cocoa/runtime/runtime.factor b/basis/cocoa/runtime/runtime.factor
index a55374591954fe170e0e3a01c5bda237c8dd6a7b..72bd3021354360e423dc37ce1e53f8117b27764f 100644 (file)
--- a/basis/cocoa/runtime/runtime.factor
+++ b/basis/cocoa/runtime/runtime.factor
@@ -1,77 +1,90 @@
 ! Copyright (C) 2006, 2007 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.syntax ;
+USING: alien.c-types alien.syntax classes.struct core-foundation ;
 IN: cocoa.runtime
 
 TYPEDEF: void* SEL
 
 TYPEDEF: void* id
 
-FUNCTION: char* sel_getName ( SEL aSelector ) ;
+FUNCTION: c-string sel_getName ( SEL aSelector )
 
-FUNCTION: bool sel_isMapped ( SEL aSelector ) ;
+FUNCTION: char sel_isMapped ( SEL aSelector )
 
-FUNCTION: SEL sel_registerName ( char* str ) ;
+FUNCTION: SEL sel_registerName ( c-string str )
 
 TYPEDEF: void* Class
 TYPEDEF: void* Method
 TYPEDEF: void* Protocol
+TYPEDEF: void* Ivar
 
-C-STRUCT: objc-super
-    { "id" "receiver" }
-    { "Class" "class" } ;
+STRUCT: objc-super
+    { receiver id }
+    { class Class } ;
 
-: CLS_CLASS        HEX: 1   ;
-: CLS_META         HEX: 2   ;
-: CLS_INITIALIZED  HEX: 4   ;
-: CLS_POSING       HEX: 8   ;
-: CLS_MAPPED       HEX: 10  ;
-: CLS_FLUSH_CACHE  HEX: 20  ;
-: CLS_GROW_CACHE   HEX: 40  ;
-: CLS_NEED_BIND    HEX: 80  ;
-: CLS_METHOD_ARRAY HEX: 100 ;
+CONSTANT: CLS_CLASS        0x1
+CONSTANT: CLS_META         0x2
+CONSTANT: CLS_INITIALIZED  0x4
+CONSTANT: CLS_POSING       0x8
+CONSTANT: CLS_MAPPED       0x10
+CONSTANT: CLS_FLUSH_CACHE  0x20
+CONSTANT: CLS_GROW_CACHE   0x40
+CONSTANT: CLS_NEED_BIND    0x80
+CONSTANT: CLS_METHOD_ARRAY 0x100
 
-FUNCTION: int objc_getClassList ( void* buffer, int bufferLen ) ;
+FUNCTION: int objc_getClassList ( void* buffer, int bufferLen )
 
-FUNCTION: Class objc_getClass ( char* class ) ;
+FUNCTION: Class objc_getClass ( c-string class )
 
-FUNCTION: Class objc_getMetaClass ( char* class ) ;
+FUNCTION: Class objc_getMetaClass ( c-string class )
 
-FUNCTION: Protocol objc_getProtocol ( char* class ) ;
+FUNCTION: Protocol objc_getProtocol ( c-string class )
 
-FUNCTION: Class objc_allocateClassPair ( Class superclass, char* name, size_t extraBytes ) ;
-FUNCTION: Class objc_registerClassPair ( Class cls ) ;
+FUNCTION: Class objc_allocateClassPair ( Class superclass, c-string name, size_t extraBytes )
+FUNCTION: void objc_registerClassPair ( Class cls )
 
-FUNCTION: id class_createInstance ( Class class, uint additionalByteCount ) ;
+FUNCTION: void* objc_getAssociatedObject ( void* obj, c-string key )
 
-FUNCTION: id class_createInstanceFromZone ( Class class, uint additionalByteCount, void* zone ) ;
+FUNCTION: id class_createInstance ( Class class, uint additionalByteCount )
 
-FUNCTION: Method class_getInstanceMethod ( Class class, SEL selector ) ;
+FUNCTION: id class_createInstanceFromZone ( Class class, uint additionalByteCount, void* zone )
 
-FUNCTION: Method class_getClassMethod ( Class class, SEL selector ) ;
+FUNCTION: Method class_getInstanceMethod ( Class class, SEL selector )
 
-FUNCTION: Method* class_copyMethodList ( Class class, uint* outCount ) ;
+FUNCTION: Method class_getClassMethod ( Class class, SEL selector )
 
-FUNCTION: Class class_getSuperclass ( Class cls ) ;
+FUNCTION: Method* class_copyMethodList ( Class class, uint* outCount )
 
-FUNCTION: char class_addMethod ( Class class, SEL name, void* imp, void* types ) ;
+FUNCTION: Class class_getSuperclass ( Class cls )
 
-FUNCTION: char class_addProtocol ( Class class, Protocol protocol ) ;
+FUNCTION: c-string class_getName ( Class cls )
 
-FUNCTION: uint method_getNumberOfArguments ( Method method ) ;
+FUNCTION: Boolean class_isMetaClass ( Class cls )
 
-FUNCTION: uint method_getSizeOfArguments ( Method method ) ;
+FUNCTION: Method class_getInstanceVariable ( Class class, c-string str )
 
-FUNCTION: uint method_getArgumentInfo ( Method method, int argIndex, char** type, int* offset ) ;
+FUNCTION: Method class_getClassVariable ( Class class, c-string str )
 
-FUNCTION: void* method_copyReturnType ( Method method ) ;
+FUNCTION: uint8_t* class_getIvarLayout ( Class class )
 
-FUNCTION: void* method_copyArgumentType ( Method method, uint index ) ;
+FUNCTION: char class_addMethod ( Class class, SEL name, void* imp, void* types )
 
-FUNCTION: void* method_getTypeEncoding ( Method method ) ;
+FUNCTION: char class_addProtocol ( Class class, Protocol protocol )
 
-FUNCTION: SEL method_getName ( Method method ) ;
+FUNCTION: uint method_getNumberOfArguments ( Method method )
 
-FUNCTION: void* method_setImplementation ( Method method, void* imp ) ; 
+FUNCTION: void* method_copyReturnType ( Method method )
+
+FUNCTION: void* method_copyArgumentType ( Method method, uint index )
+
+FUNCTION: void* method_getTypeEncoding ( Method method )
+
+FUNCTION: SEL method_getName ( Method method )
+
+FUNCTION: void* method_setImplementation ( Method method, void* imp )
+FUNCTION: void* method_getImplementation ( Method method )
+
+FUNCTION: Class object_getClass ( id object )
+
+FUNCTION: void* object_getIvar ( Class class, Ivar ivar )
 
-FUNCTION: Class object_getClass ( id object ) ;