Annotation of OpenXM/src/asir-doc/int-parts/datatype/float.texi, Revision 1.1
1.1 ! noro 1: @comment $OpenXM$
! 2: @section $BG\@:EYIbF0>.?t(B
! 3:
! 4: @example
! 5: struct oReal @{ $BG\@:EYIbF0>.?t(B
! 6: short id; $B<1JL;R(B (= O_N)
! 7: char nid; $B?t<1JL;R(B (= N_R)
! 8: char pad;
! 9: double body; $BG\@:EYIbF0>.?t(B
! 10: @};
! 11:
! 12: typedef struct oReal *Real;
! 13: @end example
! 14:
! 15: @subsection $BG\@:EYIbF0>.?t$N@8@.(B, $BJQ49(B
! 16: @example
! 17: #include "ca.h"
! 18:
! 19: MKReal(a,b) (macro; double a; Real b)
! 20: body $B$,(B a $B$G$"$kG\@:EYIbF0>.?t(B b $B$r@8@.$9$k(B.
! 21:
! 22: double RatnToReal(Q a)
! 23: $BM-M}?t(B a $B$rG\@:EYIbF0>.?t$KJQ49$9$k(B.
! 24: @end example
! 25: @noindent
! 26: $B%^%/%m$GI,MW$JNN0h$O%^%/%mFb$G3NJ]$5$l$k(B.
! 27:
! 28: @subsection $B;MB'(B
! 29: @noindent
! 30: $B$$$:$l$b(B, $BIbF0>.?t(B, $BM-M}?tN>J}$rF~NO$K$H$l$k(B. $B7k2L$O$9$Y$FIbF0>.?t$H$J$k(B.
! 31:
! 32: @example
! 33: #include "ca.h"
! 34:
! 35: addreal(Num a,Num b,Real *rp)
! 36: *rp = a + b
! 37:
! 38: subreal(Num a,Num b,Real *rp)
! 39: *rp = a - b
! 40:
! 41: mulreal(Num a,Num b,Real *rp)
! 42: *rp = a * b
! 43:
! 44: divreal(Num a,Num b,Real *rp)
! 45: *rp = a / b
! 46:
! 47: pwrreal(Num a,Num e,Real *rp)
! 48: *rp = a ^ e
! 49:
! 50: int cmpreal(Num a,Num b)
! 51: sgn(a-b)
! 52: @end example
! 53:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>