steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/alien/libraries/unix/unix.factor

15 lines
386 B
Factor
Raw Normal View History

alien.libraries.unix: break circular dependency on alien.syntax
2011-09-13 12:49:36 -04:00
USING: alien.c-types alien.libraries alien io.encodings.utf8
alien.libraries, compiler.cfg.builder.alien: if `dlopen` fails during `<library>`, call `dlerror` and store the error message in the library object; put the dlerror message in the linkage-error when a word from the library is compiled
2011-09-13 02:06:08 -04:00
io.pathnames system ;
alien.libraries, compiler.cfg.builder.alien: include the result of dlerror/GetLastError in the linkage-error for missing symbols
2011-09-12 15:27:34 -04:00
IN: alien.libraries.unix
alien.libraries.unix: break circular dependency on alien.syntax
2011-09-13 12:49:36 -04:00
: (dlerror) ( -- string )
alien.*: frontend varargs support! #1677 alien-invoke gets an extra parameter indicating if the call uses varargs or not. In 99.9% of the cases, the parameter should be f, but is t if varargs are indicated. E.g : do-printf ( fmt d -- st ) int f "printf" { c-string double } t alien-invoke ;
2016-08-09 19:18:52 -04:00
\ c-string f "dlerror" { } f alien-invoke ; inline
alien.libraries, compiler.cfg.builder.alien: if `dlopen` fails during `<library>`, call `dlerror` and store the error message in the library object; put the dlerror message in the linkage-error when a word from the library is compiled
2011-09-13 02:06:08 -04:00
M: unix dlerror (dlerror) ;
M: unix >deployed-library-path
file-name "$ORIGIN" prepend-path ;
M: macosx >deployed-library-path
file-name "@executable_path/../Frameworks" prepend-path ;