steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.libraries: Add update-library. See #1185

db4
Doug Coleman 2015-06-16 18:41:47 -07:00
parent 7a01694124
commit 5908f301b9
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
basis/alien/libraries/libraries.factor
View File

@ -45,9 +45,11 @@ M: library dispose dll>> [ dispose ] when* ;
: remove-library ( name -- ) : remove-library ( name -- )
libraries get delete-at* [ dispose ] [ drop ] if ; libraries get delete-at* [ dispose ] [ drop ] if ;
: same-library? ( library path abi -- ? )
[ swap path>> = ] [ swap abi>> = ] bi-curry* bi and ;
: add-library? ( name path abi -- ? ) : add-library? ( name path abi -- ? )
[ lookup-library ] 2dip [ lookup-library ] 2dip '[ _ _ same-library? not ] [ t ] if* ;
'[ [ path>> _ = ] [ abi>> _ = ] bi and not ] [ t ] if* ;
: add-library ( name path abi -- ) : add-library ( name path abi -- )
3dup add-library? [ 3dup add-library? [
@ -56,6 +58,19 @@ M: library dispose dll>> [ dispose ] when* ;
[ 2drop libraries get set-at ] 3tri [ 2drop libraries get set-at ] 3tri
] [ 3drop ] if ; ] [ 3drop ] if ;
: change-dll ( library path abi -- )
swap >>abi
swap >>path
[ dispose ]
[ path>> open-dll ]
[ swap >>dlerror swap >>dll drop ] tri ;
: update-library ( name path abi -- )
pick lookup-library [
[ 2over same-library? not ] keep swap
[ change-dll drop ] [ 4drop ] if
] [ add-library ] if* ;
: library-abi ( library -- abi ) : library-abi ( library -- abi )
lookup-library [ abi>> ] [ cdecl ] if* ; lookup-library [ abi>> ] [ cdecl ] if* ;