get symbols out of a dylib and map the C++ ones to their demangled names

diff --git a/extra/alien/cxx/scaffold/scaffold.factor b/extra/alien/cxx/scaffold/scaffold.factor
new file mode 100644 (file)
index 0000000..603d5d0
--- /dev/null
+++ b/extra/alien/cxx/scaffold/scaffold.factor
@@ -0,0 +1,15 @@
+! (c)2010 Joe Groff bsd license
+USING: alien.cxx.demangle assocs combinators fry io.pathnames
+kernel macho sequences ;
+IN: alien.cxx.scaffold
+
+: library-symbols ( file -- symbols )
+    dup file-extension {
+        { "dylib" [ dylib-exports ] }
+        { f       [ dylib-exports ] }
+    } case ;
+
+: c++-library-symbols ( file abi -- symbols )
+    [ library-symbols ] dip
+    [ '[ _ c++-symbol? ] filter ]
+    [ '[ dup _ demangle ] H{ } map>assoc ] bi ;