factor: LIBRARY: -> library:
parent
c998f64bef
commit
048703d6ce
|
@ -10,7 +10,7 @@ in: io.files.trash.windows
|
|||
|
||||
<PRIVATE
|
||||
|
||||
LIBRARY: shell32
|
||||
library: shell32
|
||||
|
||||
TYPEDEF: WORD FILEOP_FLAGS ;
|
||||
|
||||
|
|
|
@ -236,7 +236,7 @@ ARTICLE: "reading-writing-memory" "Reading and writing memory directly"
|
|||
ARTICLE: "alien-invoke" "Calling C from Factor"
|
||||
"The easiest way to call into a C library is to define bindings using a pair of parsing words:"
|
||||
{ $subsections
|
||||
postpone: LIBRARY:
|
||||
postpone: library:
|
||||
postpone: FUNCTION:
|
||||
postpone: FUNCTION-ALIAS:
|
||||
}
|
||||
|
|
|
@ -44,7 +44,7 @@ HELP: load-library
|
|||
|
||||
HELP: add-library
|
||||
{ $values { "name" string } { "path" string } { "abi" "one of " { $link cdecl } " or " { $link stdcall } } }
|
||||
{ $description "Defines a new logical library named " { $snippet "name" } " located in the file system at " { $snippet "path" } " and the specified ABI. You can find the location of the library via words in " { $vocab-link "alien.libraries.finder" } ". The logical library name can then be used by a " { $link postpone: LIBRARY: } " form to specify the logical library for subsequent " { $link postpone: FUNCTION: } " definitions." }
|
||||
{ $description "Defines a new logical library named " { $snippet "name" } " located in the file system at " { $snippet "path" } " and the specified ABI. You can find the location of the library via words in " { $vocab-link "alien.libraries.finder" } ". The logical library name can then be used by a " { $link postpone: library: } " form to specify the logical library for subsequent " { $link postpone: FUNCTION: } " definitions." }
|
||||
{ $notes "Because the entire source file is parsed before top-level forms are executed, " { $link add-library } " must be placed within a " { $snippet "<< ... >>" } " parse-time evaluation block."
|
||||
$nl
|
||||
"This ensures that if the logical library is later used in the same file, for example by a " { $link postpone: FUNCTION: } " definition. Otherwise, the " { $link add-library } " call will happen too late, after compilation, and the C function calls will not refer to the correct library."
|
||||
|
|
|
@ -6,7 +6,7 @@ in: atk.ffi
|
|||
|
||||
<< "gobject.ffi" require >>
|
||||
|
||||
LIBRARY: atk
|
||||
library: atk
|
||||
|
||||
<< "atk" {
|
||||
{ [ os windows? ] [ "libatk-1.0-0.dll" ] }
|
||||
|
|
|
@ -14,7 +14,7 @@ in: cairo.ffi
|
|||
{ [ os unix? ] [ "libcairo.so" ] }
|
||||
} cond cdecl add-library >>
|
||||
|
||||
LIBRARY: cairo
|
||||
library: cairo
|
||||
|
||||
FUNCTION: int cairo_version ( ) ;
|
||||
FUNCTION: c-string cairo_version_string ( ) ;
|
||||
|
|
|
@ -9,7 +9,7 @@ in: clutter.cally.ffi
|
|||
"clutter.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: clutter.cally
|
||||
library: clutter.cally
|
||||
|
||||
<<
|
||||
"clutter.cally" {
|
||||
|
|
|
@ -8,7 +8,7 @@ in: clutter.cogl.ffi
|
|||
"gobject.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: clutter.cogl
|
||||
library: clutter.cogl
|
||||
|
||||
<<
|
||||
"clutter.cogl" {
|
||||
|
|
|
@ -12,7 +12,7 @@ in: clutter.ffi
|
|||
"clutter.json.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: clutter
|
||||
library: clutter
|
||||
|
||||
<<
|
||||
"clutter" {
|
||||
|
|
|
@ -9,7 +9,7 @@ in: clutter.gtk.ffi
|
|||
"gtk.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: clutter.gtk
|
||||
library: clutter.gtk
|
||||
|
||||
<<
|
||||
"clutter.gtk" {
|
||||
|
|
|
@ -9,7 +9,7 @@ in: clutter.json.ffi
|
|||
"gio.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: clutter.json
|
||||
library: clutter.json
|
||||
|
||||
<<
|
||||
"clutter.json" {
|
||||
|
|
|
@ -6,7 +6,7 @@ destructors io io.encodings.string io.encodings.utf8 kernel locals
|
|||
math math.parser namespaces sequences strings ;
|
||||
in: cuda.demos.hello-world
|
||||
|
||||
CUDA-LIBRARY: hello cuda32 "vocab:cuda/demos/hello-world/hello.ptx"
|
||||
CUDA-library: hello cuda32 "vocab:cuda/demos/hello-world/hello.ptx"
|
||||
|
||||
CUDA-FUNCTION: helloWorld ( char* string-ptr ) ;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@
|
|||
USING: alien.c-types cuda cuda.contexts cuda.libraries cuda.syntax locals ;
|
||||
in: cuda.demos.prefix-sum
|
||||
|
||||
CUDA-LIBRARY: prefix-sum cuda32 "vocab:cuda/demos/prefix-sum/prefix-sum.ptx"
|
||||
CUDA-library: prefix-sum cuda32 "vocab:cuda/demos/prefix-sum/prefix-sum.ptx"
|
||||
|
||||
CUDA-FUNCTION: prefix_sum_block ( uint* in, uint* out, uint n ) ;
|
||||
|
||||
|
|
|
@ -11,7 +11,7 @@ in: cuda.ffi
|
|||
} cond add-library
|
||||
>>
|
||||
|
||||
LIBRARY: cuda
|
||||
library: cuda
|
||||
|
||||
TYPEDEF: uint CUdeviceptr ;
|
||||
TYPEDEF: int CUdevice ;
|
||||
|
|
|
@ -2,7 +2,7 @@
|
|||
USING: alien.c-types alien.syntax cuda.ffi opengl.gl ;
|
||||
in: cuda.gl.ffi
|
||||
|
||||
LIBRARY: cuda
|
||||
library: cuda
|
||||
|
||||
FUNCTION: CUresult cuGLCtxCreate ( CUcontext* pCtx, uint Flags, CUdevice device ) ;
|
||||
FUNCTION: CUresult cuGraphicsGLRegisterBuffer ( CUgraphicsResource* pCudaResource, GLuint buffer, uint Flags ) ;
|
||||
|
|
|
@ -8,7 +8,7 @@ PREDICATE: cuda-function-word < word
|
|||
def>> { [ length 14 = ] [ last \ cuda-invoke eq? ] } 1&& ;
|
||||
|
||||
: pprint-cuda-library ( library -- )
|
||||
[ \ CUDA-LIBRARY: [ text ] pprint-prefix ] when* ;
|
||||
[ \ CUDA-library: [ text ] pprint-prefix ] when* ;
|
||||
|
||||
: pprint-cuda-function ( word quot -- )
|
||||
[
|
||||
|
|
|
@ -4,7 +4,7 @@ USING: alien.parser cuda.libraries fry kernel lexer namespaces
|
|||
parser ;
|
||||
in: cuda.syntax
|
||||
|
||||
SYNTAX: CUDA-LIBRARY:
|
||||
SYNTAX: CUDA-library:
|
||||
scan-token scan-word scan-object
|
||||
'[ _ _ add-cuda-library ]
|
||||
[ current-cuda-library set-global ] bi ;
|
||||
|
|
|
@ -9,7 +9,7 @@ in: curl.ffi
|
|||
{ [ os unix? ] [ "libcurl.so" ] }
|
||||
} cond cdecl add-library >>
|
||||
|
||||
LIBRARY: curl
|
||||
library: curl
|
||||
|
||||
! curl.h
|
||||
|
||||
|
|
|
@ -81,7 +81,7 @@ STRUCT: MEVENT
|
|||
{ x int } { y int } { z int }
|
||||
{ bstate mmask_t } ;
|
||||
|
||||
LIBRARY: curses
|
||||
library: curses
|
||||
|
||||
C-GLOBAL: void* stdscr ;
|
||||
|
||||
|
|
|
@ -6,7 +6,7 @@ alien.libraries.finder alien.syntax combinators kernel system ;
|
|||
|
||||
in: fftw.ffi
|
||||
|
||||
LIBRARY: fftw3
|
||||
library: fftw3
|
||||
|
||||
<< "fftw3" {
|
||||
{ [ os windows? ] [ "libfftw3-3.dll" ] }
|
||||
|
|
|
@ -8,7 +8,7 @@ in: forestdb.ffi
|
|||
|
||||
<< "forestdb" dup find-library cdecl add-library >>
|
||||
|
||||
LIBRARY: forestdb
|
||||
library: forestdb
|
||||
|
||||
! Begin fdb_types.h
|
||||
|
||||
|
|
|
@ -10,7 +10,7 @@ in: freetype
|
|||
{ [ t ] [ drop ] }
|
||||
} cond >>
|
||||
|
||||
LIBRARY: freetype
|
||||
library: freetype
|
||||
|
||||
TYPEDEF: uchar FT_Byte ;
|
||||
TYPEDEF: void* FT_Bytes ;
|
||||
|
|
|
@ -8,7 +8,7 @@ in: gdbm.ffi
|
|||
{ "gdbm" "gdbm3" "libgdbm-3" } find-library-from-list
|
||||
cdecl add-library >>
|
||||
|
||||
LIBRARY: libgdbm
|
||||
library: libgdbm
|
||||
|
||||
C-GLOBAL: c-string gdbm_version ;
|
||||
|
||||
|
|
|
@ -11,7 +11,7 @@ in: gdk.ffi
|
|||
"gdk.pixbuf.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: gdk
|
||||
library: gdk
|
||||
|
||||
<<
|
||||
"gdk" {
|
||||
|
|
|
@ -8,7 +8,7 @@ in: gdk.gl.ffi
|
|||
"gdk.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: gdk.gl
|
||||
library: gdk.gl
|
||||
|
||||
<<
|
||||
"gdk.gl" {
|
||||
|
|
|
@ -8,7 +8,7 @@ in: gdk.pixbuf.ffi
|
|||
|
||||
<< "gio.ffi" require >>
|
||||
|
||||
LIBRARY: gdk.pixbuf
|
||||
library: gdk.pixbuf
|
||||
|
||||
<< "gdk.pixbuf" {
|
||||
{ [ os windows? ] [ "libgdk_pixbuf-2.0-0.dll" ] }
|
||||
|
|
|
@ -6,7 +6,7 @@ in: gio.ffi
|
|||
|
||||
<< "gobject.ffi" require >>
|
||||
|
||||
LIBRARY: gio
|
||||
library: gio
|
||||
|
||||
<< "gio" {
|
||||
{ [ os windows? ] [ "libgio-2.0-0.dll" ] }
|
||||
|
|
|
@ -6,7 +6,7 @@ gobject-introspection.standard-types io.encodings.utf8 kernel
|
|||
system ;
|
||||
in: glib.ffi
|
||||
|
||||
LIBRARY: glib
|
||||
library: glib
|
||||
|
||||
<< "glib" {
|
||||
{ [ os windows? ] [ "libglib-2.0-0.dll" ] }
|
||||
|
|
|
@ -6,7 +6,7 @@ in: gmodule.ffi
|
|||
|
||||
<< "glib.ffi" require >>
|
||||
|
||||
LIBRARY: gmodule
|
||||
library: gmodule
|
||||
|
||||
<< "gmodule" {
|
||||
{ [ os windows? ] [ "libgmodule-2.0-0.dll" ] }
|
||||
|
|
|
@ -9,7 +9,7 @@ in: gobject.ffi
|
|||
<< "glib.ffi" require >>
|
||||
use: glib.ffi
|
||||
|
||||
LIBRARY: gobject
|
||||
library: gobject
|
||||
|
||||
<< "gobject" {
|
||||
{ [ os windows? ] [ "libgobject-2.0-0.dll" ] }
|
||||
|
|
|
@ -8,7 +8,7 @@ in: gstreamer.base.ffi
|
|||
"gstreamer.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: gstreamer.base
|
||||
library: gstreamer.base
|
||||
|
||||
<<
|
||||
"gstreamer.base" {
|
||||
|
|
|
@ -8,7 +8,7 @@ in: gstreamer.controller.ffi
|
|||
"gstreamer.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: gstreamer.controller
|
||||
library: gstreamer.controller
|
||||
|
||||
<<
|
||||
"gstreamer.controller" {
|
||||
|
|
|
@ -10,7 +10,7 @@ in: gstreamer.ffi
|
|||
"gmodule.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: gstreamer
|
||||
library: gstreamer
|
||||
|
||||
<<
|
||||
"gstreamer" {
|
||||
|
|
|
@ -8,7 +8,7 @@ in: gstreamer.net.ffi
|
|||
"gstreamer.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: gstreamer.net
|
||||
library: gstreamer.net
|
||||
|
||||
<<
|
||||
"gstreamer.net" {
|
||||
|
|
|
@ -11,7 +11,7 @@ in: gtk.ffi
|
|||
"gdk.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: gtk
|
||||
library: gtk
|
||||
|
||||
<<
|
||||
"gtk" {
|
||||
|
|
|
@ -9,7 +9,7 @@ in: gtk.gl.ffi
|
|||
"gdk.gl.ffi" require
|
||||
>>
|
||||
|
||||
LIBRARY: gtk.gl
|
||||
library: gtk.gl
|
||||
|
||||
<<
|
||||
"gtk.gl" {
|
||||
|
|
|
@ -12,7 +12,7 @@ in: libtls.ffi
|
|||
c-type: tls_config
|
||||
c-type: tls_ctx
|
||||
|
||||
LIBRARY: libtls
|
||||
library: libtls
|
||||
|
||||
FUNCTION: int tls_init ( ) ;
|
||||
FUNCTION: c-string tls_error ( tls_ctx* ctx ) ;
|
||||
|
|
|
@ -6,7 +6,7 @@ in: libudev
|
|||
|
||||
<< "libudev" "libudev.so" cdecl add-library >>
|
||||
|
||||
LIBRARY: libudev
|
||||
library: libudev
|
||||
|
||||
c-type: udev
|
||||
|
||||
|
|
|
@ -12,7 +12,7 @@ in: libusb
|
|||
{ [ os macosx? ] [ "libusb-1.0.dylib" ] }
|
||||
{ [ os unix? ] [ "libusb-1.0.so" ] }
|
||||
} cond cdecl add-library >>
|
||||
LIBRARY: libusb
|
||||
library: libusb
|
||||
|
||||
: libusb_cpu_to_le16 ( x -- y )
|
||||
2 >native-endian le> ; inline
|
||||
|
|
|
@ -11,7 +11,7 @@ in: lua
|
|||
{ [ os unix? ] [ "liblua5.1.so" ] }
|
||||
} cond cdecl add-library >>
|
||||
|
||||
LIBRARY: liblua5.1
|
||||
library: liblua5.1
|
||||
|
||||
! luaconf.h
|
||||
TYPEDEF: double LUA_NUMBER ;
|
||||
|
|
|
@ -23,7 +23,7 @@ in: ogg
|
|||
"ogg" deploy-library
|
||||
>>
|
||||
|
||||
LIBRARY: ogg
|
||||
library: ogg
|
||||
|
||||
STRUCT: oggpack-buffer
|
||||
{ endbyte long }
|
||||
|
|
|
@ -109,7 +109,7 @@ STRUCT: th-huff-code
|
|||
{ nbits int }
|
||||
;
|
||||
|
||||
LIBRARY: theoradec
|
||||
library: theoradec
|
||||
FUNCTION: c-string th_version_string ( ) ;
|
||||
FUNCTION: uint th_version_number ( ) ;
|
||||
FUNCTION: longlong th_granule_frame ( void* encdec, longlong granpos ) ;
|
||||
|
@ -144,7 +144,7 @@ CONSTANT: TH-RATECTL-CAP-UNDERFOW 4 ;
|
|||
|
||||
TYPEDEF: void* th-enc-ctx ;
|
||||
|
||||
LIBRARY: theoraenc
|
||||
library: theoraenc
|
||||
FUNCTION: th-enc-ctx* th_encode_alloc ( th-info* info ) ;
|
||||
FUNCTION: int th_encode_ctl ( th-enc-ctx* enc, int req, void* buf, int buf_sz ) ;
|
||||
FUNCTION: int th_encode_flushheader ( th-enc-ctx* enc, th-comment* comments, ogg-packet* op ) ;
|
||||
|
@ -171,7 +171,7 @@ STRUCT: th-stripe-callback
|
|||
TYPEDEF: void* th-dec-ctx ;
|
||||
TYPEDEF: void* th-setup-info ;
|
||||
|
||||
LIBRARY: theoradec
|
||||
library: theoradec
|
||||
FUNCTION: int th_decode_headerin ( th-info* info, th-comment* tc, th-setup-info** setup, ogg-packet* op ) ;
|
||||
FUNCTION: th-dec-ctx* th_decode_alloc ( th-info* info, th-setup-info* setup ) ;
|
||||
FUNCTION: void th_setup_free ( th-setup-info* setup ) ;
|
||||
|
|
|
@ -24,7 +24,7 @@ in: ogg.vorbis
|
|||
"vorbis" deploy-library
|
||||
>>
|
||||
|
||||
LIBRARY: vorbis
|
||||
library: vorbis
|
||||
|
||||
STRUCT: vorbis-info
|
||||
{ version int }
|
||||
|
|
|
@ -18,7 +18,7 @@ in: openal.alut
|
|||
|
||||
<< os macosx? [ "alut" deploy-library ] unless >>
|
||||
|
||||
LIBRARY: alut
|
||||
library: alut
|
||||
|
||||
CONSTANT: ALUT_API_MAJOR_VERSION 1 ;
|
||||
CONSTANT: ALUT_API_MINOR_VERSION 1 ;
|
||||
|
|
|
@ -4,7 +4,7 @@ USING: alien.c-types alien.data kernel alien alien.syntax shuffle
|
|||
openal openal.alut.backend namespaces system generalizations ;
|
||||
in: openal.alut.macosx
|
||||
|
||||
LIBRARY: alut
|
||||
library: alut
|
||||
|
||||
FUNCTION: void alutLoadWAVFile ( c-string fileName, ALenum* format, void** data, ALsizei* size, ALsizei* frequency ) ;
|
||||
|
||||
|
|
|
@ -4,7 +4,7 @@ USING: alien.c-types alien.data alien.syntax combinators
|
|||
generalizations kernel openal openal.alut.backend ;
|
||||
in: openal.alut.other
|
||||
|
||||
LIBRARY: alut
|
||||
library: alut
|
||||
|
||||
FUNCTION: void alutLoadWAVFile ( c-string fileName, ALenum* format, void** data, ALsizei* size, ALsizei* frequency, ALboolean* looping ) ;
|
||||
|
||||
|
|
|
@ -19,7 +19,7 @@ in: openal
|
|||
|
||||
<< os unix? [ "openal" deploy-library ] unless >>
|
||||
|
||||
LIBRARY: openal
|
||||
library: openal
|
||||
|
||||
TYPEDEF: char ALboolean ;
|
||||
TYPEDEF: char ALchar ;
|
||||
|
|
|
@ -10,7 +10,7 @@ in: opencl.ffi
|
|||
{ [ os macosx? ] [ "/System/Library/Frameworks/OpenCL.framework/OpenCL" cdecl ] }
|
||||
{ [ os unix? ] [ "libOpenCL.so" cdecl ] }
|
||||
} cond add-library >>
|
||||
LIBRARY: opencl
|
||||
library: opencl
|
||||
|
||||
! cl_platform.h
|
||||
TYPEDEF: char cl_char ;
|
||||
|
|
|
@ -625,7 +625,7 @@ CONSTANT: GL_CLIENT_VERTEX_ARRAY_BIT 0x00000002 ;
|
|||
CONSTANT: GL_ALL_CLIENT_ATTRIB_BITS 0xFFFFFFFF ;
|
||||
CONSTANT: GL_CLIENT_ALL_ATTRIB_BITS 0xFFFFFFFF ;
|
||||
|
||||
LIBRARY: gl
|
||||
library: gl
|
||||
|
||||
<<
|
||||
os linux? [
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
USING: alien alien.c-types alien.syntax kernel windows.types ;
|
||||
in: opengl.gl.windows
|
||||
|
||||
LIBRARY: gl
|
||||
library: gl
|
||||
|
||||
FUNCTION: HGLRC wglGetCurrentContext ( ) ;
|
||||
FUNCTION: void* wglGetProcAddress ( c-string name ) ;
|
||||
|
|
|
@ -14,7 +14,7 @@ os {
|
|||
|
||||
>>
|
||||
|
||||
LIBRARY: glu
|
||||
library: glu
|
||||
|
||||
! These are defined as structs in glu.h, but we only ever use pointers to them
|
||||
c-type: GLUnurbs
|
||||
|
@ -202,7 +202,7 @@ CONSTANT: GLU_TESS_WINDING_POSITIVE 100132 ;
|
|||
CONSTANT: GLU_TESS_WINDING_NEGATIVE 100133 ;
|
||||
CONSTANT: GLU_TESS_WINDING_ABS_GEQ_TWO 100134 ;
|
||||
|
||||
LIBRARY: glu
|
||||
library: glu
|
||||
|
||||
FUNCTION: void gluBeginCurve ( GLUnurbs* nurb ) ;
|
||||
FUNCTION: void gluBeginPolygon ( GLUtesselator* tess ) ;
|
||||
|
|
|
@ -46,7 +46,7 @@ CONSTANT: BIO_C_SET_FILENAME 108 ;
|
|||
CONSTANT: BIO_C_SET_SSL 109 ;
|
||||
CONSTANT: BIO_C_GET_SSL 110 ;
|
||||
|
||||
LIBRARY: libcrypto
|
||||
library: libcrypto
|
||||
|
||||
! ===============================================
|
||||
! crypto.h
|
||||
|
|
|
@ -183,7 +183,7 @@ CONSTANT: SSL_ERROR_WANT_ACCEPT 8 ;
|
|||
c-type: SSL_CTX
|
||||
c-type: SSL_SESSION
|
||||
|
||||
LIBRARY: libssl
|
||||
library: libssl
|
||||
|
||||
! ===============================================
|
||||
! stack.h
|
||||
|
|
|
@ -6,7 +6,7 @@ in: pango.cairo.ffi
|
|||
|
||||
<< "pango.ffi" require >>
|
||||
|
||||
LIBRARY: pango.cairo
|
||||
library: pango.cairo
|
||||
|
||||
<< "pango.cairo" {
|
||||
{ [ os windows? ] [ "libpangocairo-1.0-0.dll" ] }
|
||||
|
|
|
@ -7,7 +7,7 @@ in: pango.ffi
|
|||
|
||||
<< "gobject.ffi" require >>
|
||||
|
||||
LIBRARY: pango
|
||||
library: pango
|
||||
|
||||
<< "pango" {
|
||||
{ [ os windows? ] [ "libpango-1.0-0.dll" ] }
|
||||
|
|
|
@ -14,7 +14,7 @@ in: pcre.ffi
|
|||
{ [ os unix? ] [ "libpcre.so" ] }
|
||||
} cond cdecl add-library >>
|
||||
|
||||
LIBRARY: pcre
|
||||
library: pcre
|
||||
|
||||
CONSTANT: PCRE_CASELESS 0x00000001 ;
|
||||
CONSTANT: PCRE_MULTILINE 0x00000002 ;
|
||||
|
|
|
@ -11,7 +11,7 @@ cdecl add-library >>
|
|||
! Functions that return borrowed references needs to be called like this:
|
||||
! Py_Func dup Py_IncRef &Py_DecRef
|
||||
|
||||
LIBRARY: python
|
||||
library: python
|
||||
|
||||
c-type: PyObject
|
||||
|
||||
|
|
|
@ -11,7 +11,7 @@ in: readline.ffi
|
|||
{ [ os unix? ] [ "libreadline.so" ] }
|
||||
} cond cdecl add-library >>
|
||||
|
||||
LIBRARY: readline
|
||||
library: readline
|
||||
|
||||
TYPEDEF: void* histdata_t ;
|
||||
|
||||
|
|
|
@ -51,7 +51,7 @@ M: macosx os-version
|
|||
|
||||
! See /usr/include/sys/sysctl.h for constants
|
||||
|
||||
LIBRARY: libc
|
||||
library: libc
|
||||
FUNCTION: int sysctl ( int* name, uint namelen, void* oldp, size_t* oldlenp, void* newp, size_t newlen ) ;
|
||||
|
||||
: (sysctl-query) ( name namelen oldp oldlenp -- oldp )
|
||||
|
|
|
@ -48,7 +48,7 @@ CONSTANT: SHUT_RD 0 ;
|
|||
CONSTANT: SHUT_WR 1 ;
|
||||
CONSTANT: SHUT_RDWR 2 ;
|
||||
|
||||
LIBRARY: libc
|
||||
library: libc
|
||||
|
||||
STRUCT: group
|
||||
{ gr_name c-string }
|
||||
|
|
|
@ -2,7 +2,7 @@ USING: alien.c-types alien.syntax classes.struct kernel
|
|||
literals math math.bitwise windows.kernel32 windows.types ;
|
||||
in: windows.advapi32
|
||||
|
||||
LIBRARY: advapi32
|
||||
library: advapi32
|
||||
|
||||
CONSTANT: MS_DEF_DH_SCHANNEL_PROV "Microsoft DH Schannel Cryptographic Provider" ;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.ole32 windows.types continuations kernel alien.syntax
|
|||
libc destructors accessors alien.data classes.struct windows.kernel32 ;
|
||||
in: windows.com
|
||||
|
||||
LIBRARY: ole32
|
||||
library: ole32
|
||||
|
||||
COM-INTERFACE: IUnknown f {00000000-0000-0000-C000-000000000046}
|
||||
HRESULT QueryInterface ( REFGUID iid, void** ppvObject )
|
||||
|
|
|
@ -4,7 +4,7 @@ USING: alien.syntax classes.struct windows.kernel32
|
|||
windows.types ;
|
||||
in: windows.crypt32
|
||||
|
||||
LIBRARY: crypt32
|
||||
library: crypt32
|
||||
|
||||
TYPEDEF: HANDLE HCERTSTORE ;
|
||||
TYPEDEF: ULONG_PTR HCRYPTPROV ;
|
||||
|
|
|
@ -5,7 +5,7 @@ classes.struct kernel math windows.types windows.ole32 ;
|
|||
in: windows.ddk.hid
|
||||
|
||||
<< "hid" "hid.dll" stdcall add-library >>
|
||||
LIBRARY: hid
|
||||
library: hid
|
||||
|
||||
TYPEDEF: LONG NTSTATUS ;
|
||||
TYPEDEF: USHORT USAGE ;
|
||||
|
|
|
@ -6,7 +6,7 @@ windows.advapi32 alien.libraries ;
|
|||
in: windows.ddk.setupapi
|
||||
|
||||
<< "setupapi" "setupapi.dll" stdcall add-library >>
|
||||
LIBRARY: setupapi
|
||||
library: setupapi
|
||||
|
||||
TYPEDEF: DWORDLONG SP_LOG_TOKEN ;
|
||||
TYPEDEF: DWORDLONG* PSP_LOG_TOKEN ;
|
||||
|
|
|
@ -5,7 +5,7 @@ windows.kernel32 windows.types alien.libraries ;
|
|||
in: windows.ddk.winusb
|
||||
|
||||
<< "winusb" "winusb.dll" stdcall add-library >>
|
||||
LIBRARY: winusb
|
||||
library: winusb
|
||||
|
||||
TYPEDEF: PVOID WINUSB_INTERFACE_HANDLE ;
|
||||
TYPEDEF: WINUSB_INTERFACE_HANDLE* PWINUSB_INTERFACE_HANDLE ;
|
||||
|
|
|
@ -4,7 +4,7 @@ windows.directx.dcommon windows.directx.dxgi windows.directx.dxgiformat
|
|||
windows.ole32 windows.types ;
|
||||
in: windows.directx.d2d1
|
||||
|
||||
LIBRARY: d2d1
|
||||
library: d2d1
|
||||
|
||||
CONSTANT: D2D1_INVALID_TAG 0xffffffffffffffff ;
|
||||
CONSTANT: D2D1_DEFAULT_FLATTENING_TOLERANCE 0.25 ;
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.directx windows.directx.dxgiformat windows.com.syntax
|
|||
windows.com windows.ole32 windows.directx.dxgitype ;
|
||||
in: windows.directx.d3d10
|
||||
|
||||
LIBRARY: d3d10
|
||||
library: d3d10
|
||||
|
||||
CONSTANT: D3D10_16BIT_INDEX_STRIP_CUT_VALUE 0xffff ;
|
||||
CONSTANT: D3D10_32BIT_INDEX_STRIP_CUT_VALUE 0xffffffff ;
|
||||
|
|
|
@ -4,7 +4,7 @@ windows.directx.d3d10misc windows.directx.dxgi
|
|||
windows.directx.dxgiformat windows.types ;
|
||||
in: windows.directx.d3d10_1
|
||||
|
||||
LIBRARY: d3d10_1
|
||||
library: d3d10_1
|
||||
|
||||
CONSTANT: D3D10_1_DEFAULT_SAMPLE_MASK 0xffffffff ;
|
||||
CONSTANT: D3D10_1_FLOAT16_FUSED_TOLERANCE_IN_ULP 0.6 ;
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.com.syntax windows.directx windows.directx.d3d10
|
|||
windows.directx.d3d10shader windows.types ;
|
||||
in: windows.directx.d3d10_1shader
|
||||
|
||||
LIBRARY: d3d10_1
|
||||
library: d3d10_1
|
||||
|
||||
CONSTANT: D3D10_SHADER_DEBUG_REG_INPUT 0 ;
|
||||
CONSTANT: D3D10_SHADER_DEBUG_REG_OUTPUT 1 ;
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.com.syntax windows.directx windows.directx.d3d10
|
|||
windows.directx.d3d10misc windows.directx.d3d10shader windows.types ;
|
||||
in: windows.directx.d3d10effect
|
||||
|
||||
LIBRARY: d3d10
|
||||
library: d3d10
|
||||
|
||||
CONSTANT: D3D10_DST_SO_BUFFERS 1 ;
|
||||
CONSTANT: D3D10_DST_OM_RENDER_TARGETS 2 ;
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.directx windows.directx.d3d10 windows.directx.dxgi
|
|||
windows.types ;
|
||||
in: windows.directx.d3d10misc
|
||||
|
||||
LIBRARY: d3d10
|
||||
library: d3d10
|
||||
|
||||
c-type: ID3D10Blob
|
||||
TYPEDEF: ID3D10Blob* LPD3D10BLOB ;
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.com.syntax windows.directx.d3d10 windows.directx.d3d10misc
|
|||
windows.types windows.directx ;
|
||||
in: windows.directx.d3d10shader
|
||||
|
||||
LIBRARY: d3d10
|
||||
library: d3d10
|
||||
|
||||
CONSTANT: D3D10_SHADER_DEBUG 1 ;
|
||||
CONSTANT: D3D10_SHADER_SKIP_VALIDATION 2 ;
|
||||
|
|
|
@ -4,7 +4,7 @@ windows.directx.dxgitype windows.directx.dxgi windows.directx.d3dcommon
|
|||
windows.directx ;
|
||||
in: windows.directx.d3d11
|
||||
|
||||
LIBRARY: d3d11
|
||||
library: d3d11
|
||||
|
||||
CONSTANT: D3D11_16BIT_INDEX_STRIP_CUT_VALUE 0xffff ;
|
||||
CONSTANT: D3D11_32BIT_INDEX_STRIP_CUT_VALUE 0xffffffff ;
|
||||
|
|
|
@ -4,7 +4,7 @@ windows.directx.d3d11 windows.com windows.com.syntax
|
|||
windows.directx.d3dcommon ;
|
||||
in: windows.directx.d3d11shader
|
||||
|
||||
LIBRARY: d3d11
|
||||
library: d3d11
|
||||
|
||||
CONSTANT: D3D11_SHVER_PIXEL_SHADER 0 ;
|
||||
CONSTANT: D3D11_SHVER_VERTEX_SHADER 1 ;
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.com.syntax windows.com windows.directx windows.directx.d3d9caps
|
|||
windows.ole32 windows.kernel32 ;
|
||||
in: windows.directx.d3d9
|
||||
|
||||
LIBRARY: d3d9
|
||||
library: d3d9
|
||||
|
||||
CONSTANT: DIRECT3D_VERSION 0x0900 ;
|
||||
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
USING: alien.c-types alien.syntax windows.directx windows.ole32 windows.types ;
|
||||
in: windows.directx.d3dcompiler
|
||||
|
||||
LIBRARY: d3dcompiler
|
||||
library: d3dcompiler
|
||||
|
||||
c-type: D3D_SHADER_MACRO
|
||||
c-type: ID3DBlob
|
||||
|
|
|
@ -2,7 +2,7 @@ USING: alien.c-types alien.syntax classes.struct windows.com windows.com.syntax
|
|||
windows.directx windows.directx.d3d11 windows.types ;
|
||||
in: windows.directx.d3dcsx
|
||||
|
||||
LIBRARY: d3dcsx
|
||||
library: d3dcsx
|
||||
|
||||
CONSTANT: D3DX11_SCAN_DATA_TYPE_FLOAT 1 ;
|
||||
CONSTANT: D3DX11_SCAN_DATA_TYPE_INT 2 ;
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.directx.d3d10misc windows.directx.d3d10shader
|
|||
windows.directx.d3dx10core windows.types ;
|
||||
in: windows.directx.d3dx10async
|
||||
|
||||
LIBRARY: d3dx10
|
||||
library: d3dx10
|
||||
|
||||
c-type: ID3DX10ThreadPump
|
||||
c-type: ID3D10EffectPool
|
||||
|
|
|
@ -4,7 +4,7 @@ windows.directx.d3d10misc windows.directx.d3dx10math
|
|||
windows.directx.dxgi windows.gdi32 windows.types ;
|
||||
in: windows.directx.d3dx10core
|
||||
|
||||
LIBRARY: d3dx10
|
||||
library: d3dx10
|
||||
|
||||
CONSTANT: D3DX10_SDK_VERSION 42 ;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.com.syntax windows.directx windows.directx.d3d10
|
|||
windows.directx.d3d10misc windows.types windows.directx.d3dx10math ;
|
||||
in: windows.directx.d3dx10mesh
|
||||
|
||||
LIBRARY: d3dx10
|
||||
library: d3dx10
|
||||
|
||||
CONSTANT: D3DX10_MESH_32_BIT 1 ;
|
||||
CONSTANT: D3DX10_MESH_GS_ADJACENCY 4 ;
|
||||
|
|
|
@ -4,7 +4,7 @@ windows.directx.d3dx10async windows.directx.dxgiformat
|
|||
windows.types ;
|
||||
in: windows.directx.d3dx10tex
|
||||
|
||||
LIBRARY: d3dx10
|
||||
library: d3dx10
|
||||
|
||||
CONSTANT: D3DX10_FILTER_NONE 0x00000001 ;
|
||||
CONSTANT: D3DX10_FILTER_POINT 0x00000002 ;
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.directx.d3d10shader windows.directx.d3d11
|
|||
windows.directx.d3dx11core windows.directx.d3dx11tex windows.types ;
|
||||
in: windows.directx.d3dx11async
|
||||
|
||||
LIBRARY: d3dx11
|
||||
library: d3dx11
|
||||
|
||||
FUNCTION: HRESULT D3DX11CompileFromFileA ( LPCSTR pSrcFile, D3D10_SHADER_MACRO* pDefines, LPD3D10INCLUDE pInclude,
|
||||
LPCSTR pFunctionName, LPCSTR pProfile, UINT Flags1, UINT Flags2, ID3DX11ThreadPump* pPump, ID3D10Blob** ppShader, ID3D10Blob** ppErrorMsgs, HRESULT* pHResult ) ;
|
||||
|
|
|
@ -2,7 +2,7 @@ USING: alien.syntax windows.directx windows.types windows.com.syntax
|
|||
alien.c-types windows.com windows.directx.d3d11 ;
|
||||
in: windows.directx.d3dx11core
|
||||
|
||||
LIBRARY: d3dx11
|
||||
library: d3dx11
|
||||
|
||||
FUNCTION: HRESULT D3DX11CheckVersion ( UINT D3DSdkVersion, UINT D3DX11SdkVersion ) ;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.directx windows.directx.d3d10misc windows.directx.d3d11
|
|||
windows.directx.d3dx11core windows.directx.dxgiformat windows.types ;
|
||||
in: windows.directx.d3dx11tex
|
||||
|
||||
LIBRARY: d3dx11
|
||||
library: d3dx11
|
||||
|
||||
CONSTANT: D3DX11_FILTER_NONE 0x00000001 ;
|
||||
CONSTANT: D3DX11_FILTER_POINT 0x00000002 ;
|
||||
|
|
|
@ -5,7 +5,7 @@ windows.directx.d3dx9mesh windows.directx.d3dx9xof
|
|||
windows.types ;
|
||||
in: windows.directx.d3dx9anim
|
||||
|
||||
LIBRARY: d3dx9
|
||||
library: d3dx9
|
||||
|
||||
TYPEDEF: int D3DXMESHDATATYPE ;
|
||||
CONSTANT: D3DXMESHTYPE_MESH 1 ;
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.com windows.directx windows.directx.d3dx9math windows.directx.d3d9types
|
|||
classes.struct windows.gdi32 ;
|
||||
in: windows.directx.d3dx9core
|
||||
|
||||
LIBRARY: d3dx9
|
||||
library: d3dx9
|
||||
|
||||
CONSTANT: D3DX_VERSION 0x0902 ;
|
||||
CONSTANT: D3DX_SDK_VERSION 42 ;
|
||||
|
|
|
@ -5,7 +5,7 @@ windows.directx.d3dx9math windows.directx.d3dx9shader
|
|||
windows.types ;
|
||||
in: windows.directx.d3dx9effect
|
||||
|
||||
LIBRARY: d3dx9
|
||||
library: d3dx9
|
||||
|
||||
CONSTANT: D3DXFX_DONOTSAVESTATE 1 ;
|
||||
CONSTANT: D3DXFX_DONOTSAVESHADERSTATE 2 ;
|
||||
|
|
|
@ -2,7 +2,7 @@ USING: math classes.struct windows.types alien.syntax windows.directx.d3d9types
|
|||
windows.com.syntax windows.com windows.directx windows.directx.d3d9 ;
|
||||
in: windows.directx.d3dx9math
|
||||
|
||||
LIBRARY: d3dx9
|
||||
library: d3dx9
|
||||
|
||||
CONSTANT: D3DX_PI 3.141592654 ;
|
||||
CONSTANT: D3DX_1BYPI 0.318309886 ;
|
||||
|
|
|
@ -4,7 +4,7 @@ windows.directx.d3d9 windows.directx.d3dx9core windows.directx.d3dx9math
|
|||
windows.directx.d3dx9xof ;
|
||||
in: windows.directx.d3dx9mesh
|
||||
|
||||
LIBRARY: d3dx9
|
||||
library: d3dx9
|
||||
|
||||
TYPEDEF: int D3DXPATCHMESHTYPE ;
|
||||
CONSTANT: D3DXPATCHMESH_RECT 1 ;
|
||||
|
|
|
@ -4,7 +4,7 @@ windows.directx.d3d9 windows.directx.d3dx9core
|
|||
windows.directx.d3dx9math windows.types ;
|
||||
in: windows.directx.d3dx9shader
|
||||
|
||||
LIBRARY: d3dx9
|
||||
library: d3dx9
|
||||
|
||||
: D3DXSHADER_DEBUG ( -- n ) 1 0 shift ; inline
|
||||
: D3DXSHADER_SKIPVALIDATION ( -- n ) 1 1 shift ; inline
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.directx.d3d9 windows.directx.d3dx9core
|
|||
windows.directx.d3dx9mesh windows.types ;
|
||||
in: windows.directx.d3dx9shape
|
||||
|
||||
LIBRARY: d3dx9
|
||||
library: d3dx9
|
||||
|
||||
TYPEDEF: void* LPGLYPHMETRICSFLOAT ;
|
||||
|
||||
|
|
|
@ -4,7 +4,7 @@ windows.directx.d3dx9core windows.directx.d3dx9shader
|
|||
windows.types ;
|
||||
in: windows.directx.d3dx9tex
|
||||
|
||||
LIBRARY: d3dx9
|
||||
library: d3dx9
|
||||
|
||||
: D3DX_FILTER_NONE ( -- n ) 1 0 shift ; inline
|
||||
: D3DX_FILTER_POINT ( -- n ) 2 0 shift ; inline
|
||||
|
|
|
@ -2,7 +2,7 @@ USING: alien.syntax classes.struct windows.com windows.com.syntax
|
|||
windows.directx windows.kernel32 windows.ole32 windows.types ;
|
||||
in: windows.directx.d3dx9xof
|
||||
|
||||
LIBRARY: d3dx9
|
||||
library: d3dx9
|
||||
|
||||
TYPEDEF: DWORD D3DXF_FILEFORMAT ;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ alien alien.c-types alien.syntax kernel system namespaces math
|
|||
classes.struct windows.types windows.directx ;
|
||||
in: windows.directx.dinput
|
||||
|
||||
LIBRARY: dinput
|
||||
library: dinput
|
||||
|
||||
TYPEDEF: DWORD D3DCOLOR ;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.com.syntax windows.directx.dcommon windows.kernel32
|
|||
windows.ole32 windows.types windows.directx ;
|
||||
in: windows.directx.dwrite
|
||||
|
||||
LIBRARY: dwrite
|
||||
library: dwrite
|
||||
|
||||
ENUM: DWRITE_FONT_FILE_TYPE
|
||||
DWRITE_FONT_FILE_TYPE_UNKNOWN
|
||||
|
|
|
@ -2,7 +2,7 @@ USING: alien.syntax alien.c-types classes.struct windows.com
|
|||
windows.com.syntax windows.kernel32 windows.ole32 windows.types ;
|
||||
in: windows.directx.dxfile
|
||||
|
||||
LIBRARY: d3dxof
|
||||
library: d3dxof
|
||||
|
||||
TYPEDEF: DWORD DXFILEFORMAT ;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.directx.dxgiformat windows.directx.dxgitype windows.kernel32
|
|||
windows.ole32 windows.types windows.directx ;
|
||||
in: windows.directx.dxgi
|
||||
|
||||
LIBRARY: dxgi
|
||||
library: dxgi
|
||||
|
||||
CONSTANT: DXGI_CPU_ACCESS_NONE 0 ;
|
||||
CONSTANT: DXGI_CPU_ACCESS_DYNAMIC 1 ;
|
||||
|
|
|
@ -2,7 +2,7 @@ USING: alien.c-types alien.syntax classes.struct windows.directx
|
|||
windows.directx.d3dx10math windows.types ;
|
||||
in: windows.directx.x3daudio
|
||||
|
||||
LIBRARY: x3daudio
|
||||
library: x3daudio
|
||||
|
||||
CONSTANT: X3DAUDIO_HANDLE_BYTESIZE 20 ;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ windows.com.syntax windows.directx windows.directx.xaudio2
|
|||
windows.kernel32 windows.types ;
|
||||
in: windows.directx.xact3
|
||||
|
||||
LIBRARY: xactengine
|
||||
library: xactengine
|
||||
|
||||
c-type: IXACT3SoundBank
|
||||
c-type: IXACT3WaveBank
|
||||
|
|
|
@ -2,7 +2,7 @@ USING: alien.c-types alien.syntax classes.struct windows.com
|
|||
windows.directx windows.ole32 windows.types ;
|
||||
in: windows.directx.xapofx
|
||||
|
||||
LIBRARY: xapofx
|
||||
library: xapofx
|
||||
|
||||
CONSTANT: FXEQ_MIN_FRAMERATE 22000 ;
|
||||
CONSTANT: FXEQ_MAX_FRAMERATE 48000 ;
|
||||
|
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue