src/c_exp.cc

   1 /*$Id: c_exp.cc,v 1.4 2010-09-17 12:25:56 felix Exp $ -*- C++ -*-
   2  * Copyright (C) 2007 Albert Davis
   3  * Author: Albert Davis <aldavis@gnu.org>
   4  *
   5  * This file is part of "Gnucap", the Gnu Circuit Analysis Package
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 3, or (at your option)
  10  * any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  20  * 02110-1301, USA.
  21  *------------------------------------------------------------------
  22  */
  23 //testing=none
  24 #include "globals.h"
  25 #include "m_expression.h"
  26 #include "c_comand.h"
  27 /*--------------------------------------------------------------------------*/
  28 namespace {
  29 /*--------------------------------------------------------------------------*/
  30 class CMD_ : public CMD {
  31 public:
  32   void do_it(CS& cmd, CARD_LIST* Scope)
  33   {
  34
  35     Expression e(cmd);
  36     cmd.check(bDANGER, "syntax error parsing expression");
  37     Expression r(e, Scope);
  38     OMSTREAM _out;
  39     _out = IO::mstdout;
  40     _out.setfloatwidth(OPT::numdgt, 0);
  41     _out << e << "=" << r << '\n';
  42     // cout.flush(); use .echo
  43   }
  44 } p0;
  45 DISPATCHER<CMD>::INSTALL d0(&command_dispatcher, "exp|eval", &p0);
  46 /*--------------------------------------------------------------------------*/
  47 }
  48 /*--------------------------------------------------------------------------*/
  49 /*--------------------------------------------------------------------------*/
  50 // vim:ts=8:sw=2:noet: