| 73 | } |
| 74 | |
| 75 | bool EvalFunction :: Parse (istream & aist) |
| 76 | { |
| 77 | ist = &aist; |
| 78 | ReadNext(); |
| 79 | res_type = ParseExpression (); |
| 80 | if (GetToken() != END) WriteBack(); |
| 81 | return program.Size() > 0; |
| 82 | } |
| 83 | |
| 84 | |
| 85 | void EvalFunction :: DefineConstant (const string & name, double val) |