/* * 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_modjava_hpp #define tuscany_modjava_hpp /** * Evaluation functions used by mod-eval to evaluate Java * component implementations. */ #include "string.hpp" #include "stream.hpp" #include "function.hpp" #include "list.hpp" #include "value.hpp" #include "monad.hpp" #include "eval.hpp" #include "../http/httpd.hpp" namespace tuscany { namespace server { namespace modjava { /** * Apply a Java component implementation function. */ struct applyImplementation { java::JavaClass impl; const list px; applyImplementation(const java::JavaClass& impl, const list& px) : impl(impl), px(px) { } const value operator()(const list& params) const { const value expr = append(params, px); debug(expr, "modeval::java::applyImplementation::input"); const failable val = java::evalClass(java::javaRuntime, expr, impl); debug(val, "modeval::java::applyImplementation::result"); if (!hasContent(val)) return mklist(value(), reason(val)); return mklist(content(val)); } }; /** * Evaluate a Java component implementation and convert it to an applicable * lambda function. */ const failable&)> > evalImplementation(const string& path, const value& impl, const list& px) { const string cn(attributeValue("class", impl)); const failable jc = java::readClass(java::javaRuntime, path, cn); if (!hasContent(jc)) return mkfailure&)> >(reason(jc)); return lambda&)>(applyImplementation(content(jc), px)); } } } } #endif /* tuscany_modjava_hpp */