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
Doug Coleman 2015-06-29 16:43:15 -07:00
parent 2c08e9a089
commit 352e5de16a
719 changed files with 13131 additions and 13380 deletions

View File

@ -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

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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? ;

View File

@ -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

View File

@ -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) ;

View File

@ -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 ) ;

View File

@ -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 ;

View File

@ -41,4 +41,3 @@ FUNCTION: CFTypeRef CFRetain ( CFTypeRef cf ) ;
FUNCTION: void CFRelease ( CFTypeRef cf ) ; FUNCTION: void CFRelease ( CFTypeRef cf ) ;
DESTRUCTOR: CFRelease DESTRUCTOR: CFRelease

View File

@ -51,5 +51,3 @@ FUNCTION: CFTimeInterval CFRunLoopTimerGetInterval (
FUNCTION: CFAbsoluteTime CFRunLoopTimerGetNextFireDate ( FUNCTION: CFAbsoluteTime CFRunLoopTimerGetNextFireDate (
CFRunLoopTimerRef timer CFRunLoopTimerRef timer
) ; ) ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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 ;

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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"

View File

@ -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" } } ;

View File

@ -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

View File

@ -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 ;

View File

@ -161,4 +161,3 @@ TUPLE: mach-error-state error-code error-string ;
IORegistryEntryCreateCFProperties mach-error IORegistryEntryCreateCFProperties mach-error
] ]
keep void* deref ; keep void* deref ;

View File

@ -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 >>

View File

@ -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

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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! ;

View File

@ -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 ? ;

View File

@ -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* ;

View File

@ -20,4 +20,3 @@ SYMBOL: G-world
SYNTAX: GB SYNTAX: GB
\ gl-break suffix! ; \ gl-break suffix! ;

View File

@ -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

View File

@ -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

View File

@ -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 ;

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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

View File

@ -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 ;

View File

@ -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* ;

View File

@ -79,4 +79,3 @@ PRIVATE>
hUpdate 0 EndUpdateResource drop hUpdate 0 EndUpdateResource drop
] when ; ] when ;

View File

@ -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

View File

@ -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? ;

View File

@ -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> ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -1568,5 +1568,3 @@ ALIAS: SetNamedSecurityInfo SetNamedSecurityInfoW
! : WmiSetSingleItemW ; ! : WmiSetSingleItemW ;
! : Wow64Win32ApiEntry ; ! : Wow64Win32ApiEntry ;
! : WriteEncryptedFileRaw ; ! : WriteEncryptedFileRaw ;

View File

@ -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

View File

@ -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

View File

@ -564,4 +564,3 @@ FUNCTION: BOOL D2D1IsMatrixInvertible (
FUNCTION: BOOL D2D1InvertMatrix ( FUNCTION: BOOL D2D1InvertMatrix (
D2D1_MATRIX_3X2_F* matrix ) ; D2D1_MATRIX_3X2_F* matrix ) ;

View File

@ -86,4 +86,3 @@ FUNCTION: HRESULT D3DStripShader (
SIZE_T BytecodeLength, SIZE_T BytecodeLength,
UINT uStripFlags, UINT uStripFlags,
LPD3DBLOB* ppStrippedBlob ) ; LPD3DBLOB* ppStrippedBlob ) ;

View File

@ -290,4 +290,3 @@ FUNCTION: HRESULT
FLOAT* pROut, FLOAT* pROut,
FLOAT* pGOut, FLOAT* pGOut,
FLOAT* pBOut ) ; FLOAT* pBOut ) ;

View File

@ -366,4 +366,3 @@ FUNCTION: HRESULT
LPD3DXEFFECT pEffect, LPD3DXEFFECT pEffect,
BOOL EnableColorCode, BOOL EnableColorCode,
LPD3DXBUFFER* ppDisassembly ) ; LPD3DXBUFFER* ppDisassembly ) ;

View File

@ -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 ) ;

View File

@ -1217,4 +1217,3 @@ FUNCTION: HRESULT
UINT* pVertDataLength, UINT* pVertDataLength,
UINT* pSCClusterList, UINT* pSCClusterList,
D3DXSHPRTSPLITMESHCLUSTERDATA* pSCData ) ; D3DXSHPRTSPLITMESHCLUSTERDATA* pSCData ) ;

View File

@ -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

View File

@ -851,4 +851,3 @@ MACRO: <DIDATAFORMAT> ( dwFlags dwDataSize struct rgodf-array -- alien )
} [ [ rgodf>> free ] uninitialize ] each ; } [ [ rgodf>> free ] uninitialize ] each ;
PRIVATE> PRIVATE>

View File

@ -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

View File

@ -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 ) ;

View File

@ -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! ;

View File

@ -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

View File

@ -481,4 +481,3 @@ X-FUNCTION: Status XIGetProperty (
uchar** data ) ; uchar** data ) ;
X-FUNCTION: void XIFreeDeviceInfo ( XIDeviceInfo* info ) ; X-FUNCTION: void XIFreeDeviceInfo ( XIDeviceInfo* info ) ;

View File

@ -14,4 +14,3 @@ IN: x11.xinput2
} case ; } case ;
: xi2-available? ( -- ? ) dpy get (xi2-available?) ; inline : xi2-available? ( -- ? ) dpy get (xi2-available?) ; inline

View File

@ -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 ) ;

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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! ;

View File

@ -452,4 +452,3 @@ SYNTAX: LIBRARY:
scan-token scan-token
[ current-library set ] [ current-library set ]
[ set-fortran-abi ] bi ; [ set-fortran-abi ] bi ;

View File

@ -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

View File

@ -41,4 +41,3 @@ CONSTANT: annotation-tags {
annotation-tags [ define-annotation ] each annotation-tags [ define-annotation ] each
>> >>

View File

@ -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 ;

View File

@ -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

View File

@ -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 ;

View File

@ -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

View File

@ -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 ;

View File

@ -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 ;

View File

@ -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