OpenXM/src/ox_toolkit/cmo.c - diff

Return to cmo.c CVS log

Up to [local] / OpenXM / src / ox_toolkit

version 1.27, 2016/06/30 01:14:00

version 1.28, 2018/04/03 09:58:30

Line 1

/* -*- mode: C; coding: euc-japan -*- */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.26 2016/06/29 05:07:23 ohara Exp $ */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.27 2016/06/30 01:14:00 ohara Exp $ */

This module includes functions for sending/receiveng CMO's.

Line 109 cmo *list_nth(cmo_list* this, int n)

return NULL;

}

char *cmo_indeterminate_get_name(cmo_indeterminate *this)

{

cmo_string *ob = (cmo_string *)this->ob;

return ob->s;

}

/* for GNU mpz */

void resize_mpz(mpz_ptr mpz, int size)

{

Line 336 cmo_indeterminate* new_cmo_indeterminate(cmo* ob)

Line 342 cmo_indeterminate* new_cmo_indeterminate(cmo* ob)

return c;

}

cmo_indeterminate* new_cmo_indeterminate_set_name(char *variable)

{

return new_cmo_indeterminate(new_cmo_string(variable));

}

cmo_distributed_polynomial* new_cmo_distributed_polynomial()

{

cmo_distributed_polynomial* c = MALLOC(sizeof(cmo_distributed_polynomial));

Line 482 char *new_string_set_cmo(cmo *m)

Line 493 char *new_string_set_cmo(cmo *m)

int cmo_to_int(cmo *n)

{

switch(n->tag) {

case CMO_ZERO:

return 0;

case CMO_INT32:

Line 491 int cmo_to_int(cmo *n)

Line 502 int cmo_to_int(cmo *n)

return mpz_get_si(((cmo_zz *)n)->mpz);

default:

return 0;

}