Return to ratexp.texi CVS log

Up to [local] / OpenXM / src / asir-doc / int-parts / datatype

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: