OpenXM_contrib2/asir2000/builtin/math.c - diff

Return to math.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/math.c between version 1.2 and 1.5

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

version 1.5, 2003/11/08 01:12:02

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/builtin/math.c,v 1.1.1.1 1999/12/03 07:39:07 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/math.c,v 1.4 2000/12/07 07:06:41 noro Exp $

#include "ca.h"

#include <math.h>

Line 65 struct ftab math_tab[] = {

{"dasin",Pdasin,1},

{"dacos",Pdacos,1},

{"datan",Pdatan,1},

{"floor",Pdfloor,1},

{"dfloor",Pdfloor,1},

{"ceil",Pdceil,1},

{"dceil",Pdceil,1},

{"rint",Pdrint,1},

{"drint",Pdrint,1},

{0,0,0},

};

Line 188 Q *rp;

Line 191 Q *rp;

d = floor(ToReal(ARG0(arg)));

if ( d < -9.223372036854775808e18 || d >= 9.223372036854775808e18 )

error("dfloor : OverFlow");

if ( !d ) {

*rp = 0;

return;

}

a = (L)d;

if ( a < 0 ) {

sgn = -1;

Line 227 Q *rp;

Line 234 Q *rp;

d = ceil(ToReal(ARG0(arg)));