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

Return to ratexp.texi CVS log

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

File: [local] / OpenXM / src / asir-doc / int-parts / datatype / ratexp.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/ratexp.texi,v 1.1 2001/04/23 05:45:37 noro Exp $
@section $BM-M}<0(B

@example
struct oR @{             $BM-M}<0(B
    short id;           $B<1JL;R(B (= O_R)
    short reduced;      $B4{LsJ,?t$N$H$-(B 1
    P nm;               $BJ,;R(B
    P dn;               $BJ,Jl(B
@};

typedef struct oR *R;
@end example
@noindent

$BM-M}<0$O(B, $BC1$KJ,Jl(B, $BJ,;R$H$$$&Fs$D$NB?9`<0$NAH9g$;$G$"$k(B. $BM-M}?t$H0[$J(B
$B$j(B, $BI,$:$7$b4{Ls$H$O8B$i$J$$(B. $B4{Ls$K$9$k$?$a$K$O(B, @code{reductr()} $B$K(B
$B$h$jL@<(E*$KLsJ,$r9T$J$&I,MW$,$"$k(B. $B0lEYLsJ,$5$l$?M-M}<0$O(B, $B%a%s%P(B 
@code{reduced} $B$,(B @code{1} $B$K$J$k$?$a4{Ls@-$,J]>Z$5$l$k(B. @code{Obj} $B$O(B 
@code{risa} $B$K$*$$$FFHN)$7$FB8:_$9$k(B($B<1JL;R$r;}$D(B)  object $B$K6&DL(B
$B$9$k%a%s%P$G$"$k(B. 

@subsection $BM-M}<0$N@8@.(B
@example
#include "ca.h"

PTOR(p,r)    (macro; P p; R r)
$BB?9`<0(B p $B$r(B, $BJ,;R(B p, $BJ,Jl(B 1 $B$NM-M}<0$KJQ49$9$k(B. 
@end example

@subsection $B;MB'(B
@noindent 
$B0J2<$N3FH!?t$OF~NO$H$7$F?t(B, $BB?9`<0(B, $BM-M}<0(B (@code{id} $B$,(B @code{O_R} $B0J2<(B)
$B$N(B object $B$,$H$l$k(B. 

@example
#include "ca.h"

addr(VL vl,Obj a,Obj b,Obj *rp)
*rp = a + b

subr(VL vl,Obj a,Obj b,Obj *rp)
*rp = a - b

mulr(VL vl,Obj a,Obj b,Obj *rp)
*rp = a * b

divr(VL vl,Obj a,Obj b,Obj *rp)
*rp = a * b

pwrr(VL vl,Obj a,Q e,Obj *rp)
*rp = a ^ e

reductr(VL vl,Obj a,Obj *rp)
*rp = a $B$rLsJ,$7$?$b$N(B. 
@end example