| version 1.33, 2005/10/12 04:03:37 |
version 1.41, 2016/04/01 18:12:39 |
|
|
| /* -*- mode: C -*- */ |
/* -*- mode: C -*- */ |
| /* $OpenXM: OpenXM/src/ox_toolkit/ox_toolkit.h,v 1.32 2005/07/26 12:52:05 ohara Exp $ */ |
/* $OpenXM: OpenXM/src/ox_toolkit/ox_toolkit.h,v 1.40 2015/08/27 03:03:33 ohara Exp $ */ |
| |
|
| #ifndef _OX_TOOLKIT_H_ |
#ifndef _OX_TOOLKIT_H_ |
| |
|
| #define _OX_TOOLKIT_H_ |
#define _OX_TOOLKIT_H_ |
| |
|
| #ifdef __cplusplus |
|
| extern "C" { |
|
| #endif |
|
| |
|
| #include <stdio.h> |
#include <stdio.h> |
| #include <gmp.h> |
#include <gmp.h> |
| |
#include <mpfr.h> |
| #include <ox/cmotag.h> |
#include <ox/cmotag.h> |
| #include <ox/oxMessageTag.h> |
#include <ox/oxMessageTag.h> |
| #include <ox/smCommand.h> |
#include <ox/smCommand.h> |
| #include <gc/gc.h> |
#include <gc/gc.h> |
| |
|
| |
#if defined(_MSC_VER) |
| |
#include <malloc.h> |
| |
#endif |
| |
|
| #define MALLOC(x) GC_MALLOC((x)) |
#define MALLOC(x) GC_MALLOC((x)) |
| #define MALLOC_ATOMIC(x) GC_MALLOC_ATOMIC((x)) |
#define MALLOC_ATOMIC(x) GC_MALLOC_ATOMIC((x)) |
| #define ALLOCA(x) alloca((x)) |
#define ALLOCA(x) alloca((x)) |
| /* #define FREE(x) free((x)) */ |
/* #define FREE(x) free((x)) */ |
| #define FREE(x) |
#define FREE(x) |
| |
|
| |
#ifdef __cplusplus |
| |
extern "C" { |
| |
#endif |
| |
|
| #if !defined(__GNUC__) && !defined(__inline__) |
#if !defined(__GNUC__) && !defined(__inline__) |
| #define __inline__ |
#define __inline__ |
| #endif |
#endif |
| Line 115 typedef struct { |
|
| Line 120 typedef struct { |
|
| |
|
| typedef struct { |
typedef struct { |
| int tag; |
int tag; |
| cmo *num; /* Bunshi (cmo_zz) */ |
mpq_t mpq; |
| cmo *den; /* Bunbo (cmo_zz) */ |
|
| } cmo_qq; |
} cmo_qq; |
| |
|
| typedef struct { |
typedef struct { |
| int tag; |
int tag; |
| |
mpfr_t mpfr; |
| |
} cmo_bf; |
| |
|
| |
typedef struct { |
| |
int tag; |
| |
cmo *re,*im; |
| |
} cmo_complex; |
| |
|
| |
typedef struct { |
| |
int tag; |
| double d; /* machine dependent */ |
double d; /* machine dependent */ |
| } cmo_double; |
} cmo_double; |
| |
|
| Line 190 cmo_zz* new_cmo_zz_set_si(int integer); |
|
| Line 204 cmo_zz* new_cmo_zz_set_si(int integer); |
|
| cmo_zz* new_cmo_zz_set_mpz(mpz_ptr z); |
cmo_zz* new_cmo_zz_set_mpz(mpz_ptr z); |
| cmo_zz* new_cmo_zz_noinit(); |
cmo_zz* new_cmo_zz_noinit(); |
| cmo_zz* new_cmo_zz_set_string(char* s); |
cmo_zz* new_cmo_zz_set_string(char* s); |
| cmo_qq* new_cmo_qq_noinit(); |
cmo_qq* new_cmo_qq(); |
| cmo_qq* new_cmo_qq_set_mpq(mpq_ptr q); |
cmo_qq* new_cmo_qq_set_mpq(mpq_ptr q); |
| cmo_qq* new_cmo_qq_set_mpz(mpz_ptr num, mpz_ptr den); |
cmo_qq* new_cmo_qq_set_mpz(mpz_ptr num, mpz_ptr den); |
| |
cmo_bf* new_cmo_bf(); |
| |
cmo_bf* new_cmo_bf_set_mpfr(mpfr_ptr q); |
| |
cmo_complex* new_cmo_complex(); |
| |
cmo_complex* new_cmo_complex_set_re_im(cmo *re,cmo *im); |
| cmo_zero* new_cmo_zero(); |
cmo_zero* new_cmo_zero(); |
| cmo_double* new_cmo_double(double d); |
cmo_double* new_cmo_double(double d); |
| cmo_distributed_polynomial* new_cmo_distributed_polynomial(); |
cmo_distributed_polynomial* new_cmo_distributed_polynomial(); |
| Line 253 cmo_list* list_append_monomial(cmo_list* , cm |
|
| Line 271 cmo_list* list_append_monomial(cmo_list* , cm |
|
| cmo_list* list_appendl(cmo_list*, ...); |
cmo_list* list_appendl(cmo_list*, ...); |
| int list_length(cmo_list* ); |
int list_length(cmo_list* ); |
| cmo* list_nth(cmo_list* , int n); |
cmo* list_nth(cmo_list* , int n); |
| |
cmo* list_first_cmo(cmo_list *); |
| |
|
| int cmolen_cmo(cmo* m); |
int cmolen_cmo(cmo* m); |
| void dump_buffer_init(char *s); |
void dump_buffer_init(char *s); |
| Line 262 void dump_ox_data(ox_data* m); |
|
| Line 281 void dump_ox_data(ox_data* m); |
|
| |
|
| void print_cmo(cmo* c); |
void print_cmo(cmo* c); |
| void resize_mpz(mpz_ptr mpz, int size); |
void resize_mpz(mpz_ptr mpz, int size); |
| |
|
| |
int cmo_to_int(cmo *n); |
| |
|
| typedef cmo *(*hook_t)(OXFILE *, cmo *); |
typedef cmo *(*hook_t)(OXFILE *, cmo *); |
| |
|