Paradiseo-eo sources added

git-svn-id: svn://scm.gforge.inria.fr/svnroot/paradiseo@40 331e1502-861f-0410-8da2-ba01fb791d7f
This commit is contained in:
legrand 2006-12-12 14:49:08 +00:00
commit c3aec878e5
3609 changed files with 342772 additions and 0 deletions

View file

@ -0,0 +1,124 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1">
<title>EO: SymOps.cpp Source File</title>
<link href="doxygen.css" rel="stylesheet" type="text/css">
</head><body>
<!-- Generated by Doxygen 1.3.9.1 -->
<div class="qindex"> <form class="search" action="search.php" method="get">
<a class="qindex" href="main.html">Main&nbsp;Page</a> | <a class="qindex" href="modules.html">Modules</a> | <a class="qindex" href="namespaces.html">Namespace List</a> | <a class="qindex" href="hierarchy.html">Class&nbsp;Hierarchy</a> | <a class="qindex" href="classes.html">Alphabetical&nbsp;List</a> | <a class="qindex" href="annotated.html">Class&nbsp;List</a> | <a class="qindex" href="files.html">File&nbsp;List</a> | <a class="qindex" href="namespacemembers.html">Namespace&nbsp;Members</a> | <a class="qindex" href="functions.html">Class&nbsp;Members</a> | <a class="qindex" href="pages.html">Related&nbsp;Pages</a> | <span class="search"><u>S</u>earch&nbsp;for&nbsp;<input class="search" type="text" name="query" value="" size="20" accesskey="s"/></span></form></div>
<div class="nav">
<a class="el" href="dir_000007.html">contrib</a>&nbsp;/&nbsp;<a class="el" href="dir_000008.html">mathsym</a>&nbsp;/&nbsp;<a class="el" href="dir_000022.html">fun</a></div>
<h1>SymOps.cpp</h1><div class="fragment"><pre class="fragment">00001 <span class="comment">/* </span>
00002 <span class="comment"> * Copyright (C) 2005 Maarten Keijzer</span>
00003 <span class="comment"> *</span>
00004 <span class="comment"> * This program is free software; you can redistribute it and/or modify</span>
00005 <span class="comment"> * it under the terms of version 2 of the GNU General Public License as </span>
00006 <span class="comment"> * published by the Free Software Foundation. </span>
00007 <span class="comment"> *</span>
00008 <span class="comment"> * This program is distributed in the hope that it will be useful,</span>
00009 <span class="comment"> * but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
00010 <span class="comment"> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</span>
00011 <span class="comment"> * GNU General Public License for more details.</span>
00012 <span class="comment"> *</span>
00013 <span class="comment"> * You should have received a copy of the GNU General Public License</span>
00014 <span class="comment"> * along with this program; if not, write to the Free Software</span>
00015 <span class="comment"> * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA</span>
00016 <span class="comment"> */</span>
00017
00018 <span class="preprocessor">#include "FunDef.h"</span>
00019 <span class="preprocessor">#include "SymOps.h"</span>
00020 <span class="preprocessor">#include "Sym.h"</span>
00021
00022 <span class="keyword">using</span> <span class="keyword">namespace </span>std;
00023
00024 <span class="keywordtype">void</span> collect(token_t t, Sym a, SymVec&amp; args) {
00025
00026 <span class="keywordflow">if</span> (a.token() == t) {
00027 <span class="keyword">const</span> SymVec&amp; a_args = a.args();
00028 <span class="keywordflow">for</span> (<span class="keywordtype">unsigned</span> i = 0; i &lt; a_args.size(); ++i) {
00029 collect(t, a_args[i], args);
00030 }
00031 <span class="keywordflow">return</span>;
00032 }
00033
00034 args.push_back(a);
00035 }
00036
00037 Sym operator+(Sym a, Sym b) {
00038
00039 SymVec args;
00040
00041 collect(sum_token, a, args);
00042 collect(sum_token, b, args);
00043
00044 <span class="keywordflow">return</span> Sym(sum_token, args);
00045 }
00046
00047 Sym operator*(Sym a, Sym b) {
00048
00049 SymVec args;
00050
00051 collect(prod_token, a, args);
00052 collect(prod_token, b, args);
00053
00054 <span class="keywordflow">return</span> Sym(prod_token, args);
00055 }
00056
00057 Sym operator/(Sym a, Sym b) {
00058
00059 SymVec args;
00060
00061 collect(prod_token, a, args);
00062
00063 SymVec args2;
00064 collect(prod_token, b, args2);
00065
00066 SymVec inv;
00067 inv.push_back(Sym(prod_token, args2));
00068
00069 args.push_back( Sym(inv_token, inv) );
00070
00071 <span class="keywordflow">return</span> Sym(prod_token, args);
00072 }
00073
00074 Sym operator-(Sym a, Sym b) {
00075
00076 SymVec args;
00077
00078 collect(sum_token, a, args);
00079
00080 SymVec args2;
00081 collect(sum_token, b, args2);
00082
00083 SymVec min;
00084 min.push_back(Sym(sum_token, args2));
00085
00086 args.push_back( Sym(min_token, min) );
00087
00088 <span class="keywordflow">return</span> Sym(sum_token, args);
00089 }
00090
00091 Sym operator-(Sym a) {
00092 <span class="keywordflow">return</span> Sym(min_token, a);
00093 }
00094
00095 Sym pow(Sym a, Sym b) {
00096 SymVec args;
00097 args.push_back(a);
00098 args.push_back(b);
00099 <span class="keywordflow">return</span> Sym(pow_token, args);
00100 }
00101
00102 Sym ifltz(Sym a, Sym b, Sym c) {
00103 SymVec args;
00104 args.push_back(a);
00105 args.push_back(b);
00106 args.push_back(c);
00107 <span class="keywordflow">return</span> Sym(ifltz_token, args);
00108 }
00109
</pre></div><hr size="1"><address style="align: right;"><small>Generated on Thu Oct 19 05:06:42 2006 for EO by&nbsp;
<a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.3.9.1 </small></address>
</body>
</html>