diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor index 8b2106685a..4b98e9a410 100644 --- a/basis/core-foundation/run-loop/run-loop.factor +++ b/basis/core-foundation/run-loop/run-loop.factor @@ -19,9 +19,9 @@ FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ; FUNCTION: CFRunLoopRef CFRunLoopGetCurrent ( ) ; FUNCTION: SInt32 CFRunLoopRunInMode ( - CFStringRef mode, - CFTimeInterval seconds, - Boolean returnAfterSourceHandled + CFStringRef mode, + CFTimeInterval seconds, + Boolean returnAfterSourceHandled ) ; FUNCTION: CFRunLoopSourceRef CFFileDescriptorCreateRunLoopSource ( @@ -31,27 +31,27 @@ FUNCTION: CFRunLoopSourceRef CFFileDescriptorCreateRunLoopSource ( ) ; FUNCTION: void CFRunLoopAddSource ( - CFRunLoopRef rl, - CFRunLoopSourceRef source, - CFStringRef mode + CFRunLoopRef rl, + CFRunLoopSourceRef source, + CFStringRef mode ) ; FUNCTION: void CFRunLoopRemoveSource ( - CFRunLoopRef rl, - CFRunLoopSourceRef source, - CFStringRef mode + CFRunLoopRef rl, + CFRunLoopSourceRef source, + CFStringRef mode ) ; FUNCTION: void CFRunLoopAddTimer ( - CFRunLoopRef rl, - CFRunLoopTimerRef timer, - CFStringRef mode + CFRunLoopRef rl, + CFRunLoopTimerRef timer, + CFStringRef mode ) ; FUNCTION: void CFRunLoopRemoveTimer ( - CFRunLoopRef rl, - CFRunLoopTimerRef timer, - CFStringRef mode + CFRunLoopRef rl, + CFRunLoopTimerRef timer, + CFStringRef mode ) ; : CFRunLoopDefaultMode ( -- alien ) diff --git a/basis/core-foundation/strings/.#strings.factor b/basis/core-foundation/strings/.#strings.factor new file mode 120000 index 0000000000..bbcc303148 --- /dev/null +++ b/basis/core-foundation/strings/.#strings.factor @@ -0,0 +1 @@ +slava@slava-pestovs-macbook-pro.local.83429 \ No newline at end of file diff --git a/basis/core-foundation/strings/strings.factor b/basis/core-foundation/strings/strings.factor index 2e6180c897..c3a969a325 100644 --- a/basis/core-foundation/strings/strings.factor +++ b/basis/core-foundation/strings/strings.factor @@ -23,11 +23,11 @@ TYPEDEF: int CFStringEncoding : kCFStringEncodingUTF32LE HEX: 1c000100 ; FUNCTION: CFStringRef CFStringCreateWithBytes ( - CFAllocatorRef alloc, - UInt8* bytes, - CFIndex numBytes, - CFStringEncoding encoding, - Boolean isExternalRepresentation + CFAllocatorRef alloc, + UInt8* bytes, + CFIndex numBytes, + CFStringEncoding encoding, + Boolean isExternalRepresentation ) ; FUNCTION: CFIndex CFStringGetLength ( CFStringRef theString ) ; @@ -35,16 +35,16 @@ FUNCTION: CFIndex CFStringGetLength ( CFStringRef theString ) ; FUNCTION: void CFStringGetCharacters ( void* theString, CFIndex start, CFIndex length, void* buffer ) ; FUNCTION: Boolean CFStringGetCString ( - CFStringRef theString, - char* buffer, - CFIndex bufferSize, - CFStringEncoding encoding + CFStringRef theString, + char* buffer, + CFIndex bufferSize, + CFStringEncoding encoding ) ; FUNCTION: CFStringRef CFStringCreateWithCString ( - CFAllocatorRef alloc, - char* cStr, - CFStringEncoding encoding + CFAllocatorRef alloc, + char* cStr, + CFStringEncoding encoding ) ; : ( string -- alien ) diff --git a/basis/x11/xim/xim.factor b/basis/x11/xim/xim.factor index 862ec3355a..856420af0f 100644 --- a/basis/x11/xim/xim.factor +++ b/basis/x11/xim/xim.factor @@ -9,14 +9,14 @@ IN: x11.xim SYMBOL: xim : (init-xim) ( classname medifier -- im ) - XSetLocaleModifiers [ "XSetLocaleModifiers() failed" throw ] unless - [ dpy get f ] dip dup XOpenIM ; + XSetLocaleModifiers [ "XSetLocaleModifiers() failed" throw ] unless + [ dpy get f ] dip dup XOpenIM ; : init-xim ( classname -- ) - dup "" (init-xim) - [ nip ] - [ "@im=none" (init-xim) [ "XOpenIM() failed" throw ] unless* ] if* - xim set-global ; + dup "" (init-xim) + [ nip ] + [ "@im=none" (init-xim) [ "XOpenIM() failed" throw ] unless* ] if* + xim set-global ; : close-xim ( -- ) xim get-global XCloseIM drop f xim set-global ;