64 lines
728 B
C++
64 lines
728 B
C++
/* Eigenmath by G. Weigt
|
|
|
|
The starting point for a symbolic computation is in run.cpp
|
|
|
|
Input is scanned in scan.cpp
|
|
|
|
Expression evaluation is done in eval.cpp
|
|
|
|
Output is formatted in display.cpp
|
|
*/
|
|
|
|
#include "defs.h"
|
|
#include "console.h"
|
|
|
|
void
|
|
clear_term()
|
|
{
|
|
}
|
|
|
|
extern void eval_print(void);
|
|
|
|
void
|
|
eval_display(void)
|
|
{
|
|
eval_print();
|
|
}
|
|
|
|
void
|
|
printstr(char *s)
|
|
{
|
|
Console_Output((const unsigned char *)s);
|
|
}
|
|
|
|
extern int test_flag;
|
|
|
|
#define OUTBUFLEN 10000
|
|
int out_count;
|
|
|
|
void
|
|
printchar(int c)
|
|
{
|
|
unsigned char tmp[2];
|
|
tmp[0] = (unsigned char)c;
|
|
tmp[1] = (unsigned char)'\0';
|
|
Console_Output(tmp);
|
|
}
|
|
|
|
void
|
|
printchar_nowrap(int c)
|
|
{
|
|
printchar(c);
|
|
}
|
|
|
|
void
|
|
eval_draw(void)
|
|
{
|
|
push(symbol(NIL));
|
|
}
|
|
|
|
void
|
|
eval_sample(void)
|
|
{
|
|
}
|