fconv.c File Reference

#include <schily/mconfig.h>
#include <schily/stdlib.h>
#include <schily/standard.h>
#include <schily/string.h>
#include <schily/schily.h>
#include <schily/math.h>
#include <schily/nlsdefs.h>
#include <schily/float.h>
#include "cvt.c"

Include dependency graph for fconv.c:

Go to the source code of this file.

Macros
#define	isnan(val)   (0)
#define	NO_ISNAN
#define	isinf(val)   (0)
#define	NO_ISINF
#define	MDOUBLE   double
#define	abs(i)   ((i) < 0 ? -(i) : (i))

Functions
char *ecvt	__PR ((double, int, int *, int *))
static int _ferr	__PR ((char *, double))
EXPORT int	ftoes (register char *s, MDOUBLE val, register int fieldwidth, register int ndigits)
EXPORT int	ftofs (register char *s, MDOUBLE val, register int fieldwidth, register int ndigits)
LOCAL int	_ferr (char *s, double val)

Variables
static char	_js_nan [] = "(NaN)"
static char	_js_inf [] = "(Infinity)"

Macro Definition Documentation

#define abs

(

i

)

((i) < 0 ? -(i) : (i))

Definition at line 206 of file fconv.c.

Referenced by Advanced_LoadTree(), BaseControlVideoImpl_get_VideoHeight(), BezierCheck(), BITMAP_CopyBitmap(), bmi_has_alpha(), BmpFrameDecode_GetSize(), BmpFrameDecode_ReadRLE4(), BmpFrameDecode_ReadRLE8(), BmpFrameDecode_ReadUncompressed(), Brush(), check_exe(), check_file_time(), CheckListWndProc(), cmp_font_metrics(), co_IntProcessMouseMessage(), co_IntSetScrollInfo(), color_match(), colour_match(), compare_float(), compareTime(), ComponentFactory_CreateBitmapFromHICON(), CreateDIBitmap(), DC_vFixIsotropicMapping(), decode_frame_wic(), DIB_BltFromVGA(), DIB_CreateDIBSection(), DIB_XXBPP_StretchBlt(), DRIVER_RestoreDC(), DrvSetPointerShape(), DrvTransparentBlt(), EDIT_EM_ReplaceSel(), EDIT_GetCompositionStr(), EMF_RestoreDC(), Erase(), expand_macro(), ftGdiGetGlyphOutline(), ftoes(), GdiGetBitmapBitsSize(), GdipCreateBitmapFromGdiDib(), GdipCreateBitmapFromHBITMAP(), GdipCreateBitmapFromHICON(), GdipCreateBitmapFromScan0(), get_dib_image_size(), get_dib_size(), get_image_part_size(), get_palette_index(), GetOutlineTextMetricsW(), GraphCtrl_InvalidateCtrl(), GreCreateDIBitmapFromPackedDIB(), HEADER_IsDragDistance(), HexEditWndProc(), ICImageDecompress(), ICO_ExtractIconExW(), ImageList_DragMove(), CMathTest::import_checks(), InitBitmap(), IntArc(), IntCreateCompatibleBitmap(), IntCreateDIBitmap(), IntCreateStockPen(), IntDrawRoundRect(), IntEngGradientFillRect(), IntFillRoundRect(), IntGdiExtCreatePen(), IntGetMonitorsFromRect(), IntRoundRect(), IntSynthesizeDib(), is_equal_rect(), JOY_Timer(), joystick_map_axis(), KeSetBasePriorityThread(), LISTBOX_SetHorizontalPos(), LISTVIEW_ScrollOnInsert(), LISTVIEW_ShiftIndices(), LookupIconIdFromDirectoryEx(), match_off_by_n(), MatrixWndProc(), ME_CalculateClickCount(), ME_RTFSpecialCharHook(), ME_ScrollAbs(), mixer_test_controlA(), mixer_test_controlW(), MSZipCodecUncompress(), near_match(), audio_waveout::nsample(), audio_wavein::nsample(), NtGdiCreateRoundRectRgn(), NtGdiGetBitmapBits(), NtGdiSetDIBitsToDeviceInternal(), NtGdiStretchDIBitsInternal(), CGridView::OnVScroll(), OnVScroll(), PATH_RoundRect(), PlayEnhMetaFileRecord(), POLYGONFILL_MakeEdge(), CardRegion::PrepareDragBitmaps(), CardRegion::PrepareDragBitmapsThreed(), RawCodecUncompress(), REBAR_MouseMove(), REGION_bMakeFrameRegion(), regularize(), CardRegion::Render(), Replace(), roundTo8Directions(), s_sum_L1_norms(), ScreenSaverProc(), ScriptXtoCP(), SetDIBits(), SOFTWARE_GdipDrawThinPath(), stripe_next_unit(), surface_blt_fbo(), surface_is_full_rect(), synthesize_dib(), tanhT(), tanT(), taskdialog_add_buttons(), test_atan2(), test_bitmap_font_metrics(), test_clock(), test_cos(), test_device_caps(), test_dib_info(), Test_ExtCreatePen_Expect(), test_fullscreen(), test_ifont_size(), test_length(), test_rotate(), Test_SetDIBitsToDevice_Params(), test_sin(), test_tan(), test_text_metrics(), test_timers(), test_timers_no_wnd(), test_unit(), TEXT_TabbedTextOut(), TextIntGetTextExtentPoint(), ValarrayTest::transcendentals(), UnsafeSetBitmapBits(), UPDOWN_MouseWheel(), UXTHEME_DrawImageBackground(), UXTHEME_StretchBlt(), vncLookupColour(), wave_out_play(), weld_dec3n(), weld_short2(), weld_short4(), wglUseFontOutlines_common(), wined3d_find_closest_matching_adapter_mode(), and xmlreader_GetValue().

