Return to poly.texi CVS log

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

Annotation of OpenXM/src/asir-doc/int-parts/datatype/poly.texi, Revision 1.1

1.1     ! noro        1: @comment $OpenXM$
        !             2: @section $BB?9`<0(B
        !             3:
        !             4: @example
        !             5: struct oV @{             $BJQ?t(B ($BITDj85(B)
        !             6:     char *name;         $BL>A0(B
        !             7:     pointer attr;       $BB0@-(B ($BDL>o$NITDj85$G$O(B 0)
        !             8:     pointer priv;       $BB0@-$K1~$8$?%W%i%$%Y!<%H%G!<%?(B
        !             9: @};
        !            10:
        !            11: typedef struct oV *V;
        !            12:
        !            13: struct oVL @{            $BJQ?t%j%9%H(B
        !            14:     V v;                $BJQ?t(B
        !            15:     struct oVL *next;   $B<!$X$N%]%$%s%?(B
        !            16: @};
        !            17:
        !            18: typedef struct oVL *VL;
        !            19:
        !            20: struct oP @{             $BB?9`<0(B
        !            21:     short id;           $B<1JL;R(B (= O_P)
        !            22:     short pad;
        !            23:     V v;                $B<gJQ?t(B
        !            24:     struct oDCP *dc;    $B<!?t78?t%j%9%H$X$N%]%$%s%?(B
        !            25: @};
        !            26:
        !            27: typedef struct oP *P;
        !            28:
        !            29: struct oDCP @{           $B<!?t78?t%j%9%H(B
        !            30:     Q d;                $B<!?t(B
        !            31:     P c;                $B78?t(B ( Q $B$G$b$h$$(B )
        !            32:     struct oDCP *next;  $B<!$X$N%]%$%s%?(B
        !            33: @};
        !            34:
        !            35: typedef struct oDCP *DCP;
        !            36:
        !            37: extern VL CO;           $BDj5A:Q$_ITDj85%j%9%H(B
        !            38: @end example
        !            39: @noindent
        !            40: $BB?9`<0$O(B, $B$"$kJQ?t(B($B<gJQ?t(B)$B$K4X$9$kB?9`<0$H$7$F:F5"E*$KI=8=$5$l$k(B.
        !            41: $B<!?t78?t%j%9%H$O(B
        !            42: @example
        !            43: <$B78?t(B> * <$B<gJQ?t(B>^<$B<!?t(B>
        !            44: @end example
        !            45: @noindent
        !            46: $B$H$$$&B?9`<0$N3F9`$r(B, $B9_$Y$-$N=g$K%j%9%H$GI=8=$7$?$b$N$G$"$k(B. $BB?9`<0$b?t(B
        !            47: $B$HF1MM$K<1JL;R$r;}$D(B. $B78?t$,??$KB?9`<0$G$"$k$+(B, $B?t$G$"$k$+$O(B, $B$=$N<1JL;R(B
        !            48: $B$K$h$jH=Dj$9$k(B. $BJQ?t$?$A$O$"$k=g=x$,Dj$a$i$l(B, $BB?9`<0$O$=$NJQ?t=g=x$K$h$j(B
        !            49: $B9=@.$5$l(B, $B1i;;$5$l$k(B. $BJQ?t=g=x$O(B @code{VL} $B$K$h$jI=8=$5$l$k(B.
        !            50:
        !            51: @subsection $BB?9`<0$N@8@.(B
        !            52: @example
        !            53: #include "ca.h"
        !            54:
        !            55: MKP(v,dc,p)  (macro; V v; DCP dc; P p)
        !            56: $B<gJQ?t(B v, $B<!?t78?t%j%9%H(B dc $B$+$iB?9`<0(B p $B$r@8@.$9$k(B.
        !            57: dc $B$N<!?t$,(B 0 $B$N>l9g(B p = <dc $B$N78?t(B> $B$H$J$k(B.
        !            58:
        !            59: MKV(v,p)     (macro; V v; P p)   $BJQ?t(B v $B$rB?9`<0$KJQ49$9$k(B.
        !            60:
        !            61: NEXTDC(r,c)  (macro; MP r,c)
        !            62: r $B$r<!?t78?t%j%9%H$N@hF,$H$7(B, c $B$rKvHx$H$9$k$H$-(B, $BKvHx$K<!?t78?t%j%9%H$r(B
        !            63: $BDI2C$7(B, c $B$r$=$N<!?t78?t%j%9%H$r;X$9$h$&$K$9$k(B. r $B$,(B 0 $B$N$H$-(B,
        !            64: $B<!?t78?t%j%9%H$,@8@.$5$l(B, r $B$*$h$S(B c $B$O$=$N<!?t78?t%j%9%H$r;X$9(B.
        !            65: @end example
        !            66:
        !            67: @code{NEXTDC()}$B$O(B, $B<!?t78?t%j%9%H$NKvHx$K<!?t78?t%Z%"$rDI2C$7$F$$$/>l9g$KMQ$$$k(B.
        !            68: @subsection $B;MB'(B
        !            69: @example
        !            70: #include "ca.h"
        !            71:
        !            72: addp(VL vl,P a,P b,P *rp)
        !            73: *rp = a + b
        !            74:
        !            75: subp(VL vl,P a,P b,P *rp)
        !            76: *rp = a - b
        !            77:
        !            78: mulp(VL vl,P a,P b,P *rp)
        !            79: *rp = a * b
        !            80:
        !            81: pwrp(VL vl,P a,Q e,P *rp)
        !            82: *rp = a ^ e
        !            83:
        !            84: compp(VL vl,P a,P b)
        !            85: $B$"$k5,B'$K$h$kHf3S(B.
        !            86: @end example
        !            87: @noindent
        !            88: $B$3$l$i$NH!?t$N0z?t$H$7$F?t$bF1MM$K$H$l$k(B. $B3d$j;;$O$=$NB>$N1i;;$N9`$G=R$Y$k(B.
        !            89:
        !            90: @code{compp(vl,a,b)} $B$O<!$N$h$&$J=g=x$E$1$K$h$k(B. $B0J2<$G(B, @code{a} $B$N=g=x(B
        !            91: $B$,>e$N>l9g(B 1, @code{b} $B$,>e$N>l9g(B -1 $B$rJV$9(B.
        !            92:
        !            93: @enumerate
        !            94: @item $B0lJ}$,?t(B, $B0lJ}$,?t$G$J$$B?9`<0$N>l9g(B, $B8e<T$,>e(B.
        !            95: @item $BAPJ}$H$b?t$N>l9g(B, @code{compnum(a,b)} $B$NCM$K$h$k(B.
        !            96: @item $BAPJ}$H$bB?9`<0$N>l9g(B, $B<gJQ?t$N=g=x$,(B @code{vl} $B$NJ}$,>e(B.
        !            97: @item $B<gJQ?t$,Ey$7$$>l9g(B, $B<!?t$,9b$$J}$,>e(B.
        !            98: @item $B<gJQ?t$b<!?t$bEy$7$$>l9g(B, $B78?t$r>e$+$iHf3S$9$k(B.
        !            99: @end enumerate
        !           100: