OpenXM/src/asir-doc/int-parts/datatype/vect.texi - view

Return to vect.texi CVS log

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

File: [local] / OpenXM / src / asir-doc / int-parts / datatype / vect.texi (download)

Revision 1.1, Mon Apr 23 05:45:37 2001 UTC (23 years, 2 months ago) by noro
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9

Risa/Asir manual on the internal specifications.

@comment $OpenXM: OpenXM/src/asir-doc/int-parts/datatype/vect.texi,v 1.1 2001/04/23 05:45:37 noro Exp $
@section $B%Y%/%H%k(B

@example
struct oVECT @{          $B%Y%/%H%k(B
    short id;           $B<1JL;R(B (= O_VECT)
    short pad;
    pointer *body;      $B@.J,G[Ns$X$N%]%$%s%?(B
@} *VECT;
@end example

@noindent
$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
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
$B$NOB(B, $B:9(B, $B%9%+%i!<G\(B, $B9TNs$H$N@Q$,4pK\1i;;$H$7$FDs6!$5$l$k(B. 
$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, 
$B1&$+$i$+$1$k>l9g$K$O9T%Y%/%H%k$H8+$J$5$l$k(B. 

@subsection $B%Y%/%H%k$N@8@.(B
@example
#include "ca.h"

MKVECT(m,l)  (macro; VECT m; int l)
$BD9$5(B l $B$N%Y%/%H%k(B m $B$r@8@.$9$k(B. 
@end example

@subsection $B;MB'(B
@example
#include "ca.h"

void addvect(VL vl,VECT a,VECT b,VECT *rp)
*rp = a + b

void subvect(VL vl,VECT a,VECT b,VECT *rp)
*rp = a - b

void mulvect(VL vl,Obj a,Obj b,Obj *rp)
*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)

void divvect(VL vl,Obj a,Obj b,Obj *rp)
*rp = a / b ($B%9%+%i!<(B b $B$K$h$k(B 1/b $BG\(B)

int compvect(VL vl,P a,Q e)
$B0J2<$G=R$Y$k=g=x$GHf3S(B. 
@end example
@noindent
$B%Y%/%H%k$I$&$7$N=g=xHf3S$O0J2<$K$h$k(B. 
@enumerate
@item $BD9$5$,Bg$-$$J}$,=g=x$,>e(B. 
@item $BD9$5$,Ey$7$$>l9g(B, $B@.J,$I$&$7$r@hF,$+$iHf3S(B. 
@end enumerate