core, basis, extra: Remove DOS line endings from files.
Remove whitespace from end of lines. Add a newline to the end of each file.db4
parent
2c08e9a089
commit
352e5de16a
|
@ -63,4 +63,3 @@ M: string-type c-type-setter
|
||||||
drop [ set-alien-cell ] ;
|
drop [ set-alien-cell ] ;
|
||||||
|
|
||||||
[ { c-string utf8 } c-string typedef ] with-compilation-unit
|
[ { c-string utf8 } c-string typedef ] with-compilation-unit
|
||||||
|
|
||||||
|
|
|
@ -160,4 +160,3 @@ SYNTAX: LE-PACKED-STRUCT:
|
||||||
SYNTAX: BE-PACKED-STRUCT:
|
SYNTAX: BE-PACKED-STRUCT:
|
||||||
parse-struct-definition
|
parse-struct-definition
|
||||||
big-endian define-endian-packed-struct-class ;
|
big-endian define-endian-packed-struct-class ;
|
||||||
|
|
||||||
|
|
|
@ -12,4 +12,3 @@ M: unix >deployed-library-path
|
||||||
|
|
||||||
M: macosx >deployed-library-path
|
M: macosx >deployed-library-path
|
||||||
file-name "@executable_path/../Frameworks" prepend-path ;
|
file-name "@executable_path/../Frameworks" prepend-path ;
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: atk.ffi ;
|
USING: atk.ffi ;
|
||||||
IN: atk
|
IN: atk
|
||||||
|
|
||||||
|
|
|
@ -13,4 +13,3 @@ M: internet checksum-bytes
|
||||||
drop 2 <groups> [ le> ] map-sum
|
drop 2 <groups> [ le> ] map-sum
|
||||||
[ -16 shift ] [ 0xffff bitand ] bi +
|
[ -16 shift ] [ 0xffff bitand ] bi +
|
||||||
[ -16 shift ] keep + bitnot 2 >le ;
|
[ -16 shift ] keep + bitnot 2 >le ;
|
||||||
|
|
||||||
|
|
|
@ -42,4 +42,3 @@ from within Factor for more information.
|
||||||
|
|
||||||
output-stream get [ stream-flush ] when*
|
output-stream get [ stream-flush ] when*
|
||||||
0 exit ;
|
0 exit ;
|
||||||
|
|
||||||
|
|
|
@ -95,4 +95,3 @@ SYMBOLS: cc-o cc/o ;
|
||||||
{ cc/<> { +eq+ +unordered+ } }
|
{ cc/<> { +eq+ +unordered+ } }
|
||||||
{ cc/<>= { +unordered+ } }
|
{ cc/<>= { +unordered+ } }
|
||||||
} at member-eq? ;
|
} at member-eq? ;
|
||||||
|
|
||||||
|
|
|
@ -79,4 +79,3 @@ T{ error-type-holder
|
||||||
{ quot [ user-init-errors get-global values ] }
|
{ quot [ user-init-errors get-global values ] }
|
||||||
{ forget-quot [ user-init-errors get-global delete-at ] }
|
{ forget-quot [ user-init-errors get-global delete-at ] }
|
||||||
} define-error-type
|
} define-error-type
|
||||||
|
|
||||||
|
|
|
@ -11,4 +11,3 @@ IN: compiler.tree.dead-code
|
||||||
mark-live-values
|
mark-live-values
|
||||||
compute-live-values
|
compute-live-values
|
||||||
(remove-dead-code) ;
|
(remove-dead-code) ;
|
||||||
|
|
||||||
|
|
|
@ -32,4 +32,3 @@ FUNCTION: snappy_status snappy_uncompressed_length ( char* compressed,
|
||||||
|
|
||||||
FUNCTION: snappy_status snappy_validate_compressed_buffer ( char* compressed,
|
FUNCTION: snappy_status snappy_validate_compressed_buffer ( char* compressed,
|
||||||
size_t compressed_length ) ;
|
size_t compressed_length ) ;
|
||||||
|
|
||||||
|
|
|
@ -30,4 +30,3 @@ PRIVATE>
|
||||||
size_t deref
|
size_t deref
|
||||||
n>outs
|
n>outs
|
||||||
[ snappy_uncompress check-snappy ] 2keep drop >byte-array ;
|
[ snappy_uncompress check-snappy ] 2keep drop >byte-array ;
|
||||||
|
|
||||||
|
|
|
@ -41,4 +41,3 @@ FUNCTION: CFTypeRef CFRetain ( CFTypeRef cf ) ;
|
||||||
FUNCTION: void CFRelease ( CFTypeRef cf ) ;
|
FUNCTION: void CFRelease ( CFTypeRef cf ) ;
|
||||||
|
|
||||||
DESTRUCTOR: CFRelease
|
DESTRUCTOR: CFRelease
|
||||||
|
|
||||||
|
|
|
@ -51,5 +51,3 @@ FUNCTION: CFTimeInterval CFRunLoopTimerGetInterval (
|
||||||
FUNCTION: CFAbsoluteTime CFRunLoopTimerGetNextFireDate (
|
FUNCTION: CFAbsoluteTime CFRunLoopTimerGetNextFireDate (
|
||||||
CFRunLoopTimerRef timer
|
CFRunLoopTimerRef timer
|
||||||
) ;
|
) ;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -52,4 +52,3 @@ M: windows-error error.
|
||||||
"Win32 error 0x" write
|
"Win32 error 0x" write
|
||||||
dup n>> 0xffff,ffff bitand >hex write ": " write
|
dup n>> 0xffff,ffff bitand >hex write ": " write
|
||||||
string>> write ;
|
string>> write ;
|
||||||
|
|
||||||
|
|
|
@ -7,4 +7,3 @@ M: dlist pprint-delims drop \ DL{ \ } ;
|
||||||
M: dlist >pprint-sequence dlist>sequence ;
|
M: dlist >pprint-sequence dlist>sequence ;
|
||||||
M: dlist pprint-narrow? drop f ;
|
M: dlist pprint-narrow? drop f ;
|
||||||
M: dlist pprint* pprint-object ;
|
M: dlist pprint* pprint-object ;
|
||||||
|
|
||||||
|
|
|
@ -14,4 +14,3 @@ M: atom-editor editor-command ( file line -- command )
|
||||||
atom-path get [ "atom" ?find-in-path ] unless* ,
|
atom-path get [ "atom" ?find-in-path ] unless* ,
|
||||||
number>string ":" glue ,
|
number>string ":" glue ,
|
||||||
] { } make ;
|
] { } make ;
|
||||||
|
|
||||||
|
|
|
@ -18,4 +18,3 @@ M: editpadpro editor-command ( file line -- command )
|
||||||
[
|
[
|
||||||
editpadpro-path , number>string "/l" prepend , ,
|
editpadpro-path , number>string "/l" prepend , ,
|
||||||
] { } make ;
|
] { } make ;
|
||||||
|
|
||||||
|
|
|
@ -18,4 +18,3 @@ M: etexteditor editor-command ( file line -- command )
|
||||||
etexteditor-path ,
|
etexteditor-path ,
|
||||||
[ , ] [ "--line" , number>string , ] bi*
|
[ , ] [ "--line" , number>string , ] bi*
|
||||||
] { } make ;
|
] { } make ;
|
||||||
|
|
||||||
|
|
|
@ -290,4 +290,3 @@ M: array (write-farkup) [ (write-farkup) ] map ;
|
||||||
|
|
||||||
: convert-farkup ( string -- string' )
|
: convert-farkup ( string -- string' )
|
||||||
[ write-farkup ] with-string-writer ;
|
[ write-farkup ] with-string-writer ;
|
||||||
|
|
||||||
|
|
|
@ -14,4 +14,3 @@ M: keys-array length length>> ;
|
||||||
M: keys-array nth-unsafe underlying>> nth-unsafe >key ;
|
M: keys-array nth-unsafe underlying>> nth-unsafe >key ;
|
||||||
|
|
||||||
INSTANCE: keys-array sequence
|
INSTANCE: keys-array sequence
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: gdk.ffi ;
|
USING: gdk.ffi ;
|
||||||
IN: gdk
|
IN: gdk
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: gdk.gl.ffi ;
|
USING: gdk.gl.ffi ;
|
||||||
IN: gdk.gl
|
IN: gdk.gl
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: gdk.pixbuf.ffi ;
|
USING: gdk.pixbuf.ffi ;
|
||||||
IN: gdk.pixbuf
|
IN: gdk.pixbuf
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: gio.ffi ;
|
USING: gio.ffi ;
|
||||||
IN: gio
|
IN: gio
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: glib.ffi ;
|
USING: glib.ffi ;
|
||||||
IN: glib
|
IN: glib
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: gmodule.ffi ;
|
USING: gmodule.ffi ;
|
||||||
IN: gmodule
|
IN: gmodule
|
||||||
|
|
||||||
|
|
|
@ -360,4 +360,3 @@ M: array-type field-type>c-type type>c-type ;
|
||||||
|
|
||||||
: def-ffi-repository ( repository -- )
|
: def-ffi-repository ( repository -- )
|
||||||
namespace>> def-namespace ;
|
namespace>> def-namespace ;
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: gobject.ffi ;
|
USING: gobject.ffi ;
|
||||||
IN: gobject
|
IN: gobject
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: gtk.gl.ffi ;
|
USING: gtk.gl.ffi ;
|
||||||
IN: gtk.gl
|
IN: gtk.gl
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: gtk.ffi ;
|
USING: gtk.ffi ;
|
||||||
IN: gtk
|
IN: gtk
|
||||||
|
|
||||||
|
|
|
@ -11,5 +11,3 @@ M: wrapped-hash-set >pprint-sequence members ;
|
||||||
M: wrapped-hash-set pprint*
|
M: wrapped-hash-set pprint*
|
||||||
nesting-limit inc
|
nesting-limit inc
|
||||||
[ pprint-object ] [ nesting-limit dec ] [ ] cleanup ;
|
[ pprint-object ] [ nesting-limit dec ] [ ] cleanup ;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -11,5 +11,3 @@ M: wrapped-hashtable >pprint-sequence >alist ;
|
||||||
M: wrapped-hashtable pprint*
|
M: wrapped-hashtable pprint*
|
||||||
nesting-limit inc
|
nesting-limit inc
|
||||||
[ pprint-object ] [ nesting-limit dec ] [ ] cleanup ;
|
[ pprint-object ] [ nesting-limit dec ] [ ] cleanup ;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -88,4 +88,3 @@ PRIVATE>
|
||||||
[ >byte-array ] change-bitmap
|
[ >byte-array ] change-bitmap
|
||||||
RGBA reorder-components
|
RGBA reorder-components
|
||||||
normalize-scan-line-order ;
|
normalize-scan-line-order ;
|
||||||
|
|
||||||
|
|
|
@ -84,4 +84,3 @@ M: windows (directory-entries) ( path -- seq )
|
||||||
over name>> "." = [ nip ] [ swap prefix ] if
|
over name>> "." = [ nip ] [ swap prefix ] if
|
||||||
]
|
]
|
||||||
] [ drop '[ _ FindClose win32-error=0/f ] ] 2bi [ ] cleanup ;
|
] [ drop '[ _ FindClose win32-error=0/f ] ] 2bi [ ] cleanup ;
|
||||||
|
|
||||||
|
|
|
@ -4,4 +4,3 @@ USING: io.encodings.8-bit ;
|
||||||
IN: io.encodings.8-bit.latin4
|
IN: io.encodings.8-bit.latin4
|
||||||
|
|
||||||
8-BIT: latin4 ISO_8859-4:1988 8859-4
|
8-BIT: latin4 ISO_8859-4:1988 8859-4
|
||||||
|
|
||||||
|
|
|
@ -4,4 +4,3 @@ USING: io.encodings.8-bit ;
|
||||||
IN: io.encodings.8-bit.latin6
|
IN: io.encodings.8-bit.latin6
|
||||||
|
|
||||||
8-BIT: latin6 ISO-8859-10 8859-10
|
8-BIT: latin6 ISO-8859-10 8859-10
|
||||||
|
|
||||||
|
|
|
@ -6,4 +6,3 @@ IN: io.encodings.big5
|
||||||
EUC: big5 "vocab:io/encodings/big5/CP950.TXT"
|
EUC: big5 "vocab:io/encodings/big5/CP950.TXT"
|
||||||
|
|
||||||
big5 "Big5" register-encoding
|
big5 "Big5" register-encoding
|
||||||
|
|
||||||
|
|
|
@ -4,4 +4,3 @@ USE: io.encodings.euc
|
||||||
IN: io.encodings.johab
|
IN: io.encodings.johab
|
||||||
|
|
||||||
EUC: johab "vocab:io/encodings/johab/johab.txt"
|
EUC: johab "vocab:io/encodings/johab/johab.txt"
|
||||||
|
|
||||||
|
|
|
@ -6,4 +6,3 @@ IN: io.sockets.unix.linux
|
||||||
! Linux seems to use the same port-space for ipv4 and ipv6.
|
! Linux seems to use the same port-space for ipv4 and ipv6.
|
||||||
|
|
||||||
M: linux resolve-localhost { T{ ipv4 f "0.0.0.0" } } ;
|
M: linux resolve-localhost { T{ ipv4 f "0.0.0.0" } } ;
|
||||||
|
|
||||||
|
|
|
@ -35,4 +35,3 @@ M: object find-in-standard-login-path*
|
||||||
{ [ os macosx? ] [ "io.standard-paths.macosx" ] }
|
{ [ os macosx? ] [ "io.standard-paths.macosx" ] }
|
||||||
{ [ os unix? ] [ "io.standard-paths.unix" ] }
|
{ [ os unix? ] [ "io.standard-paths.unix" ] }
|
||||||
} cond require
|
} cond require
|
||||||
|
|
||||||
|
|
|
@ -11,4 +11,3 @@ M: windows find-in-applications
|
||||||
M: windows find-in-path*
|
M: windows find-in-path*
|
||||||
[ "PATH" os-env ";" split ] dip
|
[ "PATH" os-env ";" split ] dip
|
||||||
'[ _ append-path exists? ] find nip ;
|
'[ _ append-path exists? ] find nip ;
|
||||||
|
|
||||||
|
|
|
@ -161,4 +161,3 @@ TUPLE: mach-error-state error-code error-string ;
|
||||||
IORegistryEntryCreateCFProperties mach-error
|
IORegistryEntryCreateCFProperties mach-error
|
||||||
]
|
]
|
||||||
keep void* deref ;
|
keep void* deref ;
|
||||||
|
|
||||||
|
|
|
@ -159,4 +159,3 @@ PRIVATE>
|
||||||
{ [ cpu ppc? ] [ "math.floats.env.ppc" require ] }
|
{ [ cpu ppc? ] [ "math.floats.env.ppc" require ] }
|
||||||
[ "CPU architecture unsupported by math.floats.env" throw ]
|
[ "CPU architecture unsupported by math.floats.env" throw ]
|
||||||
} cond >>
|
} cond >>
|
||||||
|
|
||||||
|
|
|
@ -146,4 +146,3 @@ M: ppc-vmx-env (set-denormal-mode) ( register mode -- register )
|
||||||
{ +denormal-flush+ [ vmx-denormal-mode-bits bitor ] }
|
{ +denormal-flush+ [ vmx-denormal-mode-bits bitor ] }
|
||||||
} case
|
} case
|
||||||
] curry change-vscr ; inline
|
] curry change-vscr ; inline
|
||||||
|
|
||||||
|
|
|
@ -99,4 +99,3 @@ MACRO: polyval* ( p -- )
|
||||||
[ rest [ \ * swap \ + [ ] 3sequence ] map ]
|
[ rest [ \ * swap \ + [ ] 3sequence ] map ]
|
||||||
[ first \ drop swap [ ] 2sequence ] bi
|
[ first \ drop swap [ ] 2sequence ] bi
|
||||||
prefix \ cleave [ ] 2sequence ;
|
prefix \ cleave [ ] 2sequence ;
|
||||||
|
|
||||||
|
|
|
@ -105,4 +105,3 @@ MACRO:: vconvert ( from-type to-type -- )
|
||||||
{ [ from-size to-size = ] [ [vconvert] ] }
|
{ [ from-size to-size = ] [ [vconvert] ] }
|
||||||
{ [ from-size to-size > ] [ [vpack] ] }
|
{ [ from-size to-size > ] [ [vpack] ] }
|
||||||
} cond ;
|
} cond ;
|
||||||
|
|
||||||
|
|
|
@ -3,4 +3,3 @@ USING: kernel memoize parser sequences stack-checker ;
|
||||||
IN: memoize.syntax
|
IN: memoize.syntax
|
||||||
|
|
||||||
SYNTAX: MEMO[ parse-quotation dup infer memoize-quot suffix! ;
|
SYNTAX: MEMO[ parse-quotation dup infer memoize-quot suffix! ;
|
||||||
|
|
||||||
|
|
|
@ -47,4 +47,3 @@ MEMO: mime-types ( -- assoc )
|
||||||
|
|
||||||
: mime-type-encoding ( mime-type -- encoding )
|
: mime-type-encoding ( mime-type -- encoding )
|
||||||
"text/" head? utf8 binary ? ;
|
"text/" head? utf8 binary ? ;
|
||||||
|
|
||||||
|
|
|
@ -120,4 +120,3 @@ GENERIC: set-range-max-value ( value model -- )
|
||||||
|
|
||||||
: pop-model ( model -- value )
|
: pop-model ( model -- value )
|
||||||
[ pop ] change-model* ;
|
[ pop ] change-model* ;
|
||||||
|
|
||||||
|
|
|
@ -20,4 +20,3 @@ SYMBOL: G-world
|
||||||
|
|
||||||
SYNTAX: GB
|
SYNTAX: GB
|
||||||
\ gl-break suffix! ;
|
\ gl-break suffix! ;
|
||||||
|
|
||||||
|
|
|
@ -2570,4 +2570,3 @@ CONSTANT: GL_COMPRESSED_LUMINANCE_LATC1_EXT 0x8C70
|
||||||
CONSTANT: GL_COMPRESSED_SIGNED_LUMINANCE_LATC1_EXT 0x8C71
|
CONSTANT: GL_COMPRESSED_SIGNED_LUMINANCE_LATC1_EXT 0x8C71
|
||||||
CONSTANT: GL_COMPRESSED_LUMINANCE_ALPHA_LATC2_EXT 0x8C72
|
CONSTANT: GL_COMPRESSED_LUMINANCE_ALPHA_LATC2_EXT 0x8C72
|
||||||
CONSTANT: GL_COMPRESSED_SIGNED_LUMINANCE_ALPHA_LATC2_EXT 0x8C73
|
CONSTANT: GL_COMPRESSED_SIGNED_LUMINANCE_ALPHA_LATC2_EXT 0x8C73
|
||||||
|
|
||||||
|
|
|
@ -11,4 +11,3 @@ IN: opengl.gl.gtk
|
||||||
ascii string>alien gdk_gl_get_proc_address ; inline
|
ascii string>alien gdk_gl_get_proc_address ; inline
|
||||||
|
|
||||||
: gl-function-calling-convention ( -- str ) cdecl ; inline
|
: gl-function-calling-convention ( -- str ) cdecl ; inline
|
||||||
|
|
||||||
|
|
|
@ -131,4 +131,3 @@ PREDICATE: gl-program < integer (gl-program?) ;
|
||||||
[ <vertex-shader> check-gl-shader ]
|
[ <vertex-shader> check-gl-shader ]
|
||||||
[ <fragment-shader> check-gl-shader ] bi*
|
[ <fragment-shader> check-gl-shader ] bi*
|
||||||
2array <gl-program> check-gl-program ;
|
2array <gl-program> check-gl-program ;
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: pango.cairo.ffi ;
|
USING: pango.cairo.ffi ;
|
||||||
IN: pango.cairo
|
IN: pango.cairo
|
||||||
|
|
||||||
|
|
|
@ -2,4 +2,3 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: pango.ffi ;
|
USING: pango.ffi ;
|
||||||
IN: pango
|
IN: pango
|
||||||
|
|
||||||
|
|
|
@ -79,4 +79,3 @@ M: mersenne-twister random-32*
|
||||||
[
|
[
|
||||||
default-mersenne-twister random-generator set-global
|
default-mersenne-twister random-generator set-global
|
||||||
] "bootstrap.random" add-startup-hook
|
] "bootstrap.random" add-startup-hook
|
||||||
|
|
||||||
|
|
|
@ -96,4 +96,3 @@ PRIVATE>
|
||||||
|
|
||||||
: unrolled-map-index ( seq len quot: ( x i -- newx ) -- newseq )
|
: unrolled-map-index ( seq len quot: ( x i -- newx ) -- newseq )
|
||||||
[ dup length iota ] 2dip unrolled-2map ; inline
|
[ dup length iota ] 2dip unrolled-2map ; inline
|
||||||
|
|
||||||
|
|
|
@ -13,4 +13,3 @@ IN: specialized-arrays.prettyprint
|
||||||
|
|
||||||
M: specialized-array pprint*
|
M: specialized-array pprint*
|
||||||
[ pprint-object ] [ pprint-direct-array ] pprint-c-object ;
|
[ pprint-object ] [ pprint-direct-array ] pprint-c-object ;
|
||||||
|
|
||||||
|
|
|
@ -185,4 +185,3 @@ M: object apply-object push-literal ;
|
||||||
word effect variables branches n declare-effect-d
|
word effect variables branches n declare-effect-d
|
||||||
] when*
|
] when*
|
||||||
] each-index ;
|
] each-index ;
|
||||||
|
|
||||||
|
|
|
@ -8,4 +8,3 @@ HOOK: find-library-file os ( file -- path )
|
||||||
os windows?
|
os windows?
|
||||||
"tools.deploy.libraries.windows"
|
"tools.deploy.libraries.windows"
|
||||||
"tools.deploy.libraries.unix" ? require
|
"tools.deploy.libraries.unix" ? require
|
||||||
|
|
||||||
|
|
|
@ -13,4 +13,3 @@ M: unix find-library-file
|
||||||
{ "/lib" "/usr/lib" "/usr/local/lib" "/opt/local/lib" "resource:" }
|
{ "/lib" "/usr/lib" "/usr/local/lib" "/opt/local/lib" "resource:" }
|
||||||
[ prepend-path ?exists ] with map-find drop
|
[ prepend-path ?exists ] with map-find drop
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
|
|
|
@ -13,4 +13,3 @@ M: windows find-library-file
|
||||||
alien>native-string
|
alien>native-string
|
||||||
] [ FreeLibrary drop ] bi
|
] [ FreeLibrary drop ] bi
|
||||||
] [ f ] if* ;
|
] [ f ] if* ;
|
||||||
|
|
||||||
|
|
|
@ -79,4 +79,3 @@ PRIVATE>
|
||||||
|
|
||||||
hUpdate 0 EndUpdateResource drop
|
hUpdate 0 EndUpdateResource drop
|
||||||
] when ;
|
] when ;
|
||||||
|
|
||||||
|
|
|
@ -37,4 +37,3 @@ PRIVATE>
|
||||||
|
|
||||||
: typed-set-global ( value name type -- )
|
: typed-set-global ( value name type -- )
|
||||||
[ set-global ] (typed-set) ; inline
|
[ set-global ] (typed-set) ; inline
|
||||||
|
|
||||||
|
|
|
@ -263,4 +263,3 @@ cocoa-ui-backend ui-backend set-global
|
||||||
|
|
||||||
M: cocoa-ui-backend ui-backend-available?
|
M: cocoa-ui-backend ui-backend-available?
|
||||||
running.app? ;
|
running.app? ;
|
||||||
|
|
||||||
|
|
|
@ -444,4 +444,3 @@ M: string content-gadget
|
||||||
'[ _ write ] make-pane <scroller>
|
'[ _ write ] make-pane <scroller>
|
||||||
{ 450 100 } >>pref-dim
|
{ 450 100 } >>pref-dim
|
||||||
<wrapper> ;
|
<wrapper> ;
|
||||||
|
|
||||||
|
|
|
@ -242,4 +242,3 @@ PRIVATE>
|
||||||
[ <down-button> f track-add ]
|
[ <down-button> f track-add ]
|
||||||
[ drop <gadget> { 1 1 } >>dim f track-add ]
|
[ drop <gadget> { 1 1 } >>dim f track-add ]
|
||||||
} cleave ;
|
} cleave ;
|
||||||
|
|
||||||
|
|
|
@ -17,4 +17,3 @@ M: image-pen draw-interior
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
M: image-pen pen-pref-dim nip image>> image-dim ;
|
M: image-pen pen-pref-dim nip image>> image-dim ;
|
||||||
|
|
||||||
|
|
|
@ -14,4 +14,3 @@ M: linux utmpx>utmpx-record ( utmpx -- utmpx-record )
|
||||||
[ ut_tv>> timeval>unix-time >>timestamp ]
|
[ ut_tv>> timeval>unix-time >>timestamp ]
|
||||||
[ ut_host>> __UT_HOSTSIZE memory>string >>host ]
|
[ ut_host>> __UT_HOSTSIZE memory>string >>host ]
|
||||||
} cleave ;
|
} cleave ;
|
||||||
|
|
||||||
|
|
|
@ -1568,5 +1568,3 @@ ALIAS: SetNamedSecurityInfo SetNamedSecurityInfoW
|
||||||
! : WmiSetSingleItemW ;
|
! : WmiSetSingleItemW ;
|
||||||
! : Wow64Win32ApiEntry ;
|
! : Wow64Win32ApiEntry ;
|
||||||
! : WriteEncryptedFileRaw ;
|
! : WriteEncryptedFileRaw ;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -100,5 +100,3 @@ ERROR: null-com-release ;
|
||||||
over [ com-release ] curry [ ] cleanup ; inline
|
over [ com-release ] curry [ ] cleanup ; inline
|
||||||
|
|
||||||
DESTRUCTOR: com-release
|
DESTRUCTOR: com-release
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -2030,4 +2030,3 @@ CONSTANT: SCWMI_CLOBBER_SECURITY 0x00000001
|
||||||
FUNCTION: BOOL SetupConfigureWmiFromInfSectionA ( HINF InfHandle, PCSTR SectionName, DWORD Flags ) ;
|
FUNCTION: BOOL SetupConfigureWmiFromInfSectionA ( HINF InfHandle, PCSTR SectionName, DWORD Flags ) ;
|
||||||
FUNCTION: BOOL SetupConfigureWmiFromInfSectionW ( HINF InfHandle, PCWSTR SectionName, DWORD Flags ) ;
|
FUNCTION: BOOL SetupConfigureWmiFromInfSectionW ( HINF InfHandle, PCWSTR SectionName, DWORD Flags ) ;
|
||||||
ALIAS: SetupConfigureWmiFromInfSection SetupConfigureWmiFromInfSectionW
|
ALIAS: SetupConfigureWmiFromInfSection SetupConfigureWmiFromInfSectionW
|
||||||
|
|
||||||
|
|
|
@ -564,4 +564,3 @@ FUNCTION: BOOL D2D1IsMatrixInvertible (
|
||||||
|
|
||||||
FUNCTION: BOOL D2D1InvertMatrix (
|
FUNCTION: BOOL D2D1InvertMatrix (
|
||||||
D2D1_MATRIX_3X2_F* matrix ) ;
|
D2D1_MATRIX_3X2_F* matrix ) ;
|
||||||
|
|
||||||
|
|
|
@ -86,4 +86,3 @@ FUNCTION: HRESULT D3DStripShader (
|
||||||
SIZE_T BytecodeLength,
|
SIZE_T BytecodeLength,
|
||||||
UINT uStripFlags,
|
UINT uStripFlags,
|
||||||
LPD3DBLOB* ppStrippedBlob ) ;
|
LPD3DBLOB* ppStrippedBlob ) ;
|
||||||
|
|
||||||
|
|
|
@ -290,4 +290,3 @@ FUNCTION: HRESULT
|
||||||
FLOAT* pROut,
|
FLOAT* pROut,
|
||||||
FLOAT* pGOut,
|
FLOAT* pGOut,
|
||||||
FLOAT* pBOut ) ;
|
FLOAT* pBOut ) ;
|
||||||
|
|
||||||
|
|
|
@ -366,4 +366,3 @@ FUNCTION: HRESULT
|
||||||
LPD3DXEFFECT pEffect,
|
LPD3DXEFFECT pEffect,
|
||||||
BOOL EnableColorCode,
|
BOOL EnableColorCode,
|
||||||
LPD3DXBUFFER* ppDisassembly ) ;
|
LPD3DXBUFFER* ppDisassembly ) ;
|
||||||
|
|
||||||
|
|
|
@ -157,4 +157,3 @@ FUNCTION: HRESULT D3DXSHEvalHemisphereLight
|
||||||
FUNCTION: HRESULT D3DXSHProjectCubeMap
|
FUNCTION: HRESULT D3DXSHProjectCubeMap
|
||||||
( UINT uOrder, LPDIRECT3DCUBETEXTURE9 pCubeMap,
|
( UINT uOrder, LPDIRECT3DCUBETEXTURE9 pCubeMap,
|
||||||
FLOAT* ROut, FLOAT* GOut, FLOAT* BOut ) ;
|
FLOAT* ROut, FLOAT* GOut, FLOAT* BOut ) ;
|
||||||
|
|
||||||
|
|
|
@ -1217,4 +1217,3 @@ FUNCTION: HRESULT
|
||||||
UINT* pVertDataLength,
|
UINT* pVertDataLength,
|
||||||
UINT* pSCClusterList,
|
UINT* pSCClusterList,
|
||||||
D3DXSHPRTSPLITMESHCLUSTERDATA* pSCData ) ;
|
D3DXSHPRTSPLITMESHCLUSTERDATA* pSCData ) ;
|
||||||
|
|
||||||
|
|
|
@ -434,4 +434,3 @@ STRUCT: D3DXSHADER_STRUCTMEMBERINFO
|
||||||
{ Name DWORD }
|
{ Name DWORD }
|
||||||
{ TypeInfo DWORD } ;
|
{ TypeInfo DWORD } ;
|
||||||
TYPEDEF: D3DXSHADER_STRUCTMEMBERINFO* LPD3DXSHADER_STRUCTMEMBERINFO
|
TYPEDEF: D3DXSHADER_STRUCTMEMBERINFO* LPD3DXSHADER_STRUCTMEMBERINFO
|
||||||
|
|
||||||
|
|
|
@ -851,4 +851,3 @@ MACRO: <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien )
|
||||||
} [ [ rgodf>> free ] uninitialize ] each ;
|
} [ [ rgodf>> free ] uninitialize ] each ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
|
|
|
@ -471,4 +471,3 @@ CONSTANT: XACTENGINE_E_AUDITION_INVALIDDSPINDEX 0x8AC70106
|
||||||
CONSTANT: XACTENGINE_E_AUDITION_MISSINGWAVE 0x8AC70107
|
CONSTANT: XACTENGINE_E_AUDITION_MISSINGWAVE 0x8AC70107
|
||||||
CONSTANT: XACTENGINE_E_AUDITION_CREATEDIRECTORYFAILED 0x8AC70108
|
CONSTANT: XACTENGINE_E_AUDITION_CREATEDIRECTORYFAILED 0x8AC70108
|
||||||
CONSTANT: XACTENGINE_E_AUDITION_INVALIDSESSION 0x8AC70109
|
CONSTANT: XACTENGINE_E_AUDITION_INVALIDSESSION 0x8AC70109
|
||||||
|
|
||||||
|
|
|
@ -63,5 +63,3 @@ COM-INTERFACE: IXAPO IUnknown {A90BC001-E897-E897-55E4-9E4700000000}
|
||||||
COM-INTERFACE: IXAPOParameters IUnknown {A90BC001-E897-E897-55E4-9E4700000001}
|
COM-INTERFACE: IXAPOParameters IUnknown {A90BC001-E897-E897-55E4-9E4700000001}
|
||||||
void SetParameters ( void* pParameters, UINT32 ParameterByteSize )
|
void SetParameters ( void* pParameters, UINT32 ParameterByteSize )
|
||||||
void GetParameters ( void* pParameters, UINT32 ParameterByteSize ) ;
|
void GetParameters ( void* pParameters, UINT32 ParameterByteSize ) ;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -39,4 +39,3 @@ PRIVATE>
|
||||||
|
|
||||||
: wrap-words ( words line-max line-ideal -- lines )
|
: wrap-words ( words line-max line-ideal -- lines )
|
||||||
[ words>elements ] 2dip wrap [ concat ] map! ;
|
[ words>elements ] 2dip wrap [ concat ] map! ;
|
||||||
|
|
||||||
|
|
|
@ -138,4 +138,3 @@ CONSTANT: XI_RawMotion 17
|
||||||
: XI_RawButtonPressMask ( -- n ) XI_RawButtonPress 2^ ; inline
|
: XI_RawButtonPressMask ( -- n ) XI_RawButtonPress 2^ ; inline
|
||||||
: XI_RawButtonReleaseMask ( -- n ) XI_RawButtonRelease 2^ ; inline
|
: XI_RawButtonReleaseMask ( -- n ) XI_RawButtonRelease 2^ ; inline
|
||||||
: XI_RawMotionMask ( -- n ) XI_RawMotion 2^ ; inline
|
: XI_RawMotionMask ( -- n ) XI_RawMotion 2^ ; inline
|
||||||
|
|
||||||
|
|
|
@ -481,4 +481,3 @@ X-FUNCTION: Status XIGetProperty (
|
||||||
uchar** data ) ;
|
uchar** data ) ;
|
||||||
|
|
||||||
X-FUNCTION: void XIFreeDeviceInfo ( XIDeviceInfo* info ) ;
|
X-FUNCTION: void XIFreeDeviceInfo ( XIDeviceInfo* info ) ;
|
||||||
|
|
||||||
|
|
|
@ -14,4 +14,3 @@ IN: x11.xinput2
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
: xi2-available? ( -- ? ) dpy get (xi2-available?) ; inline
|
: xi2-available? ( -- ? ) dpy get (xi2-available?) ; inline
|
||||||
|
|
||||||
|
|
|
@ -1446,4 +1446,3 @@ X-FUNCTION: c-string XSetLocaleModifiers ( c-string modifier_list ) ;
|
||||||
! uncategorized xlib bindings
|
! uncategorized xlib bindings
|
||||||
|
|
||||||
X-FUNCTION: int XQueryKeymap ( Display* display, char[32] keys_return ) ;
|
X-FUNCTION: int XQueryKeymap ( Display* display, char[32] keys_return ) ;
|
||||||
|
|
||||||
|
|
|
@ -82,4 +82,3 @@ IN: xml.autoencoding
|
||||||
{ 0xFE [ skip-utf16be-bom ] }
|
{ 0xFE [ skip-utf16be-bom ] }
|
||||||
[ drop utf8 decode-stream check f ]
|
[ drop utf8 decode-stream check f ]
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
|
|
|
@ -170,4 +170,3 @@ C: <pathname> pathname
|
||||||
M: pathname absolute-path string>> absolute-path ;
|
M: pathname absolute-path string>> absolute-path ;
|
||||||
|
|
||||||
M: pathname <=> [ string>> ] compare ;
|
M: pathname <=> [ string>> ] compare ;
|
||||||
|
|
||||||
|
|
|
@ -128,4 +128,3 @@ SYNTAX: data-map(
|
||||||
|
|
||||||
SYNTAX: data-map!(
|
SYNTAX: data-map!(
|
||||||
parse-data-map-effect \ data-map! suffix! ;
|
parse-data-map-effect \ data-map! suffix! ;
|
||||||
|
|
||||||
|
|
|
@ -452,4 +452,3 @@ SYNTAX: LIBRARY:
|
||||||
scan-token
|
scan-token
|
||||||
[ current-library set ]
|
[ current-library set ]
|
||||||
[ set-fortran-abi ] bi ;
|
[ set-fortran-abi ] bi ;
|
||||||
|
|
||||||
|
|
|
@ -46,4 +46,3 @@ DESTRUCTOR: release-alien-handle
|
||||||
alien-address release-alien-handle ; inline
|
alien-address release-alien-handle ; inline
|
||||||
|
|
||||||
DESTRUCTOR: release-alien-handle-ptr
|
DESTRUCTOR: release-alien-handle-ptr
|
||||||
|
|
||||||
|
|
|
@ -41,4 +41,3 @@ CONSTANT: annotation-tags {
|
||||||
annotation-tags [ define-annotation ] each
|
annotation-tags [ define-annotation ] each
|
||||||
|
|
||||||
>>
|
>>
|
||||||
|
|
||||||
|
|
|
@ -21,4 +21,3 @@ ERROR: format-unsupported-by-openal audio ;
|
||||||
{ { 2 16 } [ drop AL_FORMAT_STEREO16 ] }
|
{ { 2 16 } [ drop AL_FORMAT_STEREO16 ] }
|
||||||
[ drop format-unsupported-by-openal ]
|
[ drop format-unsupported-by-openal ]
|
||||||
} case ;
|
} case ;
|
||||||
|
|
||||||
|
|
|
@ -25,4 +25,3 @@ ERROR: invalid-audio-file ;
|
||||||
|
|
||||||
: check-chunk ( chunk id class -- ? )
|
: check-chunk ( chunk id class -- ? )
|
||||||
heap-size [ id= ] [ [ length ] dip >= ] bi-curry* bi and ; inline
|
heap-size [ id= ] [ [ length ] dip >= ] bi-curry* bi and ; inline
|
||||||
|
|
||||||
|
|
|
@ -341,4 +341,3 @@ M: streaming-audio-clip dispose*
|
||||||
[ update-listener ]
|
[ update-listener ]
|
||||||
[ clips>> clone [ update-audio-clip ] each ]
|
[ clips>> clone [ update-audio-clip ] each ]
|
||||||
} cleave ;
|
} cleave ;
|
||||||
|
|
||||||
|
|
|
@ -22,4 +22,3 @@ SYMBOL: loop-max
|
||||||
20,000 [ outer-loop ] [ loop-max get-global assert= ] bi ;
|
20,000 [ outer-loop ] [ loop-max get-global assert= ] bi ;
|
||||||
|
|
||||||
MAIN: timers-benchmark
|
MAIN: timers-benchmark
|
||||||
|
|
||||||
|
|
|
@ -137,4 +137,3 @@ PRIVATE>
|
||||||
#! requires patched bitcoind
|
#! requires patched bitcoind
|
||||||
:: list-transactions ( count include-generated -- seq )
|
:: list-transactions ( count include-generated -- seq )
|
||||||
"listtransactions" { count include-generated } bitcoin-request ;
|
"listtransactions" { count include-generated } bitcoin-request ;
|
||||||
|
|
||||||
|
|
|
@ -155,4 +155,3 @@ M: range-observer model-changed
|
||||||
MAIN-WINDOW: boids { { title "Boids" } }
|
MAIN-WINDOW: boids { { title "Boids" } }
|
||||||
create-gadgets
|
create-gadgets
|
||||||
>>gadgets ;
|
>>gadgets ;
|
||||||
|
|
||||||
|
|
|
@ -85,4 +85,3 @@ CONSTANT: T_Binary_Bytes_Deprecated 0x2
|
||||||
CONSTANT: T_Binary_UUID 0x3
|
CONSTANT: T_Binary_UUID 0x3
|
||||||
CONSTANT: T_Binary_MD5 0x5
|
CONSTANT: T_Binary_MD5 0x5
|
||||||
CONSTANT: T_Binary_Custom 0x80
|
CONSTANT: T_Binary_Custom 0x80
|
||||||
|
|
||||||
|
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue