git.zerfleddert.de Git - micropolis/blob - src/tclx/ucbsrc/tclexpr.sed

   1 /#include "tclint.h"/a\
   2 \#include "tclxint.h"
   3
   4 /           sprintf(interp->result, "%g", value.doubleValue);/c\
   5             Tcl_ReturnDouble (interp, value.doubleValue);