version 1.3, 2003/03/30 08:05:22 |
version 1.7, 2015/08/27 03:03:33 |
|
|
/* -*- mode: C; coding: euc-japan -*- */ |
/* -*- mode: C; coding: euc-japan -*- */ |
/* $OpenXM: OpenXM/src/ox_toolkit/dump.c,v 1.2 2003/03/23 20:17:35 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/dump.c,v 1.6 2015/08/26 20:19:36 ohara Exp $ */ |
|
|
/* |
/* |
This module includes functions for sending/receiveng CMO's. |
This module includes functions for sending/receiveng CMO's. |
|
|
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
|
#include <string.h> |
|
#if !defined(_MSC_VER) |
#include <sys/param.h> |
#include <sys/param.h> |
|
#endif |
#include "ox_toolkit.h" |
#include "ox_toolkit.h" |
|
|
static void dump_cmo_int32(cmo_int32* m); |
static void dump_cmo_int32(cmo_int32* m); |
Line 109 static void dump_cmo_zz(cmo_zz* c) |
|
Line 112 static void dump_cmo_zz(cmo_zz* c) |
|
static void dump_cmo_distributed_polynomial(cmo_distributed_polynomial* m) |
static void dump_cmo_distributed_polynomial(cmo_distributed_polynomial* m) |
{ |
{ |
cell* cp; |
cell* cp; |
dump_integer(list_length(m)); |
dump_integer(list_length((cmo_list *)m)); |
dump_cmo(m->ringdef); |
dump_cmo(m->ringdef); |
for(cp = list_first(m); !list_endof(m, cp); cp = list_next(cp)) { |
for(cp = list_first((cmo_list *)m); !list_endof((cmo_list *)m, cp); cp = list_next(cp)) { |
dump_cmo(cp->cmo); |
dump_cmo(cp->cmo); |
} |
} |
} |
} |
Line 151 void dump_cmo(cmo* m) |
|
Line 154 void dump_cmo(cmo* m) |
|
dump_cmo_distributed_polynomial((cmo_distributed_polynomial *)m); |
dump_cmo_distributed_polynomial((cmo_distributed_polynomial *)m); |
break; |
break; |
default: |
default: |
|
; |
} |
} |
} |
} |
|
|