#define isinf

(

val

)

(0)

Definition at line 129 of file fconv.c.

Referenced by _ferr().

#define isnan

(

val

)

(0)

Definition at line 124 of file fconv.c.

Referenced by _ferr().

#define MDOUBLE   double

Definition at line 200 of file fconv.c.

#define NO_ISINF

Definition at line 130 of file fconv.c.

#define NO_ISNAN

Definition at line 125 of file fconv.c.

Function Documentation

char* ecvt __PR

(

(double, int, int *, int *)

)

static int _ferr __PR ( (char *, double)  )

static

LOCAL int _ferr	(	char *	s,
		double	val
	)

Definition at line 397 of file fconv.c.

Referenced by ftoes(), and ftofs().

{
    if (isnan(val)) {
        strcpy(s, _js_nan);
        return (sizeof (_js_nan) - 1);
    }

    /*
     * Check first for NaN because finite() will return 1 on Nan too.
     */
    if (isinf(val)) {
        strcpy(s, _js_inf);
        return (sizeof (_js_inf) - 1);
    }
    return (0);
}

EXPORT int ftoes	(	register char *	s,
		MDOUBLE	val,
		register int	fieldwidth,
		register int	ndigits
	)

Definition at line 209 of file fconv.c.

Referenced by for().

{
    register    char    *b;
    register    char    *rs;
    register    int len;
    register    int rdecpt;
            int     decpt;
            int sign;

#ifndef __DO_LONG_DOUBLE__
    if ((len = _ferr(s, val)) > 0)
        return (len);
#endif
    rs = s;
#ifdef  V7_FLOATSTYLE
    b = ecvt(val, ndigits, &decpt, &sign);
    rdecpt = decpt;
#else
    b = ecvt(val, ndigits+1, &decpt, &sign);
    rdecpt = decpt-1;
#endif
#ifdef  __DO_LONG_DOUBLE__
    len = *b;
    if (len < '0' || len > '9') {       /* Inf/NaN */
        strcpy(s, b);
        return (strlen(b));
    }
#endif
    len = ndigits + 6;          /* Punkt e +/- nnn */
    if (sign)
        len++;
    if (fieldwidth > len)
        while (fieldwidth-- > len)
            *rs++ = ' ';
    if (sign)
        *rs++ = '-';
#ifndef V7_FLOATSTYLE
    if (*b)
        *rs++ = *b++;
#endif
#if defined(HAVE_LOCALECONV) && defined(USE_LOCALE)
    *rs++ = *(localeconv()->decimal_point);
#else
    *rs++ = '.';
#endif
    while (*b && ndigits-- > 0)
        *rs++ = *b++;
    *rs++ = 'e';
    *rs++ = rdecpt >= 0 ? '+' : '-';
    rdecpt = abs(rdecpt);
#ifdef  __DO_LONG_DOUBLE__
    if (rdecpt >= 1000) {           /* Max-Exp is > 4000 */
        *rs++ = rdecpt / 1000 + '0';
        rdecpt %= 1000;
    }
#endif
#ifndef V7_FLOATSTYLE
    if (rdecpt >= 100)
#endif
    {
        *rs++ = rdecpt / 100 + '0';
        rdecpt %= 100;
    }
    *rs++ = rdecpt / 10 + '0';
    *rs++ = rdecpt % 10 + '0';
    *rs = '\0';
    return (rs - s);
}

