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