version 1.1.1.1, 1999/12/03 07:39:12 |
version 1.3, 2000/07/13 05:09:03 |
|
|
/* $OpenXM: OpenXM/src/asir99/parse/debug.c,v 1.2 1999/11/18 05:42:02 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.2 2000/02/08 04:47:12 noro Exp $ */ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
#include <ctype.h> |
#include <ctype.h> |
|
#if PARI |
#include "genpari.h" |
#include "genpari.h" |
|
#endif |
|
|
void show_stack(VS); |
void show_stack(VS); |
void change_stack(int,NODE *); |
void change_stack(int,NODE *); |
|
|
extern int kernelmode,do_fep; |
extern int kernelmode,do_fep; |
NODE pvss; |
NODE pvss; |
|
|
#if !defined(VISUAL) |
#if !MPI && !defined(VISUAL) |
if ( !isatty(fileno(stdin)) && !do_server_in_X11 ) |
if ( !isatty(fileno(stdin)) && !do_server_in_X11 ) |
if ( do_file ) |
if ( do_file ) |
ExitAsir(); |
ExitAsir(); |
|
|
CPVS->usrf->name,ln,CPVS->usrf->f.usrf->fname); |
CPVS->usrf->name,ln,CPVS->usrf->f.usrf->fname); |
targetf = CPVS->usrf; curline = ln; |
targetf = CPVS->usrf; curline = ln; |
println(0,0,1); |
println(0,0,1); |
#if !defined(VISUAL) |
#if !MPI && !defined(VISUAL) |
if ( do_server_in_X11 || isatty(0) ) |
if ( do_server_in_X11 || isatty(0) ) |
#endif |
#endif |
debug(f); |
debug(f); |