00001 /************************************************************************ 00002 ************************************************************************ 00003 FAUST compiler 00004 Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale 00005 --------------------------------------------------------------------- 00006 This program is free software; you can redistribute it and/or modify 00007 it under the terms of the GNU General Public License as published by 00008 the Free Software Foundation; either version 2 of the License, or 00009 (at your option) any later version. 00010 00011 This program is distributed in the hope that it will be useful, 00012 but WITHOUT ANY WARRANTY; without even the implied warranty of 00013 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00014 GNU General Public License for more details. 00015 00016 You should have received a copy of the GNU General Public License 00017 along with this program; if not, write to the Free Software 00018 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 00019 ************************************************************************ 00020 ************************************************************************/ 00021 00022 #ifndef __NAMES__ 00023 #define __NAMES__ 00024 00025 #include "tlib.hh" 00026 #include "propagate.hh" 00027 #include <string> 00028 00029 using namespace std; 00030 00031 00049 bool getDefNameProperty(Tree t, Tree& id); 00050 00051 void setDefNameProperty(Tree t, Tree id); 00052 void setDefNameProperty(Tree t, const string& name); 00053 00054 //bool getSigListNickName (Tree t, Tree& id); 00055 //void setSigListNickName (const siglist& lsig, const string& nickname); 00056 00057 void setSigListNickName (Tree lsig, const string& nickname); 00058 00059 void setSigNickname(Tree t, const string& id); 00060 bool getSigNickname(Tree t, Tree& id); 00061 00070 bool searchIdDef(Tree id, Tree& def, Tree lenv); 00071 00072 00080 Tree pushValueDef(Tree id, Tree def, Tree lenv); 00081 00082 /* numeric simplification of pattern arguments */ 00083 Tree simplifyPattern (Tree pattern); 00084 00085 #endif