OpenXM_contrib2/asir2000/engine/init.c - diff

Return to init.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

Diff for /OpenXM_contrib2/asir2000/engine/init.c between version 1.2 and 1.5

version 1.2, 2000/08/21 08:31:27

version 1.5, 2000/12/05 01:24:52

Line 23

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/engine/init.c,v 1.1.1.1 1999/12/03 07:39:08 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/engine/init.c,v 1.4 2000/09/12 06:05:29 noro Exp $

#include "ca.h"

#include "version.h"

Line 84 int nez = 1;

int current_mod = 0;

#if PARI

#if defined(THINK_C)

int paristack = 1<<16;

#else

int paristack = 1<<20;

#endif

void (*addnumt[])() = { addq, addreal, addalg, addbf, addcplx, addmi, addlm, addgf2n, addgfpn };

void (*subnumt[])() = { subq, subreal, subalg, subbf, subcplx, submi, sublm, subgf2n, subgfpn };

Line 232 void reset_engine() {

Line 228 void reset_engine() {

unsigned int get_asir_version() {

return ASIR_VERSION;

}

void create_error(ERR *err,unsigned int serial,char *msg)

{

int len;

USINT ui;

NODE n,n1;

LIST list;

char *msg1;

STRING errmsg;

MKUSINT(ui,serial);

len = strlen(msg);

msg1 = (char *)MALLOC(len+1);

strcpy(msg1,msg);

MKSTR(errmsg,msg1);

MKNODE(n1,errmsg,0); MKNODE(n,ui,n1); MKLIST(list,n);

MKERR(*err,list);

}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>