EXPORT int ftofs	(	register char *	s,
		MDOUBLE	val,
		register int	fieldwidth,
		register int	ndigits
	)

Definition at line 290 of file fconv.c.

Referenced by for().

{
    register    char    *b;
    register    char    *rs;
    register    int len;
    register    int rdecpt;
            int     decpt;
            int sign;

#ifndef __DO_LONG_DOUBLE__
    if ((len = _ferr(s, val)) > 0)
        return (len);
#endif
    rs = s;
#ifdef  USE_ECVT
    /*
     * Needed on systems with broken fcvt() implementation
     * (e.g. Cygwin32)
     */
    b = ecvt(val, ndigits, &decpt, &sign);
    /*
     * The next call is needed to force higher precision.
     */
    if (decpt > 0)
        b = ecvt(val, ndigits+decpt, &decpt, &sign);
#else
    b = fcvt(val, ndigits, &decpt, &sign);
#endif
#ifdef  __DO_LONG_DOUBLE__
    len = *b;
    if (len < '0' || len > '9') {       /* Inf/NaN */
        strcpy(s, b);
        return (strlen(b));
    }
#endif
    rdecpt = decpt;
    len = rdecpt + ndigits + 1;
    if (rdecpt < 0)
        len -= rdecpt;
    if (sign)
        len++;
    if (fieldwidth > len)
        while (fieldwidth-- > len)
            *rs++ = ' ';
    if (sign)
        *rs++ = '-';
    if (rdecpt > 0) {
        len = rdecpt;
        while (*b && len-- > 0)
            *rs++ = *b++;
#ifdef  USE_ECVT
        while (len-- > 0)
            *rs++ = '0';
#endif
    }
#ifndef V7_FLOATSTYLE
    else {
        *rs++ = '0';
    }
#endif
#if defined(HAVE_LOCALECONV) && defined(USE_LOCALE)
    *rs++ = *(localeconv()->decimal_point);
#else
    *rs++ = '.';
#endif
    if (rdecpt < 0) {
        len = rdecpt;
        while (len++ < 0 && ndigits-- > 0)
            *rs++ = '0';
    }
    while (*b && ndigits-- > 0)
        *rs++ = *b++;
#ifdef  USE_ECVT
    while (ndigits-- > 0)
        *rs++ = '0';
#endif
    *rs = '\0';
    return (rs - s);
}

Variable Documentation

char _js_inf[] = "(Infinity)"

static

Definition at line 190 of file fconv.c.

char _js_nan[] = "(NaN)"

static

Definition at line 189 of file fconv.c.