Annotation of OpenXM/src/asir-doc/int-parts/datatype/largeff.texi, Revision 1.1
1.1 ! noro 1: @comment $OpenXM$
! 2: @section $BBgI8?tAGBN(B
! 3:
! 4: @example
! 5: struct oLM @{ $BBgI8?tAGBN$N85(B
! 6: short id; $B<1JL;R(B (= O_N)
! 7: char nid; $B?t<1JL;R(B (= N_LM)
! 8: char pad;
! 9: struct oN *body; $BBgI8?tAGBN$N85(B
! 10: @};
! 11:
! 12: typedef struct oLM *LM;
! 13: @end example
! 14: $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
! 15: $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
! 16: $BI8?t$NCM$K$h$j1i;;$,9T$o$l$k(B.
! 17:
! 18: @subsection $BBgI8?tAGBN$N85$N@8@.(B, $BJQ49(B
! 19: @example
! 20: #include "ca.h"
! 21: void setmod_lm(N p)
! 22: $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.
! 23:
! 24: void getmod_lm(N *p)
! 25: $B$=$N;~E@$G@_Dj$5$l$F$$$kBgI8?tAGBN$NI8?t$rJV$9(B. $B@_Dj$5$l$F$$$J$$>l9g(B 0
! 26: $B$rJV$9(B.
! 27:
! 28: void qtolm(Q q,LM *l)
! 29: $BM-M}?t(B q $B$rI8=`E*<LA|$K$h$j$=$N;~E@$G@_Dj$5$l$F$$$k(B
! 30: $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
! 31: $B$,8F$P$l$k(B.
! 32:
! 33: void simplm(LM n,LM *r)
! 34: 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
! 35: $B$9$k(B.
! 36: @end example
! 37: @noindent
! 38:
! 39: @subsection $B;MB'(B
! 40: @noindent
! 41: $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
! 42: $BAGBN$N85$KJQ49$5$l$k(B.
! 43:
! 44: @example
! 45: #include "ca.h"
! 46:
! 47: addlm(LM a,LM b,LM *rp)
! 48: *rp = a + b
! 49:
! 50: sublm(LM a,LM b,LM *rp)
! 51: *rp = a - b
! 52:
! 53: mullm(LM a,LM b,LM *rp)
! 54: *rp = a * b
! 55:
! 56: divlm(LM a,LM b,LM *rp)
! 57: *rp = a / b
! 58:
! 59: pwrlm(LM a,Q e,LM *rp)
! 60: *rp = a ^ e
! 61:
! 62: int cmplm(LM a,LM b)
! 63: body $B$NCM$r<+A3?t$H$7$FHf3S(B
! 64: @end example
! 65:
! 66:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>