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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>