00001 /* @HEADER@ */ 00002 // ************************************************************************ 00003 // 00004 // Sundance 00005 // Copyright (2005) Sandia Corporation 00006 // 00007 // Copyright (year first published) Sandia Corporation. Under the terms 00008 // of Contract DE-AC04-94AL85000 with Sandia Corporation, the U.S. Government 00009 // retains certain rights in this software. 00010 // 00011 // This library is free software; you can redistribute it and/or modify 00012 // it under the terms of the GNU Lesser General Public License as 00013 // published by the Free Software Foundation; either version 2.1 of the 00014 // License, or (at your option) any later version. 00015 // 00016 // This library is distributed in the hope that it will be useful, but 00017 // WITHOUT ANY WARRANTY; without even the implied warranty of 00018 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00019 // Lesser General Public License for more details. 00020 // 00021 // You should have received a copy of the GNU Lesser General Public 00022 // License along with this library; if not, write to the Free Software 00023 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 00024 // USA 00025 // Questions? Contact Kevin Long (krlong@sandia.gov), 00026 // Sandia National Laboratories, Livermore, California, USA 00027 // 00028 // ************************************************************************ 00029 /* @HEADER@ */ 00030 00031 #ifndef SUNDANCE_USERDEFOP_H 00032 #define SUNDANCE_USERDEFOP_H 00033 00034 #include "SundanceDefs.hpp" 00035 #include "SundanceUserDefFunctor.hpp" 00036 #include "SundanceUserDefOpEvaluator.hpp" 00037 #include "SundanceDerivative.hpp" 00038 #include "SundanceUnaryExpr.hpp" 00039 #include "SundanceListExpr.hpp" 00040 #include "SundanceNonlinearExpr.hpp" 00041 #include "SundanceDeriv.hpp" 00042 #include "SundanceMap.hpp" 00043 #include "SundanceSet.hpp" 00044 #include "SundanceMultipleDeriv.hpp" 00045 00046 00047 00048 namespace Sundance 00049 { 00050 using namespace Sundance; 00051 using namespace Teuchos; 00052 00053 00054 00055 00056 /** 00057 * UserDefOp provides a hook for inserting a user-defined nonlinear 00058 * function into the Sundance Expr system. 00059 */ 00060 class UserDefOp : public ListExpr 00061 { 00062 public: 00063 /** construct with an argument and the functor defining the operation */ 00064 UserDefOp(const Expr& args, 00065 const RCP<const UserDefFunctor>& functor); 00066 00067 /** virtual destructor */ 00068 virtual ~UserDefOp() {;} 00069 00070 /** */ 00071 virtual RCP<ExprBase> getRcp() {return rcp(this);} 00072 00073 00074 private: 00075 00076 /** */ 00077 static Array<RCP<ScalarExpr> > getScalarArgs(const Expr& args); 00078 00079 }; 00080 } 00081 00082 #endif