home *** CD-ROM | disk | FTP | other *** search
/ Photo CD Demo 1 / Demo.bin / graphtal / expritem.c < prev    next >
C/C++ Source or Header  |  1992-11-02  |  13KB  |  523 lines
  1. /*
  2.  * ExprItems.C - methods for all the ExprItem's.
  3.  *
  4.  * Copyright (C) 1992, Christoph Streit (streit@iam.unibe.ch)
  5.  * All rights reserved.
  6.  *
  7.  * This software may be freely copied, modified, and redistributed
  8.  * provided that this copyright notice is preserved on all copies.
  9.  *
  10.  * You may not distribute this software, in whole or in part, as part of
  11.  * any commercial product without the express consent of the authors.
  12.  *
  13.  * There is no warranty or other guarantee of fitness of this software
  14.  * for any purpose.  It is provided solely "as is".
  15.  *
  16.  */
  17.  
  18. #include <iostream.h>
  19. #include "ExprItems.h"
  20.  
  21. //___________________________________________________________ Variable
  22.  
  23. Variable::Variable(const Name& n, Value* val)
  24. : varname(n), theValue(val)
  25. {}
  26. void Variable::process(ValueStack* theStack)
  27. {
  28.   theStack->push(*theValue); 
  29. }
  30. Variable::~Variable(){}
  31. void Variable::print(ValueStack* theStack)
  32. {
  33.   theStack->push(Value((const char*)varname));
  34. }
  35. // there's no way to simplify a variable
  36. int Variable::params() { return -1; } 
  37. ExprItem* Variable::copy() { return new Variable(varname, theValue); }
  38.  
  39. //___________________________________________________________ Uminus
  40.  
  41. Uminus::Uminus(){}
  42. Uminus::~Uminus(){}
  43. void Uminus::process(ValueStack* theStack)
  44. { 
  45.   theStack->push(- theStack->pop()); 
  46. }
  47. void Uminus::print(ValueStack* theStack)
  48. { 
  49.   theStack->push(Value("-(" + (rcString)theStack->pop() + ")")); 
  50. }
  51. int Uminus::params() { return 1; }
  52. ExprItem* Uminus::copy() { return new Uminus; }
  53.  
  54. //___________________________________________________________ Not
  55.  
  56. Not::Not(){}
  57. Not::~Not(){}
  58. void Not::process(ValueStack* theStack)
  59. {
  60.   theStack->push(!theStack->pop());
  61. }
  62. void Not::print(ValueStack* theStack)
  63. { 
  64.   theStack->push(Value("!(" + (rcString)theStack->pop() + ")")); 
  65. }
  66. int Not::params() { return 1; }
  67. ExprItem* Not::copy() { return new Not; }
  68.  
  69. //___________________________________________________________ Or
  70.  
  71. Or::Or(){}
  72. Or::~Or(){}
  73. void Or::process(ValueStack* theStack)
  74. {
  75.   theStack->push(theStack->pop() || theStack->pop());
  76. }
  77. void Or::print(ValueStack* theStack)
  78. {
  79.   theStack->push(Value("(" + (rcString)theStack->pop() + " || " +
  80.                      (rcString)theStack->pop() + ")"));
  81. }
  82. int Or::params() { return 2; }
  83. ExprItem* Or::copy() { return new Or; }
  84.  
  85. //___________________________________________________________ And
  86.  
  87. And::And(){}
  88. And::~And(){}
  89. void And::process(ValueStack* theStack)
  90. {
  91.   theStack->push(theStack->pop() && theStack->pop());
  92. }
  93. void And::print(ValueStack* theStack)
  94. {
  95.   theStack->push(Value("(" + (rcString)theStack->pop() + " && " +
  96.                      (rcString)theStack->pop() + ")"));
  97. }
  98. int And::params() { return 2; }
  99. ExprItem* And::copy() { return new And; }
  100.  
  101. //___________________________________________________________ Neq
  102.  
  103. Neq::Neq(){}
  104. Neq::~Neq(){}
  105. void Neq::process(ValueStack* theStack)
  106. {
  107.   theStack->push(theStack->pop() != theStack->pop());
  108. }
  109. void Neq::print(ValueStack* theStack)
  110. {
  111.   theStack->push(Value("(" + (rcString)theStack->pop() + " != " +
  112.                      (rcString)theStack->pop() + ")"));
  113. }
  114. int Neq::params() { return 2; }
  115. ExprItem* Neq::copy() { return new Neq; }
  116.  
  117. //___________________________________________________________ Eq
  118.  
  119. Eq::Eq(){}
  120. Eq::~Eq(){}
  121. void Eq::process(ValueStack* theStack)
  122. {
  123.   theStack->push(theStack->pop() == theStack->pop());
  124. }
  125. void Eq::print(ValueStack* theStack)
  126. {
  127.   theStack->push(Value("(" + (rcString)theStack->pop() + " == " +
  128.                      (rcString)theStack->pop() + ")"));
  129. }
  130. int Eq::params() { return 2; }
  131. ExprItem* Eq::copy() { return new Eq; }
  132.  
  133. //___________________________________________________________ Lt
  134.  
  135. Lt::Lt(){}
  136. Lt::~Lt(){}
  137. void Lt::process(ValueStack* theStack)
  138. {
  139.   theStack->push(theStack->pop() < theStack->pop());
  140. }
  141. void Lt::print(ValueStack* theStack)
  142. {
  143.   theStack->push(Value("(" + (rcString)theStack->pop() + " < " +
  144.                      (rcString)theStack->pop() + ")"));
  145. }
  146. int Lt::params() { return 2; }
  147. ExprItem* Lt::copy() { return new Lt; }
  148.  
  149. //___________________________________________________________ Leq
  150.  
  151. Leq::Leq(){}
  152. Leq::~Leq(){}
  153. void Leq::process(ValueStack* theStack)
  154. {
  155.   theStack->push(theStack->pop() <= theStack->pop());
  156. }
  157. void Leq::print(ValueStack* theStack)
  158. {
  159.   theStack->push(Value("(" + (rcString)theStack->pop() + " <= " +
  160.                      (rcString)theStack->pop() + ")"));
  161. }
  162. int Leq::params() { return 2; }
  163. ExprItem* Leq::copy() { return new Leq; }
  164.  
  165. //___________________________________________________________ Gt
  166.  
  167. Gt::Gt(){}
  168. Gt::~Gt(){}
  169. void Gt::process(ValueStack* theStack)
  170. {
  171.   theStack->push(theStack->pop() > theStack->pop());
  172. }
  173. void Gt::print(ValueStack* theStack)
  174. {
  175.   theStack->push(Value("(" + (rcString)theStack->pop() + " > " +
  176.                      (rcString)theStack->pop() + ")"));
  177. }
  178. int Gt::params() { return 2; }
  179. ExprItem* Gt::copy() { return new Gt; }
  180.  
  181. //___________________________________________________________ Geq
  182.  
  183. Geq::Geq(){}
  184. Geq::~Geq(){}
  185. void Geq::process(ValueStack* theStack)
  186. {
  187.   theStack->push(theStack->pop() >= theStack->pop());
  188. }
  189. void Geq::print(ValueStack* theStack)
  190. {
  191.   theStack->push(Value("(" + (rcString)theStack->pop() + " >= " +
  192.                      (rcString)theStack->pop() + ")"));
  193. }
  194. int Geq::params() { return 2; }
  195. ExprItem* Geq::copy() { return new Geq; }
  196.  
  197. //___________________________________________________________ Add
  198.  
  199. Add::Add(){}
  200. Add::~Add(){}
  201. void Add::process(ValueStack* theStack)
  202. {
  203.   theStack->push(theStack->pop() + theStack->pop());
  204. }
  205. void Add::print(ValueStack* theStack)
  206. {
  207.   theStack->push(Value("(" + (rcString)theStack->pop() + " + " +
  208.                      (rcString)theStack->pop() + ")"));
  209. }
  210. int Add::params() { return 2; }
  211. ExprItem* Add::copy() { return new Add; }
  212.  
  213. //___________________________________________________________ Sub
  214.  
  215. Sub::Sub(){}
  216. Sub::~Sub(){}
  217. void Sub::process(ValueStack* theStack)
  218. {
  219.   theStack->push(theStack->pop() - theStack->pop());
  220. }
  221. void Sub::print(ValueStack* theStack)
  222. {
  223.   theStack->push(Value("(" + (rcString)theStack->pop() + " - " +
  224.                      (rcString)theStack->pop() + ")"));
  225. }
  226. int Sub::params() { return 2; }
  227. ExprItem* Sub::copy() { return new Sub; }
  228.  
  229. //___________________________________________________________ Mul
  230.  
  231. Mul::Mul(){}
  232. Mul::~Mul(){}
  233. void Mul::process(ValueStack* theStack)
  234. {
  235.   theStack->push(theStack->pop() * theStack->pop());
  236. }
  237. void Mul::print(ValueStack* theStack)
  238. {
  239.   theStack->push(Value("(" + (rcString)theStack->pop() + " * " +
  240.                      (rcString)theStack->pop() + ")"));
  241. }
  242. int Mul::params() { return 2; }
  243. ExprItem* Mul::copy() { return new Mul; }
  244.  
  245. //___________________________________________________________ Div
  246.  
  247. Div::Div(){}
  248. Div::~Div(){}
  249. void Div::process(ValueStack* theStack)
  250. {
  251.   theStack->push(theStack->pop() / theStack->pop());
  252. }
  253. void Div::print(ValueStack* theStack)
  254. {
  255.   theStack->push(Value("(" + (rcString)theStack->pop() + " / " +
  256.                      (rcString)theStack->pop() + ")"));
  257. }
  258. int Div::params() { return 2; }
  259. ExprItem* Div::copy() { return new Div; }
  260.  
  261. //___________________________________________________________ Mod
  262.  
  263. Mod::Mod(){}
  264. Mod::~Mod(){}
  265. void Mod::process(ValueStack* theStack)
  266. {
  267.   theStack->push(theStack->pop() % theStack->pop());
  268. }
  269. void Mod::print(ValueStack* theStack)
  270. {
  271.   theStack->push(Value("(" + (rcString)theStack->pop() + " % " +
  272.                      (rcString)theStack->pop() + ")"));
  273. }
  274. int Mod::params() { return 2; }
  275. ExprItem* Mod::copy() { return new Mod; }
  276.  
  277. //___________________________________________________________ Sin
  278.  
  279. Sin::Sin(){}
  280. Sin::~Sin(){}
  281. void Sin::process(ValueStack* theStack)
  282. { 
  283.   theStack->push( sin(dtor(real(theStack->pop()))) ); 
  284. }
  285. void Sin::print(ValueStack* theStack)
  286. { 
  287.   theStack->push(Value("sin " + (rcString)theStack->pop()));
  288. }
  289. int Sin::params() { return 1; }
  290. ExprItem* Sin::copy() { return new Sin; }
  291.  
  292. //___________________________________________________________  Cos
  293.  
  294. Cos::Cos(){}
  295. Cos::~Cos(){}
  296. void Cos::process(ValueStack* theStack)
  297. { 
  298.   theStack->push(cos(dtor(real(theStack->pop()))) ); 
  299. }
  300. void Cos::print(ValueStack* theStack)
  301. { 
  302.   theStack->push(Value("cos " + (rcString)theStack->pop()));
  303. }
  304. int Cos::params() { return 1; }
  305. ExprItem* Cos::copy() { return new Cos; }
  306.  
  307. //___________________________________________________________ Tan
  308.  
  309. Tan::Tan(){}
  310. Tan::~Tan(){}
  311. void Tan::process(ValueStack* theStack)
  312. { 
  313.   theStack->push( tan(dtor(real(theStack->pop()))) ); 
  314. }
  315. void Tan::print(ValueStack* theStack)
  316. { 
  317.   theStack->push(Value("tan " + (rcString)theStack->pop()));
  318. }
  319. int Tan::params() { return 1; }
  320. ExprItem* Tan::copy() { return new Tan; }
  321.  
  322. //___________________________________________________________ Asin
  323.  
  324. Asin::Asin(){}
  325. Asin::~Asin(){}
  326. void Asin::process(ValueStack* theStack)
  327. { 
  328.   theStack->push( rtod(asin(real(theStack->pop()))) ); 
  329. }
  330. void Asin::print(ValueStack* theStack)
  331. { 
  332.   theStack->push(Value("asin " + (rcString)theStack->pop()));
  333. }
  334. int Asin::params() { return 1; }
  335. ExprItem* Asin::copy() { return new Asin; }
  336.  
  337. //___________________________________________________________ Acos
  338.  
  339. Acos::Acos(){}
  340. Acos::~Acos(){}
  341. void Acos::process(ValueStack* theStack)
  342. { 
  343.   theStack->push( rtod(acos(real(theStack->pop()))) ); 
  344. }
  345. void Acos::print(ValueStack* theStack)
  346. { 
  347.   theStack->push(Value("acos " + (rcString)theStack->pop()));
  348. }
  349. int Acos::params() { return 1; }
  350. ExprItem* Acos::copy() { return new Acos; }
  351.  
  352. //___________________________________________________________ Atan
  353.  
  354. Atan::Atan(){}
  355. Atan::~Atan(){}
  356. void Atan::process(ValueStack* theStack)
  357. { 
  358.   theStack->push( rtod(atan(real(theStack->pop()))) ); 
  359. }
  360. void Atan::print(ValueStack* theStack)
  361. { 
  362.   theStack->push(Value("atan " + (rcString)theStack->pop()));
  363. }
  364. int Atan::params() { return 1; }
  365. ExprItem* Atan::copy() { return new Atan; }
  366.  
  367. //___________________________________________________________ Abs
  368.  
  369. Abs::Abs(){}
  370. Abs::~Abs(){}
  371. void Abs::process(ValueStack* theStack)
  372. { 
  373.   theStack->push(fabs(real(theStack->pop())) ); 
  374. }
  375. void Abs::print(ValueStack* theStack)
  376. { 
  377.   theStack->push(Value("abs " + (rcString)theStack->pop()));
  378. }
  379. int Abs::params() { return 1; }
  380. ExprItem* Abs::copy() { return new Abs; }
  381.  
  382. //___________________________________________________________ Sqrt
  383.  
  384. Sqrt::Sqrt(){}
  385. Sqrt::~Sqrt(){}
  386. void Sqrt::process(ValueStack* theStack)
  387. { 
  388.   theStack->push(sqrt(real(theStack->pop())) ); 
  389. }
  390. void Sqrt::print(ValueStack* theStack)
  391. { 
  392.   theStack->push(Value("sqrt " + (rcString)theStack->pop()));
  393. }
  394. int Sqrt::params() { return 1; }
  395. ExprItem* Sqrt::copy() { return new Sqrt; }
  396.  
  397. //___________________________________________________________ Pow
  398.  
  399. Pow::Pow(){}
  400. Pow::~Pow(){}
  401. void Pow::process(ValueStack* theStack)
  402. { 
  403.   theStack->push( pow(real(theStack->pop()), real(theStack->pop())) );
  404. }
  405. void Pow::print(ValueStack* theStack)
  406. {
  407.   theStack->push(Value("(" + (rcString)theStack->pop() + " ** " +
  408.                      (rcString)theStack->pop() + ")"));
  409. }
  410. int Pow::params() { return 2; }
  411. ExprItem* Pow::copy() { return new Pow; }
  412.  
  413. //___________________________________________________________ Exp
  414.  
  415. Exp::Exp(){}
  416. Exp::~Exp(){}
  417. void Exp::process(ValueStack* theStack)
  418. { 
  419.   theStack->push( exp(real(theStack->pop())) ); 
  420. }
  421. void Exp::print(ValueStack* theStack)
  422. { 
  423.   theStack->push(Value("exp " + (rcString)theStack->pop()));
  424. }
  425. int Exp::params() { return 1; }
  426. ExprItem* Exp::copy() { return new Exp; }
  427.  
  428. //___________________________________________________________ Log
  429.  
  430. Log::Log(){}
  431. Log::~Log(){}
  432. void Log::process(ValueStack* theStack)
  433. { 
  434.   theStack->push( log(real(theStack->pop())) ); 
  435. }
  436. void Log::print(ValueStack* theStack)
  437. { 
  438.   theStack->push(Value("log " + (rcString)theStack->pop()));
  439. }
  440. int Log::params() { return 1; }
  441. ExprItem* Log::copy() { return new Log; }
  442.  
  443. //___________________________________________________________ Log10
  444.  
  445. Log10::Log10(){}
  446. Log10::~Log10(){}
  447. void Log10::process(ValueStack* theStack)
  448. { 
  449.   theStack->push( log10(real(theStack->pop())) ); 
  450. }
  451. void Log10::print(ValueStack* theStack)
  452. { 
  453.   theStack->push(Value("log10 " + (rcString)theStack->pop()));
  454. }
  455. int Log10::params() { return 1; }
  456. ExprItem* Log10::copy() { return new Log10; }
  457.  
  458. //___________________________________________________________ Rand
  459.  
  460. Rand::Rand(){}
  461. Rand::~Rand(){}
  462. void Rand::process(ValueStack* theStack)
  463. { 
  464.   theStack->push(real(drand48())); 
  465. }
  466. void Rand::print(ValueStack* theStack)
  467. { 
  468.   theStack->push(Value("Rand() "));
  469. }
  470. int Rand::params() { return -1; }
  471. ExprItem* Rand::copy() { return new Rand; }
  472.  
  473. /*___________________________________________________________ Gauss
  474.  *
  475.  * Gaussian random number generator.
  476.  */
  477.  
  478. Gauss::Gauss()
  479. {
  480.   Nrand = 4;
  481.   GaussAdd = sqrt(3*Nrand);
  482.   GaussFac = 2*GaussAdd/Nrand;
  483. }
  484. Gauss::~Gauss(){}
  485. void Gauss::process(ValueStack* theStack)
  486. { 
  487.   real sum = 0;
  488.   for (int i=0; i<Nrand; i++)
  489.     sum += drand48();
  490.   theStack->push(real(GaussFac*sum-GaussAdd)); 
  491. }
  492. void Gauss::print(ValueStack* theStack)
  493. { 
  494.   theStack->push(Value("Gauss() "));
  495. }
  496. int Gauss::params() { return -1; }
  497. ExprItem* Gauss::copy() { return new Gauss; }
  498.  
  499. //___________________________________________________________ If
  500.  
  501. If::If(){}
  502. If::~If(){}
  503. void If::process(ValueStack* theStack)
  504. { 
  505.   if (theStack->pop()) {
  506.     Value result = theStack->pop();
  507.     theStack->pop();
  508.     theStack->push(result);
  509.   }
  510.   else {
  511.     theStack->pop();
  512.     // theStack->push(theStack->pop());
  513.   }
  514. }
  515. void If::print(ValueStack* theStack)
  516. { 
  517.   theStack->push(Value("If(" + (rcString)theStack->pop() + ", " 
  518.                     + (rcString)theStack->pop() + ", " 
  519.                     + (rcString)theStack->pop() + ")")); 
  520. }
  521. int If::params() { return 3; }
  522. ExprItem* If::copy() { return new If; }
  523.