12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 |
- /* 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)
- {
- }
|