| /* |
| * Licensed to the Apache Software Foundation (ASF) under one |
| * or more contributor license agreements. See the NOTICE file |
| * distributed with this work for additional information |
| * regarding copyright ownership. The ASF licenses this file |
| * to you under the Apache License, Version 2.0 (the |
| * "License"); you may not use this file except in compliance |
| * with the License. You may obtain a copy of the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, |
| * software distributed under the License is distributed on an |
| * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| * KIND, either express or implied. See the License for the |
| * specific language governing permissions and limitations |
| * under the License. |
| */ |
| |
| /* $Rev$ $Date$ */ |
| |
| #ifndef tuscany_dlib_hpp |
| #define tuscany_dlib_hpp |
| |
| /** |
| * Simple dynamic library access functions. |
| */ |
| |
| #include <dlfcn.h> |
| |
| #include "function.hpp" |
| #include "gc.hpp" |
| #include "monad.hpp" |
| |
| namespace tuscany { |
| |
| /** |
| * OS specific dynamic library file extension. |
| */ |
| #ifdef IS_DARWIN |
| const string dynlibExt(".dylib"); |
| #else |
| const string dynlibExt(".so"); |
| #endif |
| |
| /** |
| * Represents a reference to a dynamic library. |
| */ |
| class lib { |
| public: |
| lib() : h(NULL), owner(false) { |
| } |
| |
| lib(const string& name) : name(name), h(dlopen(c_str(name), RTLD_NOW)), owner(true) { |
| if (h == NULL) |
| h = mkfailure<void*>(string("Could not load library: ") + name + ": " + dlerror()); |
| } |
| |
| lib(const lib& l) : name(l.name), h(l.h), owner(false) { |
| } |
| |
| ~lib() { |
| if (!owner) |
| return; |
| if (!hasContent(h) || content(h) == NULL) |
| return; |
| dlclose(content(h)); |
| } |
| |
| private: |
| template<typename S> friend const failable<lambda<S> > dynlambda(const string& name, const lib& l); |
| |
| const string name; |
| failable<void*> h; |
| bool owner; |
| }; |
| |
| /** |
| * Find a lambda function in a dynamic library. |
| */ |
| template<typename S> const failable<lambda<S> > dynlambda(const string& name, const lib& l) { |
| if (!hasContent(l.h)) |
| return mkfailure<lambda<S> >(reason(l.h)); |
| const void* s = dlsym(content(l.h), c_str(name)); |
| if (s == NULL) |
| return mkfailure<lambda<S> >(string("Could not load symbol: ") + name); |
| return lambda<S>((S*)s); |
| } |
| |
| } |
| #endif /* tuscany_dlib_hpp */ |