1 /*-

     2  * 

     3  * Copyright (c) 2002, 2003 Tim J. Robbins

     4  * All rights reserved.

     5  *

     6  * Redistribution and use in source and binary forms, with or without

     7  * modification, are permitted provided that the following conditions

     8  * are met:

     9  * 1. Redistributions of source code must retain the above copyright

    10  *    notice, this list of conditions and the following disclaimer.

    11  * 2. Redistributions in binary form must reproduce the above copyright

    12  *    notice, this list of conditions and the following disclaimer in the

    13  *    documentation and/or other materials provided with the distribution.

    14  *

    15  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND

    16  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

    17  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

    18  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE

    19  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

    20  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

    21  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

    22  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

    23  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

    24  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

    25  * SUCH DAMAGE.

    26  * * Portions Copyright (c) 2006 Nokia Corporation and/or its subsidiary(-ies). All rights reserved. 

    27  */

    28 

    29 #include <sys/cdefs.h>

    30 __FBSDID("$FreeBSD: src/lib/libc/locale/wcstof.c,v 1.3 2004/04/07 09:47:56 tjr Exp $");

    31 

    32 #include <stdlib.h>

    33 #include <wchar.h>

    34 #include <wctype.h>

    35 /*

    36  * See wcstod() for comments as to the logic used.

    37  */

    38 EXPORT_C float

    39 wcstof(const wchar_t * __restrict nptr, wchar_t ** __restrict endptr)

    40 {

    41 	static const mbstate_t initial = {0,{0}};

    42 	mbstate_t mbs;

    43 	float val;

    44 	char *buf, *end;

    45 	const wchar_t *wcp;

    46 	size_t len;

    47 

    48 	while (iswspace(*nptr))

    49 		nptr++;

    50 

    51 	wcp = nptr;

    52 	mbs = initial;

    53 	if ((len = wcsrtombs(NULL, &wcp, 0, &mbs)) == (size_t)-1) {

    54 		if (endptr != NULL)

    55 			*endptr = (wchar_t *)nptr;

    56 		return (0.0);

    57 	}

    58 	if ((buf = malloc(len + 1)) == NULL)

    59 		return (0.0);

    60 	mbs = initial;

    61 #ifdef __SYMBIAN32__	

    62 	wcp = nptr;

    63 #endif //__SYMBIAN32__

    64 	wcsrtombs(buf, &wcp, len + 1, &mbs);

    65 

    66 	val = strtof(buf, &end);

    67 

    68 	if (endptr != NULL)

    69 		*endptr = (wchar_t *)nptr + (end - buf);

    70 

    71 	free(buf);

    72 

    73 	return (val);

    74 }