71 lines
2.5 KiB
C
71 lines
2.5 KiB
C
/*
|
|
* Legal Notice
|
|
*
|
|
* This document and associated source code (the "Work") is a part of a
|
|
* benchmark specification maintained by the TPC.
|
|
*
|
|
* The TPC reserves all right, title, and interest to the Work as provided
|
|
* under U.S. and international laws, including without limitation all patent
|
|
* and trademark rights therein.
|
|
*
|
|
* No Warranty
|
|
*
|
|
* 1.1 TO THE MAXIMUM EXTENT PERMITTED BY APPLICABLE LAW, THE INFORMATION
|
|
* CONTAINED HEREIN IS PROVIDED "AS IS" AND WITH ALL FAULTS, AND THE
|
|
* AUTHORS AND DEVELOPERS OF THE WORK HEREBY DISCLAIM ALL OTHER
|
|
* WARRANTIES AND CONDITIONS, EITHER EXPRESS, IMPLIED OR STATUTORY,
|
|
* INCLUDING, BUT NOT LIMITED TO, ANY (IF ANY) IMPLIED WARRANTIES,
|
|
* DUTIES OR CONDITIONS OF MERCHANTABILITY, OF FITNESS FOR A PARTICULAR
|
|
* PURPOSE, OF ACCURACY OR COMPLETENESS OF RESPONSES, OF RESULTS, OF
|
|
* WORKMANLIKE EFFORT, OF LACK OF VIRUSES, AND OF LACK OF NEGLIGENCE.
|
|
* ALSO, THERE IS NO WARRANTY OR CONDITION OF TITLE, QUIET ENJOYMENT,
|
|
* QUIET POSSESSION, CORRESPONDENCE TO DESCRIPTION OR NON-INFRINGEMENT
|
|
* WITH REGARD TO THE WORK.
|
|
* 1.2 IN NO EVENT WILL ANY AUTHOR OR DEVELOPER OF THE WORK BE LIABLE TO
|
|
* ANY OTHER PARTY FOR ANY DAMAGES, INCLUDING BUT NOT LIMITED TO THE
|
|
* COST OF PROCURING SUBSTITUTE GOODS OR SERVICES, LOST PROFITS, LOSS
|
|
* OF USE, LOSS OF DATA, OR ANY INCIDENTAL, CONSEQUENTIAL, DIRECT,
|
|
* INDIRECT, OR SPECIAL DAMAGES WHETHER UNDER CONTRACT, TORT, WARRANTY,
|
|
* OR OTHERWISE, ARISING IN ANY WAY OUT OF THIS OR ANY OTHER AGREEMENT
|
|
* RELATING TO THE WORK, WHETHER OR NOT SUCH AUTHOR OR DEVELOPER HAD
|
|
* ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES.
|
|
*
|
|
* Contributors:
|
|
* Gradient Systems
|
|
*/
|
|
#ifndef R_DECIMAL_H
|
|
#define R_DECIMAL_H
|
|
#include "config.h"
|
|
#include "porting.h"
|
|
#include "mathops.h"
|
|
#include <stdio.h>
|
|
|
|
/*
|
|
* a precise decimal data type, using scaled integer
|
|
* arithmetic.
|
|
*/
|
|
typedef struct DECIMAL_T {
|
|
int flags;
|
|
int precision;
|
|
int scale;
|
|
ds_key_t number;
|
|
} decimal_t;
|
|
|
|
#define FL_INIT 0x0004
|
|
|
|
decimal_t *mk_decimal(int s, int p);
|
|
|
|
int itodec(decimal_t *dest, int i);
|
|
int ftodec(decimal_t *d, double f);
|
|
int strtodec(decimal_t *d, char *src);
|
|
|
|
int dectostr(char *dest, decimal_t *d);
|
|
int dectof(double *dest, decimal_t *);
|
|
#define dectoi(d) atoi(d->number)
|
|
|
|
int decimal_t_op(decimal_t *dest, int o, decimal_t *d1, decimal_t *d2);
|
|
void print_decimal(int nColumn, decimal_t *d, int s);
|
|
void set_precision(decimal_t *d, int sie, int precision);
|
|
#define NegateDecimal(d) (d)->number *= -1
|
|
#endif /* R_DECIMAL_H */
|