🚀 go-pugleaf

  $B;3ED!w!wD.ED;T$G$9!#(B

  $B:F;0$N!"<+8J%U%)%m!<$K$J$C$F$7$^$$<:Ni$7$^$9!#(B
  $BED8}8}$5$s$+$i!"(Be-mail $B$$$?$@$-!"(Btcl7.5a2 $B$N(B porting.notes $B$rFI(B
$B$`$h$&$K8@$o$l!"3NG'$7$F8+$^$7$?=j!"(BtclBasic.c $B$K(B

#include <floatingpoint.h>  <<<<<< $B$3$N#19T$r2C$($k$k!#(B

Tcl_Init(.....
   :
   :
    fpsetround(FP_RN); <<<<<  $B$3$N#29T$r2C$($k!#(B
    fpsetmask(0L);     <<<<<
    return Tcl_Eval(interp, initCmd);
}

$B$H$"$j!"$3$l$O(B 7.5a2 $B$G$O(B unix/TclUnixInit.c $B$K$"$j$^$9$N$G!"$=(B
$B$3$G=$@5$7$^$7$?!#$3$l$G$b(B make test $B$9$k$H$H!"$d$C$Q$j%@%a$J$N$G!"(B
$B$7$P$79M$($F8+$k$H!"(Bdynamic loading $B$J$s$G$9$h$M!#!#=$@5$r$9$kA0$N(B 
library $B$,@h$KFI$_9~$^$l$F$$$k0Y$K!";]$/9T$+$J$+$C$?$N$N$G$7$?!#(B 
make install;make test $B$GL5;v=*N;$G$7$?!#(B
C $B$NJ}$b!"(Bfpsetround() $B$H(B fpsetmask() $B$rF~$l$k$3$H$K$h$j!"Mn$A$k(B
$B$3$H$OL5$/$J$j$^$7$?!#(B( pow(3.0, 1000.0) $B$C$F=PMh$J$$$s$G$9$M!#(B
$B4v$D$K$J$k$s$@$m!)(B)


                                 ken@tydfam.iijnet.or.jp
                                 PED00213@niftyserve.or.jp
                                 Takeshi "Ken" Yamada ($B;3ED(B $B7r(B)