Annotation of OpenXM/src/asir-doc/int-parts/datatype/vect.texi, Revision 1.1
1.1 ! noro 1: @comment $OpenXM$
! 2: @section $B%Y%/%H%k(B
! 3:
! 4: @example
! 5: struct oVECT @{ $B%Y%/%H%k(B
! 6: short id; $B<1JL;R(B (= O_VECT)
! 7: short pad;
! 8: pointer *body; $B@.J,G[Ns$X$N%]%$%s%?(B
! 9: @} *VECT;
! 10: @end example
! 11:
! 12: @noindent
! 13: $B%Y%/%H%k$O(B, $B?t3XE*$JBP>]$H$7$F$N%Y%/%H%k$H$7$FMQ$$$i$l$k$[$+(B, $B$5$^$6$^$J(B
! 14: object $B$r@.J,$K;}$D0l<!85G[Ns$H$7$F$bMQ$$$i$l$k(B. $BA0<T$N>l9g(B, $B%Y%/%H%k$I$&$7(B
! 15: $B$NOB(B, $B:9(B, $B%9%+%i!<G\(B, $B9TNs$H$N@Q$,4pK\1i;;$H$7$FDs6!$5$l$k(B.
! 16: $B9TNs$H$N@Q$r7W;;$9$k>l9g(B, $B9TNs$r:8$+$i$+$1$k>l9g$K$O(B, $B%Y%/%H%k$ONs%Y%/%H%k(B,
! 17: $B1&$+$i$+$1$k>l9g$K$O9T%Y%/%H%k$H8+$J$5$l$k(B.
! 18:
! 19: @subsection $B%Y%/%H%k$N@8@.(B
! 20: @example
! 21: #include "ca.h"
! 22:
! 23: MKVECT(m,l) (macro; VECT m; int l)
! 24: $BD9$5(B l $B$N%Y%/%H%k(B m $B$r@8@.$9$k(B.
! 25: @end example
! 26:
! 27: @subsection $B;MB'(B
! 28: @example
! 29: #include "ca.h"
! 30:
! 31: void addvect(VL vl,VECT a,VECT b,VECT *rp)
! 32: *rp = a + b
! 33:
! 34: void subvect(VL vl,VECT a,VECT b,VECT *rp)
! 35: *rp = a - b
! 36:
! 37: void mulvect(VL vl,Obj a,Obj b,Obj *rp)
! 38: *rp = a * b ($B0lJ}$,%9%+%i!<$9$J$o$A?t(B, $BB?9`<0$^$?$OM-M}?t$N>l9g$N%9%+%i!<G\(B)
! 39:
! 40: void divvect(VL vl,Obj a,Obj b,Obj *rp)
! 41: *rp = a / b ($B%9%+%i!<(B b $B$K$h$k(B 1/b $BG\(B)
! 42:
! 43: int compvect(VL vl,P a,Q e)
! 44: $B0J2<$G=R$Y$k=g=x$GHf3S(B.
! 45: @end example
! 46: @noindent
! 47: $B%Y%/%H%k$I$&$7$N=g=xHf3S$O0J2<$K$h$k(B.
! 48: @enumerate
! 49: @item $BD9$5$,Bg$-$$J}$,=g=x$,>e(B.
! 50: @item $BD9$5$,Ey$7$$>l9g(B, $B@.J,$I$&$7$r@hF,$+$iHf3S(B.
! 51: @end enumerate
! 52:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>