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

Return to largeff.texi CVS log

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

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

Revision 1.1, Mon Apr 23 05:45:36 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/largeff.texi,v 1.1 2001/04/23 05:45:36 noro Exp $
@section $BBgI8?tAGBN(B

@example
struct oLM @{          $BBgI8?tAGBN$N85(B
    short id;         $B<1JL;R(B (= O_N)
    char nid;         $B?t<1JL;R(B (= N_LM)
    char pad;       
    struct oN *body;  $BBgI8?tAGBN$N85(B
@};

typedef struct oLM *LM;
@end example
$BG$0UI8?t$NAGBN$r07$&$?$a$N7?$G$"$k(B. $BI8?t$O(B oN $B7?$N<+A3?t$H$7$F$"$k@EE*JQ(B
$B?t$K3JG<$5$l$k(B. $B3F85<+BN$OB0$9$kBN$K4X$9$k>pJs$r$b$C$F$*$i$:(B, $B@_Dj$5$l$?(B
$BI8?t$NCM$K$h$j1i;;$,9T$o$l$k(B.

@subsection $BBgI8?tAGBN$N85$N@8@.(B, $BJQ49(B
@example
#include "ca.h"
void setmod_lm(N p)
$B<+A3?t(B p $B$rBgI8?tAGBN$NI8?t$H$7$F@_Dj$9$k(B. p $B$NAG?t%A%'%C%/$O9T$o$J$$(B. 

void getmod_lm(N *p)
$B$=$N;~E@$G@_Dj$5$l$F$$$kBgI8?tAGBN$NI8?t$rJV$9(B. $B@_Dj$5$l$F$$$J$$>l9g(B 0
$B$rJV$9(B. 

void qtolm(Q q,LM *l)
$BM-M}?t(B q $B$rI8=`E*<LA|$K$h$j$=$N;~E@$G@_Dj$5$l$F$$$k(B
$BAGBN$N85$K<LA|$7$?CM$r@8@.$9$k(B. $BJ,Jl$N9T$-@h$,(B 0 $B$N>l9g(B error() $B4X?t(B
$B$,8F$P$l$k(B. 

void simplm(LM n,LM *r)
n $B$N(B body $B$N(B, $B$=$N;~E@$G@_Dj$5$l$F$$$kI8?t$K$h$k>jM>$r(B body $B$H$9$k85$r@8@.(B
$B$9$k(B. 
@end example
@noindent

@subsection $B;MB'(B
@noindent
$B0z?t$O(B 0 $B$^$?$OBgI8?tAGBN$N85$^$?$OM-M}?t(B. $BM-M}?t$O$=$N;~E@$G@_Dj$5$l$F$$$k(B
$BAGBN$N85$KJQ49$5$l$k(B. 

@example
#include "ca.h"

addlm(LM a,LM b,LM *rp)
*rp = a + b

sublm(LM a,LM b,LM *rp)
*rp = a - b

mullm(LM a,LM b,LM *rp)
*rp = a * b

divlm(LM a,LM b,LM *rp)
*rp = a / b

pwrlm(LM a,Q e,LM *rp)
*rp = a ^ e

int cmplm(LM a,LM b)
body $B$NCM$r<+A3?t$H$7$FHf3S(B
@end example