Annotation of OpenXM/src/asir-doc/int-parts/datatype/ratexp.texi, Revision 1.1
1.1 ! noro 1: @comment $OpenXM$
! 2: @section $BM-M}<0(B
! 3:
! 4: @example
! 5: struct oR @{ $BM-M}<0(B
! 6: short id; $B<1JL;R(B (= O_R)
! 7: short reduced; $B4{LsJ,?t$N$H$-(B 1
! 8: P nm; $BJ,;R(B
! 9: P dn; $BJ,Jl(B
! 10: @};
! 11:
! 12: typedef struct oR *R;
! 13: @end example
! 14: @noindent
! 15:
! 16: $BM-M}<0$O(B, $BC1$KJ,Jl(B, $BJ,;R$H$$$&Fs$D$NB?9`<0$NAH9g$;$G$"$k(B. $BM-M}?t$H0[$J(B
! 17: $B$j(B, $BI,$:$7$b4{Ls$H$O8B$i$J$$(B. $B4{Ls$K$9$k$?$a$K$O(B, @code{reductr()} $B$K(B
! 18: $B$h$jL@<(E*$KLsJ,$r9T$J$&I,MW$,$"$k(B. $B0lEYLsJ,$5$l$?M-M}<0$O(B, $B%a%s%P(B
! 19: @code{reduced} $B$,(B @code{1} $B$K$J$k$?$a4{Ls@-$,J]>Z$5$l$k(B. @code{Obj} $B$O(B
! 20: @code{risa} $B$K$*$$$FFHN)$7$FB8:_$9$k(B($B<1JL;R$r;}$D(B) object $B$K6&DL(B
! 21: $B$9$k%a%s%P$G$"$k(B.
! 22:
! 23: @subsection $BM-M}<0$N@8@.(B
! 24: @example
! 25: #include "ca.h"
! 26:
! 27: PTOR(p,r) (macro; P p; R r)
! 28: $BB?9`<0(B p $B$r(B, $BJ,;R(B p, $BJ,Jl(B 1 $B$NM-M}<0$KJQ49$9$k(B.
! 29: @end example
! 30:
! 31: @subsection $B;MB'(B
! 32: @noindent
! 33: $B0J2<$N3FH!?t$OF~NO$H$7$F?t(B, $BB?9`<0(B, $BM-M}<0(B (@code{id} $B$,(B @code{O_R} $B0J2<(B)
! 34: $B$N(B object $B$,$H$l$k(B.
! 35:
! 36: @example
! 37: #include "ca.h"
! 38:
! 39: addr(VL vl,Obj a,Obj b,Obj *rp)
! 40: *rp = a + b
! 41:
! 42: subr(VL vl,Obj a,Obj b,Obj *rp)
! 43: *rp = a - b
! 44:
! 45: mulr(VL vl,Obj a,Obj b,Obj *rp)
! 46: *rp = a * b
! 47:
! 48: divr(VL vl,Obj a,Obj b,Obj *rp)
! 49: *rp = a * b
! 50:
! 51: pwrr(VL vl,Obj a,Q e,Obj *rp)
! 52: *rp = a ^ e
! 53:
! 54: reductr(VL vl,Obj a,Obj *rp)
! 55: *rp = a $B$rLsJ,$7$?$b$N(B.
! 56: @end example
! 57:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>