OpenXM_contrib2/asir2000/io/ox_asir.c - diff

Return to ox_asir.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/ox_asir.c between version 1.5 and 1.8

version 1.5, 2000/01/31 03:18:05

version 1.8, 2000/03/10 03:05:02

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.4 2000/01/19 09:31:00 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/io/ox_asir.c,v 1.7 2000/02/09 00:37:21 noro Exp $ */

#include "ca.h"

#include "parse.h"

#include "signal.h"

#include "ox.h"

#include "version.h"

#if PARI

#include "genpari.h"

#endif

void ox_usr1_handler();

extern jmp_buf environnement;

extern int do_message;

Line 714 int asir_ox_pop_cmo(void *cmo, int limit)

Line 719 int asir_ox_pop_cmo(void *cmo, int limit)

void asir_ox_push_cmd(unsigned int cmd)

{

asir_do_cmd(cmd,0);

int ret;

ERR err;

extern char LastError[];

if ( ret = setjmp(env) ) {

if ( ret == 1 ) {

create_error(&err,0,LastError); /* XXX */

asir_push_one((Obj)err);

}

} else

asir_do_cmd(cmd,0);

}

Line 724 void asir_ox_push_cmd(unsigned int cmd)

Line 739 void asir_ox_push_cmd(unsigned int cmd)

void asir_ox_execute_string(char *s)

{

STRING str;

int ret;

ERR err;

extern char LastError[];

MKSTR(str,s);

asir_push_one((Obj)str);

asir_executeString();