OpenXM_contrib2/asir2000/parse/debug.c - diff

Return to debug.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.20, 2011/06/16 08:17:15

version 1.21, 2015/08/04 06:20:45

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.19 2006/12/05 01:47:08 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.20 2011/06/16 08:17:15 noro Exp $

#include "ca.h"

#include "parse.h"

#include <ctype.h>

#if defined(PARI)

#include "genpari.h"

#endif

extern do_server_in_X11,do_file;

Line 768 void printvars(char *s,VS vs)

Line 765 void printvars(char *s,VS vs)

val = eval(expr);

CPVS = cpvs;

if ( !err ) {

#if defined(PARI)

#if defined(PARI1)

outfile = stderr;

#else

pari_outfile = stderr;

#endif

asir_out = stderr;

for ( p = s; isspace(*p); p++ );

fprintf(asir_out,"%s = ",p);

Line 786 void printvars(char *s,VS vs)

Line 776 void printvars(char *s,VS vs)

printexpr(CO,val); putc('\n',asir_out); fflush(asir_out);

#if defined(VISUAL_LIB)

w_noflush_stderr(0);

#endif

#if defined(PARI)

#if defined(PARI1)

outfile = stdout;

#else

pari_outfile = stdout;

#endif

asir_out = stdout;

}