57 lines
1.2 KiB
Factor
57 lines
1.2 KiB
Factor
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: alien
|
|
USING: hashtables io kernel kernel-internals lists math
|
|
namespaces parser ;
|
|
|
|
DEFER: dll?
|
|
BUILTIN: dll 15 dll? [ 1 "dll-path" f ] ;
|
|
|
|
DEFER: alien?
|
|
BUILTIN: alien 16 alien? ;
|
|
|
|
DEFER: displaced-alien?
|
|
BUILTIN: displaced-alien 20 displaced-alien? ;
|
|
|
|
UNION: c-ptr byte-array alien displaced-alien ;
|
|
|
|
: NULL ( -- null )
|
|
#! C null value.
|
|
0 <alien> ;
|
|
|
|
M: alien hashcode ( obj -- n )
|
|
alien-address >fixnum ;
|
|
|
|
M: alien = ( obj obj -- ? )
|
|
over alien? [
|
|
alien-address swap alien-address =
|
|
] [
|
|
2drop f
|
|
] ifte ;
|
|
|
|
: library ( name -- object )
|
|
dup [ "libraries" get hash ] when ;
|
|
|
|
: load-library ( name -- dll )
|
|
#! Higher level wrapper around dlopen primitive.
|
|
library dup [
|
|
[
|
|
"dll" get dup [
|
|
drop "name" get dlopen dup "dll" set
|
|
] unless
|
|
] bind
|
|
] when ;
|
|
|
|
: add-library ( library name abi -- )
|
|
"libraries" get [
|
|
<namespace> [
|
|
"abi" set
|
|
"name" set
|
|
] extend swap set
|
|
] bind ;
|
|
|
|
: library-abi ( library -- abi )
|
|
library [ [ "abi" get ] bind ] [ "cdecl" ] ifte* ;
|
|
|
|
: ALIEN: scan-word <alien> swons ; parsing
|