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

Fix bogus indentation

db4
Slava Pestov 2008-12-18 18:09:22 -06:00
parent b11cbaa3af
commit 83f03c89b6
4 changed files with 34 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
basis/core-foundation/run-loop/run-loop.factor
View File

@ -19,9 +19,9 @@ FUNCTION: CFRunLoopRef CFRunLoopGetMain ( ) ;
FUNCTION: CFRunLoopRef CFRunLoopGetCurrent ( ) ; FUNCTION: CFRunLoopRef CFRunLoopGetCurrent ( ) ;
FUNCTION: SInt32 CFRunLoopRunInMode ( FUNCTION: SInt32 CFRunLoopRunInMode (
CFStringRef mode, CFStringRef mode,
CFTimeInterval seconds, CFTimeInterval seconds,
Boolean returnAfterSourceHandled Boolean returnAfterSourceHandled
) ; ) ;
FUNCTION: CFRunLoopSourceRef CFFileDescriptorCreateRunLoopSource ( FUNCTION: CFRunLoopSourceRef CFFileDescriptorCreateRunLoopSource (
@ -31,27 +31,27 @@ FUNCTION: CFRunLoopSourceRef CFFileDescriptorCreateRunLoopSource (
) ; ) ;
FUNCTION: void CFRunLoopAddSource ( FUNCTION: void CFRunLoopAddSource (
CFRunLoopRef rl, CFRunLoopRef rl,
CFRunLoopSourceRef source, CFRunLoopSourceRef source,
CFStringRef mode CFStringRef mode
) ; ) ;
FUNCTION: void CFRunLoopRemoveSource ( FUNCTION: void CFRunLoopRemoveSource (
CFRunLoopRef rl, CFRunLoopRef rl,
CFRunLoopSourceRef source, CFRunLoopSourceRef source,
CFStringRef mode CFStringRef mode
) ; ) ;
FUNCTION: void CFRunLoopAddTimer ( FUNCTION: void CFRunLoopAddTimer (
CFRunLoopRef rl, CFRunLoopRef rl,
CFRunLoopTimerRef timer, CFRunLoopTimerRef timer,
CFStringRef mode CFStringRef mode
) ; ) ;
FUNCTION: void CFRunLoopRemoveTimer ( FUNCTION: void CFRunLoopRemoveTimer (
CFRunLoopRef rl, CFRunLoopRef rl,
CFRunLoopTimerRef timer, CFRunLoopTimerRef timer,
CFStringRef mode CFStringRef mode
) ; ) ;
: CFRunLoopDefaultMode ( -- alien ) : CFRunLoopDefaultMode ( -- alien )

1
basis/core-foundation/strings/.#strings.factor Symbolic link
View File

@ -0,0 +1 @@
slava@slava-pestovs-macbook-pro.local.83429

24
basis/core-foundation/strings/strings.factor
View File

@ -23,11 +23,11 @@ TYPEDEF: int CFStringEncoding
: kCFStringEncodingUTF32LE HEX: 1c000100 ; : kCFStringEncodingUTF32LE HEX: 1c000100 ;
FUNCTION: CFStringRef CFStringCreateWithBytes ( FUNCTION: CFStringRef CFStringCreateWithBytes (
CFAllocatorRef alloc, CFAllocatorRef alloc,
UInt8* bytes, UInt8* bytes,
CFIndex numBytes, CFIndex numBytes,
CFStringEncoding encoding, CFStringEncoding encoding,
Boolean isExternalRepresentation Boolean isExternalRepresentation
) ; ) ;
FUNCTION: CFIndex CFStringGetLength ( CFStringRef theString ) ; 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: void CFStringGetCharacters ( void* theString, CFIndex start, CFIndex length, void* buffer ) ;
FUNCTION: Boolean CFStringGetCString ( FUNCTION: Boolean CFStringGetCString (
CFStringRef theString, CFStringRef theString,
char* buffer, char* buffer,
CFIndex bufferSize, CFIndex bufferSize,
CFStringEncoding encoding CFStringEncoding encoding
) ; ) ;
FUNCTION: CFStringRef CFStringCreateWithCString ( FUNCTION: CFStringRef CFStringCreateWithCString (
CFAllocatorRef alloc, CFAllocatorRef alloc,
char* cStr, char* cStr,
CFStringEncoding encoding CFStringEncoding encoding
) ; ) ;
: <CFString> ( string -- alien ) : <CFString> ( string -- alien )

12
basis/x11/xim/xim.factor
View File

@ -9,14 +9,14 @@ IN: x11.xim
SYMBOL: xim SYMBOL: xim
: (init-xim) ( classname medifier -- im ) : (init-xim) ( classname medifier -- im )
XSetLocaleModifiers [ "XSetLocaleModifiers() failed" throw ] unless XSetLocaleModifiers [ "XSetLocaleModifiers() failed" throw ] unless
[ dpy get f ] dip dup XOpenIM ; [ dpy get f ] dip dup XOpenIM ;
: init-xim ( classname -- ) : init-xim ( classname -- )
dup "" (init-xim) dup "" (init-xim)
[ nip ] [ nip ]
[ "@im=none" (init-xim) [ "XOpenIM() failed" throw ] unless* ] if* [ "@im=none" (init-xim) [ "XOpenIM() failed" throw ] unless* ] if*
xim set-global ; xim set-global ;
: close-xim ( -- ) : close-xim ( -- )
xim get-global XCloseIM drop f xim set-global ; xim get-global XCloseIM drop f xim set-global ;