Rev. | 1278 |
---|---|
Size | 3,433 bytes |
Time | 2011-01-01 15:56:05 |
Author | hniwa |
Log Message | The copyright display is made to correspond to 2011.
|
/*
* let & rpn calculation H.Niwa copyright (C) 2009 - 2011
*/
/*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
* 02110-1301, USA.
*/
#ifndef __LET_H
#define __LET_H
extern int int_let(Context* cx, Node* n, List* module);
extern int int_compare(Context* cx, Node* n, List* module);
extern int int_rpn(Context* cx, Node* n, List* module);
extern int int_intp(Context* cx, Node* n1);
extern int int_push(Context* cx, Node* n1);
extern int int_pushnum(Context* cx, long long n);
extern int int_pop(Context* cx, Node* v);
extern int int_plus(Context* cx);
extern int int_minus(Context* cx);
extern int int_mult(Context* cx);
extern int int_div(Context* cx);
extern int int_mod(Context* cx);
extern int int_gt(Context* cx);
extern int int_ge(Context* cx);
extern int int_eq(Context* cx);
extern int int_noteq(Context* cx);
extern int int_lt(Context* cx);
extern int int_le(Context* cx);
extern int int_and(Context* cx);
extern int int_or(Context* cx);
extern int int_not(Context* cx);
extern int float_let(Context* cx, Node* n, List* module);
extern int float_compare(Context* cx, Node* n, List* module);
extern int float_rpn(Context* cx, Node* n, List* module);
extern int float_intp(Context* cx, Node* n1);
extern int float_push(Context* cx, Node* n1);
extern int float_pushnum(Context* cx, long double n);
extern int float_pop(Context* cx, Node* v, Node* &env);
extern int float_plus(Context* cx);
extern int float_minus(Context* cx);
extern int float_mult(Context* cx);
extern int float_div(Context* cx);
extern int float_mod(Context* cx);
extern int float_gt(Context* cx);
extern int float_ge(Context* cx);
extern int float_eq(Context* cx);
extern int float_noteq(Context* cx);
extern int float_lt(Context* cx);
extern int float_le(Context* cx);
extern int float_and(Context* cx);
extern int float_or(Context* cx);
extern int float_not(Context* cx);
extern int complex_let(Context* cx, Node* n, List* module);
extern int complex_compare(Context* cx, Node* n, List* module);
extern int complex_rpn(Context* cx, Node* n, List* module);
extern int complex_intp(Context* cx, Node* n1);
extern int complex_push(Context* cx, Node* n1);
extern int complex_pushnum(Context* cx, std::complex<long double> n);
extern int complex_pop(Context* cx, Node* v, Node* &env);
extern int complex_plus(Context* cx);
extern int complex_minus(Context* cx);
extern int complex_mult(Context* cx);
extern int complex_div(Context* cx);
extern int complex_mod(Context* cx);
extern int complex_gt(Context* cx);
extern int complex_ge(Context* cx);
extern int complex_eq(Context* cx);
extern int complex_noteq(Context* cx);
extern int complex_lt(Context* cx);
extern int complex_le(Context* cx);
extern int complex_and(Context* cx);
extern int complex_or(Context* cx);
extern int complex_not(Context* cx);
#endif