Return to poly.texi CVS log

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

Risa/Asir manual on the internal specifications.

@comment $OpenXM: OpenXM/src/asir-doc/int-parts/datatype/poly.texi,v 1.1 2001/04/23 05:45:36 noro Exp $
@section $BB?9`<0(B

@example
struct oV @{             $BJQ?t(B ($BITDj85(B)
    char *name;         $BL>A0(B
    pointer attr;       $BB0@-(B ($BDL>o$NITDj85$G$O(B 0)
    pointer priv;       $BB0@-$K1~$8$?%W%i%$%Y!<%H%G!<%?(B
@};

typedef struct oV *V;

struct oVL @{            $BJQ?t%j%9%H(B
    V v;                $BJQ?t(B
    struct oVL *next;   $B<!$X$N%]%$%s%?(B
@};

typedef struct oVL *VL;

struct oP @{             $BB?9`<0(B
    short id;           $B<1JL;R(B (= O_P)
    short pad;
    V v;                $B<gJQ?t(B
    struct oDCP *dc;    $B<!?t78?t%j%9%H$X$N%]%$%s%?(B
@};

typedef struct oP *P;

struct oDCP @{           $B<!?t78?t%j%9%H(B
    Q d;                $B<!?t(B
    P c;                $B78?t(B ( Q $B$G$b$h$$(B )
    struct oDCP *next;  $B<!$X$N%]%$%s%?(B
@};

typedef struct oDCP *DCP;

extern VL CO;           $BDj5A:Q$_ITDj85%j%9%H(B
@end example
@noindent
$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. 
$B<!?t78?t%j%9%H$O(B
@example
<$B78?t(B> * <$B<gJQ?t(B>^<$B<!?t(B>
@end example
@noindent
$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
$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
$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
$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. 

@subsection $BB?9`<0$N@8@.(B
@example
#include "ca.h"

MKP(v,dc,p)  (macro; V v; DCP dc; P p)
$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. 
dc $B$N<!?t$,(B 0 $B$N>l9g(B p = <dc $B$N78?t(B> $B$H$J$k(B. 

MKV(v,p)     (macro; V v; P p)   $BJQ?t(B v $B$rB?9`<0$KJQ49$9$k(B. 

NEXTDC(r,c)  (macro; MP r,c)
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
$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, 
$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. 
@end example

@code{NEXTDC()}$B$O(B, $B<!?t78?t%j%9%H$NKvHx$K<!?t78?t%Z%"$rDI2C$7$F$$$/>l9g$KMQ$$$k(B. 
@subsection $B;MB'(B
@example
#include "ca.h"

addp(VL vl,P a,P b,P *rp)
*rp = a + b

subp(VL vl,P a,P b,P *rp)
*rp = a - b

mulp(VL vl,P a,P b,P *rp)
*rp = a * b

pwrp(VL vl,P a,Q e,P *rp)
*rp = a ^ e

compp(VL vl,P a,P b)
$B$"$k5,B'$K$h$kHf3S(B. 
@end example
@noindent
$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. 

@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
$B$,>e$N>l9g(B 1, @code{b} $B$,>e$N>l9g(B -1 $B$rJV$9(B. 

@enumerate
@item $B0lJ}$,?t(B, $B0lJ}$,?t$G$J$$B?9`<0$N>l9g(B, $B8e<T$,>e(B. 
@item $BAPJ}$H$b?t$N>l9g(B, @code{compnum(a,b)} $B$NCM$K$h$k(B. 
@item $BAPJ}$H$bB?9`<0$N>l9g(B, $B<gJQ?t$N=g=x$,(B @code{vl} $B$NJ}$,>e(B. 
@item $B<gJQ?t$,Ey$7$$>l9g(B, $B<!?t$,9b$$J}$,>e(B. 
@item $B<gJQ?t$b<!?t$bEy$7$$>l9g(B, $B78?t$r>e$+$iHf3S$9$k(B. 
@end enumerate